Tastenmatrix 3x4 an Amtega16

Michi26206 · 2. August 2009

Hi,

ich habe eine Tastenmatrix (3x4) welche ich mit einem Amtega16 (16MHz Quarz) abfragen will.
Hier die Schaltung:

Pull-Ups von PA0 - PA3 sind immer ein. Bei der Abrage ist der Pull-Up der Spalte die abgefragt wird aus. (Wenn ich z.B. Spalte 1 abfrage: PB1 = 0, PB3 = 1, PB4 = 1)
Hier noch ein bisschen Bascom:

Code

If Tr1 = 0 Then
         'Taste 1 wurde gedrückt
         Cls
         Locate 1 , 1
         Lcd "Taste 1"
   End If
   If Tr2 = 0 Then
         'Taste 4 wurde gedrückt
         Cls
         Locate 1 , 1
         Lcd "Taste 4"
   End If


   If Tr3 = 0 Then
         'Taste 7 wurde gedrückt
         Cls
         Locate 1 , 1
         Lcd "Taste 7"
   End If
   If Tr4 = 0 Then
         'Taste * wurde gedrückt
         Cls
         Locate 1 , 1
         Lcd "Taste *"
   End If

Alles anzeigen

Nun mein Problem: Wenn ich eine Taste drücke, kommt irgendetwas raus. Manachmal stimmt es manchmal nicht. Kann mir wer helfen? Hoffe das ich alle benötigten Angaben gemacht habe

Gruß Michi26206

PS: Mir ist klar das ich nichts entprellt habe und das es einen Hardwareschaden geben kann wenn man mehrer Tasten drück. Allerdings will ich jetzt mal nur das die Abfrage funktioniert.

edit: also LCD und rest funktioneirt nur eben nicht die Tastatur. Wenn ich z.B. die 4 drücke kommt auf dem LCD: "Taste *"

dgoersch · 2. August 2009

Poste mal bitte den ganzen Code, nicht nur den kleinen Auszug.

turi · 2. August 2009

Ich weiß nicht, ob es Dir weiter hilft, aber im Mikrocontroller-Forum gibt es einen Artikel, allerdings für C (oder ASM): http://www.mikrocontroller.net…orial#Tasten_und_Schalter

Und dann habe ich für eine Matrix noch einen sehr einfachen Quellcode: http://winavr.scienceprog.com/…g-avr-gcc-c-language.html

dgoersch · 2. August 2009

Nerjo... Bascom hat doch eigene Funktionen für eine Tastenmatrix...

CONFIG KBD... mehr weiß die Hilfe oder die Supportseiten .

Pesi · 3. August 2009

Zitat von Michi26206

Bei der Abrage ist der Pull-Up der Spalte die abgefragt wird aus. (Wenn ich z.B. Spalte 1 abfrage: PB1 = 0, PB3 = 1, PB4 = 1)

Wenn ich das richtig verstehe, liegt hier das Problem: Du hast die auch als Eingänge definiert und schaltest dann den Pullup um...? - das geht dann so nicht, weil die Spalte, in der der Pullup aus ist "in der Luft hängt", also keinen definierten Pegel hat.

Du musst also immer die Spalte, die abgefragt werden soll, auf Ausgang und 0 schalten, dann zieht ein Tastendruck den entsprechenden Zeilen-Eingang auf Low. Die anderen Spalten auf Eingang ohne Pullup, sind dann hochohmig - da kann also auch nix kaputt gehen.

alle Spalten immer auf Ausgang und nur die abgefragte auf Low geht nicht, weil dann hättest Du, wenn Du 2 Tasten gleichzeitg drückst, eben einen Ausgang mit 5 Volt auf einen mit 0 Volt geschaltet, *dann* würde der µC beschädigt...

Michi26206 · 3. August 2009

Zitat von Pesi

Wenn ich das richtig verstehe, liegt hier das Problem: Du hast die auch als Eingänge definiert und schaltest dann den Pullup um...? - das geht dann so nicht, weil die Spalte, in der der Pullup aus ist "in der Luft hängt", also keinen definierten Pegel hat.

nein das sind nur Ausgänge.

Zitat von Pesi

alle Spalten immer auf Ausgang und nur die abgefragte auf Low geht nicht, weil dann hättest Du, wenn Du 2 Tasten gleichzeitg drückst, eben einen Ausgang mit 5 Volt auf einen mit 0 Volt geschaltet, *dann* würde der µC beschädigt...

und was hab ich oebn geschireben^^ das ich es weiß. Habe mittlerweile 10k dazwischen. Werde die aber evtl. noch gegen ne Diode tauschen

Hier der ganze Cod:

Code

$regfile = "m16def.dat"
$crystal = 16000000


Ddra = &B11110000
Ddrb = &B11111111
Ddrc = &B11111111
Ddrd = &B11111111


