I have tested this code on stk500 with a M163L but
it doesn't wortk.
On the lcd there is :
27/09/02
23:21:00 but it doesn 't go forward.
Fabio Stranieri
'--------------------------------------------------------------
' Fabio Stranieri '-------------------------------------------------------------- ' file: Orologio.BAS '-------------------------------------------------------------- 'nota : testato in PIN mode con 4-bit su
STK500
Dim A As Byte
Config Lcdmode = Port
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5
, Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.0 , Rs = Porta.1
Config Lcd = 16 *
2
'specifica tipo di lcd
Config Clock = Soft
Date$ = "27/09/02"
Time$ = "23:21:00"
Cls Do
Home 'cursor home Lcd Date$ Lowerline Lcd Time$ 'show the date and time Loop End |