Anleitung: Tastatur einbinden

**Reeper** · 08.08.2006, 19:15

Hallo,

ich habe von euch soviel gelernt, dass ich natürlich so viel wie nur möglich zurückgeben will (einiges ist aber immernoch im Aufbau).

Vielleicht ist der eine oder andere beim integrieren einer Tastatur, so kann ich evtl. helfen

Ziel:
Nutzung eines Ports (adc)
Mehrfachbelegung der Tastatur

Vor einiger Zeit sah ich ein Schema zu einer Tastatur über Spannungsteiler (sieht aus wie eine Matrix) von Manf.
Das war mein Leitfaden.

Nun hatte ich eine schöne simple Tastatur von einem Kumpel erhalten.
Diese wollte ich über einen analogen Port auswerten.
Die Bilder zur Tastatur sind im Anhang, die Farben ziehen sich durch alle Blätter - einheitlich).
Auf der Rückseite sind 2 Layer angebracht, die eine für die Umrandung und die andere für den Druckpunkt der Tasten. Den mittleren Layer konnte man mit einer Taschenlampe "verfolgen" (von anderer Seite durchleuchten).

Als die Hardware erledigt war, kam das programmieren. Da gab es gleich das Problem mit der Spannung. Diese müsste absolut konstant sein, wenn man direkt mit den Spannungswerten arbeitet.
Also habe ich der Tastatur 2x 100nF und einen 4,7yF Elko spendiert (siehe Zeichnung) und die Spannungen ausgelesen und die Werte aufgeschrieben.
Nun habe ich den Werten einen Toleranzbereich zugeordnet, indem etwas passiert (indem Fall einfach print ""). Jedoch war das sinnlos, da der Wert absolut identisch bleibt, falls die Spannungsquelle exakt identisch bleibt. Also habe ich danach mit den exakten Werten programmiert.

Aber was ist, wenn man die Spannungsquelle wechseln muss, oder ähnliches. Es reicht schon eine Differenz in 1/100 Bereich, um den erhaltenen Wert im 1/10 Bereich zu verändern.
Es blieb mir nichts anderes übrig, als alles abzuspeichern. Da Volt als single gespeichert ist, lag es auf der Hand alle Tastenspannungen auch als single abzuspeichern und vergleichen zu lassen.

Jetzt kann man durch die jeweilige Taste etwas im terminal anzeigen lassen, auf dem LCD, oder einen anderen Port damit steuern.
Zuvor muss man alle Tasten einmal drücken, diese Spannungswerte werden dann abgespeichert.
Man kann somit auch auf andere Spannungsquellen problemlos umsteigen.

Die Tastatur hat aber noch andere Zeichen (Mehrfachbelegung), also habe ich die "Ctrl", "Shift" und die "Alpha" Taste zum Umschalten missbraucht. Später kann ich dafür einen entsprechenden Schalter benutzen.
Nur die Taste "0" und die "3" haben sich überschnitten, sodass ich die Taste "Alt" als "0" betreibe.

abgespeckter Code (habe nur die Demo):

Code:

  $regfile = "m32def.dat"
  $framesize = 32
  $swstack = 256
  $hwstack = 128
  $crystal = 16000000
  $baud = 9600

Config Adc = Single , Prescaler = Auto , Reference = Avcc
Config Pina.0 = Input
Config Pina.7 = Input
Const Ref = 5 / 1023

Dim Volt As Single
Dim Ws As Word
Dim T1 As Single
Dim T2 As Single
Dim T3 As Single
Dim T4 As Single
Dim T5 As Single
Dim T6 As Single
Dim T7 As Single
Dim T8 As Single
Dim T9 As Single
Dim T10 As Single
Dim T11 As Single
Dim T12 As Single
Dim T13 As Single
Dim T14 As Single
Dim T15 As Single
Dim T16 As Single
Dim T17 As Single
Dim T18 As Single
Dim T19 As Single
Dim T20 As Single
Dim T21 As Single
Dim T22 As Single
Dim T23 As Single
Dim T24 As Single
Dim T25 As Single
Dim T26 As Single
Dim T27 As Single
Dim T29 As Single
Dim T30 As Single

Declare Sub Initialisierung
Declare Sub Speichern
Declare Sub Terminal

Do
Print "start"
Gosub Speichern
Print "terminal"
Gosub Terminal

Loop

