Hallo,
Vorweg habe ich an euch eine allgeine Frage bezüglich des Demo-Programms vom RN-Control Mega8.
Ich habe es so abgeändert, dass es bei Tastendruck auf taster 1-5 einen text auf das LCD ausgibt.
Hier erstmal der Code:
Declare Sub Taste1()
Declare Sub Taste2()
Declare Function Tastenabfrage() As Byte
Declare Sub Taste3()
Declare Sub Taste4()
Declare Sub Taste5()
Declare Sub Willkommen()
$regfile = "m8def.dat"
Dim Ws As Word
Dim Adc_ohne_taste As Word
$crystal = 16000000
$baud = 9600
Config Adc = Single , Prescaler = Auto , Reference = Off
Config Pinc.0 = Input
Portc.0 = 1
Start Adc
Dim Taste As Byte
Config Pind.6 = Output
Portd.6 = 0
Dim ___lcdno As Bit
Config Lcdpin = Pin , E = Portc.3 , Rs = Portc.2 , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.4 , Db7 = Portd.5
Config Lcd = 16 * 4
Adc_ohne_taste = Getadc(0)
Call Willkommen
Do
Taste = Tastenabfrage()
If Taste <> 0 Then
Select Case Taste
Case 1
Call Taste1
Case 2
Call Taste2
Case 3
Call Taste3
Case 4
Call Taste4
Case 5
Call Taste5
End Select
End If
Loop
End
Function Tastenabfrage() As Byte
Tastenabfrage = 0
Ws = Getadc(0)
If Ws < Adc_ohne_taste Then
Select Case Ws
Case 400 To 440
Tastenabfrage = 1
Case 330 To 370
Tastenabfrage = 2
Case 260 To 300
Tastenabfrage = 3
Case 180 To 230
Tastenabfrage = 4
Case 100 To 130
Tastenabfrage = 5
End Select
End If
End Function
Sub Taste1()
___lcdno = 0
Cls
Locate 1 , 1
Lcd "Taste1"
End Sub
Sub Taste2()
___lcdno = 0
Initlcd
Cursor Off
Cls
Home
Lcd "Taste2"
End Sub
Sub Taste3()
Initlcd
Cursor Off
Cls
Lcd "Taste3"
End Sub
Sub Taste4()
___lcdno = 0
Initlcd
Cursor Off
Cls
Home
Lcd "Taste4 "
End Sub
Sub Taste5()
___lcdno = 0
Initlcd
Cursor Off
Cls
Home
Lcd "Taste5"
End Sub
Sub Willkommen()
___lcdno = 0
Initlcd
Cursor Off
Cls
Locate 1 , 1
Lcd " Willkommen!"
End Sub
---------------------------------
Jetzt frage ich euch, wie kommt aus diesem code eine Tastenabfrage des Tasterport portc.0 zu stande?
Was bedeuten die Zahlen in der "function" "case 400 to 440" usw.?
---------------------------------
Mein Ziel ist es 9 taster anzuschließen mit denen ich Zahlen von 1-9 aufs LCD bringen kann. Der Lautsprecher soll dann die eingegebene Zahl in "Beep's" wiedergeben (oder ein Blinken von einer LED).
-----------------------------------
Wenn mir jemand weiterhelfen könnte, wäre ich sehr dankbar.
Vielen Dank
Timo
Lesezeichen