Zähler mit Atmega 32

Matze1992 · 20. September 2009

Hallo,

ich habe mich heute zum ersten mal mit dem programmieren von µC versucht. Ich möchte einen Zähler haben, der bei jedem Tastendruck eins hochzählt. An Port B und C sollen je eine 7Segmentanzeige angeschlossen werden. Port B ist die 1. Stelle, Port C die 2.
Als Controller möchte ich einen AtMega32 verwenden.

Code

$regfile "m32def.dat"
$crystal = 1000000


Config Portd = Output
Config Portb = Input


Portb.0 = 1


Dim Dis(10) As Byte
Dim Cnt As Byte


Dis(1) = &B00111111
Dis(2) = &B00000110
Dis(3) = &B01011011
Dis(4) = &B01001111
Dis(5) = &B01100110
Dis(6) = &B01101101
Dis(7) = &B01111101
Dis(8) = &B00000111
Dis(9) = &B01111111
Dis(10) = &B01101111
Dis(11) = &B00111111
Dis(12) = &B00000110
Dis(13) = &B01011011
Dis(14) = &B01001111
Dis(15) = &B01100110
Dis(16) = &B01101101
Dis(17) = &B01111101
Dis(18) = &B00000111
Dis(19) = &B01111111
Dis(20) = &B01101111
Dis(21) = &B00111111
Dis(22) = &B00000110
Dim(1) = &B00111111
Dim(2) = &B00111111
Dim(3) = &B00111111
Dim(4) = &B00111111
Dim(5) = &B00111111
Dim(6) = &B00111111
Dim(7) = &B00111111
Dim(8) = &B00111111
Dim(9) = &B00111111
Dim(10) = &B00111111
Dim(11) = &B00000110
Dim(12) = &B00000110
Dim(13) = &B00000110
Dim(14) = &B00000110
Dim(15) = &B00000110
Dim(16) = &B00000110
Dim(17) = &B00000110
Dim(18) = &B00000110
Dim(19) = &B00000110
Dim(20) = &B00000110
Dim(21) = &B01011011
Dim(22) = &B01011011


Cnt = 1 


Do
  Portd = Dis(cnt)
  Portc = Dim(cnt)
  If Pinb.0 = 0 Then Cnt = Cnt + 1 
Loop

Alles anzeigen

Kann dass so funktionieren?

Schon mal vielen Dank für euere Hilfe.
Gruß Matze1992

foo38 · 20. September 2009

Auch wenn ich nicht der Bascom Programmierer bin:
Nach 22 macht der dann allerdings nichts mehr. Da bleibt dann der Zähler stehen. Da wäre es evtl noch Sinnvoll eine "Überlaufanzeige" einzurichten oder wieder von vorne zu beginnen. Je nachdem was du dann machen willst.

Ich würde da für die Zehnerstelle nicht so viele Fälle definieren, sondern halt pro Zahl eine. Wenn die Einerstelle bei 9 ist, dann die Zehnerstelle +1 und die Einerstelle wieder auf 0. so kommst du dann auch auf 99 ohne alls 99 Fälle definieren zu müssen.

Eine Überlegung wäre auch noch die Ansteuerung zu ändern. so brauchst du halt jetzt 14 Pins. Da gibts andere Möglichkeiten wo du weniger Pins brauchst. Dann tuts evtl auch ein kleinerer Controller.

Ist das eine 2??

Dim(20) = &B00000110
Dim(21) = &B01011011
Dim(22) = &B01011011

Sollten die nicht gleich sein oder überseh ich da was?

Matze1992 · 20. September 2009

Zitat von foo38

Ist das eine 2??

Dim(20) = &B00000110
Dim(21) = &B01011011
Dim(22) = &B01011011

Dass: &B01011011 ist eine 2
Dass: &B00000110 ist eine 1

Die Variablen sind alle um eine Stelle verschoben, da es keine Variable 0 gibt, der Zähler aber bei 0 beginnen soll. Ein Reset ist nicht notwendig, für einen Reset wir einfach kurz die Versorgungsspannung getrennt.

Einen AtMega32 wollte ich verwenden, da ich den noch hier liegen habe.

Gruß Matze1992

Stefan_Z · 20. September 2009

Das geht einfacher...
- Definieren die gewünschten Zeichen von 0-9 so wie bisher - am besten als CONSTANT, ist sauberer
- Die Bitmuster sind für beide Ports die selben, also braucht man nix über 9
- Dann eine Routine, die die Werte entsprechend verteilt. Also z.B. Wert in String konvertieren, dann die letzte Stelle nehmen und wieder in Byte und je nach Wert Variable zuweisen. In den Port schreiben, dann das selbe nochmal für die Zehnerstelle.
Schau die mal die Funktion VAL in Bascom an.

