Gast
#126249
Hat jemand mit dem Bascom AVR basic Compilier einen GLCD T6963C 128x128 betrieben? Also es zuckt eine Linie auf dem Display und das wars. kann mir jemand einen Tio geben? Habe das ding genau so angeschlossen. Bitte - vielleicht weis ja jemand ob es an der Harsware liegt oder an den Treiber. Es lässt sich auch kein Text darstellen:-( Listing: 'The connections of the LCD used in this demo 'LCD pin connected to ' 1 GND GND '2 GND GND '3 +5V +5V '4 -9V -9V potmeter '5 /WR PORTC.0 '6 /RD PORTC.1 '7 /CE PORTC.2 '8 C/D PORTC.3 '9 NC not conneted '10 RESET PORTC.4 '11-18 D0-D7 PA '19 FS PORTC.5 '20 NC not connected $crystal = 8000000 $regfile = "m8515.dat" 'First we define that we use a graphic LCD ' Only 240*64 supported yet Config Graphlcd = 128 * 128 , Dataport = Porta , Controlport = Portc , Ce = 2 , Cd = 3 , Wr = 0 , Rd = 1 , Reset = 4 , Fs = 5 , Mode = 8 'The dataport is the portname that is connected to the data lines of the LCD 'The controlport is the portname which pins are used to control the lcd 'CE, CD etc. are the pin number of the CONTROLPORT. ' For example CE =2 because it is connected to PORTC.2 'mode 8 gives 240 / 8 = 30 columns , mode=6 gives 240 / 6 = 40 columns 'Dim variables (y not used) Dim X As Byte , Y As Byte Cls Do 'use the new LINE statement to create a box 'LINE(X0,Y0) - (X1,Y1), on/off Line(0 , 0) -(127 , 127) , 255 ' diagonal line Line(0 , 127) -(127 , 0) , 255 ' diagonal line Line(0 , 0) -(126 , 0) , 255 ' horizontal upper line Line(0 , 127) -(127 , 127) , 255 'horizontal lower line Line(0 , 0) -(0 , 127) , 255 ' vertical left line Line(239 , 0) -(127 , 127) , 255 ' vertical right line Wait 2 loop