not black You're faster then my simulations
these should be bedder
Alles anzeigen
these should be bedder
Quellcode
- Display_refresh:
- Load Timer2 , Timer2reload
- If Page_counter < 4 Then
- Incr Page_counter
- Else
- Page_counter = 0
- End If
- For R_0 = 1 To Dy_num_vertik
- For C_0 = Dy_num_horiz To 1 Step -1
- Atemp = C_0 + R_0
- Atemp = Atemp - 2
- 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 C_0
- Next R_0
- Pwm1b = 0
- Waitus 100
- 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