'LCD konfigurieren
Config Lcd = 16 * 2
Config Lcdpin = , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Portb.0 , Rs = Portb.2
Config Lcdbus = 4
Cursor Off


Summer Alias Pind.7


Tastenfeldreihe1 Alias Pina.3
Tastenfeldreihe2 Alias Pina.2
Tastenfeldreihe3 Alias Pina.1
Tastenfeldreihe4 Alias Pina.0
Tastenfeldspalte1 Alias Pinb.1
Tastenfeldspalte2 Alias Pinb.3
Tastenfeldspalte3 Alias Pinb.4


Cls
Locate 1 , 1
Lcd "Tastenfeld"
Locate 2 , 1
Lcd "Passwort?"


Porta = &B00001111
Portb = &B0001100


Do


If Tastenfeldreihe1 = 0 Then
'Taste 1 wurde gedrückt
Cls
Locate 1 , 1
Lcd "Taste 1"
End If


If Tastenfeldreihe2 = 0 Then
'Taste 4 wurde gedrückt
Cls
Locate 1 , 1
Lcd "Taste 4"
End If


If Tastenfeldreihe3 = 0 Then
'Taste 7 wurde gedrückt
Cls
Locate 1 , 1
Lcd "Taste 7"
End If


If Tastenfeldreihe4 = 0 Then
'Taste * wurde gedrückt
Cls
Locate 1 , 1
Lcd "Taste *"
End If


Portb = &B0001001


'If Tastenfeldreihe2 = 0 Then
' If Tastenfeldspalte1 = 0 Then
'Taste 4 Wurde gedrückt
' End If
' If Tastenfeldspalte2 = 0 Then
'Taste 5 Wurde gedrückt
' End If
' If Tastenfeldspalte3 = 0 Then
'Taste 6 Wurde gedrückt
' End If
'End If


'If Tastenfeldreihe3 = 0 Then
' If Tastenfeldspalte1 = 0 Then
'Taste 7 Wurde gedrückt
' End If
' If Tastenfeldspalte2 = 0 Then
'Taste 8 Wurde gedrückt
' End If
' If Tastenfeldspalte3 = 0 Then
'Taste 9 Wurde gedrückt
' End If
'End If


'If Tastenfeldreihe4 = 0 Then
' If Tastenfeldspalte1 = 0 Then
'Taste * Wurde gedrückt
' End If
' If Tastenfeldspalte2 = 0 Then
'Taste 0 Wurde gedrückt
' End If
' If Tastenfeldspalte3 = 0 Then
'Taste # Wurde gedrückt
' End If
'End If


Loop


End

Alles anzeigen

will es nicht mit dem CONFIG KBD machen da ich bei diesem Projekt auf C umsteigen möchte. Habe nur testweiße das in Bascom schon mal gemacht.

PS: Im Mikrocontroller-Forum hab ich shcon geschaut.

turi. Ja den C Code versteh ich schon kann auch etwas C Hab es eigentlich genau so gemacht.

Pesi · 3. August 2009

Zitat von Michi26206

nein das sind nur Ausgänge.

Das hat sich aber anders angehört! - bei einem Ausgang gibt es keinen "Pullup"

Zitat von Michi26206

und was hab ich oebn geschireben^^ das ich es weiß

Und ich hab' Dir beschrieben, wie Du das Problem per SW umgehen kannst, ohne noch Widerstände oder Dioden einlöten zu müssen...

k.A. warum Du nen Frage-Thread aufmachst, wenn Du Dir dann keine Tipps anhören willst - aber ist schon recht, ich halt schon mein vorlautes Maul...

Michi26206 · 3. August 2009

war doch net so gemeint. entschuldigung

und ich wunder mich warum die "Pullups" bei Ausgang nicht gehen^^

Werde mir dein Tipp anschaun. Bin nur etwas gestresst. Sry nochmal.

So mal zur aktuellen Lage. Müsste es funktionieren wie oben beschaltet und der Software? Ode rhabe ich "Murks" gemacht.

Hab es jetzt mit Config KBD ausprobiert geht ohne Probleme.

Gruß

PS: Schreib bitte wieder Tipps wenn dir was einfällt.

edit:

@ Pesi:

Stimmt es jetzt so oder habe ich das falsch verstanden:

Code

$regfile = "m16def.dat"
$crystal = 16000000


Ddra = &B11110000
Ddrb = &B11110011
Ddrc = &B11111111
Ddrd = &B11111111


'LCD konfigurieren
Config Lcd = 16 * 2
Config Lcdpin = , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Portb.0 , Rs = Portb.2
Config Lcdbus = 4
Cursor Off


Summer Alias Pind.7


