Hallo! Ich bin ein Neuling in der Elektronik und stehe noch ganz am Anfang. Ich beschäftige mich erst seit wenigen Wochen mit Atmega und versuche nun verzweifelt ein Grafik Display zum laufen zu bekommen, aber ich komme nicht mehr weiter. Auch google hat mir keine große Hilfe geleistet.
Ich habe ein Atmega 128 und ein 12864A RevG Grafikdisplay. Laut google sollte da ein KS108 Chip drin sein, somit habe ich es mal probiert aber ohne Erfolg.
Es wäre toll, wenn Ihr mal meinen Schaltplan und Quellcode anschaut ob ich was falsch mache.
Ich programmiere mit Bascom (ich versuche es jedenfalls) und wenn ich die Zeile config graphlcd mit aufnehme, sieht es so aus als würde der uC nicht mehr laufen, da meine Kontroll LED dauerhaft leuchtet und nicht mehr in der Schleife an/aus geht.
Bei der Pin Belegung bin ich mir nicht so sicher ob das alles so stimmt.
Ich habe auch einen externen 16MhZ Quarz angeschlossen, jedoch scheint es mir als müsse ich diesen noch iergendwie zum leben erwecken.
Habe nun mein Wochenende ohne Fortschritte vergeuded, bin also für jede Hilfe dankbar!
Ich habe ein Atmega 128 und ein 12864A RevG Grafikdisplay. Laut google sollte da ein KS108 Chip drin sein, somit habe ich es mal probiert aber ohne Erfolg.
Es wäre toll, wenn Ihr mal meinen Schaltplan und Quellcode anschaut ob ich was falsch mache.
Ich programmiere mit Bascom (ich versuche es jedenfalls) und wenn ich die Zeile config graphlcd mit aufnehme, sieht es so aus als würde der uC nicht mehr laufen, da meine Kontroll LED dauerhaft leuchtet und nicht mehr in der Schleife an/aus geht.
Bei der Pin Belegung bin ich mir nicht so sicher ob das alles so stimmt.
Ich habe auch einen externen 16MhZ Quarz angeschlossen, jedoch scheint es mir als müsse ich diesen noch iergendwie zum leben erwecken.
Code:
'#### Prozessordaten definieren
$regfile = "m128def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 8000000
$baud = 9600
'#### Alias für Port Namen
Led Alias Porte.2
'#### Port definieren (inp/out)
Config Led = Output
'#### include von Daten & Lib's
$lib "glcdks108.lbx"
$include "font8x8.font"
'First we define that we use a graphic LCD
Config Graphlcd = 128 * 64sed , Dataport = Portc , Controlport = Porta , Cd = 4 , Rd = 3 , Ce = 7 , Ce2 = 6 , Enable = 2 , Reset = 5
'CE =CS1 Chip select
'CE2=CS2 Chip select second chip
'CD=Data/instruction
'RD=Read
'RESET = reset
'ENABLE= Chip Enable
Dim X As Byte , Y As Byte , Z1 As Byte , Z2 As Byte
Setfont Font8x8
'---------------------------------------------------------------------
' Arbeitsschleife
Do
Gosub Lcd_cls2
Wait 1
For Z1 = 1 To 8
Lcdat Z1 , 1 , "--Testschrift!--"
Waitms 500
Next
For Z2 = 0 To 63
Line(0 , Z2) -(127 , Z2) , 1 'make line
Waitms 50
Next
For Z1 = 8 To 1 Step -1
Lcdat Z1 , 1 , "Test invertiert!" , 1 ' will inverse the text
Waitms 500
Next
Wait 2
For Z2 = 63 To 0 Step -1
Line(0 , Z2) -(127 , Z2) , 0 'make line
Waitms 25
Next
For Z2 = 0 To 62 Step 4
Line(0 , Z2) -(127 , Z2) , 1 'make line
Waitms 250
Next
For Z2 = 0 To 124 Step 4
Line(z2 , 0) -(z2 , 63) , 1 'make line
Waitms 250
Next
Wait 2
For Y = 1 To 30
Circle(63 , 31) , Y , 1
Waitms 100
Next
Wait 2
For Y = 30 To 1 Step -1
Circle(63 , 31) , Y , 0
Waitms 100
Next
Wait 2
Gosub Lcd_cls2
Showpic 0 , 0 , Plaatje 'show a comnpressed picture
Wait 5
Loop
End 'end program
'---------------------------------------------------------------------
Lcd_cls2:
Glcdcmd &H3E , 1 : Glcdcmd &H3E , 2 ' both displays off
Cls
Waitms 10
Glcdcmd &H3F , 1 : Glcdcmd &H3F , 2 'both on Return
'---------------------------------------------------------------------
Plaatje:
'include the picture data
$bgf "ks108.bgf"Habe nun mein Wochenende ohne Fortschritte vergeuded, bin also für jede Hilfe dankbar!
