LED-Laufschrift mit Bascom, ATMega32 und Pollin-Displays

[radbruch]

Hallo

Wenn hier A2 wieder auf 1 gesetzt wird, wurde der komplette Text ausgegeben:

If A2 = Tl3 Then A2 = 1

Weil es mir immer wieder Spass macht fremden Code zu deuten:

Dim Dat(1530) As Byte ist das Bitmuster des Textes (255 Zeichen x 6 Bytes pro Zeichen=1530)

A1 ist der Index in DAT() der in der ISR hochgezählt wird
A2 ist der Index des ersten Byte vom Zeichen das als erstes (ganz links) dargestellt wird
A3 ist der Index des ersten Byte vom letzten Zeichen das dargestellt wird
T13 sind alle Bytes des Textes (T12) minus der Bytes, die in der Zeile dargestellt werden können (50). Wenn A2 den Wert von T13 erreicht hat, wurden alle Zeichen in Text auf der Matrix gezeigt.

Um einen neuen Text anzuzeigen muss man den Timer stoppen, den neuen Text der Variablen Text zuweisen und die Initialisierung nochmals durchlaufen:

Tl = Len(text)
B = 1

For A = 1 To Tl
 Tl2 = Tl * 6
 Einzelzeichen = Mid(text , A , 1)
 Ez = Asc(einzelzeichen)
 Bz = Ez - 32
 Beginn_zeichen = Bz * 6
 Ende_zeichen = Beginn_zeichen + 5
 For Db_zeiger = Beginn_zeichen To Ende_zeichen
  Dat(b) = Lookup(db_zeiger , Zeichensatz)
  Dat(b) = 255 - Dat(b)
  Incr B
 Next Db_zeiger
Next A

A2 = 1
Tl3 = Tl2 - 50
Start Timer0

Ich hoffe, das passt so ungefähr.

Gruß

Micha

[Sungod]

Ahh ja, Vielen Dank, Super

Das mit wenn A2 = 1 ist das dann einmal durch ist hatte ich auch schon mir gedacht....ging nur leider nicht, weil ich den Timer nicht gestoppt hatte.

Also jetzt funktioniert es super.