Spielerei mit 8x8 WS2812 ohne Lib

sk8erboi · Apr 13th 2025, 1:49pm

Hallo zusammen.
Seit einiger Zeit habe ich die 8x8 LED Matix mit dem Max1219 laufen.
(Danke nochmals an tschoeatsch)
Jetzt gibt es eine 8x8 Matrix WS2812 für ca 2 Euro pro Panel.
Davon habe ich gestern gleich drei zusammengelötet und lasse mir die Einspeisung(grün) meines Balkonkraftwerkes und den Strombezug(rot) anzeigen.

Der Code ist etwas zusammengewürfelt, funktioniert aber gut.
Der ATmega muss mit 16MHz getraktet sein, sonst stimmen die Timings nicht.
An der Ausgabe vom "Bildspeicher" sollte möglichst nichts verändert werden.

Source Code

$regfile = "m328pdef.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 32
$framesize = 32
Const Anzahl_module = 3
Const Anzahl_spalten = Anzahl_module * 8
Dim Display_array(anzahl_spalten) As Byte '8 Spalten für jedes Modul
Dim Temp As Byte , Temp1 As Byte
Dim Modul As Byte
Dim Spalte As Word
Dim Zeile As Byte , Bit_nr As Byte
Dim Loesch As Byte
Dim Display_daten As Byte , Display_digit As Byte
Dim Spalten_nummer As Word , X As Word
Dim Test As String * 6
Dim M As Dword
Dim Z As Byte
Dim Posled As Integer
Declare Sub Schreiben(byval Ausgabetext As String , Byval Farbe As Byte , Byval Helligkeit As Byte)
Dim Zahler_farbe As Byte
Dim Helligkeit As Byte
Const N_led = 64 * Anzahl_module
Dim N As Integer
Dim G(n_led) As Byte 'Grün-Anteil
Dim R(n_led) As Byte 'Rot-Anteil
Dim B(n_led) As Byte 'Blau-Anteil
Dim Zaehler As Integer
Config Pinb.2 = Output
Reset Portb.2 'T_RST = Lo = RESET = 10000 ns
Waitus 10
Do
Incr Zaehler
If Zaehler = 9999 Then
Zaehler = 0
End If
' Incr Zahler_farbe
' If Zahler_farbe = 4 Then
' Zahler_farbe = 1
' End If
' Incr Helligkeit
' If Helligkeit = 255 Then
' Helligkeit = 1
' End If
Test = Str(zaehler)
' Call Schreiben(test , Zahler_farbe , Helligkeit)
Call Schreiben(test , 2 , 10)
Waitms 100
Loop
Sub Schreiben(ausgabetext As String , Farbe As Byte , Helligkeit As Byte)
Local Lang As Byte
Local Count As Byte
Local Text As String * 1
Local Tabelleneinsprung As Word
Posled = 1
Lang = Len(ausgabetext)
Spalten_nummer = 1
For Count = 1 To Lang 'nacheinander die einzelnen Buchstaben durchgehen
Text = Mid(ausgabetext , Count , 1) 'Einzelbuchstaben herauspicken
Tabelleneinsprung = Asc(text) 'Tabelle berechnen minus 32 zeichen.
Select Case Text
Case "Ä" : Tabelleneinsprung = &H8E
Case "Ö" : Tabelleneinsprung = &H99
Case "Ü" : Tabelleneinsprung = &H9A
Case "ä" : Tabelleneinsprung = &H84
Case "ü" : Tabelleneinsprung = &H81
Case "ö" : Tabelleneinsprung = &H94
Case "ß" : Tabelleneinsprung = &HE1
End Select
Tabelleneinsprung = Tabelleneinsprung - 32
Tabelleneinsprung = Tabelleneinsprung * 6
For X = 1 To 6 'das bitmuster spaltenweise in den Speicher schreiben (6 Spalten)
Display_array(spalten_nummer) = Lookup(tabelleneinsprung , Font_6x8)
Incr Spalten_nummer : Incr Tabelleneinsprung
For N = 7 To 0 Step -1
If Display_array(spalten_nummer).n = 1 And Farbe = 1 Then
G(posled) = 0
R(posled) = Helligkeit
B(posled) = 0
End If
If Display_array(spalten_nummer).n = 1 And Farbe = 2 Then
G(posled) = Helligkeit
R(posled) = 0
B(posled) = 0
End If
If Display_array(spalten_nummer).n = 1 And Farbe = 3 Then
G(posled) = 0
R(posled) = 0
B(posled) = Helligkeit
End If
If Display_array(spalten_nummer).n = 0 Then
G(posled) = 0
R(posled) = 0
B(posled) = 0
End If
Incr Posled
Next N
Next X
Next Count
'__________________________________________________________LED-Array RESET erzeugen:
Reset Portb.2 'T_RST = Lo = RESET = 10000 ns
Waitus 30
'__________________________________________________Das ganze LED-Array mit den neuen Farben beschreiben:
For N = 1 To N_led
If G(n).7 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If G(n).6 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If G(n).5 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If G(n).4 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If G(n).3 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If G(n).2 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If G(n).1 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If G(n).0 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If R(n).7 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If R(n).6 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If R(n).5 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If R(n).4 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If R(n).3 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If R(n).2 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If R(n).1 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If R(n).0 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If B(n).7 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If B(n).6 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If B(n).5 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If B(n).4 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If B(n).3 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If B(n).2 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If B(n).1 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If B(n).0 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
Next N
End Sub