Tastenfeldreihe1 Alias Pina.3
Tastenfeldreihe2 Alias Pina.2
Tastenfeldreihe3 Alias Pina.1
Tastenfeldreihe4 Alias Pina.0
Tastenfeldspalte1 Alias Pinb.1
Tastenfeldspalte2 Alias Pinb.3
Tastenfeldspalte3 Alias Pinb.4


Cls
Locate 1 , 1
Lcd "Tastenfeld"
Locate 2 , 1
Lcd "Passwort?"


   Porta = &B00001111

Do


   If Tastenfeldreihe1 = 0 Then
  	'Taste 1 wurde gedrückt
  	Cls
  	Locate 1 , 1
  	Lcd "Taste 1"
   End If


   If Tastenfeldreihe2 = 0 Then
  	'Taste 4 wurde gedrückt
  	Cls
  	Locate 1 , 1
  	Lcd "Taste 4"
   End If


   If Tastenfeldreihe3 = 0 Then
  	'Taste 7 wurde gedrückt
  	Cls
   Locate 1 , 1
   Lcd "Taste 7"
   End If


   If Tastenfeldreihe4 = 0 Then
  	'Taste * wurde gedrückt
  	Cls
  	Locate 1 , 1
  	Lcd "Taste *"
   End If


Loop


End

Alles anzeigen

Pesi · 3. August 2009

Ja, sorry, habe ich wohl in den falschen Hals bekommen, ebenfalls Entschuldigung!

ich denke, Du meinst mit "Pullup", dass Du den Ausgang auf "High" bzw. 5 Volt schaltest - da sagt man dann aber nicht "Pullup" dazu, sondern damit meint man die Pullup-Widerstände, die man am Eingang dazu schalten kann...

wenn das mit diessem Config KBD geht, dann stimmt zumindest HW-mäßig schon mal alles...

zu Deinem Code: ich bin jetzt nicht so der Bascom-Spezialist, aber das sollte *im Prinzip* schon funktionieren, Du schaltest ja ganz oben mit DDRB = &B11111111 den ganzen PortB auf Ausgang - unten dann mit PortB = &B0001100 (da fehlt doch was...?!?) eine Leitung auf low und die anderen beiden auf High - da hast Du dann aber das Problem mit dem Kurzschluß, Wenn Du 2 Tasten in unterschiedlichen Spalten drückst... unten schaltest Du dann die Leitungen um - aber zwischen Low und High, nicht zwischen Low und Hochohmig

Du müsstest das also einfach so schreiben (ich nehme an, der PB0 und 2 muss ein Ausgang sein für's LCD...?):

ganz oben:

DDRA = &B11110000 ' PA0 - PA3 auf Eingang
DDRB = &B00000101 ' PB1, 3 und 4 erst mal komplett auf Eingang (hochohmig), PB0 und PB2 auf Ausgang (LCD)
PortA = &B00001111 ' Pullups an Port A (reicht einmal oben, muss nicht vor jeder Abfrage)

Vor der jeweiligen Abfrage schaltest Du dann nicht den PortB um, sondern DDRB - damit wechselst Du zwischen "low" und hochohmig:

vor Abfrage Spalte 1:
DDRB = &B00000111 ' PB1 auf Ausgang, wird low, also erste Spalte abgefragt - andere Spalten sind auf Eingang, also hochohmig (PB0 und 2 Ausgang für LCD)

vor Abfrage Spalte 2:
DDRB = &B00001101 ' PB3 auf Ausgang, wird low, also zweite Spalte abgefragt - andere Spalten sind auf Eingang, also hochohmig (PB0 und 2 Ausgang für LCD)

vor Abfrage Spalte 3:
DDRB = &B00010101 ' PB4 auf Ausgang, wird low, also dritte Spalte abgefragt - andere Spalten sind auf Eingang, also hochohmig (PB0 und 2 Ausgang für LCD)

da sind ja noch ein Haufen Zeilen auskommentiert..? - und was das ganz unten soll, verstehe ich nicht ganz, Du fragst die Spalten ab, aber die musst Du ja nicht abfragen, die setzt Du ja! - abgefragt werden nur die Reihen, immer von 1 - 4 - welche Taste das dann ist, gibst Du ja vor, indem Du die entsprechende Spalte auf Low ziehst...

Michi26206 · 3. August 2009

exakt PB0 und 2 sind fürs LCD

funktioniert jetzt. danke

Zitat von Pesi

hab ich das Problem nciht.da sind ja noch ein Haufen Zeilen auskommentiert..? - und was das ganz unten soll, verstehe ich nicht ganz, Du fragst die Spalten ab, aber die musst Du ja nicht abfragen, die setzt Du ja! - abgefragt werden nur die Reihen, immer von 1 - 4 - welche Taste das dann ist, gibst Du ja vor, indem Du die entsprechende Spalte auf Low ziehst...

ja^^ das ist noch altes zeug. hab ich mitlwerweile gelöscht

Teilen