So, hab das Problem jetzt gelöst:
Die Wertebereiche die im Code stehen und mittels welchen rausgefunden wird welcher Taster gedrückt wurde waren bei mir allg. sehr eng an der Grenze.
Hab diese nun angepasst und alle 5 Tasten funktionieren super (beim Motorentest dachte ich schon es sei was kaputt - habe keine Motoren dran - aber der dauert wohl einfach so lange ).
Ich habe gerade gesehen das in der Wiki das Testprogramm in dieser Beziehung besser ist als das welches auf CD ausgeliefert wird:
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)
' Print "Tastenabfrage anpassen!ADC Wert ws=" ; Ws
If Ws < 500 Then
Select Case Ws
Case 400 To 450
Tastenabfrage = 1
Ton = 550
Case 330 To 380
Tastenabfrage = 2
Ton = 500
Case 260 To 305
Tastenabfrage = 3
Ton = 450
Case 180 To 220
Tastenabfrage = 4
Ton = 400
Case 90 To 130
Tastenabfrage = 5
Ton = 350
' Case Else
' Print "Tastenabfrage anpassen!ADC Wert ws=" ; Ws
End Select
Sound Portd.7 , 400 , Ton 'BEEP
End If
End Function
einfach beim Case Else und folgenden Print die ' wegmachen und schon erhält man den Wert des Tastendrucks .
Lesezeichen