Tastenabfrage Rn-control 1.4

[voll-milch]

Hallo ich will die Tasten auf meinem board abfragen, aus dem beispielprogramm werd ich einfach nich schlauer....

kann mal jemand ein einfaches Programm posten das zb bei taste 1
Portc.6 = 1 'bestimmt Richtung
Portc.7 = 0 'bestimmt Richtung
Portd.4 = 1 'Linker Motor EIN
ausgeführt?

[voll-milch]

normal bin ich ja n mensch der ordnung, aber hier muss ich mal pushen eillt echt!

schon mal vielen dank

[CsT]

'Diese Unterfunktion fragt die Tastatur am analogen Port ab
Function Tastenabfrage() As Byte
Local Ws As Word
Tastenabfrage = 0
Ton = 600
Start Adc
Ws = Getadc(7)
If Ws < 1010 Then
Select Case Ws
Case 410 To 450
Tastenabfrage = 1
Ton = 550
Case 340 To 380
Tastenabfrage = 2
Ton = 500
Case 265 To 305
Tastenabfrage = 3
Ton = 450
Case 180 To 220
Tastenabfrage = 4
Ton = 400
Case 100 To 130
Tastenabfrage = 5
Ton = 350
End Select
Sound Portd.7 , 400 , Ton 'BEEP
End If
End Function


Taste = Tastenabfrage()
If Taste <> 0 Then
Select Case Taste
Case 1
'tu was
End Select
End If

Was willst du mehr als diese Codeteile (wie sie im Beispielprogramm vorhanden sind)?!? Steht doch alles dabei .. und nach 2 Stunden brauchst du noch net pushen, da ist dein Thread bestimmt noch nicht untergegangen ..

Schönen Samstag
Tobi