hoera, mijn pickit werkt weer.
ben dus weer volop bezig.
heb in onderstaand progje wat schoonheidsfoutjes weggewerkt.
blijf nog met 1 ding zitten en dat is dat mijn temp in hyperterminal blijft doorlopen.
heb een regel tussen gevoegd, tussen de sterretjes.
heb uiteraard x aantal dingen uitgeprobeerd zoals uit een vorig programma het toevoegen van ,8,8,8 maar ook dit werkt niet.
heeft iemand een idee.
programma werkt in ieder geval zo als ik het voor ogen had.
pic basic code:
Device 16F628A
Config WDT_OFF,_
PWRTE_ON,_
LVP_OFF,_
MCLRE_ON,_
HS_OSC
Xtal 20
All_Digital TRUE
Declare LCD_ENPin = PORTA.1
Declare LCD_RSPin = PORTA.0
Declare Hserial_Baud 9600
Declare Hserial_RCSTA $90
Declare Hserial_TXSTA $24
Declare Hserial_Clear = On
Symbol HOOG = 1
Symbol LAAG = 0
Symbol Convert = $44
Symbol Graad = 223
Symbol RdScratchPad = $BE
Symbol SkipROM = $CC
Symbol DS1820 = PORTB.0
Symbol Potmeter = PORTA.2
Symbol Uitgang = PORTA.4
Dim Temperatuur As Byte
Dim Thermostaat As Byte
PORTA = %00000000
TRISA = %11101111
PORTB = %00000000
TRISB = %00000000
Clear
DelayMS 500
Cls
Print At 1, 1, "zeeman.59"
Print At 1, 12, "zeeman.59"
Print At 3, 1, "Temp."
Print At 4, 1, "Inst."
While 1 = 1
Thermostaat = Pot Potmeter, 40
If Thermostaat > 60 Then Thermostaat = 60
OWrite DS1820, 1, [SkipROM, Convert]
OWrite DS1820, 1, [SkipROM, RdScratchPad]
ORead DS1820, 2, [Temperatuur]
Print At 3, 7, @Temperatuur / 2, ".", Dec1 (Temperatuur // 2) * 5, Graad, "C"
*** HRSOut @Temperatuur / 2, ".", Dec1 (Temperatuur // 2) * 5, Graad, "C"***
Print At 4, 7, @Thermostaat / 2, ".", Dec1 (Thermostaat // 2) * 5, Graad, "C"
If Temperatuur < Thermostaat Then Uitgang = HOOG
If Temperatuur > Thermostaat Then Uitgang = LAAG
DelayMS 500
Wend