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

port · Apr 22nd 2025, 7:20am

Das Beispiel von oben etwas aufgeräumter und auf das Wesentliche reduziert...
Nach wenigen Änderung sollte man schauen, ob die Anzeige noch funktioniert.
Witzigerweise kann es davon abhängen,
ob z.B. die ansich unbenutzte Variable "k" in der Quelle mitführt oder nicht.

Ich denke, ich schaue mir bei Gelegenheit die Geschichte
mit der Rainbow.lib mal an.

port

Source Code

$regfile = "m128def.dat"
$Crystal = 16000000
$framesize = 16
$swstack = 16
$hwstack = 32
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 ()
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
Reset Portb.2
wait 1
Do
for bild_nummer = 0 to 5
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
incr A
next punkt_daten_adresse
call show
waitms 300
next bild_nummer
loop
sub daten_vorlegen
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
If Wert.2 = 1 then R_Wert = 1
If Wert.3 = 1 then R_Wert = R_Wert + 2
If Wert.4 = 1 then B_Wert = 1
If Wert.5 = 1 then B_Wert = B_Wert + 2
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 100
end sub
End
pixels:
Data &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 'Bild 0
Data &H00 , &H00 , &H00 , &H01 , &H01 , &H01 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H01 , &H00 , &H00 , &H00 , &H01 , &H00 , &H00
Data &H00 , &H00 , &H01 , &H00 , &H00 , &H00 , &H01 , &H00 , &H00
Data &H00 , &H00 , &H01 , &H01 , &H01 , &H01 , &H01 , &H00 , &H00
Data &H00 , &H00 , &H01 , &H00 , &H00 , &H00 , &H01 , &H00 , &H00
Data &H00 , &H00 , &H01 , &H00 , &H00 , &H00 , &H01 , &H00 , &H00
Data &H00 , &H00 , &H01 , &H00 , &H00 , &H00 , &H01 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 'Bild 1
Data &H00 , &H00 , &H01 , &H01 , &H01 , &H01 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H01 , &H00 , &H00 , &H00 , &H01 , &H00 , &H00
Data &H00 , &H00 , &H01 , &H00 , &H00 , &H00 , &H01 , &H00 , &H00
Data &H00 , &H00 , &H01 , &H01 , &H01 , &H01 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H01 , &H00 , &H00 , &H00 , &H01 , &H00 , &H00
Data &H00 , &H00 , &H01 , &H00 , &H00 , &H00 , &H01 , &H00 , &H00
Data &H00 , &H00 , &H01 , &H01 , &H01 , &H01 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 'Bild 2
Data &H00 , &H00 , &H00 , &H01 , &H01 , &H01 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H01 , &H00 , &H00 , &H00 , &H01 , &H00 , &H00
Data &H00 , &H00 , &H01 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H01 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H01 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H01 , &H00 , &H00 , &H00 , &H01 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H01 , &H01 , &H01 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00
Data &H01 , &H01 , &H01 , &H01 , &H01 , &H01 , &H01 , &H01 , &H01 'Bild 3
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H01 , &H01 , &H01 , &H01 , &H01 , &H01 , &H01 , &H01 , &H01
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H01 , &H01 , &H01 , &H01 , &H01 , &H01 , &H01 , &H01 , &H01
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H01 , &H01 , &H01 , &H01 , &H01 , &H01 , &H01 , &H01 , &H01
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H01 , &H01 , &H01 , &H01 , &H01 , &H01 , &H01 , &H01 , &H01
Data &H00
Data &H15 , &H04 , &H10 , &H01 , &H14 , &H10 , &H04 , &H01 , &H11 'Bild 4
Data &H15 , &H04 , &H10 , &H01 , &H14 , &H10 , &H04 , &H01 , &H11
Data &H15 , &H04 , &H10 , &H01 , &H14 , &H10 , &H04 , &H01 , &H11
Data &H15 , &H04 , &H10 , &H01 , &H14 , &H10 , &H04 , &H01 , &H11
Data &H15 , &H04 , &H10 , &H01 , &H14 , &H10 , &H04 , &H01 , &H11
Data &H15 , &H04 , &H10 , &H01 , &H14 , &H10 , &H04 , &H01 , &H11
Data &H15 , &H04 , &H10 , &H01 , &H14 , &H10 , &H04 , &H01 , &H11
Data &H15 , &H04 , &H10 , &H01 , &H14 , &H10 , &H04 , &H01 , &H11
Data &H15 , &H04 , &H10 , &H01 , &H14 , &H10 , &H04 , &H01 , &H11
Data &H00
Data &H05 , &H05 , &H05 , &H05 , &H05 , &H05 , &H05 , &H05 , &H05 'Bild 5
Data &H05 , &H05 , &H05 , &H05 , &H05 , &H05 , &H05 , &H05 , &H05
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H15 , &H15 , &H15 , &H00 , &H10 , &H10 , &H10 , &H00
Data &H00 , &H15 , &H15 , &H15 , &H00 , &H10 , &H10 , &H10 , &H00
Data &H00 , &H15 , &H15 , &H15 , &H00 , &H10 , &H10 , &H10 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H10 , &H10 , &H10 , &H04 , &H04 , &H04 , &H01 , &H01 , &H01

