MueThoS
18.03.2008, 18:10
Hallo zusammen,
ich muß erstmal sagen ich bin ganz neu dabei (manche würden Noob sagen)
und habe mir als Anfang ein RN-Control gekauft und ein GLCD von LEDSEE
Beides ist da und ich habe folgenden Code in den Mega32 geladen:
$regfile = "m32def.dat"
$crystal = 16000000
$baud = 9600
$hwstack = 32
$swstack = 32
$framesize = 32
Config Graphlcd = 240 * 128 , Dataport = Portb , Controlport = Portc , Ce = 2 , Cd = 3 , Wr = 0 , Rd = 1 , Reset = 4 , Fs = 5 , Mode = 6
Config Adc = Single , Prescaler = Auto , Reference = Internal
Dim X As Word , Y As Word
Dim X2 As Single , Y2 As Single
Dim X3 As Single , Y3 As Single
Dim X4 As Byte , Y4 As Byte
Start Adc
Cursor Off
Cls
Locate 1 , 1 : Lcd "T6963 mit Touchscreen an ATMega128"
Locate 3 , 1
Lcd "Y-Koordinate analog: "
Locate 4 , 1
Lcd "X-Koordinate analog: "
Do
Gosub Readtouch
Locate 3 , 22
Lcd Y ; " "
Locate 4 , 22
Lcd X ; " "
If Y > 330 Then
Y3 = Y - 346
Y2 = Y3 / 2.89
Y4 = Y2
Else
Y4 = 0
End If
If X > 150 Then
X3 = X - 160
X2 = X3 / 2.78
X4 = X2
Else
X4 = 0
End If
Locate 5 , 1
Lcd X4 ; " "
Locate 6 , 1
Lcd Y4 ; " "
Pset X4 , Y4 , 255
Loop
End
Readtouch:
Config Pina.0 = Output ' Makes port F.0 output
Config Pina.2 = Output ' Makes port F.0 output
Set Porta.0 ' Sets port F.0 High
Reset Porta.2 ' Sets port F.2 Low
Ddra.1 = 0 ' Sets port F.1 as input
Ddra.3 = 0 ' Sets port F.1 as input because we need it now as ad input
Waitms 20 ' Wait until the port is stable
Y = Getadc(3) ' Read the ad value for the y
Y = 1024 - Y ' Invert the reading
Config Pina.1 = Output ' Makes port F.1 output
Config Pina.3 = Output ' Makes port F.3 output
Reset Porta.3 ' Sets port F.3 Low
Set Porta.1 ' Sets port F.1 High
Ddra.0 = 0 ' Sets port F.0 as input
Ddra.2 = 0 ' Sets port F.2 as input because we need it now as ad input
Waitms 20 ' Wait until the port is stable
X = Getadc(2) ' Read the ad value for the x
X = 1024 - X ' Invert the reading
Return
Und es passiert nichts ausser die beiden Sounds die ich zum testen eingefügt habe.
Ich wollte die Ports so vergeben:
Port A für den Touch
Port B für Daten
Port C für die Steuerung
Angeschlossen habe ich das so:
RN-Control - Display
Port B 0-7 auf 10-17 am Display
C0 - WR 5
C1 - RD 6
C2 - CE 7
C3 - C/D 8
C4 - Reset 9
Am Display noch
VSS 2 auf 0V
VDD 3 auf +5V
Zwischen 3,4 und 19 noch Wiederstände für den Kontrast
(Hab kein Poti)
Nicht Böse sein ich fange wirklich erst an und denke das ich es richtig gemacht habe.
Aber denken ist nicht wissen 8-)
Gruß
MueThoS
ich muß erstmal sagen ich bin ganz neu dabei (manche würden Noob sagen)
und habe mir als Anfang ein RN-Control gekauft und ein GLCD von LEDSEE
Beides ist da und ich habe folgenden Code in den Mega32 geladen:
$regfile = "m32def.dat"
$crystal = 16000000
$baud = 9600
$hwstack = 32
$swstack = 32
$framesize = 32
Config Graphlcd = 240 * 128 , Dataport = Portb , Controlport = Portc , Ce = 2 , Cd = 3 , Wr = 0 , Rd = 1 , Reset = 4 , Fs = 5 , Mode = 6
Config Adc = Single , Prescaler = Auto , Reference = Internal
Dim X As Word , Y As Word
Dim X2 As Single , Y2 As Single
Dim X3 As Single , Y3 As Single
Dim X4 As Byte , Y4 As Byte
Start Adc
Cursor Off
Cls
Locate 1 , 1 : Lcd "T6963 mit Touchscreen an ATMega128"
Locate 3 , 1
Lcd "Y-Koordinate analog: "
Locate 4 , 1
Lcd "X-Koordinate analog: "
Do
Gosub Readtouch
Locate 3 , 22
Lcd Y ; " "
Locate 4 , 22
Lcd X ; " "
If Y > 330 Then
Y3 = Y - 346
Y2 = Y3 / 2.89
Y4 = Y2
Else
Y4 = 0
End If
If X > 150 Then
X3 = X - 160
X2 = X3 / 2.78
X4 = X2
Else
X4 = 0
End If
Locate 5 , 1
Lcd X4 ; " "
Locate 6 , 1
Lcd Y4 ; " "
Pset X4 , Y4 , 255
Loop
End
Readtouch:
Config Pina.0 = Output ' Makes port F.0 output
Config Pina.2 = Output ' Makes port F.0 output
Set Porta.0 ' Sets port F.0 High
Reset Porta.2 ' Sets port F.2 Low
Ddra.1 = 0 ' Sets port F.1 as input
Ddra.3 = 0 ' Sets port F.1 as input because we need it now as ad input
Waitms 20 ' Wait until the port is stable
Y = Getadc(3) ' Read the ad value for the y
Y = 1024 - Y ' Invert the reading
Config Pina.1 = Output ' Makes port F.1 output
Config Pina.3 = Output ' Makes port F.3 output
Reset Porta.3 ' Sets port F.3 Low
Set Porta.1 ' Sets port F.1 High
Ddra.0 = 0 ' Sets port F.0 as input
Ddra.2 = 0 ' Sets port F.2 as input because we need it now as ad input
Waitms 20 ' Wait until the port is stable
X = Getadc(2) ' Read the ad value for the x
X = 1024 - X ' Invert the reading
Return
Und es passiert nichts ausser die beiden Sounds die ich zum testen eingefügt habe.
Ich wollte die Ports so vergeben:
Port A für den Touch
Port B für Daten
Port C für die Steuerung
Angeschlossen habe ich das so:
RN-Control - Display
Port B 0-7 auf 10-17 am Display
C0 - WR 5
C1 - RD 6
C2 - CE 7
C3 - C/D 8
C4 - Reset 9
Am Display noch
VSS 2 auf 0V
VDD 3 auf +5V
Zwischen 3,4 und 19 noch Wiederstände für den Kontrast
(Hab kein Poti)
Nicht Böse sein ich fange wirklich erst an und denke das ich es richtig gemacht habe.
Aber denken ist nicht wissen 8-)
Gruß
MueThoS