По просьбе начинающих BASCOM'овцев выкладываю один из вариантов реализации простого счетчика, без кнопок, отсчет начинается сразу после запуска... так сказать один из курсов по BASCOM AVR.
Код программы:
$regfile = "m8def.dat"
$crystal = 800000
Config Lcdpin = Pin , Rs = Portc.0 , E = Portb.5 , Db4 = Portb.4 , Db5 = Portb.3 , Db6 = Portb.2 , Db7 = Portb.1
Config Lcd = 16 * 4
Config Portb.0 = Output
Portb.0 = 1
Dim Sep As Byte
Cursor Off
Cls
Do
Locate 1 , 1
Lcd " cekyHdoMep"
Locate 2 , 8
Lcd "" ; Sep
Waitms 200
Incr Sep
Loop
End
Видео работы:
|