Display All

port · May 18th 2025, 10:58pm

Vielleicht wäre es für mich ein schönes "Hello World project" ...
mal ein ganz klein wenig Assembler selber zu probieren.
Damit ich auch ein erreichbares Ziel für mich habe,
soll ein separater AVR die am PortC angelegten Bytes (ein Byte dann pro LED)
in einem guten Timing an die WS2812b- Kette weitergeben.
Ich denke, dass man das mal irgendwie hinbekommen kann.

Source Code

' R16, R17, R18, R19
'-----------------------------
$Regfile="m328pdef.dat"
$Crystal=10000000
$hwstack=10
$swstack=10
$framesize=10
'-----------------------------
$ASM
init:
SBI DDRB,2 ' B2 als Ausgang fuer Bitstream WS2812b
CBI DDRB,0 ' B0 als Eingang (neues Byte liegt an)
SBI DDRB,1 ' B1 als Ausgang
SBI PORTB,1 ' Signal an anderen AVR -> Byte bitte an PORTC legen
'ges. PORC als Input -> die unteren 6 Pins nur verwertet
loop:
SBIS PIND,0 ' ueberspringe das naechste /
' so lange zu loop bis PINB.0 = 1 / Start Uebertragung
rjmp loop
CBI PORTB,1 ' erstmal nicht bereit fuer naechstes Byte (2 Takte)
in R16,PINC ' Pins an PortC einlesen in Register 16 (1 Takt)
'------------------------------------------------------
SBI PORTB, 2 ' schon mal ein "High" ausgeben in Richtung WS2812b fuer
' das 8.Bit vom ersten Farbbyte -> fuer ab jetzt vier Takte (400ns)
BST R16, 0 ' das Bit 0 als T- Flag (1. Takt)
BLD R17, 0 ' das T-Flag als Bit 0 in R17 (2. Takt)
CBI PORTB, 2 ' gleich wieder "low" in Richtung WS2812b -> (3.und 4.Takt)
' -> die oberen Bits pro Farbe sollen ohnehin "0" bleiben (viel zu hell)
' -> fuer 8 Takte Zeit (800ns)
BST R16, 1 ' das Bit 1 als T- Flag (1.Takt)
BLD R17, 1 ' das T-Flag als Bit 1 in R17 (2.Takt)
BST R16, 2 ' das Bit 2 als T- Flag (3.Takt)
BLD R18, 0 ' das T-Flag als Bit 0 in R18 (4.Takt)
BST R16, 3 ' das Bit 3 als T- Flag (5.Takt)
BLD R18, 1 ' das T-Flag als Bit 1 in R18 (6.Takt)
'-----------------------------------------------------
SBI PORTB, 2 ' wieder ein "High" ausgeben in Richtung WS2812b fuer das
' 7.Bit vom ersten Farbbyte -> fuer wieder vier Takte (400ns)
BST R16, 4 ' das Bit 4 als T- Flag (1. Takt)
BLD R19, 0 ' das T-Flag als Bit 0 in R19 (2. Takt)
CBI PORTB, 2 ' gleich wieder "low" in Richtung WS2812b -> (3.und 4.Takt)
' -> die oberen Bits pro Farbe sollen ohnehin "0" bleiben (viel zu hell)
' -> fuer 8 Takte Zeit (800ns)
BST R16, 5 ' das Bit 5 als T- Flag (1. Takt)
BLD R19, 1 ' das T-Flag als Bit 1 in R19 (2. Takt)
SBI PORTB,1 ' Signal an ersten/anderen AVR -> neues Byte koennte
' ausgesucht/angelegt werden (3. und 4.Takt)
'......
'......
'......
'-------------------------------------------------------
rjmp loop 'alles wieder von Loop an
$End ASM
end

