RGB Matrix 20x40 Unilumin

SAMEGO · Feb 15th 2021, 7:02pm

Hello colleagues!
Previously, you connected matrices from GKGD and Qiangli manufacturers with your help.
Now they have stopped selling matrices. And a new plant appeared - Unilumin.
They say the best in China. But I couldn't make this matrix work.
The board has SM16227 drivers and transistor assemblies. Scan frequency is 1/5.
Perhaps someone has already tried to work with these matrices?
Working test code for similar Qiangli matrices:

Source Code

$regfile = "m328def.dat"
$crystal = 16000000
$hwstack = 64 : $swstack = 64 : $framesize = 80
Const Dy_num_h = 1
Const Dy_num_v = 1
Const Bytes_in_row = 5 * Dy_num_v
Const Row_num = 20 * Dy_num_h
Const Mem_size = Row_num * Bytes_in_row
Const Mem_size_1 = Mem_size - 1
Const Dy_offset = Dy_num_v * 100
Const Channel_offset = 10 * Bytes_in_row
Dim Last_x As Word , Max_y As Word
Last_x = Dy_num_h * 20 : Last_x = Last_x -1
Max_y = Dy_num_v * 40 : Max_y = Max_y -1
'*** Pin for board 7 revision
P_r1 Alias Portc.0 : Config P_r1 = Output
P_g1 Alias Portc.1 : Config P_g1 = Output
P_b1 Alias Portc.2 : Config P_b1 = Output
P_r2 Alias Portc.3 : Config P_r2 = Output
P_g2 Alias Portc.4 : Config P_g2 = Output
P_b2 Alias Portc.5 : Config P_b2 = Output
Dout_port Alias Portc
Const Dout_pin_r1 = Pc0
Const Dout_pin_g1 = Pc1
Const Dout_pin_b1 = Pc2
Const Dout_pin_r2 = Pc3
Const Dout_pin_g2 = Pc4
Const Dout_pin_b2 = Pc5
P_a Alias Portd.3 : Config P_a = Output
P_b Alias Portd.4 : Config P_b = Output
P_c Alias Portd.5 : Config P_c = Output
P_d Alias Portd.6 : Config P_d = Output
P_ckl Alias Portb.5 : Config P_ckl = Output : Shift_clock_port Alias Portb : Const Shift_clock_pin = Pb5
P_lat Alias Portb.3 : Config P_lat = Output
P_oe Alias Portb.2 : Config P_oe = Output
'***
Config Base = 0
Const Timer0reload = 150
Config Timer0 = Timer , Prescale = 256
Load Timer0 , Timer0reload
On Ovf0 Display_refresh
Enable Ovf0
Start Timer0
'PWM ************************************************** *************************
Config Timer1 = Pwm , Pwm = 8 , Compare_b_pwm = Clear_down , Prescale = 1
'************************************************* ******************************
Declare Sub Shift6out_4h(byreg R18 As Byte , Byreg R19 As Byte , Byreg R20 As Byte , Byreg R21 As Byte , Byreg R22 As Byte , Byreg R23 As Byte )
Declare Sub Shift6out_4l(byreg R18 As Byte , Byreg R19 As Byte , Byreg R20 As Byte , Byreg R21 As Byte , Byreg R22 As Byte , Byreg R23 As Byte )
Dim Memory_red(mem_size) As Byte , Memory_green(mem_size) As Byte , Memory_blue(mem_size) As Byte
Dim Brightness As Byte , N_1 As Word
Dim Red As Byte , Green As Byte , Blue As Byte , Yellow As Byte , Magenta As Byte , Cyan As Byte , White As Byte
Red = 1 : Green = 2 : Yellow = 3 : Blue = 4 : Magenta = 5 : Cyan = 6 : White = 7
Dim Page As Byte , Mem_offset_1 As Word , Mem_offset_3 As Word
Dim R_0 As Byte , B_1 As Byte
Dim St_byte_1 As Word , St_byte_2 As Word , St_byte_3 As Word , St_byte_4 As Word
Dim Trigger As Bit
Dim One_bit As Byte
Page = 0
One_bit = 1
Enable Interrupts
Brightness = 250
Gosub Clear_memory
'Memory_red(0) = 255
Do
' (
Gosub Cl_green
Wait 1
Gosub Clear_memory
Gosub Cl_red
Wait 1
Gosub Clear_memory
Gosub Cl_blue
Wait 1
Gosub Clear_memory
' )
Loop
End
Cl_red:
For N_1 = 0 To Mem_size_1
Memory_red(n_1) = 255
Next N_1
Return
Cl_blue:
For N_1 = 0 To Mem_size_1
Memory_blue(n_1) = 255
Next N_1
Return
Cl_green:
For N_1 = 0 To Mem_size_1
Memory_green(n_1) = 255
Next N_1
Return
Clear_memory:
For N_1 = 0 To Mem_size_1
Memory_red(n_1) = 0
Memory_green(n_1) = 0
Memory_blue(n_1) = 0
Next N_1
Return
Load_test:
For N_1 = 0 To Mem_size_1
Memory_red(n_1) = Lookup(n_1 , Rr1)
Next N_1
Return
Display_refresh:
Load Timer0 , Timer0reload
$asm
Lds r17, {page}
Inc r17
CPI r17,5
brlo pageok
clr r17
Pageok:
sts {page},r17
$end Asm
Mem_offset_1 = Page * Bytes_in_row
Mem_offset_3 = 5 + Page
Mem_offset_3 = Mem_offset_3 * Bytes_in_row
For R_0 = 1 To Dy_num_h
St_byte_1 = Mem_offset_3 : St_byte_2 = St_byte_1 + Channel_offset
St_byte_3 = Mem_offset_1 : St_byte_4 = St_byte_3 + Channel_offset
For B_1 = 1 To Bytes_in_row
Shift6out_4h Memory_red(st_byte_1) , Memory_green(st_byte_1) , Memory_blue(st_byte_1) , Memory_red(st_byte_2) , Memory_green(st_byte_2) , Memory_blue(st_byte_2)
Shift6out_4h Memory_red(st_byte_3) , Memory_green(st_byte_3) , Memory_blue(st_byte_3) , Memory_red(st_byte_4) , Memory_green(st_byte_4) , Memory_blue(st_byte_4)
Shift6out_4l Memory_red(st_byte_1) , Memory_green(st_byte_1) , Memory_blue(st_byte_1) , Memory_red(st_byte_2) , Memory_green(st_byte_2) , Memory_blue(st_byte_2)
Shift6out_4l Memory_red(st_byte_3) , Memory_green(st_byte_3) , Memory_blue(st_byte_3) , Memory_red(st_byte_4) , Memory_green(st_byte_4) , Memory_blue(st_byte_4)
St_byte_1 = St_byte_1 + 1
St_byte_2 = St_byte_2 + 1
St_byte_3 = St_byte_3 + 1
St_byte_4 = St_byte_4 + 1
Next B_1
Mem_offset_1 = Mem_offset_1 + Dy_offset
Mem_offset_3 = Mem_offset_3 + Dy_offset
Next R_0
Pwm1b = 0
Waitus 60
P_lat = 1 : P_lat = 0
P_a = Page.0
P_b = Page.1
P_c = Page.2
Pwm1b = Brightness
Trigger = 1
Return
' R1 G1 B1 R2 G2 B2
Sub Shift6out_4h(byreg R18 As Byte , Byreg R19 As Byte , Byreg R20 As Byte , Byreg R21 As Byte , Byreg R22 As Byte , Byreg R23 As Byte )
'bit7 first to bit4
$asm
LDI r17,4
Loop_shift2out_h:
in R16, dout_port
BST r18,7
BLD r16,Dout_pin_r1
BST r19,7
bld r16,Dout_pin_g1
BST r20,7
bld r16,Dout_pin_b1
BST r21,7
BLD r16,Dout_pin_r2
BST r22,7
bld r16,Dout_pin_g2
BST r23,7
bld r16,Dout_pin_b2
LSl r18
LSl r19
lsl r20
lsl r21
lsl r22
lsl r23
Out Dout_port , R16
SBI shift_clock_Port, shift_clock_Pin
dec r17
CBI shift_clock_Port, shift_clock_Pin
BRnE loop_shift2out_h ; if = 0 exit
$end Asm
End Sub
Sub Shift6out_4l(byreg R18 As Byte , Byreg R19 As Byte , Byreg R20 As Byte , Byreg R21 As Byte , Byreg R22 As Byte , Byreg R23 As Byte )
'bit3 first to bit0
$asm
LDI r17,4
Loop_shift2out_l:
in R16, dout_port
BST r18,3
BLD r16,Dout_pin_r1
BST r19,3
bld r16,Dout_pin_g1
BST r20,3
bld r16,Dout_pin_b1
BST r21,3
BLD r16,Dout_pin_r2
BST r22,3
bld r16,Dout_pin_g2
BST r23,3
bld r16,Dout_pin_b2
LSl r18
LSl r19
lsl r20
lsl r21
lsl r22
lsl r23
Out Dout_port , R16
SBI shift_clock_Port, shift_clock_Pin
dec r17
CBI shift_clock_Port, shift_clock_Pin
BRnE loop_shift2out_l ; if = 0 exit
$end Asm
End Sub
Rr1:
Data 255 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0