Display All

sk8erboi · Apr 13th 2025, 1:54pm

Dazu natürlich die ASCII-Datenbank

Source Code

Font_6x8: '6x8font
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 ' &H20
Data &H00 , &H00 , &H06 , &H5F , &H06 , &H00 ' &H21
Data &H00 , &H07 , &H03 , &H00 , &H07 , &H03 ' &H22
Data &H00 , &H24 , &H7E , &H24 , &H7E , &H24 ' &H23
Data &H00 , &H24 , &H2B , &H6A , &H12 , &H00 ' &H24
Data &H00 , &H63 , &H13 , &H08 , &H64 , &H63 ' &H25
Data &H00 , &H36 , &H49 , &H56 , &H20 , &H50 ' &H26
Data &H00 , &H00 , &H07 , &H03 , &H00 , &H00 ' &H27
Data &H00 , &H00 , &H3E , &H41 , &H00 , &H00 ' &H28
Data &H00 , &H00 , &H41 , &H3E , &H00 , &H00 ' &H29
Data &H00 , &H08 , &H3E , &H1C , &H3E , &H08 ' &H2A
Data &H00 , &H08 , &H08 , &H3E , &H08 , &H08 ' &H2B
Data &H00 , &H00 , &HE0 , &H60 , &H00 , &H00 ' &H2C
Data &H00 , &H08 , &H08 , &H08 , &H08 , &H08 ' &H2D
Data &H00 , &H00 , &H60 , &H60 , &H00 , &H00 ' &H2E
Data &H00 , &H20 , &H10 , &H08 , &H04 , &H02 ' &H2F
Data &H00 , &H3E , &H51 , &H49 , &H45 , &H3E ' &H30
Data &H00 , &H00 , &H42 , &H7F , &H40 , &H00 ' &H31
Data &H00 , &H62 , &H51 , &H49 , &H49 , &H46 ' &H32
Data &H00 , &H22 , &H49 , &H49 , &H49 , &H36 ' &H33
Data &H00 , &H18 , &H14 , &H12 , &H7F , &H10 ' &H34
Data &H00 , &H2F , &H49 , &H49 , &H49 , &H31 ' &H35
Data &H00 , &H3C , &H4A , &H49 , &H49 , &H30 ' &H36
Data &H00 , &H01 , &H71 , &H09 , &H05 , &H03 ' &H37
Data &H00 , &H36 , &H49 , &H49 , &H49 , &H36 ' &H38
Data &H00 , &H06 , &H49 , &H49 , &H29 , &H1E ' &H39
Data &H00 , &H00 , &H6C , &H6C , &H00 , &H00 ' &H3A
Data &H00 , &H00 , &HEC , &H6C , &H00 , &H00 ' &H3B
Data &H00 , &H08 , &H14 , &H22 , &H41 , &H00 ' &H3C
Data &H00 , &H24 , &H24 , &H24 , &H24 , &H24 ' &H3D
Data &H00 , &H00 , &H41 , &H22 , &H14 , &H08 ' &H3E
Data &H00 , &H02 , &H01 , &H59 , &H09 , &H06 ' &H3F
Data &H00 , &H3E , &H41 , &H5D , &H55 , &H1E ' &H40
Data &H00 , &H7E , &H11 , &H11 , &H11 , &H7E ' &H41
Data &H00 , &H7F , &H49 , &H49 , &H49 , &H36 ' &H42
Data &H00 , &H3E , &H41 , &H41 , &H41 , &H22 ' &H43
Data &H00 , &H7F , &H41 , &H41 , &H41 , &H3E ' &H44
Data &H00 , &H7F , &H49 , &H49 , &H49 , &H41 ' &H45
Data &H00 , &H7F , &H09 , &H09 , &H09 , &H01 ' &H46
Data &H00 , &H3E , &H41 , &H49 , &H49 , &H7A ' &H47
Data &H00 , &H7F , &H08 , &H08 , &H08 , &H7F ' &H48
Data &H00 , &H00 , &H41 , &H7F , &H41 , &H00 ' &H49
Data &H00 , &H30 , &H40 , &H40 , &H40 , &H3F ' &H4A
Data &H00 , &H7F , &H08 , &H14 , &H22 , &H41 ' &H4B
Data &H00 , &H7F , &H40 , &H40 , &H40 , &H40 ' &H4C
Data &H00 , &H7F , &H02 , &H04 , &H02 , &H7F ' &H4D
Data &H00 , &H7F , &H02 , &H04 , &H08 , &H7F ' &H4E
Data &H00 , &H3E , &H41 , &H41 , &H41 , &H3E ' &H4F
Data &H00 , &H7F , &H09 , &H09 , &H09 , &H06 ' &H50
Data &H00 , &H3E , &H41 , &H51 , &H21 , &H5E ' &H51
Data &H00 , &H7F , &H09 , &H09 , &H19 , &H66 ' &H52
Data &H00 , &H26 , &H49 , &H49 , &H49 , &H32 ' &H53
Data &H00 , &H01 , &H01 , &H7F , &H01 , &H01 ' &H54
Data &H00 , &H3F , &H40 , &H40 , &H40 , &H3F ' &H55
Data &H00 , &H1F , &H20 , &H40 , &H20 , &H1F ' &H56
Data &H00 , &H3F , &H40 , &H3C , &H40 , &H3F ' &H57
Data &H00 , &H63 , &H14 , &H08 , &H14 , &H63 ' &H58
Data &H00 , &H07 , &H08 , &H70 , &H08 , &H07 ' &H59
Data &H00 , &H71 , &H49 , &H45 , &H43 , &H00 ' &H5A
Data &H00 , &H00 , &H7F , &H41 , &H41 , &H00 ' &H5B
Data &H00 , &H02 , &H04 , &H08 , &H10 , &H20 ' &H5C
Data &H00 , &H00 , &H41 , &H41 , &H7F , &H00 ' &H5D
Data &H00 , &H04 , &H02 , &H01 , &H02 , &H04 ' &H5E
Data &H80 , &H80 , &H80 , &H80 , &H80 , &H80 ' &H5F
Data &H00 , &H00 , &H03 , &H07 , &H00 , &H00 ' &H60
Data &H00 , &H20 , &H54 , &H54 , &H54 , &H78 ' &H61
Data &H00 , &H7F , &H44 , &H44 , &H44 , &H38 ' &H62
Data &H00 , &H38 , &H44 , &H44 , &H44 , &H28 ' &H63
Data &H00 , &H38 , &H44 , &H44 , &H44 , &H7F ' &H64
Data &H00 , &H38 , &H54 , &H54 , &H54 , &H08 ' &H65
Data &H00 , &H08 , &H7E , &H09 , &H09 , &H00 ' &H66
Data &H00 , &H18 , &HA4 , &HA4 , &HA4 , &H7C ' &H67
Data &H00 , &H7F , &H04 , &H04 , &H78 , &H00 ' &H68
Data &H00 , &H00 , &H00 , &H7D , &H00 , &H00 ' &H69
Data &H00 , &H40 , &H80 , &H84 , &H7D , &H00 ' &H6A
Data &H00 , &H7F , &H10 , &H28 , &H44 , &H00 ' &H6B
Data &H00 , &H00 , &H00 , &H7F , &H40 , &H00 ' &H6C
Data &H00 , &H7C , &H04 , &H18 , &H04 , &H78 ' &H6D
Data &H00 , &H7C , &H04 , &H04 , &H78 , &H00 ' &H6E
Data &H00 , &H38 , &H44 , &H44 , &H44 , &H38 ' &H6F
Data &H00 , &HFC , &H44 , &H44 , &H44 , &H38 ' &H70
Data &H00 , &H38 , &H44 , &H44 , &H44 , &HFC ' &H71
Data &H00 , &H44 , &H78 , &H44 , &H04 , &H08 ' &H72
Data &H00 , &H08 , &H54 , &H54 , &H54 , &H20 ' &H73
Data &H00 , &H04 , &H3E , &H44 , &H24 , &H00 ' &H74
Data &H00 , &H3C , &H40 , &H20 , &H7C , &H00 ' &H75
Data &H00 , &H1C , &H20 , &H40 , &H20 , &H1C ' &H76
Data &H00 , &H3C , &H60 , &H30 , &H60 , &H3C ' &H77
Data &H00 , &H6C , &H10 , &H10 , &H6C , &H00 ' &H78
Data &H00 , &H9C , &HA0 , &H60 , &H3C , &H00 ' &H79
Data &H00 , &H64 , &H54 , &H54 , &H4C , &H00 ' &H7A
Data &H00 , &H08 , &H3E , &H41 , &H41 , &H00 ' &H7B
Data &H00 , &H00 , &H00 , &H77 , &H00 , &H00 ' &H7C
Data &H00 , &H00 , &H41 , &H41 , &H3E , &H08 ' &H7D
Data &H00 , &H02 , &H01 , &H02 , &H01 , &H00 ' &H7E
Data &H00 , &H3C , &H26 , &H23 , &H26 , &H3C ' &H7F
Data &H00 , &H1E , &HA1 , &HE1 , &H21 , &H12 ' &H80
Data &H00 , &H3D , &H40 , &H20 , &H7D , &H00 ' &H81
Data &H00 , &H38 , &H54 , &H54 , &H55 , &H09 ' &H82
Data &H00 , &H20 , &H55 , &H55 , &H55 , &H78 ' &H83
Data &H00 , &H20 , &H55 , &H54 , &H55 , &H78 ' &H84
Data &H00 , &H20 , &H55 , &H55 , &H54 , &H78 ' &H85
Data &H00 , &H20 , &H57 , &H55 , &H57 , &H78 ' &H86
Data &H00 , &H1C , &HA2 , &HE2 , &H22 , &H14 ' &H87
Data &H00 , &H38 , &H55 , &H55 , &H55 , &H08 ' &H88
Data &H00 , &H38 , &H55 , &H54 , &H55 , &H08 ' &H89
Data &H00 , &H38 , &H55 , &H55 , &H54 , &H08 ' &H8A
Data &H00 , &H00 , &H01 , &H7C , &H41 , &H00 ' &H8B
Data &H00 , &H00 , &H01 , &H7D , &H41 , &H00 ' &H8C
Data &H00 , &H00 , &H01 , &H7C , &H40 , &H00 ' &H8D
Data &H00 , &H70 , &H29 , &H24 , &H29 , &H70 ' &H8E
Data &H00 , &H78 , &H2F , &H25 , &H2F , &H78 ' &H8F
Data &H00 , &H7C , &H54 , &H54 , &H55 , &H45 ' &H90

