So hab ich es auch gemacht, leider zu spät gesehen.
ICH benutze ein Keypad, per PS/2 angeschlossen am Rn 2650 und dem Display3000 TFT, alles funktioniert wunderbar....
Code:
'_____X-Abfrage_________________________________________________________________
Do
E = Getatkbd()
Num1x1 = Chr(e)
Num1x = Val(num1x1)
If E > 0 Then Call Lcd_print(num1x1 , 80 , 85 , 1 , 1 , 1 , White , Black)
If E = 0 Then Loop Else Nop
Do
R = Getatkbd()
Num2x2 = Chr(r)
Num2x = Val(num2x2)
If R > 0 Then Call Lcd_print(num2x2 , 89 , 85 , 1 , 1 , 1 , White , Black)
If R = 0 Then Loop Else Nop
Do
U = Getatkbd()
If U = 13 Then Gosub Wert2_x Else Nop
Num3x3 = Chr(u)
Num3x = Val(num3x3)
If U > 0 Then Call Lcd_print(num3x3 , 98 , 85 , 1 , 1 , 1 , White , Black)
If U > 20 Then Gosub Enterx Else Loop
Enterx:
Do
Q = Getatkbd()
If Q = 13 Then Gosub Wert1_x Else Loop
Wert2_x:
Num1x = Num1x * 10
Weite_x = Num1x + Num2x 'Nummx ist der Wert für den X-Vorschub
Gosub Y_abfrage
End
Wert1_x:
Num1x = Num1x * 100
Num2x = Num2x * 10
Numx = Num1x + Num2x
Weite_x = Numx + Num3x 'Nummx ist der Wert für den X-Vorschub
If Weite_x > 150 Then Ueberschreiten Else Nop
Gosub Y_abfrage
End
Vielleicht kann ja jemand noch etwas damit anfangen...
Lesezeichen