Np ten program włącza mi podświetlenie lcd i działa
Kod: Zaznacz cały
$regfile = "m8def.dat"
$crystal = 8000000
Dim Pom As Bit
Config Portc = Output
Config Portd = Input
Config Portb = Output
Portd.0 = 1
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5
Config Lcd = 16 * 2
Do
Portb.1 = 1
Loop
Endnatomiast ten ma sprawić by migało i jakimś cudem nie działa
Kod: Zaznacz cały
$regfile = "m8def.dat"
$crystal = 8000000
Dim Pom As Bit
Config Portc = Output
Config Portd = Input
Config Portb = Output
Portd.0 = 1
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5
Config Lcd = 16 * 2
Do
Waitms 500
Toggle Portb.1
Loop
EndKod: Zaznacz cały
LCD "Hello"
Proszę niech mi ktoś to wyjaśni bo takie sytuacje mnie skutecznie zniechęcaja do porgramowania, ewentualnie podeśle jakiś program testowy który pozwoli mi to sprawdzić.
http://www.mediafire.com/download.php?o0872i8pkqgc4tr
http://www.mediafire.com/download.php?2d446g021i8yk2q
Pozdrawiam serdecznie
spanner