MC14499 - AVR

[Tony B. (tonykb)]

Hallo Zusammen.. :)

Ich hab heute mal ein Problem bei dem ich selbst - soweit ich denke - an 
meine Programmiergrenzen stoße..

Und zwar möchte ich mit einem AVR einen Frequenzzähler realisieren. Dazu 
zählt ein Timer (COUNTER) und gibt dieses nach exakt einer Sekunde 
(2.Timer) an einen Interrupt der dann die Hz Zahl ermittelt.
Dieser Teil des Programmes ist fertig und funktioniert auch 
einwandfrei...

Jetzt Möchte ich diesen Wert über drei 7Segment Anzeigen ausgeben...
Direktes Multiplexing hat zwar funktioniert aber setzt leider nach jeder 
Sekunde (Während des Interrupts) aus, was zu einen Flackern führt... :(


Ich hab jetzt in der Bastelkiste den MC14499 von Motorola gefunden... 
alles laut Datenblatt aufgebaut und mal 3 Einsen drauf geschickt.. Geht 
ebenfalls. Ich möchte diesen nun auch gerne für die Anzeige nutzen da 
dieser Seperat vom AVR Timer und somit "flackerlos" Multiplext...

Nur wie realisiere ich im AVR (Syntaxseitig), dass der vom Interrupt 
kommende dreistellige Wert dann in 12 Bits (also 4 Bit pro Ziffer) 
umgewandelt und ausgegeben wird...

Gibt es da eine Möglichkeit?


PS.: Wer im Datenblatt nicht durchsieht wie der Chip die daten empfängt, 
ich kann es gerne noch erklären, spare es mir aber erstmal an dieser 
Stelle weil es eigentlich gut verständlich ist! :)


Bitte Helft mir schnellstmöglich! :)


Lg Tony

[Willi (Gast)]

Tony B. schrieb:
> Und zwar möchte ich mit einem AVR einen Frequenzzähler realisieren.

> Bitte Helft mir schnellstmöglich! :)

Der Suchbegriff lautet: "reziproker Frequenzzähler"

[Tony B. (tonykb)]

Hallo Willi! :)
Danke für deine schnelle Hilfe, jedoch finde ich mit diesem Suchbegriff 
ausschlieslich Projekte die mit LCD realisiert wurden.

Das hat neben dem Optischen Aspekt auch den Vorteil das es VIEL 
einfacher ist... Auch ich hatte meinen Zähler bereits mit LCD laufen und 
das Mit Erfolg... aber mir geht es eben darum diese 7Segment anzeigen zu 
verwenden und das über dewn Og. Treiber-Decoder-IC..


Hat noch jemand Vorschläge? :)

lg

[Tony B. (tonykb)]

Hallo Nochmal! :)

Ich hab jetzt hier mal einen Syntax für euch bei dem ich noch einige 
Probleme Habe..:

$regfile = "m8def.dat"
$crystal = 1000000

Dim 0(4) As Byte
Dim 1(4) As Byte
Dim 2(4) As Byte
Dim 3(4) As Byte
Dim 4(4) As Byte
Dim 5(4) As Byte
Dim 6(4) As Byte
Dim 7(4) As Byte
Dim 8(4) As Byte
Dim 9(4) As Byte


Dim Frequenz As Integer
Dim Z1 As Integer
Dim Z2 As Integer
Dim Z3 As Integer

Dim X As Integer
Dim Y As Integer

Config Portd.0 = Output
Config Portd.1 = Output
Config Portd.2 = Output

Enb Alias Portd.0
Clk Alias Portd.1
Dat Alias Portd.2


Frequenz = 245

Do

Z1 = Frequenz Mod 10
Frequenz = Frequenz / 10
Z2 = Frequenz Mod 10
Frequenz = Frequenz / 10
Z3 = Frequenz Mod 10

For Y = 1 To 3
Do
   For X = 0 To 3
   Dat = Lookup(x , Zy)
   Clk = 1
   Clk = 0
   Next X
Loop Until X = 3
X = 0
Next Y


Loop
End

0:
Data 0
Data 0
Data 0
Data 0

1:
Data 0
Data 0
Data 0
Data 1

2:
Data 0
Data 0
Data 1
Data 0

3:
Data 0
Data 0
Data 1
Data 1

4:
Data 0
Data 1
Data 0
Data 0

5:
Data 0
Data 1
Data 0
Data 1

6:
Data 0
Data 1
Data 1
Data 0

7:
Data 0
Data 1
Data 1
Data 1

8:
Data 1
Data 0
Data 0
Data 0

9:
Data 1
Data 0
Data 0
Data 1

So ich weis das da noch einiges fehlt und bestimmt auch was zu viel ist, 
aber ich bin etwas am verzweifeln da der Kompiler in der Zeile

Dat = LookUp(x,zy)

eine StoreBit error [200] anzeigt...

Was hab ich denn Falsch gemacht!?

