LCD ausgabe mit Tastenabfrage..?

[garbage]

Hallo zusammen
ich versuche verschiedene Texte auf dem LCD auzugeben.
Also Taste 1 gedrückt gebe diesen Text aus , oder Taste 2 gedrückt gebe diesen Text aus aber ich weiß nicht was ich falsch mache!
Und ich mache bestimmt viel Falsch .
Ich habe das RN-Control Board , Text ohne Tastenabfrage geht .

Vielen Danke schon mal...

MFG g4rbi

'************************************************* ********************

$regfile = "m32def.dat"
' bei Mega 16 $regfile = "m16def.dat"


$crystal = 16000000 'Quarzfrequenz
$baud = 9600

'************************************************* ********************
Declare Function Tastenabfrage() As Byte
Declare Sub Led1()
Declare Sub Led2()
Declare Sub Led3()
Config Lcd = 24 * 2
Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.5 , Rs = Portd.4
Config Lcdbus = 4

'Porta.7 = 1
Config Pina.7 = Input 'Für Tastenabfrage
Config Portc = Output
Dim Taste As Byte
Config Adc = Single , Prescaler = Auto
'Portc.1 = 0

Do


Taste = Tastenabfrage()
If Taste <> 0 Then

Select Case Taste
Case 1
Call Led1
Case 2
Call Led2
Case 3
Call Led3
End Select
Sound Portd.7 , 400 , 500 'BEEP
Wait 1
End If
Wait 1
Loop
End

Function Tastenabfrage() As Byte
Local Ws As Word

Tastenabfrage = 0

Start Adc
Ws = Getadc(7)

If Ws < 500 Then
Select Case Ws
Case 400 To 450
Tastenabfrage = 1

Case 330 To 380
Tastenabfrage = 2

Case 260 To 305
Tastenabfrage = 3

Case 180 To 220
Tastenabfrage = 4

Case 90 To 130
Tastenabfrage = 5


End Select


End If
End Function

Sub Led1
Locate 1 , 1
Cls
Lcd "aaaaa"
End Sub

Sub Led2
Locate 1 , 1
Cls
Lcd "bbbbb"
End Sub

Sub Led3
Locate 1 , 1
Cls
Lcd "ccccc"
End Sub

[garbage]

DAnke hatt sich erledigt.....
KAnn geschlossen werden!