Display All

Aller erste Schritte haben gezeigt, dass schon mit der Ausgabe der ersten (2 von 24) Bits
ein paar wichtige Schritte erledigt werden konnten (für meinen Fall)...
Die relevanten Teile des Eingangs-Bytes wurden auf die Register R17-R19 aufgeteilt
und ein Signal ging an den ersten AVR, dass das nächste Byte schon mal vorbereitet und
angelegt werden könnte.

Grüße
Port

port · May 19th 2025, 2:23pm

Das Strickmuster noch für die reellen Bits (gewonnen aus R17,R18 und R19) exemplarisch hier für Bit1 und Bit0 eines Bytes. a_217_27b18bee

Source Code

'-----
'------------------------
SBI PORTB, 2 ' high für das Bit1 des ersten Eingangs-Bytes (2 Takte)
NOP ' níx (1. Takt nach "high")
sbrS R17,1 ' ueberspringe wenn Bit1 von R17 = 1 (2. Takt)
CBI PORTB, 2 ' low (3. und 4.Takt) -> wenn Bit1 von R17=0
nop ' 3. oder 5.Takt
SBRC R17,1 ' ueberspringe wenn Bit1 von R17 = 0 (4.oder 6.Takt)
CBI PORTB, 2 ' low (5. und 6.Takt) -> wenn Bit1 von R17=1
NOP ' 7. Takt
NOP ' 8. Takt
NOP 9. Takt
NOP 10.Takt
'------------------------
SBI PORTB, 2 ' high für das Bit0 des ersten Eingangs-Bytes (2 Takte)
NOP ' níx (1. Takt nach "high" )
sbrS R17,0 ' ueberspringe wenn Bit0 von R17 = 1 (2. Takt)
CBI PORTB, 2 ' low (3. und 4.Takt) -> wenn Bit0 von R17=0
nop ' 3. oder 5.Takt
SBRC R17,0 ' ueberspringe wenn Bit0 von R17 = 0 (4.oder 6.Takt)
CBI PORTB, 2 ' low (5. und 6.Takt) -> wenn Bit0 von R17=1
NOP ' 7. Takt
NOP ' 8. Takt
NOP 9. Takt
NOP 10.Takt
'------------------------
'-----

Display All

SBIS PIND,0 sollte "SBIS PINB,0" werden (zeile 23 im vorherigen Beitrag)
war für ein 10MHz- Quarz a_38_b45e201d

Grüße
port

port · May 21st 2025, 7:21am

Nicht der schnellste gewinnt.
Ein paar NOPs habe ich noch hineingepackt (siehe Oszi-Bild).
1300ns ges. (400+900 bzw. 900+400) pro Bit.

Bild5.jpg

