Druckbare Version
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?
normal bin ich ja n mensch der ordnung, aber hier muss ich mal pushen eillt echt!
schon mal vielen dank
Code:'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
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 ..Code:Taste = Tastenabfrage()
If Taste <> 0 Then
Select Case Taste
Case 1
'tu was
End Select
End If
Schönen Samstag
Tobi