Display All

A red color from this code sometimes appears on the new matrix.
Help me deal with the code.

SAMEGO · Feb 15th 2021, 8:11pm

QiangLi modules run on a chip SM16206

SAMEGO · Feb 18th 2021, 4:34pm

Can't anyone tell you?

Here for this chip code display refresh:

Source Code

Display_refresh:
Load Timer0 , Timer0reload
$asm
Lds r17, {Page_counter}
Inc r17
CPI r17,5
brlo pageok
clr r17
Pageok:
sts {Page_counter},r17
$end Asm
For R_0 = 1 To Dy_num_horiz
Atemp = R_0 - 1
Atemp = Atemp * 100
Index_1 = Page_counter * 5
Index_1 = Index_1 + Atemp
Atemp = 0
For D_1 = 1 To 10
Index_2 = Index_1 + 50
If D_1.0 = 1 Then
Shift6out Memory_red(index_1) , Memory_green(index_1) , Memory_blue(index_1) , Memory_red(index_2) , Memory_green(index_2) , Memory_blue(index_2)
Else
Shift6lout Memory_red(index_1) , Memory_green(index_1) , Memory_blue(index_1) , Memory_red(index_2) , Memory_green(index_2) , Memory_blue(index_2)
End If
If Atemp = 0 Then
Index_1 = Index_1 + 25
Incr Atemp
Else
Index_1 = Index_1 - 24
Atemp = 0
End If
Next D_1
Next R_0
Pwm1b = 0
Waitus 40
P_lat = 1 : P_lat = 0
P_a = Page_counter.0
P_b = Page_counter.1
P_c = Page_counter.2
Pwm1b = Brightness
Trigger = 1
Return