Die Zählweise für die Takte ist nicht ganz ok (bei "CBI PORTB, 2" und "SBI PORTB, 2"),
da offenbar der Signalwechsel bei diesen 2 Taktanweisungen zwischen den beiden Takten liegt.
Der Code ist nur auszugsweise - ist ja ohnehin zu speziell.
Evtl. muss geprüft werden, ob beim Sprung vom 24.Bit zum ersten Bit die zus. 7 Takte stören

Source Code

' R16, R17, R18, R19
'-----------------------------
$Regfile="m328pdef.dat"
$Crystal=10000000
$hwstack=10
$swstack=10
$framesize=10
'-----------------------------
$ASM
init:
SBI DDRB,2 ' B2 als Ausgang fuer Bitstream WS2812b
CBI DDRB,0 ' B0 als Eingang (neues Byte liegt an)
SBI DDRB,1 ' B1 als Ausgang
SBI PORTB,1 ' Signal an anderen AVR -> Byte bitte an PORTC legen
'ges. PORC als Input -> die unteren 6 Pins nur verwertet
loop:
SBIS PINB,0 ' ueberspringe das naechste /
' so lange zu loop bis PINB.0 = 1 / Start Uebertragung (2 Takte)
rjmp loop
CBI PORTB,1 ' erstmal nicht bereit fuer naechstes Byte (2 Takte)
in R16,PINC ' Pins an PortC einlesen in Register 16 (1 Takt)
'------------------------------------------------------
SBI PORTB, 2 ' schon mal ein "High" ausgeben in Richtung WS2812b fuer
' das 8.Bit vom ersten Farbbyte -> fuer ab jetzt vier Takte (400ns)
BST R16, 0 ' das Bit 0 als T- Flag (1. Takt)
BLD R17, 0 ' das T-Flag als Bit 0 in R17 (2. Takt)
CBI PORTB, 2 ' gleich wieder "low" in Richtung WS2812b -> (3.und 4.Takt)
' -> die oberen Bits pro Farbe sollen ohnehin "0" bleiben (viel zu hell)
' -> fuer 9 Takte Zeit (900ns)
BST R16, 1 ' das Bit 1 als T- Flag (1.Takt)
BLD R17, 1 ' das T-Flag als Bit 1 in R17 (2.Takt)
BST R16, 2 ' das Bit 2 als T- Flag (3.Takt)
BLD R18, 0 ' das T-Flag als Bit 0 in R18 (4.Takt)
BST R16, 3 ' das Bit 3 als T- Flag (5.Takt)
BLD R18, 1 ' das T-Flag als Bit 1 in R18 (6.Takt)
NOP ' 7.Takt
'-----------------------------------------------------
SBI PORTB, 2 ' wieder ein "High" ausgeben in Richtung WS2812b fuer das
' 7.Bit vom ersten Farbbyte -> fuer wieder vier Takte (400ns)
BST R16, 4 ' das Bit 4 als T- Flag (1. Takt)
BLD R19, 0 ' das T-Flag als Bit 0 in R19 (2. Takt)
CBI PORTB, 2 ' gleich wieder "low" in Richtung WS2812b -> (3.und 4.Takt)
' -> die oberen Bits pro Farbe sollen ohnehin "0" bleiben (viel zu hell)
' -> fuer 9 Takte Zeit (900ns)
BST R16, 5 ' das Bit 5 als T- Flag (1. Takt)
BLD R19, 1 ' das T-Flag als Bit 1 in R19 (2. Takt)
SBI PORTB,1 ' Signal an ersten/anderen AVR -> neues Byte koennte
' ausgesucht/angelegt werden (3. und 4.Takt)
NOP ' ...... 5.
NOP ' ...... 6.
NOP ' 7.
'-----------------------------------------------------
'....
'.....
'zum senden einer "null" (evtl fuer die oberen Bits)
SBI PORTB, 2
NOP
NOP
CBI PORTB, 2
NOP
NOP
NOP
NOP
NOP
NOP
NOP
'......................
' zum senden einer "eins" wenn gebraucht
SBI PORTB, 2
NOP
NOP
NOP
NOP
NOP
NOP
NOP
CBI PORTB, 2
NOP
NOP
'___________________________________________________
' ein aus den Registern (R17,R18,R19) gelesenes Bit
' hier das Bit0 aus R18 als Beispiel
SBI PORTB, 2
NOP
sbrS R18,0
CBI PORTB, 2
NOP
nop
NOP
SBRC R18,0
CBI PORTB, 2
NOP
NOP
'___________________________________________________
' ein zweites aus den Registern (R17,R18,R19) gelesenes Bit
' hier das Bit1 aus R19 als Beispiel
SBI PORTB, 2
NOP
sbrS R19,1
CBI PORTB, 2
NOP
nop
NOP
SBRC R19,1
CBI PORTB, 2
NOP
NOP
' beim Uebergang vom 24.Bit zum 1. sind es zus. 7 Low-Takte - stoeren hoffentlich nirgendwo
rjmp loop ' nach Loop
$End ASM
end

