lcd.bas

1602的流水灯等程序 用BASCOM-AVR语言 ATmega16平台

 $regfile = "m16def.dat"                                    ' 定义目标单片机是ATmega88
$crystal = 8000000
'/////LCD1602 定义//////// ////////
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.4 , Rs = Portb.5
Config Lcd = 16 * 2
Dim S As String * 16
Config Porta.1 = Output
Dim A As Bit
Porta.1 = 1
A=1
       Cls
Cursor Off
Do

 Waitms 1000
  Porta.1 = Not Porta.1
  A = Not A
Locate 1 , 5
   Lcd A
 Loop
 End