Sub Terminal
Do
      Start Adc
      Ws = Getadc(7)
      Waitms 50                                             'um Spannungsschwankungen beim Tippen zu übergehen
      Volt = Ws * Ref
      If Volt = T1 Then
      Print "F1"
      Waitms 500
      Elseif Volt = T2 Then
      Print "F2"
      Waitms 500
      Elseif Volt = T3 Then
      Print "Pfeilnachoben"
      Waitms 500
      Elseif Volt = T4 Then
      Print "Esc"
      Waitms 500
      Elseif Volt = T5 Then
      Print "Backslash"
      Waitms 500
      Elseif Volt = T6 Then
      Print "F3"
      Waitms 500
      Elseif Volt = T7 Then
      Print "Pfeilnachlinks"
      Waitms 500
      Elseif Volt = T8 Then
      Print "Pfeilnachunten"
      Waitms 500
      Elseif Volt = T9 Then
      Print "Pfeilnachrechts"
      Waitms 500
      Elseif Volt = T10 Then
      Print "Stern"
      Waitms 500
      Elseif Volt = T11 Then
      Print "F4"
      Waitms 500
      Elseif Volt = T12 Then
      Print "7"
      Waitms 500
      Elseif Volt = T13 Then
      Print "8"
      Waitms 500
      Elseif Volt = T14 Then
      Print "9"
      Waitms 500
      Elseif Volt = T15 Then
      Print "Plus"
      Waitms 500
      Elseif Volt = T16 Then
      Print "F5"
      Waitms 500
      Elseif Volt = T17 Then
      Print "4"
      Waitms 500
      Elseif Volt = T18 Then
      Print "5"
      Waitms 500
      Elseif Volt = T19 Then
      Print "6"
      Waitms 500
      Elseif Volt = T20 Then
      Print "Punkt"
      Waitms 500
      Elseif Volt = T22 Then
      Print "1"
      Waitms 500
      Elseif Volt = T23 Then
      Print "2"
      Waitms 500
      Elseif Volt = T24 Then
      Print "3"
      Waitms 500
      Elseif Volt = T25 Then
      Print "Enter"
      Waitms 500
      Elseif Volt = T29 Then
      Print "Komma"
      Waitms 500
      Elseif Volt = T30 Then
      Print "0"
      Waitms 500
      End If
      Loop
      End Sub


Sub Initialisierung

      Do
      Start Adc
      Ws = Getadc(7)
      Waitms 50                                             'um Spannungsschwankungen beim Tippen zu übergehen
      Volt = Ws * Ref
      Loop Until Volt > 0
      End Sub

Sub Speichern
      Gosub Initialisierung
      T1 = Volt
      Print "F1"
      Waitms 500
      Gosub Initialisierung
      T2 = Volt
      Print "F2"
      Waitms 500
      Gosub Initialisierung
      T3 = Volt
      Print "Pfeilnachoben"
      Waitms 500
      Gosub Initialisierung
      T4 = Volt
      Print "ESC"
      Waitms 500
      Gosub Initialisierung
      T5 = Volt
      Print "Backslash"
      Waitms 500
      Gosub Initialisierung
      T6 = Volt
      Print "F3"
      Waitms 500
      Gosub Initialisierung
      T7 = Volt
      Print "Pfeilnachlinks"
      Waitms 500
      Gosub Initialisierung
      T8 = Volt
      Print "Pfeilnachunten"
      Waitms 500
      Gosub Initialisierung
      T9 = Volt
      Print "Pfeilnachrechts"
      Waitms 500
      Gosub Initialisierung
      T10 = Volt
      Print "Stern"
      Waitms 500
      Gosub Initialisierung
      T11 = Volt
      Print "F4"
      Waitms 500
      Gosub Initialisierung
      T12 = Volt
      Print "L"
      Waitms 500
      Gosub Initialisierung
      T13 = Volt
      Print "M"
      Waitms 500
      Gosub Initialisierung
      T14 = Volt
      Print "N"
      Waitms 500
      Gosub Initialisierung
      T15 = Volt
      Print "Plus"
      Waitms 500
      Gosub Initialisierung
      T16 = Volt
      Print "F5"
      Waitms 500
      Gosub Initialisierung
      T17 = Volt
      Print "Q"
      Waitms 500
      Gosub Initialisierung
      T18 = Volt
      Print "R"
      Waitms 500
      Gosub Initialisierung
      T19 = Volt
      Print "S"
      Waitms 500
      Gosub Initialisierung
      T20 = Volt
      Print "Punkt"
      Waitms 500
      Gosub Initialisierung
      T21 = Volt
      Print "Ctrl"
      Waitms 500
      Gosub Initialisierung
      T22 = Volt
      Print "U"
      Waitms 500
      Gosub Initialisierung
      T23 = Volt
      Print "V"
      Waitms 500
      Gosub Initialisierung
      T24 = Volt
      Print "U"
      Waitms 500
      Gosub Initialisierung
      T25 = Volt
      Print "Enter"
      Waitms 500
      Gosub Initialisierung
      T26 = Volt
      Print "Shifttaste"
      Waitms 500
      Gosub Initialisierung
      T27 = Volt
      Print "Alpha"
      Waitms 500

      Gosub Initialisierung
      T29 = Volt
      Print "Komma"
      Waitms 500
      Gosub Initialisierung
      T30 = Volt
      Print "Alt"
      Waitms 500
      End Sub