Display All

sk8erboi · Apr 13th 2025, 1:56pm

Source Code

Data &H00 , &H34 , &H54 , &H7C , &H54 , &H58 ' &H91
Data &H00 , &H7E , &H09 , &H7F , &H49 , &H49 ' &H92
Data &H00 , &H38 , &H45 , &H45 , &H39 , &H00 ' &H93
Data &H00 , &H38 , &H45 , &H44 , &H39 , &H00 ' &H94
Data &H00 , &H39 , &H45 , &H44 , &H38 , &H00 ' &H95
Data &H00 , &H3C , &H41 , &H21 , &H7D , &H00 ' &H96
Data &H00 , &H3D , &H41 , &H20 , &H7C , &H00 ' &H97
Data &H00 , &H9C , &HA1 , &H60 , &H3D , &H00 ' &H98
Data &H00 , &H3D , &H42 , &H42 , &H3D , &H00 ' &H99
Data &H00 , &H3C , &H41 , &H40 , &H3D , &H00 ' &H9A
Data &H80 , &H70 , &H68 , &H58 , &H38 , &H04 ' &H9B
Data &H00 , &H48 , &H3E , &H49 , &H49 , &H62 ' &H9C
Data &H00 , &H7E , &H61 , &H5D , &H43 , &H3F ' &H9D
Data &H00 , &H22 , &H14 , &H08 , &H14 , &H22 ' &H9E
Data &H00 , &H40 , &H88 , &H7E , &H09 , &H02 ' &H9F
Data &H00 , &H20 , &H54 , &H55 , &H55 , &H78 ' &HA0
Data &H00 , &H00 , &H00 , &H7D , &H41 , &H00 ' &HA1
Data &H00 , &H38 , &H44 , &H45 , &H39 , &H00 ' &HA2
Data &H00 , &H3C , &H40 , &H21 , &H7D , &H00 ' &HA3
Data &H00 , &H7A , &H09 , &H0A , &H71 , &H00 ' &HA4
Data &H00 , &H7A , &H11 , &H22 , &H79 , &H00 ' &HA5
Data &H00 , &H08 , &H55 , &H55 , &H55 , &H5E ' &HA6
Data &H00 , &H4E , &H51 , &H51 , &H4E , &H00 ' &HA7
Data &H00 , &H30 , &H48 , &H4D , &H40 , &H20 ' &HA8
Data &H3E , &H41 , &H5D , &H4B , &H55 , &H3E ' &HA9
Data &H04 , &H04 , &H04 , &H04 , &H04 , &H1C ' &HAA
Data &H00 , &H17 , &H08 , &H4C , &H6A , &H50 ' &HAB
Data &H00 , &H17 , &H08 , &H34 , &H2A , &H78 ' &HAC
Data &H00 , &H00 , &H30 , &H7D , &H30 , &H00 ' &HAD
Data &H00 , &H08 , &H14 , &H00 , &H08 , &H14 ' &HAE
Data &H00 , &H14 , &H08 , &H00 , &H14 , &H08 ' &HAF
Data &H44 , &H11 , &H44 , &H11 , &H44 , &H11 ' &HB0
Data &HAA , &H55 , &HAA , &H55 , &HAA , &H55 ' &HB1
Data &HBB , &HEE , &HBB , &HEE , &HBB , &HEE ' &HB2
Data &H00 , &H00 , &H00 , &HFF , &H00 , &H00 ' &HB3
Data &H08 , &H08 , &H08 , &HFF , &H00 , &H00 ' &HB4
Data &H00 , &H70 , &H28 , &H25 , &H29 , &H70 ' &HB5
Data &H00 , &H70 , &H29 , &H25 , &H29 , &H70 ' &HB6
Data &H00 , &H70 , &H29 , &H25 , &H28 , &H70 ' &HB7
Data &H3E , &H41 , &H5D , &H55 , &H41 , &H3E ' &HB8
Data &H0A , &HFB , &H00 , &HFF , &H00 , &H00 ' &HB9
Data &H00 , &HFF , &H00 , &HFF , &H00 , &H00 ' &HBA
Data &H0A , &HFA , &H02 , &HFE , &H00 , &H00 ' &HBB
Data &H0A , &H0B , &H08 , &H0F , &H00 , &H00 ' &HBC
Data &H00 , &H18 , &H24 , &H66 , &H24 , &H00 ' &HBD
Data &H00 , &H29 , &H2A , &H7C , &H2A , &H29 ' &HBE
Data &H08 , &H08 , &H08 , &HF8 , &H00 , &H00 ' &HBF
Data &H00 , &H00 , &H00 , &H0F , &H08 , &H08 ' &HC0
Data &H08 , &H08 , &H08 , &H0F , &H08 , &H08 ' &HC1
Data &H08 , &H08 , &H08 , &HF8 , &H08 , &H08 ' &HC2
Data &H00 , &H00 , &H00 , &HFF , &H08 , &H08 ' &HC3
Data &H08 , &H08 , &H08 , &H08 , &H08 , &H08 ' &HC4
Data &H08 , &H08 , &H08 , &HFF , &H08 , &H08 ' &HC5
Data &H00 , &H20 , &H56 , &H55 , &H56 , &H79 ' &HC6
Data &H00 , &H70 , &H2A , &H25 , &H2A , &H71 ' &HC7
Data &H00 , &H0F , &H08 , &H0B , &H0A , &H0A ' &HC8
Data &H00 , &HFE , &H02 , &HFA , &H0A , &H0A ' &HC9
Data &H0A , &H0B , &H08 , &H0B , &H0A , &H0A ' &HCA
Data &H0A , &HFA , &H02 , &HFA , &H0A , &H0A ' &HCB
Data &H00 , &HFF , &H00 , &HFB , &H0A , &H0A ' &HCC
Data &H0A , &H0A , &H0A , &H0A , &H0A , &H0A ' &HCD
Data &H0A , &HFB , &H00 , &HFB , &H0A , &H0A ' &HCE
Data &H00 , &H5D , &H22 , &H22 , &H22 , &H5D ' &HCF
Data &H00 , &H22 , &H55 , &H59 , &H30 , &H00 ' &HD0
Data &H00 , &H08 , &H7F , &H49 , &H41 , &H3E ' &HD1
Data &H00 , &H7C , &H55 , &H55 , &H55 , &H44 ' &HD2
Data &H00 , &H7C , &H55 , &H54 , &H55 , &H44 ' &HD3
Data &H00 , &H7C , &H55 , &H55 , &H54 , &H44 ' &HD4
Data &H00 , &H00 , &H00 , &H07 , &H00 , &H00 ' &HD5
Data &H00 , &H00 , &H44 , &H7D , &H45 , &H00 ' &HD6
Data &H00 , &H00 , &H45 , &H7D , &H45 , &H00 ' &HD7
Data &H00 , &H00 , &H45 , &H7C , &H45 , &H00 ' &HD8
Data &H08 , &H08 , &H08 , &H0F , &H00 , &H00 ' &HD9
Data &H00 , &H00 , &H00 , &HF8 , &H08 , &H08 ' &HDA
Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF ' &HDB
Data &HF0 , &HF0 , &HF0 , &HF0 , &HF0 , &HF0 ' &HDC
Data &H00 , &H00 , &H00 , &H77 , &H00 , &H00 ' &HDD
Data &H00 , &H00 , &H45 , &H7D , &H44 , &H00 ' &HDE
Data &H0F , &H0F , &H0F , &H0F , &H0F , &H0F ' &HDF
Data &H00 , &H3C , &H42 , &H43 , &H3D , &H00 ' &HE0
Data &H00 , &HFE , &H4A , &H4A , &H34 , &H00 ' &HE1
Data &H00 , &H3C , &H43 , &H43 , &H3D , &H00 ' &HE2
Data &H00 , &H3D , &H43 , &H42 , &H3C , &H00 ' &HE3
Data &H00 , &H32 , &H49 , &H4A , &H31 , &H00 ' &HE4
Data &H00 , &H3A , &H45 , &H46 , &H39 , &H00 ' &HE5
Data &H00 , &HFC , &H20 , &H20 , &H1C , &H00 ' &HE6
Data &H00 , &HFE , &HAA , &H28 , &H10 , &H00 ' &HE7
Data &H00 , &HFF , &HA5 , &H24 , &H18 , &H00 ' &HE8
Data &H00 , &H3C , &H40 , &H41 , &H3D , &H00 ' &HE9
Data &H00 , &H3C , &H41 , &H41 , &H3D , &H00 ' &HEA
Data &H00 , &H3D , &H41 , &H40 , &H3C , &H00 ' &HEB
Data &H00 , &H9C , &HA0 , &H61 , &H3D , &H00 ' &HEC
Data &H00 , &H04 , &H08 , &H71 , &H09 , &H04 ' &HED
Data &H00 , &H00 , &H02 , &H02 , &H02 , &H00 ' &HEE
Data &H00 , &H00 , &H07 , &H03 , &H00 , &H00 ' &HEF
Data &H00 , &H00 , &H08 , &H08 , &H08 , &H00 ' &HF0
Data &H00 , &H00 , &H24 , &H2E , &H24 , &H00 ' &HF1
Data &H00 , &H24 , &H24 , &H24 , &H24 , &H24 ' &HF2
Data &H05 , &H17 , &H0A , &H34 , &H2A , &H78 ' &HF3
Data &H00 , &H06 , &H09 , &H7F , &H01 , &H7F ' &HF4
Data &H00 , &H22 , &H4D , &H55 , &H59 , &H22 ' &HF5
Data &H00 , &H08 , &H08 , &H2A , &H08 , &H08 ' &HF6
Data &H00 , &H00 , &H08 , &H18 , &H18 , &H00 ' &HF7
Data &H00 , &H06 , &H09 , &H09 , &H06 , &H00 ' &HF8
Data &H00 , &H00 , &H08 , &H00 , &H08 , &H00 ' &HF9
Data &H00 , &H00 , &H08 , &H00 , &H00 , &H00 ' &HFA
Data &H00 , &H02 , &H0F , &H00 , &H00 , &H00 ' &HFB
Data &H00 , &H09 , &H0F , &H05 , &H00 , &H00 ' &HFC
Data &H00 , &H09 , &H0D , &H0A , &H00 , &H00 ' &HFD
Data &H00 , &H3C , &H3C , &H3C , &H3C , &H00 ' &HFE
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 ' &HFF

