Richtige Ansteuerung einer7x4 Matrix mit ATtiny2313

zoranos19872 · 8. Juli 2012

Hi allerseits,
ich hab da ein kleines Problem mit meiner LED Matrix. Ich habe versucht das ganze ähnlich wie beim LED Würfel 3x3x3 aufzubauen,
nur mit dem unterschied das ich hier eine 7x4 Matrix besitze. Ich dachte mir, wenn ich bei der Programmierung folgendes ändere:

Code

$regfile = "attiny2313.dat"
$hwstack = 32
$swstack = 10
$framesize = 40
$crystal = 8000000                                      	' Achtung: Taktfrequenz per Fusebits auf 8 MHz einstellen!
'-------------------------------------------------------------------------------------------------
' Ports auf Ausgang setzen
'-------------------------------------------------------------------------------------------------
Ddrb = &B11111111
Ddrd = &B01111111
'-------------------------------------------------------------------------------------------------
' Variablen deklarieren
'-------------------------------------------------------------------------------------------------
Dim Bild As Word                                        	' Aktuelle Bildnummer
Dim Maxbild As Word                                     	' Nummer des letzten Bildes (=Zahl der Bilder in der Animation)
Dim Ebene As Byte                                       	' Ebenen-ZŠhler
Dim Dauer As Byte                                       	' Anzeigedauer des Bildes
Dim Temp As Word                                        	' fŸr Berechnungen
Dim Offset As Word                                      	' Position der zu holenden Daten
'-------------------------------------------------------------------------------------------------
' Hauptprogramm
'-------------------------------------------------------------------------------------------------
Do


Maxbild = Lookup(0 , Muster)                            	' Anzahl der gespeicherten Bilder holen
Maxbild = Maxbild - 1                                   	' 1 abziehen, da von 0 ab gezŠhlt wird


For Bild = 0 To Maxbild                                 	' Bilder durchzŠhlen


  For Dauer = 0 To 27                                    	' Dauer des Bildes, pro Durchlauf ca. 15 ms - also hier ca. 0,4 sek.


	For Ebene = 0 To 3  	<---- statt 2, 3 für 4 Zeilen     	' 4 Zeilen durchmultiplexen


  	Offset = Bild * 6                                 	' Offset Berechnen, 6 Byte pro Bild
  	Temp = Ebene * 2                                  	' 2 Byte pro Ebene
  	Offset = Offset + Temp
  	Offset = Offset + 2                               	' 1. Eintrag Ÿberspringen (Zahl der Bilder)


  	Portd = Lookup(offset , Muster)                   	' 1. Byte-Muster ausgeben
  	Offset = Offset + 1
  	Portb = Lookup(offset , Muster)                   	' 2. Byte-Muster ausgeben


  	Waitms 5                                          	' diese Ebene fŸr 5 ms anzeigen


	Next Ebene


  Next Dauer


Next Bild


Loop                                                    	' Programm von vorne beginnen


End

Alles anzeigen

und dem Muster folgendes anpasse:

Code

Data &B01000000 , &B01111111                            	' Bild 1
Data &B00100000 , &B01111111
Data &B00010000 , &B01111111
Data &B00001000 , &B01111111  <----- 4. Zeile

Sollte es normalerweise anstandslos funktionieren.
Die 4 Zeilen habe ich an PD6 - PD3 hängen
Und die Spalten an PB0 - PB6
Mit dem LED Würfel hat alles wunderbar funktioniert, nur hier bei der Matrix weiß ich leider nicht
wie ich das bei der Musterdatei mit der ersten Zeile:

Code

Data 10%  <-------siehe hier

Data &B01000000 , &B01111111                            	' Bild 1
Data &B00100000 , &B01111111
Data &B00010000 , &B01111111
Data &B00001000 , &B01111111

berechne. Beim Würfel hab ich ja das Musterprogramm gehabt, dass das selbst gemacht hat. Nur
was nehme ich bei diesem Beispiel.
Ich habe in der Musterdatei 8 Bilder und das letzte fehlt immer.

Bin über jede Antwort dankbar.

Gruß

Pesi · 9. Juli 2012

guck mal in Zeile 34:

Code

Offset = Bild * 6                                 	' Offset Berechnen, 6 Byte pro Bild

Du hast ja 8 Byte pro Bild...

übrigens hat sich rausgestellt, dass das mischen von Words und Bytes in Data-Zeilen zu Fehlern führen kann - also am Besten die Bilder-Anzahl extra ablegen...