Display All

Grüße
port

port · May 22nd 2025, 4:17pm

zu guter Letzt ...

die zusätzlichen Takte (zwischen 24. und 1. Bit) konnte ich noch auf "2" drücken...

Bild4.jpg

.. und ja ...im Nachhinein:
Der Code für den separaten "Controller" wäre so auch ohne die Register (R17-R19) ausgekommen.
Ursprünglich war es wohl der Gedanke, dass weitere (innere) Schleifen abgearbeitet werden sollten.
Aber ich lasse es jetzt mal so.

Der Code ges.

Source Code

' R16, R17, R18, R19, R20
'-----------------------------
$Regfile="m328pdef.dat"
$Crystal=10000000
$hwstack=10
$swstack=10
$framesize=10
'-----------------------------
$ASM
init:
SBI DDRB,2 ' B2 als Ausgang fuer Bitstream WS2812b
CBI DDRB,0 ' B0 als Eingang (neues Byte liegt an)
SBI DDRB,1 ' B1 als Ausgang
SBI PORTB,1 ' Signal an anderen AVR -> Byte bitte an PORTC legen
'ges. PORC als Input -> die unteren 6 Pins nur verwertet
loop:
SBIS PINB,0 ' ueberspringe das naechste oder
' so lange zu loop bis PINB.0 = 1 / Start Uebertragung
rjmp loop
SBI PORTB, 2 ' schon mal ein "High" ausgeben in Richtung WS2812b
CBI PORTB, 1 ' erstmal nicht bereit fuer naechstes Byte (2 Takte) an ersten AVR
CBI PORTB, 2 ' gleich wieder "low" in Richtung WS2812b
in R16,PINC ' Pins an PortC einlesen in Register 16 (1 Takt)
BST R16, 0 ' das Bit 0 als T- Flag (1 Takt)
BLD R17, 0 ' das T-Flag als Bit 0 in R17 (1 Takt)
BST R16, 1 ' das Bit 1 als T- Flag (1 Takt)
BLD R17, 1 ' das T-Flag als Bit 1 in R17 (1 Takt)
BST R16, 2 ' das Bit 2 als T- Flag (1 Takt)
BLD R18, 0 ' das T-Flag als Bit 0 in R18 (1 Takt)
SBI PORTB, 2 ' wieder ein "High" ausgeben in Richtung WS2812b fuer das
' das 7.Bit vom ersten Farbbyte
BST R16, 3 ' das Bit 3 als T- Flag (1 Takt)
BLD R18, 1 ' das T-Flag als Bit 1 in R18 (1 Takt)
CBI PORTB, 2 ' gleich wieder "low" in Richtung WS2812b
BST R16, 4 ' das Bit 4 als T- Flag (1 Takt)
BLD R19, 0 ' das T-Flag als Bit 0 in R19 (1 Takt)
BST R16, 5 ' das Bit 5 als T- Flag (1 Takt)
BLD R19, 1 ' das T-Flag als Bit 1 in R19 (1 Takt)
SBI PORTB, 1 ' Signal an ersten AVR - das naechste Byte koennte bereitgestellt werden
NOP
'NOP
clr R20 'R20 -> clear '(1 Takt)
'----------
Nullen_senden_01:
SBI PORTB, 2
NOP
NOP
CBI PORTB, 2
NOP '
NOP
NOP
'NOP
'NOP
'NOP
'NOP
INC R20 '(1 Takt)
cpi R20, 4 ' vergleiche R20 mit 4 (1 Takt) --> 4 x Senden einer "Null"
brne Nullen_senden_01 ' bleib in der Schleife wenn R20 nicht 4 (1 Takt)
NOP ' ist richtig an der Stelle hier
'--
'Bit1 aus R17 gelesenes Bit
SBI PORTB, 2
NOP
sbrS R17,1
CBI PORTB, 2
NOP
nop
NOP
SBRC R17,1
CBI PORTB, 2
NOP
NOP
'Bit0 aus R17 gelesenes Bit
SBI PORTB, 2
NOP
sbrS R17,0
CBI PORTB, 2
NOP
nop
NOP
SBRC R17,0
CBI PORTB, 2
NOP
'NOP -> um im Takt zu bleiben
'------------- erstes Farbbyte Ende --------------------------------
clr R20 'R20 -> clear '(1 Takt)
'----------
Nullen_senden_02:
SBI PORTB, 2
NOP
NOP
CBI PORTB, 2
NOP
NOP
NOP
'NOP
'NOP
'NOP
'NOP
INC R20 ' (1 Takt)
cpi R20, 6 ' vergleiche R20 mit 6 (1 Takt) -->
' 6 x Senden einer "Null"
brne Nullen_senden_02 ' bleib in der Schleife wenn R20 nicht 6 (1 Takt)
NOP ' ist richtig an der Stelle hier
'--
SBI PORTB, 2
NOP
sbrS R18,1
CBI PORTB, 2
NOP
nop
NOP
SBRC R18,1
CBI PORTB, 2
NOP
NOP
'--
SBI PORTB, 2
NOP
sbrS R18,0
CBI PORTB, 2
NOP
nop
NOP
SBRC R18,0
CBI PORTB, 2
NOP
'NOP -> um im Takt zu bleiben
'--
'------------- zweites Farbbyte Ende --------------------------------
clr R20 'R20 -> clear '(1 Takt)
'----------
Nullen_senden_03:
SBI PORTB, 2
NOP
NOP
CBI PORTB, 2
NOP '
NOP
NOP
'NOP
'NOP
'NOP
'NOP
INC R20 ' (1 Takt)
cpi R20, 6 ' vergleiche R20 mit 6 (1 Takt) -->
' 6 x Senden einer "Null"
brne Nullen_senden_03 ' bleib in der Schleife wenn R20 nicht 6 (1 Takt)
NOP ' ist richtig an der Stelle hier
'--
' fuer das letzte von 24 Bits
' zwei NOPs weniger
SBI PORTB, 2
NOP
sbrS R19,1
CBI PORTB, 2
NOP
nop
NOP
SBRC R19,1
CBI PORTB, 2
NOP
NOP
'--
SBI PORTB, 2
NOP
sbrS R19,0
CBI PORTB, 2
NOP
nop
NOP
SBRC R19,0
CBI PORTB, 2
'NOP damit nur 2 Takte mehr zwischen Bit24 und Bit1
'NOP damit nur 2 Takte mehr zwischen Bit24 und Bit1
'___________________________________________________
rjmp loop ' nach Loop
$End ASM
end

