mit dem Ks108 schlage ich mich gerade rum und bekomme nur das im Anhang
zu sehende auf das Display...
deswegen wollte ich nun mal ein T6963c controller
denke das funktioniert einfacher! hoffe ich zumindest...
hat jemand vielleicht eine Ahnung was das bei dem Bild sein könnte...
kann jedenfalls nicht mehr viel sein, hier mein Code:
'*********************************************************
$regfile = "m16def.dat"
$crystal = 8000000
$lib "glcdks108.lib"
$hwstack = 64 'default use
32 for the hardware stack
$swstack = 80 'default use
10 for the SW stack
$framesize = 80 'default use
40 for the frame space
Config Graphlcd = 128 * 64sed , Dataport = Portb , Controlport = Porta ,
Ce = 3 , Ce2 = 4 , Cd = 0 , Rd = 1 , Reset = 5 , Enable = 2
Ddra = &B11111111
Porta = &B11111111
Ddrb = &B11111111
Portb = &B11111111
Ddrc = &B11111111
Portc = &B11111111
Ddrd = &B11111111
Portd = &B00000000
Dim X As Integer
Dim Y As Integer
Dim Zeichen As String * 3
Cls
Wait 2
Wait 1
Line(0 , 0) -(127 , 64) , 1 'make line
Wait 2
Line(0 , 0) -(127 , 64) , 0 'remove line
For Y = 1 To 20
Circle(30 , 30) , Y , 1
Waitms 100
Next
Wait 1
Glcdcmd &H3E , 1 : Glcdcmd &H3E , 2 ' both
displays off
Wait 1
Glcdcmd &H3F , 1 : Glcdcmd &H3F , 2 'both on
Showpic 0 , 0 , Plaatje 'show a
comnpressed picture
End 'end program
Plaatje:
$bgf "F:\test.bgf"
'*********************************************************
