Hi and Happy new year to all.
I have writen this simple code to test a 4x20 lcd in proteus but not able to run the display, remember this is a simple test which will be expended later on.
Thanks and regards
$regfile = "m8DEF.dat" ' specify the used micro
$crystal = 8000000 ' used crystal frequency
' $baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space
Config Lcd = 20 * 4 'configure lcd screen
Initlcd
Config Lcdpin = Pin , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.4 , Db7 = Portd.5 , E = Portd.6 , Rs = Portd.7
Dim A As Byte
Do
Cls 'clear the LCD display
Lcd "Hello world." 'display this at the top line
Wait 1
Lowerline 'select the lower line
Wait 1
Lcd "Shift this." 'display this at the lower line
Wait 1
Loop
End
[b:7bfe34c1f0][color=red:7bfe34c1f0](BASCOM-AVR version : 2.0.7.6 )[/b:7bfe34c1f0][/color:7bfe34c1f0]
↧