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