Display All

Ich muss ja dann auch mal wieder
Grüße
port

port · May 28th 2025, 5:59pm

Für den AVR, welcher die Bytes ja ohne Stress dann an den Controller senden soll,
macht es Sinn, dass die Daten dafür schon fix und fertig im Speicher liegen.
(Für jede LED ein Byte im "Format xxGGRRBB")
64 mögliche Farben sind eine klare Einschränkung - für Buchstaben, Symbole wird es aber allemal langen.
Für wenige Zeichen/Symbole haben meine normalen Bordmittel zunächst ausgereicht.

Das 8-Bit-BMP (256 Farben) im angeh. Zip hat für diesen Fall ausgesuchte Farben in seiner Palette.
Gemaltes oder hineinkopiertes nimmt aut. die Palettenfarben von dem BMP an.
Beim speichern im TGA-Format (24Bit) dann werden exakt diese Farbwerte auf das 24Bit-RGB Format gezogen.
Mein (Grafik-) Programm schreibt die Bilddaten von links n. rechts / unten n. oben.
Habe gerade in einem Wiki zum Dateiformat auch andere Möglichkeiten gesehen.

Bild1.jpg

Mit einem Hexeditor (evtl. dafür eine komfortable Ansicht wählen - > z.B. 18 Byte in einer Reihe)
kann man sich das Filetstück auf ein "Excel-Rechenblatt" übertragen.
Mit ein paar gegoogelten Formeln kommt man (selbst mit Umsortierung der Farben RG->GR) zu den Endwerten.
(siehe auch Anhang)

