LCD ausgabe mit Tastenabfrage..?
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