End

vollständiger Code (so soll er aussehen, aber ich kann ihn nicht testen, da er für die Demo zu groß ist ---> muss mir wohl die Vollversion kaufen

):

Code:

  $regfile = "m32def.dat"
  $framesize = 32
  $swstack = 256
  $hwstack = 128
  $crystal = 16000000
  $baud = 9600

Config Adc = Single , Prescaler = Auto , Reference = Avcc
Config Pina.0 = Input
Config Pina.7 = Input
Const Ref = 5 / 1023

Dim Volt As Single
Dim Ws As Word
Dim T1 As Single
Dim T2 As Single
Dim T3 As Single
Dim T4 As Single
Dim T5 As Single
Dim T6 As Single
Dim T7 As Single
Dim T8 As Single
Dim T9 As Single
Dim T10 As Single
Dim T11 As Single
Dim T12 As Single
Dim T13 As Single
Dim T14 As Single
Dim T15 As Single
Dim T16 As Single
Dim T17 As Single
Dim T18 As Single
Dim T19 As Single
Dim T20 As Single
Dim T21 As Single
Dim T22 As Single
Dim T23 As Single
Dim T24 As Single
Dim T25 As Single
Dim T26 As Single
Dim T27 As Single
Dim T29 As Single
Dim T30 As Single

Declare Sub Initialisierung
Declare Sub Speichern
Declare Sub Terminal
Declare Sub Erstbelegung
Declare Sub Zweittbelegung
Declare Sub Dritttbelegung

Do
Print "start"
Gosub Speichern
Print "terminal"
Gosub Terminal

Loop

Sub Speichern
      Gosub Initialisierung
      T1 = Volt
      Print "F1"
      Waitms 500
      Gosub Initialisierung
      T2 = Volt
      Print "F2"
      Waitms 500
      Gosub Initialisierung
      T3 = Volt
      Print "Pfeilnachoben"
      Waitms 500
      Gosub Initialisierung
      T4 = Volt
      Print "ESC"
      Waitms 500
      Gosub Initialisierung
      T5 = Volt
      Print "Backslash"
      Waitms 500
      Gosub Initialisierung
      T6 = Volt
      Print "F3"
      Waitms 500
      Gosub Initialisierung
      T7 = Volt
      Print "Pfeilnachlinks"
      Waitms 500
      Gosub Initialisierung
      T8 = Volt
      Print "Pfeilnachunten"
      Waitms 500
      Gosub Initialisierung
      T9 = Volt
      Print "Pfeilnachrechts"
      Waitms 500
      Gosub Initialisierung
      T10 = Volt
      Print "Stern"
      Waitms 500
      Gosub Initialisierung
      T11 = Volt
      Print "F4"
      Waitms 500
      Gosub Initialisierung
      T12 = Volt
      Print "L"
      Waitms 500
      Gosub Initialisierung
      T13 = Volt
      Print "M"
      Waitms 500
      Gosub Initialisierung
      T14 = Volt
      Print "N"
      Waitms 500
      Gosub Initialisierung
      T15 = Volt
      Print "Plus"
      Waitms 500
      Gosub Initialisierung
      T16 = Volt
      Print "F5"
      Waitms 500
      Gosub Initialisierung
      T17 = Volt
      Print "Q"
      Waitms 500
      Gosub Initialisierung
      T18 = Volt
      Print "R"
      Waitms 500
      Gosub Initialisierung
      T19 = Volt
      Print "S"
      Waitms 500
      Gosub Initialisierung
      T20 = Volt
      Print "Punkt"
      Waitms 500
      Gosub Initialisierung
      T21 = Volt
      Print "Ctrl"
      Waitms 500
      Gosub Initialisierung
      T22 = Volt
      Print "U"
      Waitms 500
      Gosub Initialisierung
      T23 = Volt
      Print "V"
      Waitms 500
      Gosub Initialisierung
      T24 = Volt
      Print "U"
      Waitms 500
      Gosub Initialisierung
      T25 = Volt
      Print "Enter"
      Waitms 500
      Gosub Initialisierung
      T26 = Volt
      Print "Shifttaste"
      Waitms 500
      Gosub Initialisierung
      T27 = Volt
      Print "Alpha"
      Waitms 500

      Gosub Initialisierung
      T29 = Volt
      Print "Komma"
      Waitms 500
      Gosub Initialisierung
      T30 = Volt
      Print "Alt"
      Waitms 500
      End Sub

