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