Display All

The new chip has a different data input format. I tried everything I could. It doesn't work out in any way.

Pluto25 · Feb 18th 2021, 7:05pm

In your Code /Oe and LE not used? Or only i ditn't see it.
The 16227 should work with Code from 16206. Not korrect, half Dots ?
PS You've a bad timing. This Time my Head is like

(Crazy Days)

SAMEGO · Feb 18th 2021, 7:21pm

Hi!
Oe and LE are used. Part of the data is not displayed. In a chaotic manner. The brightness is not working properly. I realized that I need to add latches in the code and change the brightness. But it doesn't work.

Source Code

$regfile = "m328def.dat"
$crystal = 16000000
$hwstack = 64
$swstack = 64
$framesize = 80
'$sim
Const Dy_num_vertik = 1
Const Dy_num_horiz = 1
Const Bytes_in_row = 5 * Dy_num_horiz
Const Row_num = 20 * Dy_num_vertik
Const Mem_size = Row_num * Bytes_in_row
Const Mem_size_1 = Mem_size - 1
'*** Pin for board 7 revision
P_r1 Alias Portc.0 : Config P_r1 = Output
P_g1 Alias Portc.1 : Config P_g1 = Output
P_b1 Alias Portc.2 : Config P_b1 = Output
P_r2 Alias Portc.3 : Config P_r2 = Output
P_g2 Alias Portc.4 : Config P_g2 = Output
P_b2 Alias Portc.5 : Config P_b2 = Output
Const Dout_pin_r1 = Pc0
Const Dout_pin_g1 = Pc1
Const Dout_pin_b1 = Pc2
Const Dout_pin_r2 = Pc3
Const Dout_pin_g2 = Pc4
Const Dout_pin_b2 = Pc5
P_a Alias Portd.3 : Config P_a = Output
P_b Alias Portd.4 : Config P_b = Output
P_c Alias Portd.5 : Config P_c = Output
P_d Alias Portd.6 : Config P_d = Output
P_ckl Alias Portb.5 : Config P_ckl = Output : Shift_clock_port Alias Portb : Const Shift_clock_pin = Pb5
P_lat Alias Portb.3 : Config P_lat = Output
P_oe Alias Portb.2 : Config P_oe = Output
Dout_port Alias Portc
Config Base = 0
Dim Timer0reload As Word
Timer0reload = 160
Config Timer0 = Timer , Prescale = 256
Load Timer0 , Timer0reload
On Ovf0 Display_refresh
Enable Ovf0
Start Timer0
'PWM ************************************************** *************************
Config Timer1 = Pwm , Pwm = 8 , Compare B Pwm = Clear Down , Prescale = 1
'************************************************* ******************************
Dim Memory_red(mem_size) As Byte , Memory_green(mem_size) As Byte , Memory_blue(mem_size) As Byte 'memory red/green
Dim Page_counter As Byte
Dim D_1 As Word , R_0 As Byte
Dim Index_1 As Word , Index_2 As Word
Dim N_1 As Word
Dim Inverting As Bit
Dim Speed As Word
Dim Trigger As Bit
Dim Red As Byte , Green As Byte , Blue As Byte , Yellow As Byte , Magenta As Byte , Cyan As Byte , White As Byte
Dim Brightness As Byte
Declare Sub Shift6out(byreg R18 As Byte , Byreg R19 As Byte , Byreg R20 As Byte , Byreg R21 As Byte , Byreg R22 As Byte , Byreg R23 As Byte )
Declare Sub Shift6lout(byreg R18 As Byte , Byreg R19 As Byte , Byreg R20 As Byte , Byreg R21 As Byte , Byreg R22 As Byte , Byreg R23 As Byte )
Dim Atemp As Byte , Wtemp As Word 'word for more then 3 panels
Red = 1 : Green = 2 : Yellow = 3 : Blue = 4 : Magenta = 5 : Cyan = 6 : White = 7
'**************************************************
'user settings
Inverting = 0
'**************************************************
P_ckl = 0
P_a = 0
P_b = 0
P_c = 0
Brightness = 250
Enable Interrupts
Pwm1b = Brightness
Gosub Clear_memory
Gosub Load_pix_red
'Wait 1
'gosub Clear_memory
'Text = "0"
'Call Set_text_12_16(0 , 0 , Green)
Do
Gosub Load_pix_test_red
Wait 1
Gosub Clear_memory
Brightness = 150
Gosub Load_pix_test_green
Wait 1
Gosub Clear_memory
Brightness = 250
Gosub Load_pix_test_blue
Wait 1
Gosub Clear_memory
Brightness = 150
Loop
End
Load_pix_test_red:
For N_1 = 0 To Mem_size_1
Memory_red(n_1) = 255
Waitms 10
Next N_1
Return
Load_pix_test_green:
For N_1 = 0 To Mem_size_1
Memory_green(n_1) = 255
Waitms 10
Next N_1
Return
Load_pix_test_blue:
For N_1 = 0 To Mem_size_1
Memory_blue(n_1) = 255
Waitms 10
Next N_1
Return
Clear_memory:
N_1 = 0
D_1 = Memcopy(n_1 , Memory_red(0) , Mem_size , 2)
D_1 = Memcopy(n_1 , Memory_green(0) , Mem_size , 2)
D_1 = Memcopy(n_1 , Memory_blue(0) , Mem_size , 2)
Return
Load_pix_red:
For N_1 = 0 To Mem_size_1
Memory_red(n_1) = Lookup(n_1 , Reds_2)
Next N_1
Return
Display_refresh:
Load Timer0 , Timer0reload
$asm
Lds r17, {Page_counter}
Inc r17
CPI r17,5
brlo pageok
clr r17
Pageok:
sts {Page_counter},r17
$end Asm
For R_0 = 1 To Dy_num_horiz
Atemp = R_0 - 1
Atemp = Atemp * 100
Index_1 = Page_counter * 5
Index_1 = Index_1 + Atemp
Atemp = 0
For D_1 = 1 To 10
Index_2 = Index_1 + 50
If D_1.0 = 1 Then
Shift6out Memory_red(index_1) , Memory_green(index_1) , Memory_blue(index_1) , Memory_red(index_2) , Memory_green(index_2) , Memory_blue(index_2)
Else
Shift6lout Memory_red(index_1) , Memory_green(index_1) , Memory_blue(index_1) , Memory_red(index_2) , Memory_green(index_2) , Memory_blue(index_2)
End If
If Atemp = 0 Then
Index_1 = Index_1 + 25
Incr Atemp
Else
Index_1 = Index_1 - 24
Atemp = 0
End If
Next D_1
Next R_0
Pwm1b = 0
Waitus 40
P_lat = 1 : P_lat = 0
P_a = Page_counter.0
P_b = Page_counter.1
P_c = Page_counter.2
Pwm1b = Brightness
Trigger = 1
Return '#15973/1ms '#15688/0,98ms
' 3/1 14725+110 1/3 14441+ 1/3 14061+
' R1 G1 B1 R2 G2 B2
Sub Shift6out(byreg R18 As Byte , Byreg R19 As Byte , Byreg R20 As Byte , Byreg R21 As Byte , Byreg R22 As Byte , Byreg R23 As Byte )
$asm
LDI r17,8
Loop_shift2out:
in R16, dout_port
BST r18,0
BLD r16,Dout_pin_r1
BST r19,0
bld r16,Dout_pin_g1
BST r20,0
bld r16,Dout_pin_b1
BST r21,0
BLD r16,Dout_pin_r2
BST r22,0
bld r16,Dout_pin_g2
BST r23,0
bld r16,Dout_pin_b2
LSR r18
LSR r19
lsr r20
lsr r21
lsr r22
lsr r23
Out Dout_port , R16
SBI shift_clock_Port, shift_clock_Pin
dec r17
CBI shift_clock_Port, shift_clock_Pin
BRnE loop_shift2out
$end Asm
End Sub
' R1 G1 B1 R2 G2 B2
Sub Shift6lout(byreg R18 As Byte , Byreg R19 As Byte , Byreg R20 As Byte , Byreg R21 As Byte , Byreg R22 As Byte , Byreg R23 As Byte )
$asm
LDI r17,8
Loop_shift2lout:
in R16, dout_port
BST r18,7
BLD r16,Dout_pin_r1
BST r19,7
bld r16,Dout_pin_g1
BST r20,7
bld r16,Dout_pin_b1
BST r21,7
BLD r16,Dout_pin_r2
BST r22,7
bld r16,Dout_pin_g2
BST r23,7
bld r16,Dout_pin_b2
LSl r18
LSl r19
lsl r20
lsl r21
lsl r22
lsl r23
Out Dout_port , R16
SBI shift_clock_Port, shift_clock_Pin
dec r17
CBI shift_clock_Port, shift_clock_Pin
BRnE loop_shift2lout
$end Asm
End Sub
Reds_2:
Data &B10000000 , &B00000000 , &B00000000 , &B00000000 , &B00000001
Data &B10000000 , &B00000000 , &B00000000 , &B00000000 , &B00000001
Data &B10000000 , &B00000000 , &B00000000 , &B00000000 , &B00000001
Data &B10000000 , &B00000000 , &B00000000 , &B00000000 , &B00000001
Data &B10000000 , &B00000000 , &B00000000 , &B00000000 , &B00000001
Data &B10000000 , &B00000000 , &B00000000 , &B00000000 , &B00000001
Data &B10000000 , &B00000000 , &B00000000 , &B00000000 , &B00000001
Data &B10000000 , &B00000000 , &B00000000 , &B00000000 , &B00000001
Data &B10000000 , &B00000000 , &B00000000 , &B00000000 , &B00000001
Data &B10000000 , &B00000000 , &B00000000 , &B00000000 , &B00000001
Data &B10000000 , &B00000000 , &B00000000 , &B00000000 , &B00000001
Data &B10000000 , &B00000000 , &B00000000 , &B00000000 , &B00000001
Data &B10000000 , &B00000000 , &B00000000 , &B00000000 , &B00000001
Data &B10000000 , &B00000000 , &B00000000 , &B00000000 , &B00000001
Data &B10000000 , &B00000000 , &B00000000 , &B00000000 , &B00000001
Data &B10000000 , &B00000000 , &B00000000 , &B00000000 , &B00000001
Data &B10000000 , &B00000000 , &B00000000 , &B00000000 , &B00000001
Data &B10000000 , &B00000000 , &B00000000 , &B00000000 , &B00000001
Data &B10000000 , &B00000000 , &B00000000 , &B00000000 , &B00000001
Data &B10000000 , &B00000000 , &B00000000 , &B00000000 , &B00000001