Sub Initialisierung

      Do
      Start Adc
      Ws = Getadc(7)
      Waitms 50                                             'um Spannungsschwankungen beim Tippen zu übergehen
      Volt = Ws * Ref
      Loop Until Volt > 0
      End Sub

Sub Terminal
Do
      Start Adc
      Ws = Getadc(7)
      Waitms 50                                             'um Spannungsschwankungen beim Tippen zu übergehen
      Volt = Ws * Ref
      If Volt = T21 Then
      Gosub Erstbelegung
      Elseif Volt = T26 Then
      Gosub Zweittbelegung
      Elseif Volt = T27 Then
      Gosub Dritttbelegung
      End If
      Loop Until Volt > 0
      End Sub


Sub Erstbelegung
Print "Erstbelegung"
Do
      Start Adc
      Ws = Getadc(7)
      Waitms 50                                             'um Spannungsschwankungen beim Tippen zu übergehen
      Volt = Ws * Ref
      If Volt = T1 Then
      Print "F1"
      Waitms 500
      Elseif Volt = T2 Then
      Print "F2"
      Waitms 500
      Elseif Volt = T3 Then
      Print "Pfeilnachoben"
      Waitms 500
      Elseif Volt = T4 Then
      Print "Esc"
      Waitms 500
      Elseif Volt = T5 Then
      Print "Backslash"
      Waitms 500
      Elseif Volt = T6 Then
      Print "F3"
      Waitms 500
      Elseif Volt = T7 Then
      Print "Pfeilnachlinks"
      Waitms 500
      Elseif Volt = T8 Then
      Print "Pfeilnachunten"
      Waitms 500
      Elseif Volt = T9 Then
      Print "Pfeilnachrechts"
      Waitms 500
      Elseif Volt = T10 Then
      Print "Stern"
      Waitms 500
      Elseif Volt = T11 Then
      Print "F4"
      Waitms 500
      Elseif Volt = T12 Then
      Print "7"
      Waitms 500
      Elseif Volt = T13 Then
      Print "8"
      Waitms 500
      Elseif Volt = T14 Then
      Print "9"
      Waitms 500
      Elseif Volt = T15 Then
      Print "Plus"
      Waitms 500
      Elseif Volt = T16 Then
      Print "F5"
      Waitms 500
      Elseif Volt = T17 Then
      Print "4"
      Waitms 500
      Elseif Volt = T18 Then
      Print "5"
      Waitms 500
      Elseif Volt = T19 Then
      Print "6"
      Waitms 500
      Elseif Volt = T20 Then
      Print "Punkt"
      Waitms 500
      Elseif Volt = T22 Then
      Print "1"
      Waitms 500
      Elseif Volt = T23 Then
      Print "2"
      Waitms 500
      Elseif Volt = T24 Then
      Print "3"
      Waitms 500
      Elseif Volt = T25 Then
      Print "Enter"
      Waitms 500
      Elseif Volt = T29 Then
      Print "Komma"
      Waitms 500
      Elseif Volt = T30 Then
      Print "0"
      Waitms 500
      Elseif Volt = T26 Then
      Gosub Zweittbelegung
      Elseif Volt = T27 Then
      Gosub Dritttbelegung
      End If
      Loop
      End Sub

