BASCOM+LCD

[Ivan OM1CT]

Zdravim , mam taketo nieco jednoduche v bascome /demo verzia/

$regfile = "m32def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 ,  
Db7 = Portc.7 , E = Portc.3 , Rs = Portc.1
Config Lcdmode = Port

Dim Pos As Byte
Do

Cls
Upperline
Lcd "0123456789ABCDEF"
Lowerline
Lcd "0123456789abcdef"
For Pos = 0 To 16 Step 1
   Waitms 500
   Shiftlcd Left
Next Pos

Loop
End


a enable na PORTC.3 je stale v log 1. Cim je to sposobene ?
Ivan


-- 
+421903362454