Display All

SAMEGO · Feb 18th 2021, 7:43pm

Pluto25 wrote:

In your Code /Oe and LE not used? Or only i ditn't see it.
The 16227 should work with Code from 16206. Not korrect, half Dots ?
PS You've a bad timing. This Time my Head is like (Crazy Days)

If you connect a new matrix to the board with this code, the matrix will not work. If you remove the power from the matrix for a few minutes, then after the power is applied, the matrix will work normally, but with very low brightness.

Pluto25 · Feb 19th 2021, 5:39am

Found (Le/Oe). In Datashied i could not find "TW" . Maybe it helps you set LE a little more time: (187)
P_lat = 1 : waitus 1: P_lat = 0
or
P_lat = 1 : nop : nop : P_lat = 0

The OE makes a latch too?
Try (197) Toggle P_oe. (without Config Timer1 (51)

SAMEGO · Feb 19th 2021, 6:11am

I tried it. It doesn't work. There is a special feature in the datasheet of the new chip. With double latch. The first one after the first 16 bits of data. Then after the second 16 bits. The old code does not work properly, as there is not enough data in the chip. I tried two latches, but it still didn't work.

OE as a latch:

Pwm1b = 0
Waitus 50
P_lat = 1 : Nop : Nop : P_lat = 0
P_a = Page.0
P_b = Page.1
P_c = Page.2
Pwm1b = Brightness

Pluto25 · Feb 19th 2021, 6:39am

SAMEGO wrote:

Pwm1b = Brightness

Cant work. Test without Timer1, only toggle. If it works , we need an other Method for Brightness.
The Timer do not work syschrone, so it latches Junk.

SAMEGO · Feb 19th 2021, 12:34pm

Toggle P_oe
all the same, the brightness is the lowest. Almost nothing is visible

Pluto25 · Feb 19th 2021, 4:05pm

SAMEGO wrote:

the brightness is the lowest

How you know? No Led on - so it could be max brightness?
It realy toggeled? The Conig Timer was away? (On Pwm Mode you can't set the pin)
Nearly all your Data is 0 , Try C0,38,1C,07,88 . May be it latches not as we want.

SAMEGO wrote:

after the power is applied, the matrix will work

A floating Pin? Some not conneted? Power Supply-Voltage ok?

SAMEGO · Feb 19th 2021, 4:34pm

No Led on - so it could be max brightness? wrote:

No. LED on = maximum brightness

A floating Pin? Some not conneted? Power Supply-Voltage ok? - Yes! Everything is fully functional! When you turn on the new matrix with the old firmware, the matrix works normally with a brightness of 80-90% less.

Try C0,38,1C,07,88 . May be it latches not as we want.
How do I do this?

Pluto25 · Feb 19th 2021, 5:26pm

SAMEGO wrote:

I couldn't make this matrix work.

SAMEGO wrote:

the matrix works normally

How I understand? The only Problem is the Brightness?

SAMEGO · Feb 19th 2021, 5:33pm

Not only. When programming, I always do a test. I'm flashing the controller. After flashing, the matrix never starts working properly. More precisely, it never works. Only when the power is turned off for 3-5 minutes, the matrix works but with poor brightness.

SAMEGO · Feb 19th 2021, 6:34pm

Test code. When flashing the controller, it is displayed correctly-as in the video. After resetting the power, the light is very dim.

Source Code

$regfile = "m328pdef.dat"
$crystal = 16000000
$hwstack = 64 : $swstack = 64 : $framesize = 80
P_r1 Alias Portc.0 : Config P_r1 = Output
P_g1 Alias Portc.1 : Config P_g1 = Output
P_b1 Alias Portc.2 : Config P_b1 = Output
P_r2 Alias Portc.3 : Config P_r2 = Output
P_g2 Alias Portc.4 : Config P_g2 = Output
P_b2 Alias Portc.5 : Config P_b2 = Output
P_a Alias Portd.3 : Config P_a = Output
P_b Alias Portd.4 : Config P_b = Output
P_c Alias Portd.5 : Config P_c = Output
P_ckl Alias Portb.5 : Config P_ckl = Output
P_lat Alias Portb.3 : Config P_lat = Output
P_oe Alias Portb.2 : Config P_oe = Output
'***
Config Base = 0
Enable Interrupts
Dim Page As Byte
Dim N_1 As Word
Dim N As Byte
P_ckl = 0
P_r2 = 0
P_g1 = 0 : P_g2 = 0
P_b1 = 0 : P_b2 = 0
N = 0
For N_1 = 0 To 19
Shiftout P_g1 , P_ckl , N , 1
Next N_1
P_lat = 1 : P_lat = 0
N = 1
Shiftout P_g1 , P_ckl , N , 1
P_lat = 1 : P_lat = 0
P_oe = 1
P_oe = 0
Do
'1 line
Page = &B0000
Gosub Next_step
Wait 1
'2 line
Page = &B0001
Gosub Next_step
Wait 1
'3 line
Page = &B0010
Gosub Next_step
Wait 1
'4 line
Page = &B0011
Gosub Next_step
Wait 1
'5 line
Page = &B0100
Gosub Next_step
Wait 1
Loop
End
Next_step:
P_a = Page.0
P_b = Page.1
P_c = Page.2
Return

Display All

Test Matrix

Pluto25 · Feb 19th 2021, 9:33pm

The SM need more Wake Up Time? I don't see how - Try (21) Wait 1

There is a logic to set brightnis. The G0-G4. (Datashied 13) How to set them ? A third Byte before LE? A byte with LE High?

SAMEGO · Feb 20th 2021, 7:25am

Pluto25 wrote:

Try (21) Wait 1

Does not work.

Pluto25 wrote:

There is a logic to set brightnis. The G0-G4. (Datashied 13) How to set them ? A third Byte before LE? A byte with LE High?

As I understand the logic of the work.
We send the first data packet (16 bytes).
Snap the data P_late = 1 : P_lat = 0.
Setting the brightness to 0.
Invert outputs A and C. (I'm not really sure here)
We take the next 16 bytes.
Snap the data P_late = 1 : P_lat = 0.
We raise the brightness. Invert outputs A and C
Setting the brightness to 0
Invert output B
We raise the brightness.
Or I'm very wrong. In this chip, the logic of working with two latches is very bad. All other similar chips have only one latch.

SAMEGO · Feb 20th 2021, 12:50pm

Here is the test code. On the left is the matrix that you have always worked with (GKGD). On the right is a new matrix.
The program is set to work on 2 matrices.
Each time a new matrix is flashed, it behaves strangely.

Source Code

$regfile = "m328def.dat"
$crystal = 16000000
$hwstack = 64
$swstack = 64
$framesize = 80
Const Dy_num_h = 2
Const Dy_num_v = 1
Const Bytes_in_row = 5 * Dy_num_h
Const Row_num = 20 * Dy_num_v
Const Row_num1 = Row_num - 1
Const Mem_size = Row_num * Bytes_in_row
Const Mem_size_1 = Mem_size - 1
Const Dy_offset = Dy_num_h * 100
Const Channel_offset = 10 * Bytes_in_row
Const Num_matr = 10 * Dy_num_h
Const Index_add = 25 * Dy_num_h
Const Index_sub = Index_add - 1
'*** Pin for board 7 revision
P_r1 Alias Portc.0 : Config P_r1 = Output
P_g1 Alias Portc.1 : Config P_g1 = Output
P_b1 Alias Portc.2 : Config P_b1 = Output
P_r2 Alias Portc.3 : Config P_r2 = Output
P_g2 Alias Portc.4 : Config P_g2 = Output
P_b2 Alias Portc.5 : Config P_b2 = Output
Const Dout_pin_r1 = Pc0
Const Dout_pin_g1 = Pc1
Const Dout_pin_b1 = Pc2
Const Dout_pin_r2 = Pc3
Const Dout_pin_g2 = Pc4
Const Dout_pin_b2 = Pc5
P_a Alias Portd.3 : Config P_a = Output
P_b Alias Portd.4 : Config P_b = Output
P_c Alias Portd.5 : Config P_c = Output
P_ckl Alias Portb.5 : Config P_ckl = Output : Shift_clock_port Alias Portb : Const Shift_clock_pin = Pb5
P_lat Alias Portb.3 : Config P_lat = Output
P_oe Alias Portb.2 : Config P_oe = Output
Dout_port Alias Portc
Config Base = 0
Const Timer0reload = 160
Config Timer0 = Timer , Prescale = 256
Load Timer0 , Timer0reload
On Ovf0 Display_refresh
Enable Ovf0
Start Timer0
'PWM ************************************************** *************************
Config Timer1 = Pwm , Pwm = 8 , Compare_b_pwm = Clear_down , Prescale = 1
'************************************************* ******************************
Declare Sub Set_text_12_16(byval X As Word , Byval Y As Word , Byval Color As Byte)
Declare Sub Shift6out_4h(byreg R18 As Byte , Byreg R19 As Byte , Byreg R20 As Byte , Byreg R21 As Byte , Byreg R22 As Byte , Byreg R23 As Byte )
Declare Sub Shift6out_4l(byreg R18 As Byte , Byreg R19 As Byte , Byreg R20 As Byte , Byreg R21 As Byte , Byreg R22 As Byte , Byreg R23 As Byte )
Declare Sub Shift_left(byval Y As Word , Byval H As Word)
Declare Sub Scroll_text_12_16(byval Y As Word , Byval Color As Byte)
Dim Memory_red(mem_size) As Byte
Dim Memory_green(mem_size) As Byte
Dim Memory_blue(mem_size) As Byte
Dim Text As String * 10
Dim Trigger As Bit , Index_1 As Word , Index_2 As Word
Dim Brightness As Byte
Dim N_1 As Word , R_0 As Byte , D_1 As Word , Atemp As Byte , Page As Byte , Speed As Byte , N As Word
Dim Tab_start As Word
Dim Red As Byte , Green As Byte , Blue As Byte , Yellow As Byte , Magenta As Byte , Cyan As Byte , White As Byte
Red = 1 : Green = 2 : Yellow = 3 : Blue = 4 : Magenta = 5 : Cyan = 6 : White = 7
Dim Mem_s As Byte
Brightness = 255
Enable Interrupts
Gosub Clear_memory
Speed = 30
Text = "890"
Call Set_text_12_16(0 , 0 , White)
Wait 1
Gosub Clear_memory
Do
Text = "255 " : Call Scroll_text_12_16(0 , White)
Text = "30 " : Call Scroll_text_12_16(0 , Green)
Text = "150 " : Call Scroll_text_12_16(0 , Blue)
Loop
End
Clear_memory:
N_1 = 0
D_1 = Memcopy(n_1 , Memory_red(0) , Mem_size , 2)
D_1 = Memcopy(n_1 , Memory_green(0) , Mem_size , 2)
D_1 = Memcopy(n_1 , Memory_blue(0) , Mem_size , 2)
Brightness = 255
Return
Display_refresh:
Incr Mem_s
Load Timer0 , Timer0reload
$asm
Lds r17, {Page}
Inc r17
CPI r17,5
brlo pageok
clr r17
Pageok:
sts {Page},r17
$end Asm
For R_0 = 1 To Dy_num_v
Atemp = R_0 - 1
Atemp = Atemp * Dy_offset
Index_1 = Page * Bytes_in_row
Index_1 = Index_1 + Atemp
Atemp = 0
For D_1 = 1 To Num_matr
Index_2 = Index_1 + Channel_offset
If D_1.0 = 1 Then
Shift6out_4h Memory_red(index_1) , Memory_green(index_1) , Memory_blue(index_1) , Memory_red(index_2) , Memory_green(index_2) , Memory_blue(index_2)
Else
Shift6out_4l Memory_red(index_1) , Memory_green(index_1) , Memory_blue(index_1) , Memory_red(index_2) , Memory_green(index_2) , Memory_blue(index_2)
End If
If Atemp = 0 Then
Index_1 = Index_1 + Index_add
$asm
! Lds r17, {atemp}
! Inc r17
! STS {atemp}, r17
$end Asm
Else
Index_1 = Index_1 - Index_sub
Atemp = 0
End If
Next D_1
'P_lat = 1 : P_lat = 0
'Pwm1b = 0
Next R_0
Pwm1b = 0
Waitus 40
P_lat = 1 : P_lat = 0
P_a = Page.0
P_b = Page.1
P_c = Page.2
Pwm1b = Brightness
Trigger = 1
Return
Sub Shift6out_4h(byreg R18 As Byte , Byreg R19 As Byte , Byreg R20 As Byte , Byreg R21 As Byte , Byreg R22 As Byte , Byreg R23 As Byte )
$asm
LDI r17,8
Loop_shift2out:
in R16, dout_port
BST r18,0
BLD r16,Dout_pin_r1
BST r19,0
bld r16,Dout_pin_g1
BST r20,0
bld r16,Dout_pin_b1
BST r21,0
BLD r16,Dout_pin_r2
BST r22,0
bld r16,Dout_pin_g2
BST r23,0
bld r16,Dout_pin_b2
LSR r18
LSR r19
lsr r20
lsr r21
lsr r22
lsr r23
Out Dout_port , R16
SBI shift_clock_Port, shift_clock_Pin
dec r17
CBI shift_clock_Port, shift_clock_Pin
BRnE loop_shift2out
$end Asm
End Sub
Sub Shift6out_4l(byreg R18 As Byte , Byreg R19 As Byte , Byreg R20 As Byte , Byreg R21 As Byte , Byreg R22 As Byte , Byreg R23 As Byte )
$asm
LDI r17,8
Loop_shift2lout:
in R16, dout_port
BST r18,7
BLD r16,Dout_pin_r1
BST r19,7
bld r16,Dout_pin_g1
BST r20,7
bld r16,Dout_pin_b1
BST r21,7
BLD r16,Dout_pin_r2
BST r22,7
bld r16,Dout_pin_g2
BST r23,7
bld r16,Dout_pin_b2
LSl r18
LSl r19
lsl r20
lsl r21
lsl r22
lsl r23
Out Dout_port , R16
SBI shift_clock_Port, shift_clock_Pin
dec r17
CBI shift_clock_Port, shift_clock_Pin
BRnE loop_shift2lout
$end Asm
End Sub

Display All

test

Pluto25 · Feb 20th 2021, 8:56pm

SAMEGO wrote:

Or I'm very wrong. In this chip, the logic of working with two latches

I think so. This Chip drives 32 Leds? swiched by OE?
Brigness by Software (g0-4)
Please test in Testcode (#15) at 72
toggle P_oe
and a second test at 72
P_lat = 1
Shiftout P_g1 , P_ckl , N ,1
P_lat = 0
n=n+8
if n>56 then n=0

You know no Chinese Person who could read the Datashied ?

SAMEGO · Feb 21st 2021, 8:15am

It seems to me that the chip only controls 16 LEDs. And the received second data is stored in the memory of the chip for quick output. Or is it not?
Here's what happened:
The Chinese don't want to communicate at all. Even the matrix manufacturing plant.
VIDEO