Witam mam wyswietlacz oparty na T6963c
240x64
Problem polega na tym ze nie dziala wyswietlanie obrazow BGF
Wyswietlanie napisow , linii i innych elementow dziala poprawnie poza obrazami bgf
Wyprobowalem wszystkie ustawienia w konwterze bmp<> i BGF i najlepiej wychodzi
6x8 240x64 - tylko ze obraz kola wyglada jak poszatkowany (tak jak by zapis w kolejnej linijce byl przesuniety o parenascie pixli od linii powyzej)
240x64
Problem polega na tym ze nie dziala wyswietlanie obrazow BGF
Wyswietlanie napisow , linii i innych elementow dziala poprawnie poza obrazami bgf
Wyprobowalem wszystkie ustawienia w konwterze bmp<> i BGF i najlepiej wychodzi
6x8 240x64 - tylko ze obraz kola wyglada jak poszatkowany (tak jak by zapis w kolejnej linijce byl przesuniety o parenascie pixli od linii powyzej)
$regfile = "m128def.dat"
'$crystal = 11059200
$crystal = 1000000
$loadersize = 512
$hwstack = 100
$swstack = 75
$framesize = 40
'$lib "GLCD.Lbx"
Config Graphlcd = 240 * 64 , Dataport = Porta , Controlport = Portc , Ce = 2 , Cd = 3 , Wr = 0 , Rd = 1 , Reset = 4 , Fs = 5 , Mode = 6
'mode 8 gives 240 / 8 = 30 columns , mode=6 gives 240 / 6 = 40 columns
Dim X As Byte , Y As Byte
Dim I As Byte
Cls
Cursor Off
Wait 1
'locate works like the normal LCD locate statement
' LOCATE LINE,COLUMN LINE can be 1-8 and column 0-30
Pic0:
$bgf "fan0.bgf"
Pic1:
$bgf "fan1.bgf"
Locate 1 , 1
Lcd "Test"
Locate 2 , 1 : Lcd "Prosze czekac | Pleas Wait"
Locate 3 , 1 : Lcd " Test kolejny"
'Cls
For I = 1 To 20
Circle(38 , 39) , I , 255
Waitms 130
Next
Cls
Waitms 100
Showpic 0 , 0 , Pic0
Wait 10
Cls
Waitms 100
Showpic 0 , 0 , Pic1
Wait 8
Do
nop
Waitms 100
Loop
End