LED Matrix möglichst effizient ansteuern

[radbruch]

Hallo

Obwohl die Arrays mit dem Index 1 starten, ein Byte besteht auch bei Bascom aus Bit0 bis Bit7:

Temp = Bildspeicher(spalte)
If Temp.1 = 1 Then Set Portd.2 Else Reset Portd.2

Ich bin leider auch ziemlich ratlos. Scheinbar ist nur der Port C betroffen. Das einzige was mir dazu einfällt: JTAG ist nicht ausgeschaltet. Das würde allerdings nur PC2-5 betreffen. Wird an den "fehlerhaften" Pins etwas ausgegeben?

http://www.google.de/search?q=JTAG+i...+ausgeschaltet

Version 2:

$regfile = "m16def.dat"
$crystal = 16000000
$hwstack = 40
$swstack = 16
$framesize = 32

Config Porta = &B11100000               ' PA7-PA5 sind Ausgang (Spalten 7-9)
Config Portb = &B00111111               ' PB5-PB0 (Spalten 1-6)
Config Portc = &B11111111               ' PC7-PC0 (Zeilen 0-7)
Config Portd = &B00000111               ' PA2-PA0 (Zeilen 8-10)

Declare Sub Set_pixel(byval X As Byte , Byval Y As Byte)       ' Nullpunkt ist oben links als 0,0?
Declare Sub Reset_pixel(byval X As Byte , Byval Y As Byte)       ' x von 0 bis 8, y von 0 bis 10

Dim Bildspeicher(11) As Word , Spalte As Byte , Temp As Word , Zaehler As Word
Dim X As Byte , Y As Byte

Zaehler = 0
Spalte = 1                              ' Spalte ist Index im Array und startet deshalb mit 1!

Do
' Anfang der späteren ISR

   ' alle Spalten aus
   Portb = Pinb And &B11000000          ' PB5-PB0 ausschalten
   Porta = Pina And &B00011111          ' PA7-PA5 ausschalten

   ' Zeilenpins der aktuellen Spalte setzen
   ' Zeile 0 bis 7 ist PC0 bis 7, Zeile 8 bis 10 ist PD0 bis 2
   Temp = Bildspeicher(spalte)
   Portc = Temp And 255                 ' Bits 0 bis 7 an PortC.0 bis .7 ausgeben
   Temp = Temp / 256                    ' Bits 8-10 werden Bits 2-0
   Portd = Temp And 7                   ' Bits 7-3 ausblenden und Bits 2-0 an Port D ausgeben

   ' aktuelle Spalte einschalten
   Select Case Spalte
      Case 1 : Set Portb.4
      Case 2 : Set Portb.3
      Case 3 : Set Portb.2
      Case 4 : Set Portb.1
      Case 5 : Set Portb.0
      Case 6 : Set Porta.7
      Case 7 : Set Porta.6
      Case 8 : Set Porta.5
      Case 9 : Set Portb.5
   End Select

   If Spalte < 9 Then Spalte = Spalte + 1 Else Spalte = 1

' Ende der späteren ISR


   Waitus 100

   Select Case Zaehler
       Case 1000 : For X = 0 To 8       ' diagonale
                     Set_pixel X , X
                   Next X

       Case 2000 : For X = 0 To 10      ' waagrecht
                      Set_pixel X , 0
                      Set_pixel X , 8
                    Next X

       Case 3000 : For Y = 0 To 8       ' senkrecht
                      Set_pixel 0 , Y
                      Set_pixel 10 , Y
                    Next X

       Case 4000 : For X = 1 To 11      ' alle an
                      Bildspeicher(x) = &B11111111111
                    Next X

       Case 5000 : For X = 1 To 9       ' Bitmuster
                      Bildspeicher(x) = &B11111111100
                    Next X

       Case 6000 : For X = 1 To 9       ' alle aus
                      Bildspeicher(x) = 0
                    Next X

                    Zaehler = 0

   End Select

   Zaehler = Zaehler + 1
Loop

End

Sub Set_pixel(byval X As Byte , Byval Y As Byte)
   Bildspeicher(x + 1).y = 1            ' Bascom startet Arrays mit 1
End Sub

Sub Reset_pixel(byval X As Byte , Byval Y As Byte)
   Bildspeicher(x + 1).y = 0
End Sub

'(
'  Wird nicht verwendet und soll nur die Zeilenbelegung zeigen.
   Durch die aufsteigenden Bits kann man die Bytes schneller ausgeben.

   Sub Zeilensetzen
   Temp = Bildspeicher(spalte)
   If Temp.0 = 1 Then Set Portc.0 Else Reset Portc.0
   If Temp.1 = 1 Then Set Portc.1 Else Reset Portc.1
   If Temp.2 = 1 Then Set Portc.2 Else Reset Portc.2
   If Temp.3 = 1 Then Set Portc.3 Else Reset Portc.3
   If Temp.4 = 1 Then Set Portc.4 Else Reset Portc.4
   If Temp.5 = 1 Then Set Portc.5 Else Reset Portc.5
   If Temp.6 = 1 Then Set Portc.6 Else Reset Portc.6
   If Temp.7 = 1 Then Set Portc.7 Else Reset Portc.7

   If Temp.8 = 1 Then Set Portd.0 Else Reset Portd.0
   If Temp.9 = 1 Then Set Portd.1 Else Reset Portd.1
   If Temp.10 = 1 Then Set Portd.2 Else Reset Portd.2
End Sub
')

(ungetestet)

[nxtman95]

Ich hab mit nem Code JTAG deaktiviert, jetzt gehts!
Du bist ein GENIE!  

Ganz ganz großen Dank an dich

gruß nxtman

Edit: Das Bild ist aber insgesamt um 1 nach oben verschoben, weißt du warum?

[radbruch]

Hallo

Prima, Glückwunsch. Danke für die Blumen. :)

Das Bild ist aber insgesamt um 1 nach oben verschoben

Bei welcher Programmversion? In der ersten Version würde das genau passen:

If Temp.1 = 1

Die Pixel der ersten Reihe werden in Bildspeicher(x).0 gespeichert, weil die Zählung der Bits eines Bytes bei 0 beginnt. Wenn du bei .1 startest wird die oberste Zeile "verschluckt". (des hab ich aber weiter oben schon mal angedeutet...)

Gruß

mic

[nxtman95]

Hatte (bzw. habe noch) die erste, habe jetzt anstatt Temp.1 = 1 Temp.2 = 1 gemacht funktioniert jetzt alles suuuper!
Jetzt gehts an die Texte und Animationen  

[nxtman95]

Ich lasse das mit der 9x11 Matrix erstmal in Raum stehen und baue mir erstmal eine 8x8 Matrix, die Programmierung der 9x11 Matrix is mir nämlich fürs erste zu umständlich und kompliziert...

[radbruch]

Ich lasse das mit der 9x11 Matrix erstmal in Raum stehen...

Tja, schade eigentlich. Von einer "effizienten" Ansteuerung waren wir möglicherweise gar nicht so weit entfernt.

[nxtman95]

Ja ich weis, ich bin gerade am überlegen, ob ich nicht nur die Platine von der LED-Matrix neu mache, weil die nicht so gut aussieht. Ich habe zur Zeit auch kaum zeit, weil ich noch ne Englisch-Präsentation machen muss. Und was noch dazu kommt ist meine Hausarbeit Und meine Präsentationsprüfung. Das is ne heiden Arbeit.

Ich bin mir (noch) nicht sicher, ich denke aber, ich werde nur die Platine neu machen und ein ordentliches Flachbandkabel dran machen.

Gruß nxtman95