Display All

port · Apr 19th 2025, 5:37pm

schönes Projekt.
Über diese Hinweise mit dem Timing bin ich auch schon mal gestolpert.

Hatte länger nicht ins Forum geschaut und für Bascom muss ich schon fast neu anfangen

Klar habe ich versucht,
diesen Code-Teil für die Ausgabe an die LED-Streifen in Unterfunktionen zu packen.
Fehler im Timing traten oft auf / aber immer nur bei der ersten LED in der Kette.

Vorerst habe ich physisch eine (im Bild unsichtbare) "Opfer-LED" an den Anfang gesetzt.
So komme ich erst mal weiter und der Fehler ist nicht im sichtbaren Bereich.
Meine Datenbank hat somit immer 82 Einträge für ein Bild (nicht 9x9=81),
bis ich einen anderen Weg gefunden habe.

2 Bits für eine Farbe waren nach einigen Experimenten/in meinem Fall mehr als genug.
Größere Werte brachten viel zu viel Helligkeit für die LEDs.
Die übrigen 2 Bits kann man ja evtl später beim Ausbau des Programms gebrauchen.

Der code mit den dummy daten funktionierte auch ganz gut - die erste LED (Opfer-LED) mal ausgenommen.

Bild2.jpg

Source Code

$regfile = "m128def.dat"
$Crystal = 16000000
$framesize = 32
$swstack = 32
$hwstack = 64
Const Anzahl_neopixel = 82 'Anzahl der LEDs im Array (anpassen)
Dim N As Byte
Dim A As Byte
Dim G(anzahl_neopixel) As Byte 'Grün-Anteil
Dim R(anzahl_neopixel) As Byte 'Rot-Anteil
Dim B(anzahl_neopixel) As Byte 'Blau-Anteil
Dim K As Byte
Dim bild_nummer As Byte
Dim start_daten_adresse as Word
Dim punkt_daten_adresse as Word
Dim end_daten_adresse as Word
Declare Sub daten_vorlegen (byval punkt_daten_adresse As Word , byval A As Byte)
Declare Sub show
Dim Wert As Byte
Dim G_wert As Byte
Dim R_wert As Byte
Dim B_wert As Byte
Ddrb.2 = 1 ' PortB.2 als Ausgang zur Steuerung von DI
DDRA.0 = 1 'LED
Reset Portb.2
wait 1
'***
Do
for bild_nummer = 0 to 7
A = 1
start_daten_adresse = bild_nummer * Anzahl_neopixel
end_daten_adresse = start_daten_adresse + Anzahl_neopixel
for punkt_daten_adresse = start_daten_adresse to end_daten_adresse
call daten_vorlegen (punkt_daten_adresse,A)
incr A
next punkt_daten_adresse
call show
waitms 500
if bild_nummer > 5 then waitms 350
next bild_nummer
loop
'***
sub daten_vorlegen (punkt_daten_adresse,A)
Wert = LOOKUP (punkt_daten_adresse , pixels)
G_Wert = 0
R_Wert = 0
B_Wert = 0
If Wert.0 = 1 then G_Wert = 1
If Wert.1 = 1 then
G_Wert = G_Wert + 2
end if
If Wert.2 = 1 then
R_Wert = 1
end if
If Wert.3 = 1 then
R_Wert = R_Wert + 2
end if
If Wert.4 = 1 then
B_Wert = 1
end if
If Wert.5 = 1 then
B_Wert = B_Wert + 2
end if
G(A) = G_Wert
R(A) = R_Wert
B(A) = B_Wert
end sub
'***
sub show
For N = 1 To Anzahl_neopixel
If G(n).7 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If G(n).6 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If G(n).5 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If G(n).4 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If G(n).3 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If G(n).2 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If G(n).1 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If G(n).0 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If R(n).7 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If R(n).6 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If R(n).5 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If R(n).4 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If R(n).3 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If R(n).2 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If R(n).1 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If R(n).0 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If B(n).7 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If B(n).6 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If B(n).5 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If B(n).4 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If B(n).3 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If B(n).2 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If B(n).1 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
If B(n).0 = 0 Then : Set Portb.2 : Nop : Nop : Nop : Reset Portb.2
Else : Set Portb.2 : Nop : Nop : Nop : Nop : Nop : Nop : Reset Portb.2 : End If
Next n
reset portB.2 'T_RST = Lo = RESET = 10000 ns
waitus 50
end sub
End
'***

