Hallo Forum und bastler
Ich hab einen code von lange her gefunden und hab beim den code ein proplem, wenn ich den code zum ATMega schicke Passiert auf den LCD 20x4 Nichts es wird nicht angesprochen ist da irgend wo ein fehler drin?
Ich Bitte um rat und Tipps
Hier der Code:
CodeBox BascomAVR
Gruß Thorsten Sch.
Ich hab einen code von lange her gefunden und hab beim den code ein proplem, wenn ich den code zum ATMega schicke Passiert auf den LCD 20x4 Nichts es wird nicht angesprochen ist da irgend wo ein fehler drin?
Ich Bitte um rat und Tipps
Hier der Code:
CodeBox BascomAVR
$regfile = "m8def.dat" $crystal = 10000000 '10Mhz $hwstack = 32 $swstack = 8 $framesize = 24 Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , _ E = Portd.5 , Rs = Portd.6 Config Lcd = 20 * 4 , Chipset = St7032 'Type 20 x 4 Blau LCD ST7032 Config Lcdbus = 4 Cls 'LCD Leeren Cursor Off Initlcd Config 1wire = Portb.0 Config Dcf77 = Pinb.2 , Timer = 1 , Debug = 1 , Check = 1 , Inverted = 1 , Gosub = Sectic Config Pind.7 = Input Portd.7 = 1 Config Pinb.1 = Output Enable Interrupts Config Date = Dmy , Separator = . Dim Onebyte As Byte Dim Ar(2) As Byte Cursor Off Noblink Cls Waitms 100 While Dcf_status.7 = 0 ' Dcf_status.7 wird auf 1 gesetzt sobald die Zeit erfolgreich synchronisiert wurde ' ---Testweise rausgelassen-- 'Locate 1 , 1 'Lcd "DCF: " ; Time$ ; " " ; Date$ ; " " ; Time(dcf_sec) ; " " ; Date(dcf_day) ; " " ; Bin(dcf_status) ; " " ; Bin(dcf_parity) ; " " ; Bin(dcf_bits) ; " " ; Bdcf_impuls ; " " ; Bdcf_pause Locate 1 , 1 Lcd "Sync..." Waitms 250 Wend Locate 1 , 1 Lcd "Uhrzeit synchronisiert!" ; Time$ ; " " ; Date$ Do nop Locate 1 , 1 Lcd " Zeile1" Locate 2 , 1 Lcd " Zeile2" 1wreset 1wwrite &HCC 1wwrite &H44 1wreset 1wwrite &HCC 1wwrite &HBE Ar(1) = 1wread(2) Waitms 500 Locate 4 , 1 Shift Ar(1) , Right , 1 Lcd Ar(1) ; Chr(223) ; "C" If Pind.7 = 0 Then Portb.1 = 1 Waitms 50 Portb.1 = 0 Locate 1 , 1 Lcd " " Locate 2 , 1 Lcd " " Locate 3 , 1 Lcd " " Locate 2 , 1 Lcd " Test1" Waitms 1000 Locate 2 , 1 Lcd " " Locate 2 , 1 Lcd " Test2" Waitms 1000 Locate 2 , 1 Lcd " " End If Loop End Sectic: Locate 3 , 1 Lcd Time$ ; " " ; Date$ Return
Gruß Thorsten Sch.