$lib "lcd-pcf8833.lbx"
$regfile = "m16def.dat"
$crystal = 8000000
'$baud = 9600
$hwstack = 128
$swstack = 128
$framesize = 40
Declare Sub Ltext(byval X As Byte , Byval Y As Byte , Byval S As String , Byval Kolor As Byte , Byval Tlo As Byte)
Declare Sub Pokaz(byval X As Byte , Byval Y As Byte , Byval Cyfra As Byte)
'Config Graphlcd = Color , Controlport = Portc , Cs = 4 , Rs = 7 , Scl = 5 , Sda = 6
Config Graphlcd = Color , Controlport = Portc , Cs = 0 , Rs = 7 , Scl = 1 , Sda = 6
Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down
'-- zmienne ogólne
Dim I As Byte
Dim X As Byte
'-- zmienne lcd
Dim S1 As String * 8
Dim S2 As String * 8
Dim S3 As String * 8
'-- stałe kolorów wyświetlacza
Const Blue = &B11111000
Const Yellow = &B00000011
Const Red = &B00011111
Const Green = &B11100011
Const Black = &B11111111
Const White = &B00000000
Const Brightgreen = &B0011111
Const Darkgreen = &B00010100
Const Darkred = &B11100000
Const Darkblue = &B00000010
Const Brightblue = &B00011111
Const Orange = &B00010011
Gosub Inicjalizacja_lcd
Setfont Color16x16
Cls
Box(0 , 0) -(130 , 130) , Black
Pwm1a = 200 'to do wywalenia bo u mnie steruje podswietleniem LCD
Do
S1 = "Linia 1 "
S2 = "Linia 2 "
S3 = "Linia 3 "
Call Ltext(0 , 27 , S1 , Green , Black) 'linia 1
Call Ltext(0 , 47 , S2 , Yellow , Black) 'linia 2
Call Ltext(0 , 67 , S3 , Red , Black) 'linia 3
Loop
End
Sub Ltext(byval X As Byte , Y As Byte , S As String , Kolor As Byte , Tlo As Byte)
Local Temps As String * 1
For I = 1 To 8
Temps = Mid(s , I , 1)
Lcdat X , Y , Temps , Kolor , Tlo
X = X + 16
Next I
End Sub
Inicjalizacja_lcd:
Portc.7 = 0 'Inicjacja Reseta
Waitms 50
Portc.7 = 1
Waitms 50
Glcdcmd &H01 'software reset
Glcdcmd &H11 'sleep out
Glcdcmd &H13 'normal mode on
Glcdcmd &H21 'inversion on
Glcdcmd &H36 'Mem_control
Glcddata &B01110000
Glcdcmd &H3A 'color
Glcddata &B00000010
Glcdcmd &H25 'contrast
Glcddata 1
Glcdcmd &H2A 'column adres set
Glcddata 0
Glcddata 131
Glcdcmd &H2B 'page adres set
Glcddata 0
Glcddata 131
Glcdcmd &H29 'display on
Return
$include "color16x16.font"