Matze1992 · 20. September 2009

Hallo Stefan,

meinst du dass so?

Code

$regfile "m32def.dat"
$crystal = 1000000


Config Portd = Output
Config Portb = Input


Portb.0 = 1


Dim Dis(10) As Byte
Dim Cnt As Byte


Const(1) = &B00111111
Const(2) = &B00000110
Const(3) = &B01011011
Const(4) = &B01001111
Const(5) = &B01100110
Const(6) = &B01101101
Const(7) = &B01111101
Const(8) = &B00000111
Const(9) = &B01111111
Const(10) = &B01101111


Cnt = 1 


Do
  Portd = Const(cnt)
  Portc = Const(cnt)
  If Pinb.0 = 0 Then Cnt = Cnt + 1 
Loop

Alles anzeigen

Unter Val und String kann ich mir leider nichts vorstellen, auch google konnte mir da nicht so richtig helfen. Kannst du dass bitte nochmal für einen Anfänger erklären?
Danke

Gruß Matze1992

dgoersch · 20. September 2009

Ich würd das "Charset" eher über Data-Felder anlegen, aber das ist wohl Geschmackssache.

Aber was anderes: wie bestromst du die Anzeigen? Was für Vorwiderstände? Die Zahl 88 dürfte mit 14 aktives Segmenten den AVR ganz schön stressen, die Doppel-Null mit 12 aktives Segmenten ist auch nicht besser. Max. 200mA in Summe über alle Portpins (siehe Datenblatt Seite 288, Fußnote 3,1).

Matze1992 · 20. September 2009

Hallo,

die 88 gibt es bei einem Zähler bis 21 nicht, bestromen werde ich die LED's mit 10mA

Gruß Matze1992

Stefan_Z · 20. September 2009

Probier das mal.. sollte gehen...

Zitat

$regfile "m32def.dat"
$crystal = 1000000

Config Portd = Output
Config Portb = Input

Portb.0 = 1

Dim 7_Segment(10) As Byte 'Die Bitmuster
Dim Cnt As Byte 'Zähler

7_Segment(1) = &B00111111 'Hier mit 1 anfangen
7_Segment(2) = &B00000110
7_Segment(3) = &B01011011
7_Segment(4) = &B01001111
7_Segment(5) = &B01100110
7_Segment(6) = &B01101101
7_Segment(7) = &B01111101
7_Segment(8) = &B00000111
7_Segment(9) = &B01111111 'Hier die 9
7_Segment(10) = &B01101111 'Hier muss die 0 stehen!

Cnt = 1

Dim Zaehlwert_string as String*3 'Hier passt ein Byte (max. Wert 255) as Text rein
Dim Zaehlwert_einzeln_string as String*1 'Zwischenspeicher für die gewünschte Stelle
Dim Zaehlwert_einzeln_byte(2) as byte 'Kleiner Array mit beiden Stellen as Dezimalzahl (also 0 bis 9)
Dim X as Byte 'Schleifenzähler

Do

'Erst mal den Zähler is Text verwandeln
Zaehlwert_string = Str(cnt)

'Dann die beiden rechten Stellen des Strings jeweils in eine dezimalzahl wandeln
For X = 1 to 2
Zaehlwert_einzeln_string = Right(Zaehlwert_string, x)
Zaehlwert_einzeln_byte(x) = Val(Zaehlwert_einzeln_string)
Next

'Jetzt noch die entsprechenden Bitmuster ausgeben
'Da Bascom kein Array-Element "0" kennt mal wieder umständlicher als theoretisch nötig...
If Zaehlwert_einzeln_byte(1) = 0 then
Portd = 7_Segment(10)
Else
Portd = 7_Segment(Zaehlwert_einzeln_byte(1))
End If

If Zaehlwert_einzeln_byte(2) = 0 then
Portc = 7_Segment(10)
Else
Portc = 7_Segment(Zaehlwert_einzeln_byte(2))
End If

'Tasterabfrage
If Pinb.0 = 0 Then Cnt = Cnt + 1
Loop

End

Alles anzeigen

Elegant ist anders, aber du sollst es ja verstehen
Noch machen musst du:
- Taster auf INT legen
- Entprellung des Tasters
- Anzeige nur dann ändern, wenn der Taster auch wirklich gedrückt wurde (per Flag und Display-Refresh in Sub-Programm packen)
- Überlaufhandling - also wenn der Counter über 99 kommt. An sich egal, weil ja dann wieder mit 00 angefangen wird, aber nach 255 kommt ja direkt wieder 0, weil das Byte voll ist! Daher prüfen
- Weitere Funktionen ausdenken

Gute Lektüre für Bascom-Einsteiger:
http://www.qsl.net/pa3ckr/

Besser als das Bascom-Handbuch...

Teilen