just a little example:
Code: Select all
Device = 18F46K20
Clock = 32
#option LCD_DATA = PORTB.0
#option LCD_RS = PORTB.5
#option LCD_EN = PORTB.4
Include "LCD.bas"
Dim Led1 As PORTE.1
Dim a As Byte
OSCCON =$60
OSCTUNE.6 = 1
Output(Led1)
a=32
LCD.Cls
Repeat
a=a+1
Led1=1
DelayMS(300)
Led1=0
DelayMS(300)
LCD.WriteAt(1,1,a)
Until false
as anyone had this problem? is there a workaround?
thanks
Sergio