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:
einfach beim Case Else und folgenden Print die ' wegmachen und schon erhält man den Wert des TastendrucksCode:'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.







Zitieren

Lesezeichen