rn-control 1.4 bekommen - Taster 1-3 defekt?

Hallo liebe Community,

ich habe vor ein paar Tagen das o.g. Board von robotikhardware.de bekommen. Ich habe das Testprogramm (aus dem Wiki: http://rn-wissen.de/index.php/RN-Control) aufgespielt und musste feststellen das die Tasten 1-3 zwar ein Ton von sich geben, allerdings keine Funktion ausführen. Beispielsweise sollte die Taste 3 das Lauflicht aktivieren. Bei den Tasten 4-5 bekomme ich im Terminal Werte ausgelesen.

Also habe ich den Versuch gemacht und ein einfaches Programm geschrieben um die Tasten zu testen.

Code:

$regfile = "m32def.dat" $framesize = 32 $swstack = 32 $hwstack = 32 $crystal = 16000000 $baud = 38400 Dim I As Integer Dim N As Integer Dim Taste As Byte Config Portc = Output Declare Sub Lauflicht() Declare Function Tastenabfrage() As Byte Config Adc = Single , Prescaler = Auto Config Pina.7 = Input Porta.7 = 1 Do Taste = Tastenabfrage() If Taste <> 0 Then Select Case Taste Case 1 Call Lauflicht Case 2 Call Lauflicht Case 3 Call Lauflicht Case 4 Call Lauflicht Case 5 Call Lauflicht End Select End If Waitms 100 Loop End Function Tastenabfrage() As Byte Local Ws As Word Tastenabfrage = 0 Start Adc Ws = Getadc(7) If Ws < 500 Then Select Case Ws Case 410 To 450 Tastenabfrage = 1 Case 340 To 380 Tastenabfrage = 2 Case 265 To 305 Tastenabfrage = 3 Case 180 To 220 Tastenabfrage = 4 Case 90 To 130 Tastenabfrage = 5 End Select End If End Function Sub Lauflicht() Config Portc = Output For I = 0 To 7 Portc.i = 0 Waitms 100 Portc.i = 1 Next I End Sub End

Wenn ich den Code ausführen funktionieren die Taster 1-3 auch nicht.

Hat jemand von euch eine Idee woran es liegen kann?

Beste Grüße
Fumificate

Du könntest z.B. dein Testprogramm so erweitern, dass du die lokale Variable WS in der Funktion Tastenabfrage entfernst und in eine globale Variable (Dim WS As Word) am Programmanfang änderst und dir im Hauptprogramm nach jedem Tastendruck den ADC-Wert (WS) jeder Taste anzeigen läßt.
Damit kannst du dann feststellen, ob die Tasten 1-3 überhaupt einen Wert wiedergeben. Wenn nicht: Hardware kontrollieren.

Der Taster 4 liefert mir 180 und der Taster 5 99.

Die anderen Taster liefern kein Ergebnis.

Ich habe einfach den Code um ein Ausgabe Sub erweitert und bei den Cases Call Ausgabe hingeschrieben.

War das richtig so oder meintest du es anders?

Was kann ich an der Hardware kontrollieren?

Vielen Dank schonmal für die schnelle Antwort!

Ne, mach das nicht in den Cases, weil da ja schon auf bestimmte ADC-Werte getestet wird. Du brauchst ein Programm, das die unabhängig von der Tastennummer den ADC-Wert der gedrückten Taste ausgibt.
Jede Taste MUSS dann einen Wert ausgeben.

Hast du da vielleicht einen Tip für mich? Ich bin noch ein richtiger Neuling und weiß gerade nicht wie ich das machen kann.

- - - Aktualisiert - - -

Hallo nochmal.
Ich habe jetzt etwas herumprobiert und glaube ein Programm geschrieben zu haben das mir die Werte ausgibt.

Folgende Werte habe ich:
Taster 1: 395
Taster 2: 327
Taster 3: 256
Taster 4: 180
Taster 5: 99

Ich habe die Cases so angepasst und nun gehen alle :) Gibt es eine bestimmte Regel wie groß der Wertebereich bei den Cases sein sollte?

Dei Widerstände haben ja immer eine gewisse unterschiedliche Toleranz, daher kann es in selten Fällen vorkommen das die eingetragenen Werte bei der Case Anweisung geändert werden müssen. Du hast das ja offensichtlich korrekt gemacht!
Man sollte die Case Anweisungen halt so wählen das möglichst pro Taster ein weiter Bereich umfasst wird und es natürlich nicht zu Überscheidungen kommt.

Gewöhnlich passt folgendes:

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 370 To 450 'oder 400 x 450 Tastenabfrage = 1 Ton = 550 Case 300 To 369 Tastenabfrage = 2 Ton = 500 Case 230 To 299 Tastenabfrage = 3 Ton = 450 Case 150 To 229 Tastenabfrage = 4 Ton = 400 Case 80 To 149 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

Ja, die Grenzen zwischen den Tasten werden am besten auf den halben Abstand zwischen den Ist-Werten gelegt.
Zwischen Tasten 1 und 2 wäre die Grenze also 361 und zwischen Tasten 2 und 3 292.
Damit wäre die Abfrage für Taste 2 z.B.: >= 292 und < 361. Der Wertebereich sollte OHNE Lücken erfasst werden, so dass jeder ADC-Wert zugeordnet werden kann.
Die Werte ändert man dann in der Funktion Tastenabfrage().

Vielen Dank euch beiden! Ihr habt mir sehr geholfen.