port

hex.zip

port · Jun 4th 2025, 8:37pm

Anbei die fertige "Studie" -> macht Mut, das ganze mal auf größere Fläche zu ziehen

doppeldecker.jpg

- zwei Platinen gleicher Bauart im Doppelpack (siehe Bild)
- beide sind jetzt mit einem 20MHz Quarz bestückt und sind steckbar miteinander verbunden

Was ist 1:1 verbunden ?
- Die Versorgungsspannung
- die Pins PB0-PB3 (wobei hier nur PB0 und PB1 gerade verwendet werden)
- PC0-PC5 (PC6 nicht verbinden!-> Reset)

Die untere Platine - ab jetzt hier "Controller" genannt,
liefert exakte Takte zu einer WS2812b- Kette im Schema (900ns/400ns für eine "1" oder 400ns/900s für eine "0")
zum nahtlosen ansteuern von LEDs in einer Kette > theoretisch unendlich lang
1300ns x 24 = 31,2 µs (mikrosekunden) pro LED
Den Ausgang dafür habe ich jetzt auf PD0 gelegt - dort war ursprünglich die Bestückung einer LED vorgesehen
(der Platz für den Vorwiderstand der LED ist gebrückt)

ws2812b_copro_20MHz_forum_end.bas

- Die obere Platine ist in dem Beispiel der "Sender" und liefert die Bytes
an den Controller im Format xxBBRRGG also 6 Bit pro LED für 64 mögliche Farben
Dabei hat der AVR für den Sender genügend Luft, sich die Bytes zu holen oder zu errechnen
Der Code ist ein Beispiel und mein erster Stresstest ->
20000 "Diawechsel" in ca.14 sec-> und dann mit geringen Tempo ein paar Diawechsel für einen Check,
ob alles noch ok ist und die Kette noch funktioniert

ws2812b_sender_20MHz_forum_lookup.bas

'--------------

- worüber bin ich gestolpert:

Der Einschaltmoment: Die Situation beim Start der AVRs war nicht immer mit dem gleichen Ergebnis
-> ein paar Wartemomente sind dazugekommen beim Start
EMV, EMV, EMV -> aus Hilflosigkeit hier und da ein paar "Angstkondensatoren" hinzugefügt
der Knackpunkt waren aber die hochohmigen Eingänge (PB0-PB1) und die rel. hohe Quarzfrequenz
wahrscheinlich im Zusammenspiel auch mit den Hochfahrverhalten der AVRs.
Zwei angelötete Widerstände in Richtung Masse (6,8K) an PB0 und PB1 haben dem Spuk ein Ende gesetzt
(alles zwischen 2,7k und 50k hätte es bestimmt auch getan)
Einfacher wäre es wohl gewesen, die internen Pull-ups zuzuschalten und auf ein "Low" (statt "High")
zu lauern in der Software a_67_e210de67

port