Sub Zweittbelegung
Print "Zweitbelegung"
Do
      Start Adc
      Ws = Getadc(7)
      Waitms 50                                             'um Spannungsschwankungen beim Tippen zu übergehen
      Volt = Ws * Ref
      If Volt = T1 Then
      Print "F6"
      Waitms 500
      Elseif Volt = T2 Then
      Print "F7"
      Waitms 500
      Elseif Volt = T3 Then
      Print "Pg Up"
      Waitms 500
      Elseif Volt = T4 Then
      Print "\"
      Waitms 500
      Elseif Volt = T5 Then
      Print "Space"
      Waitms 500
      Elseif Volt = T6 Then
      Print "F8"
      Waitms 500
      Elseif Volt = T7 Then
      Print "Home"
      Waitms 500
      Elseif Volt = T8 Then
      Print "End"
      Waitms 500
      Elseif Volt = T9 Then
      Print "/"
      Waitms 500
      Elseif Volt = T10 Then
      Print "9"
      Waitms 500
      Elseif Volt = T11 Then
      Print "F10"
      Waitms 500
      Elseif Volt = T29 Then
      Print "Del"
      Waitms 500
      Elseif Volt = T21 Then
      Gosub Erstbelegung
      Elseif Volt = T27 Then
      Gosub Dritttbelegung
      End If
      Loop
      End Sub

Sub Dritttbelegung
Print "Drittbelegung"
Do
      Start Adc
      Ws = Getadc(7)
      Waitms 50                                             'um Spannungsschwankungen beim Tippen zu übergehen
      Volt = Ws * Ref
      If Volt = T1 Then
      Print "A"
      Waitms 500
      Elseif Volt = T2 Then
      Print "B"
      Waitms 500
      Elseif Volt = T3 Then
      Print "C"
      Waitms 500
      Elseif Volt = T4 Then
      Print "D"
      Waitms 500
      Elseif Volt = T5 Then
      Print "E"
      Waitms 500
      Elseif Volt = T6 Then
      Print "F"
      Waitms 500
      Elseif Volt = T7 Then
      Print "G"
      Waitms 500
      Elseif Volt = T8 Then
      Print "H"
      Waitms 500
      Elseif Volt = T9 Then
      Print "I"
      Waitms 500
      Elseif Volt = T10 Then
      Print "J"
      Waitms 500
      Elseif Volt = T11 Then
      Print "K"
      Waitms 500
      Elseif Volt = T12 Then
      Print "L"
      Waitms 500
      Elseif Volt = T13 Then
      Print "M"
      Waitms 500
      Elseif Volt = T14 Then
      Print "N"
      Waitms 500
      Elseif Volt = T15 Then
      Print "O"
      Waitms 500
      Elseif Volt = T16 Then
      Print "P"
      Waitms 500
      Elseif Volt = T17 Then
      Print "Q"
      Waitms 500
      Elseif Volt = T18 Then
      Print "R"
      Waitms 500
      Elseif Volt = T19 Then
      Print "S"
      Waitms 500
      Elseif Volt = T20 Then
      Print "T"
      Waitms 500
      Elseif Volt = T22 Then
      Print "U"
      Waitms 500
      Elseif Volt = T23 Then
      Print "V"
      Waitms 500
      Elseif Volt = T24 Then
      Print "W"
      Waitms 500
      Elseif Volt = T25 Then
      Print "X"
      Waitms 500
      Elseif Volt = T29 Then
      Print "Z"
      Waitms 500
      Elseif Volt = T30 Then
      Print "Y"
      Waitms 500
      Elseif Volt = T21 Then
      Gosub Erstbelegung
      Elseif Volt = T26 Then
      Gosub Zweittbelegung
      End If
      Loop
      End Sub

End

So, nun ein paar Bilder der Tastatur:

**Reeper** · 08.08.2006, 19:18

So, nun noch meine Blätter und der Schaltplan:

**ähM_Key** · 08.08.2006, 20:36

Coole Sache!
...nur wo bekommt man so ne Tastatur her, wenn man ni so nen Kumpel hat wie du?

Weiß jemand, ob's die ev. auch in 'groß' in der Art gibt?

**Reeper** · 08.08.2006, 20:46

Er hat es von einem Einschubkasten zur Raum-Kontrolle.

Die Anleitung soll eher stellvertretend für andere sein. Genausogut kann man einfach beliebig viele Taster nebeneinander anordnen und als Tastatur nehmen.
Jedoch steigt mit der Anzahl der Taster auch das Risiko der Überschneidung von Spannungswerten.

Thema: Anleitung: Tastatur einbinden

Themen-Optionen

Thema durchsuchen

Anzeige

Anleitung: Tastatur einbinden

Lesezeichen

Lesezeichen

Berechtigungen