Display All

port
-------------

port · Apr 19th 2025, 5:43pm

Daten im angehängten Text

Auszug:
----
pixels:

Data &B00_00_00_00
Data &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 'Bild 0
Data &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_01 , &B00_00_00_01 , &B00_00_00_01 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00
Data &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_01 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_01 , &B00_00_00_00 , &B00_00_00_00
Data &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_01 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_01 , &B00_00_00_00 , &B00_00_00_00
Data &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_01 , &B00_00_00_01 , &B00_00_00_01 , &B00_00_00_01 , &B00_00_00_01 , &B00_00_00_00 , &B00_00_00_00
Data &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_01 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_01 , &B00_00_00_00 , &B00_00_00_00
Data &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_01 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_01 , &B00_00_00_00 , &B00_00_00_00
Data &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_01 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_01 , &B00_00_00_00 , &B00_00_00_00
Data &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00

Data &B00_00_00_00
Data &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 'Bild 1
Data &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_01 , &B00_00_00_01 , &B00_00_00_01 , &B00_00_00_01 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00
Data &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_01 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_01 , &B00_00_00_00 , &B00_00_00_00
Data &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_01 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_01 , &B00_00_00_00 , &B00_00_00_00
Data &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_01 , &B00_00_00_01 , &B00_00_00_01 , &B00_00_00_01 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00
Data &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_01 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_01 , &B00_00_00_00 , &B00_00_00_00
Data &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_01 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_01 , &B00_00_00_00 , &B00_00_00_00
Data &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_01 , &B00_00_00_01 , &B00_00_00_01 , &B00_00_00_01 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00
Data &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00 , &B00_00_00_00

....

------

hat noch gefehlt a_45_132ca9f5

---
port

port · Apr 19th 2025, 5:47pm

Wie es der Zufall will - hatte ich für den 3D-Drucker einige STL-Dateien gebastelt.
Es sind STL-Dateien für den Druck eines Gehäuses für einen Art LED-Monitor
(WS2812b-LED-Streifen und einem Atmega128-Board vielleicht passt es jemanden gerade).
Etwas Zubehör ist zum Teil optional oder kann man sich besorgen.
Ich hänge es mal an (Gebrauch nur für nicht kommerzielle Zwecke).

Bild3.jpg

ws2812b.zip

port