Noch kurz zum Plan wie es Funktionieren soll:

Eine Frequenz (hier zum Test auf 245) kommt vom Counter, wird in 
z1,z2,z3 aufgeteilt.

Dann wird die erste Ziffer (y=1) über die Loop an den Treiber geschickt 
(4Bits)... Dazu hab ich die Tabellen gem. DB angelegt... (Bsp.: "1" 
entspricht 0001) die X-Schleife läuft 4 mal durch und setzt den DAT pin 
auf das xte Niveau der Ziffer von zy (y ist ja bei der ersten ziffer 1 
also z1) dann folgt der Clk takt...


Kann mir bitte Jemand Helfen?

Lg :)

[Tony B. (tonykb)]

Okay Daaaanke!

Dann die nächste Frage:
Das Problem scheint darin zu liegen dass der Wert von Z1 als integer 
NICHT als Bezeichnung für die Tabelle genuzt werden kann...
Desweiteren schein die Variablen Z1,Z2,Z3 nicht global nutzbar zu sein 
denn beim Compilieren des neuen (unten) Syntax, kommt die Meldung "Label 
Not Found[z1]" (und auch mit z2 und z3)

Kann mit endlich mal jemand weiterhelfen ich bin hier am Verzweifeln -.-

Wäre schön! :)
Lg

$regfile = "m8def.dat"
$crystal = 1000000

Dim 0(4) As Byte
Dim 1(4) As Byte
Dim 2(4) As Byte
Dim 3(4) As Byte
Dim 4(4) As Byte
Dim 5(4) As Byte
Dim 6(4) As Byte
Dim 7(4) As Byte
Dim 8(4) As Byte
Dim 9(4) As Byte

Dim Stat As Bit

Dim Frequenz As Integer
Dim Z1 As Integer
Dim Z2 As Integer
Dim Z3 As Integer

Dim X As Integer
Dim Y As Integer

Config Portd.0 = Output
Config Portd.1 = Output
Config Portd.2 = Output

Enb Alias Portd.0
Clk Alias Portd.1
Dat Alias Portd

Frequenz = 245

Do

Z1 = Frequenz Mod 10
Frequenz = Frequenz / 10
Z2 = Frequenz Mod 10
Frequenz = Frequenz / 10
Z3 = Frequenz Mod 10


Do
   For X = 0 To 3
   Dat = Lookup(x , Z1)
   Clk = 1
   Clk = 0
   Next X
Loop Until X = 3
X = 0

Do
   For X = 0 To 3
   Dat = Lookup(x , Z2)
   Clk = 1
   Clk = 0
   Next X
Loop Until X = 3
X = 0

Do
   For X = 0 To 3
   Dat = Lookup(x , Z3)
   Clk = 1
   Clk = 0
   Next X
Loop Until X = 3
X = 0




Loop
End

0:
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000

1:
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000100

2:
Data &B00000000
Data &B00000000
Data &B00000100
Data &B00000000

3:
Data &B00000000
Data &B00000000
Data &B00000100
Data &B00000100

4:
Data &B00000000
Data &B00000100
Data &B00000000
Data &B00000000

5:
Data &B00000000
Data &B00000100
Data &B00000000
Data &B00000100

6:
Data &B00000000
Data &B00000100
Data &B00000100
Data &B00000000

7:
Data &B00000000
Data &B00000100
Data &B00000100
Data &B00000100

8:
Data &B00000100
Data &B00000000
Data &B00000000
Data &B00000000

9:
Data &B00000100
Data &B00000000
Data &B00000000
Data &B00000100

[eddi (Gast)]

Hallo Tony B.

Hab dein posting zufällig gelesen, und mich gewundert.

Das Problem, das du beschreibst scheint mir ganz einfach, ja geradezu 
elementar zu sein. (Muß alledings zugeben, daß ich nichts von avr-basic 
verstehe).

Aus einer Zahl (245) die einzelnen Stellen zu isolieren und in passende 
Werte umzuwandeln.
Verstehe ich das richtig?

Na, dann benutzt man die so erhaltenen Ziffern (z1,...) als INDEX auf 
ein Array. Vielleicht so:
...
Dim Dispwert(10) as Byte
Z1 = Frequenz Mod 10
Dat = Dispwert(Z1)
...

Hilft das?

e.r.f.

p.s.
Sind die zeilen so wie "Dim 0(4) As Byte" legal? Dann wäre der 
Variablenbezeichner eine Ziffer? Scheint mir unwahrscheinlich,

[eddi (Gast)]

Hallo Tony B.

Hab's gerade noch mal nachgelesen ...

Die Syntax für Lookup müsste so sein: erst der Index dann das Label.

(Das Label Z1 gibt es bei dir nicht.)


So vielleicht:
....

Tab:
  DATA   $00, $01, 23, ...........

Dat = Lookup(Z1 , Tab)

...


mfg e.r.f.