Pesi · 12. Juli 2012

Schon ausprobiert, läuft es nun...?

Übrigens, das Ganze wurde ja damals der Einfachheit halber so gemacht, da ich eh' (wegen den 9 Säulen) 2 Bytes pro Ebene brauchte, und da das Multiplexen praktisch gleich noch mit drin "versteckt" habe (das eine Bit, das "wandert"...)

hier kann man sich das eigentlich sparen, weil man ja nur ein Byte pro Zeile braucht - diese muss man dann halt anders ansteuern...

könnte man jetzt mit ner Schleife machen, wo man ein Bit rumschiebt, also so:

Code

Do


Maxbild = Lookup(0 , Bildanzahl)                            	' Anzahl der gespeicherten Bilder holen
Maxbild = Maxbild - 1                                   	' 1 abziehen, da von 0 ab gezählt wird


For Bild = 0 To Maxbild                                 	' Bilder durchzählen


  For Dauer = 0 To 27                                    	' Dauer des Bildes, pro Durchlauf ca. 15 ms - also hier ca. 0,4 sek.


       Zeile = &B01000000         ' Bit für erste Zeile setzen


	For Ebene = 0 To 3  	<---- statt 2, 3 für 4 Zeilen     	' 4 Zeilen durchmultiplexen


  	Offset = Bild * 4                                 	' Offset Berechnen, 4 Byte pro Bild
  	Offset = Offset + Ebene           ' Aktuelle Ebene dazu


	Portd = Lookup(Offset , Muster)                   	' Spaltenmuster ausgeben
   	Portb = Zeile                   	' Zeile aktivieren


  	Waitms 5                                          	' diese Ebene für 5 ms anzeigen


	PortD = 0
	PortB = 0      ' alles aus, um Nachleuchten zu verhindern


	Shift Zeile, Right, 1    ' Bit für Zeilen auf nächste schieben


	Next Ebene


  Next Dauer


Next Bild


Loop                                                    	' Programm von vorne beginnen


---------------------------------------------------------------


Bildanzahl:


Data 10%                                          ' Anzahl Bilder

Muster:


Data &B01111111                            	' Bild 1
Data &B01111111
Data &B01111111
Data &B01111111

Alles anzeigen

Und braucht so nur noch 4 Byte pro Bild statt 8 - also doppelte Anzahl möglich (fast doppelte, der Code an sich braucht ja dann ein *bisschen* mehr....) - oben halt noch den Kram mit dim Zeile as Byte usw.

sag' doch mal Bescheid, ist immer bisschen doof, wenn man hier Tipps gibt und überhaupt keine Rückmeldung kommt...

zoranos19872 · 12. Juli 2012

hat leider nicht so ganz funktioniert. leuchtet irgendwie wild durcheinander.
hab meinen code mit deinem ersetzt.
leider ohne den gewünschten erfolg.

gruß

Pesi · 12. Juli 2012

ah, klar, sind ja auch Spalten und Zeilen vertauscht...

ersetze mal Zeile 17 und 18 durch:

Code

PortB = Lookup(Offset , Muster)                   	' Spaltenmuster ausgeben
PortD = Zeile                   	' Zeile aktivieren

und bei den Bilddaten hast Du natürlich schon nur noch 4 Bytes pro Bild, oder..? also ohne dieses & B01000000, &B00100000, ... vorne dran...?

zoranos19872 · 13. Juli 2012

Ich hab das mal versucht, die beiden Zeilen zu vertauschen. Neu kompiliert, das µC programmiert und das Spiel ist leider das selbe. Werde nochmal das ganze ein wenig näher betrachten. Warscheinlich hab ich da irgendwo was übersehen.
Ich sag dann nochmal bescheid.

Gruß
Sascha

zoranos19872 · 13. Juli 2012

Ich hab den Fehler gefunden.

Code

PortD = Lookup(Offset , Muster)                   	' Spaltenmuster ausgeben
PortB = Zeile                   	' Zeile aktivieren

Habe nur PortD und PortB getauscht, Zeile und Muster so gelassen, dann hats geklappt.

Pesi · 13. Juli 2012

Na, super, schön, dass es funktioniert!

magst Du dann noch den kompletten Code hier rein stellen, für andere, die auch sowas bauen wollen...?

Richtige Ansteuerung einer7x4 Matrix mit ATtiny2313

Teilen

Benutzer online in diesem Thema