Hardware components | ||||||
 |
| × | 1 | |||
 |
| × | 1 | |||
 |
| × | 1 | |||
 |
| × | 1 | |||
 |
| × | 1 | |||
 |
| × | 1 | |||
RANGMANG is an RGB controller based on the ATmega128 microcontroller, programmed using BASCOM.
Required files for download
AVR Dude 6.4, Proteus project, BASCOM-AVR code, schematic, and PCB files
Rangmang is a controller for programmable RGB LED strips, supporting WS2811, WS2812, and WS2815 models. The purpose behind creating Rangmang is to provide a standardized and easy‑to‑use interface for controlling LED strips. With a simple serial connection—whether via Bluetooth or a USB‑serial converter—and a defined command format, you can quickly and easily apply custom (not necessarily professional, but fast and convenient) changes to the LED strips.
The system is designed for up to 98 parallel modules, although I have personally tested up to 10 modules in parallel so far.
The software is optimized for working with the Soifgo – Bluetooth & MQTT IoT Controller - Hackster.io Android application, but you can use any other program capable of sending serial commands to configure this module and the remaining modules.
The module operates in two main modes:
- Static Color Mode — D00
- Lighting Effects Mode — D01 to D55
- D99 mixes and plays all lighting effects randomly.
In static color mode, you can color each strip in up to 99 custom segments, with memory storage. In lighting effects mode, you can configure the speed, effect direction, and the number of active pixels involved in the animation.
Please note the microcontroller limitations:
- ATmega128 supports up to 999 pixels
- ATmega328 supports up to 480 pixels
Also, be careful with power requirements: If your strip (such as WS2811 or WS2815) is 12V, you must use a 12‑to‑5V regulator. For 5V strips, you can remove the regulator and simply bridge the input to the output.
Binary file ' Saeid Moghadam
' SSMQQMSS@gmail.com
' SoifGo
' Rangmang ATmega128 – 999 pixels
' 30 inputs
' ADRGBSEM
' A00D00R000G000B000S000E000M000
' A01 TO A98 FOR ADDRESS MODULE A99 FOR ALL
' IF D00 THEN SOLID COLOR
' R000 TO R255 RED COLOR
' G000 TO G255 GREEN COLOR
' B000 TO B255 BLUE COLOR
' S000 TO S480 RGB STRIP START POSITION FOR COLORED PIXEL
' E000 TO E480 RGB STRIP END POSITION FOR COLORED PIXEL
' M000 TO M098 M000 WITHOUT MEMORY SAVE M001 SAVE SLOT 1 MEMORY
' IF D01 TO D55 DANCE
' D99 FOR RANDOM SELECT D01 TO D55 DANCE
' R000 TO R250 RED COLOR R251 TO R255 FOR RANDOM RED COLOR
' G000 TO G250 GREEN COLOR G251 TO G255 FOR RANDOM GREEN COLOR
' B000 TO B250 BLUE COLOR B251 TO B255 FOR RANDOM BLUE COLOR
' S000 TO S999 RGB STRIP FIRST DELAY EFFECT (ms)
' E000 TO E999 RGB STRIP SECOND DELAY EFFECT (ms)
' M001 TO M999 SET HOW MANY PIXELS DANCING
$regfile = "m128def.dat"
$crystal = 1105920
$PROG &HFF,&HBE,&HCF,&HFE' generated. Take care that the chip supports all fuse bytes.
$hwstack=40
$swstack=16
$framesize = 32
Dim Ina As Bit 'external crystal 11059200
Config Watchdog = 1024
Enable Interrupts
$baud = 960
Reset Watchdog
Ff:
'----[MAIN]---------------------------------------------------------------------
Dim Danc , Dan , Dans As Byte
Dim N , Nd , Ndn , Ns , Nf , Jj , Led , S,ii,I,t As Word
Dim Ch , Ch0 , A1 , A2 , A3 As Byte
Dim Text As String * 32
Dim Trig As String * 4
Dim Trig2 As String * 3
Dim Rq(99) , Gq(99) , Bq(99) As Byte
Dim Rgb , Mmr , Mmg , Mmb As Byte
Dim Tim1 , Tim2 , Tt1 , Tt2 , Ado , Ll, Adss,ADSS2 , Adsm,ADSm2 As Word
Dim Rr , Gg , Bb As Byte
Dim Rx , Gx , Bx As Byte
Dim Chc , Nnb , Mx,rainbo As Bit
Dim Nnd , Pnd , Jk , Kk , Lk As Word
Dim Dvado As Word
''''''''''''''''''''''''''''''''''
dim xfd,yfd,vfd,bfd as word
dim memoclr as byte
Declare Sub memclr ' select first chann
Declare Sub Chekm
Declare Sub time1
Declare Sub time2
Readeeprom Ch0 , 1
Readeeprom Dan , 2
Readeeprom Rr , 3
Readeeprom Gg , 4
Readeeprom Bb , 5
Readeeprom Led , 6
Readeeprom memoclr , 9
Readeeprom Tim1 , 10
Readeeprom Tim2 , 12
call chekm
If Ch0 > 98 Or Ch0 <1 Then Ch0 = 1
If Dan > 99 Then Dan = 0
If Led >990 Then Led = 990
if memoclr=0 or memoclr>1 then
call memclr
memoclr=1
writeeeprom memoclr , 9
end if
Danc = Dan
Config Rainbow = 1 , Rb0_len = 999 , Rb0_port = Portf , Rb0_pin = 3
Dim Color(3) As Byte
R Alias Color(_base) : G Alias Color(_base + 1) : B Alias Color(_base + 2)
Rb_selectchannel 0
Rb_clearcolors
Rb_clearstripe
Reset Watchdog
For I = 1 To 98
Mmr = I + 100
Mmg = I + 200
Mmb = I + 300
Readeeprom Rgb , Mmr
Rq(i) = Rgb
Readeeprom Rgb , Mmg
Gq(i) = Rgb
Readeeprom Rgb , Mmb
Bq(i) = Rgb
Reset Watchdog
If Dan = 0 Then
If Led > 0 And Led < 99 Then
Reset Watchdog
Adss = i*4
Adss = Adss +396
R = Rq(i) : G = Gq(i) : B = Bq(i)
adss2=adss+2
Readeeprom Adsm , Adss
Readeeprom Adsm2 , Adss2
For S = adsm To adsm2
Reset Watchdog
Rb_setcolor S , Color(1)
Next
Rb_send
Else
If Led = 999 Then
Reset Watchdog
R = rr : G = gg : B = bb
Rb_fillstripe Color
End If
End If
End If
Next
dim error as byte
Config Serialin = Buffered , Size = 34 , Bytematch = 13
Reset Watchdog
Clear Serialin
'''''''''''''''''''''''''''''dance subs'''''''''
Declare Sub snak_run_slow
Declare Sub snak_return_slow
Declare Sub snak_run_fast
Declare Sub snak_return_fast
Declare Sub snak_run_slow_random
Declare Sub snak_return_slow_random
Declare Sub snak_run_fast_random
Declare Sub snak_return_fast_random
Declare Sub snak_runreturn_slow_random
Declare Sub Half_snak_out_mid_slow
Declare Sub half_half_right_slow
Declare Sub half_half_left_slow
Declare Sub star_runreturn_slow
Declare Sub Star_run_slow
Declare Sub star_run_fast
Declare Sub star_return_fast
Declare Sub snak_growup_slow
Declare Sub star_playful
Declare Sub snak_star_playful
Declare Sub star_fillers
declare sub movable_light
declare sub snak_runreturn_colored
declare sub star_diamonds_blink_slow
declare sub star_diamonds_blink_fast
declare sub star_diamonds_blink_faster
declare sub disco
declare sub fillstripe_Color
declare sub breathing
Declare Sub Percolate_run
Declare Sub Percolate_return
Declare Sub Snak_1_2_run
Declare Sub Snak_1_2_return
Declare Sub Snak_1_2_run_rev
Declare Sub Snak_1_2_return_rev
Declare Sub Snak_relax_run
Declare Sub Snak_relax_return
Declare Sub Snak_rainbow
Declare Sub Snak_rainbow_lp
Declare Sub Snak_rainbow_bl
Echo On
Dim Pos As Byte
Echo Off
Do
Main:
Reset Watchdog
If Ina = 1 Then Goto Red
If Danc > 0 and ina=0 Then Goto Modh
Loop
Serial0charmatch:
Input Text
Clear Serialin
Ina = 1
Return
red:
Text = Trim(text)
Text = Ltrim(text)
Pos = Instr(text , "A")
Reset Watchdog
Hh:
If Instr(text , "CH") > 0 Then
Trig = Mid(text , 3 , 2)
If Ch0 = Val(trig) Then
Trig2 = Mid(text , 6 , 2)
Ch = Val(trig2)
If Ch > 0 And Ch < 99 Then
Ch0 = Ch
Writeeeprom Ch0 , 1
Waitms 1
Print "New Address=" ; Ch0
End If
End If
End If
If Pos > 0 Then
Text = Mid(text , Pos)
If Instr(text , "A") > 0 Then
Trig = Mid(text , 2 , 2)
Ch = Val(trig)
End If
If Ch = Ch0 Or Ch = 99 Then
If Instr(text , "D") > 0 Then
Trig = Mid(text , 5 , 2)
Danc = Val(trig)
Dan = Danc
End If
If Danc > 99 Then Dan = 0
Writeeeprom Dan , 2
Waitms 1
If Instr(text , "R") > 0 Then
Trig = Mid(text , 8 , 3)
R = Val(trig)
Rr = R
End If
If Instr(text , "G") > 0 Then
Trig = Mid(text , 12 , 3)
G = Val(trig)
Gg = G
End If
If Instr(text , "B") > 0 Then
Trig = Mid(text , 16 , 3)
B = Val(trig)
Bb = B
End If
If Instr(text , "M") > 0 Then
Trig = Mid(text , 28 , 3)
Led = Val(trig)
End If
Reset Watchdog
If Dan = 0 Then
If Instr(text , "S") > 0 Then
Trig = Mid(text , 20 , 3)
Ns = Val(trig)
End If
If Instr(text , "E") > 0 Then
Trig = Mid(text , 24 , 3)
Nf = Val(trig)
End If
If Led > 0 And Led < 99 Then
Writeeeprom Led , 6
Waitms 1
Adss = Led * 4
Adss = Adss - 2
Adss= 790-Adss
Writeeeprom Ns , Adss
Waitms 1
Adss = Adss +2
Writeeeprom Nf , Adss
Waitms 1
Mmr = 199-led
Mmg = 299- led
Mmb = 399-led
Writeeeprom Rr , Mmr
Waitms 1
Writeeeprom Gg , Mmg
Waitms 1
Writeeeprom Bb , Mmb
Waitms 1
Reset Watchdog
R = Rr : G = Gg : B = Bb
For I = Ns To Nf
Reset Watchdog
Rb_setcolor I , Color(1)
Next
Rb_send
Waitms 1
Else
select case led
case 0:
R = Rr : G = Gg : B = Bb
For I = Ns To Nf
Reset Watchdog
Rb_setcolor I , Color(1)
Next
Rb_send
Waitms 1
Case 996:
call memclr
Case 997:
Rb_clearstripe
Waitms 100
Case 998:
R = Rr : G = Gg : B = Bb
Rb_fillstripe Color
Waitms 100
Case 999:
R = Rr : G = Gg : B = Bb
Rb_fillstripe Color
Waitms 1
Writeeeprom Rr , 3
Waitms 1
Writeeeprom Gg , 4
Waitms 1
Writeeeprom Bb , 5
Waitms 1
Led = 999
Writeeeprom Led , 6
Waitms 100
End Select
End If
Reset Watchdog
Else
if led<1 then led=1
if led>999 then led=999
If Instr(text , "S") > 0 Then
Trig = Mid(text , 20 , 3)
Tim1 = Val(trig)
End If
If Instr(text , "E") > 0 Then
Trig = Mid(text , 24 , 3)
Tim2 = Val(trig)
End If
call chekm
If Danc > 0 and Danc <100 Then
Writeeeprom Rr , 3
Waitms 1
Writeeeprom Gg , 4
Waitms 1
Writeeeprom Bb , 5
Waitms 1
Writeeeprom Led , 6
Waitms 1
Writeeeprom Tim1 , 10
Waitms 1
Writeeeprom Tim2 , 12
Waitms 1
Reset Watchdog
end if
End If
End If
End If
'Print "a=" ; Ch ; "d=" ; Danc ; "r=" ; Rr ; "g=" ; Gg ; "b=" ; _
'Bb ; "s=" ; Ns ; "e=" ; Nf ; "m=" ; Led
Text = ""
Trig = ""
Ch = ""
Reset Watchdog
ina=0
goto main
Modh:
If Led = 0 Then Led = 1
If Danc = 99 Then
Reset Watchdog
Dans = Rnd(55)
Else
Dans = Danc - 1
End If
If Rr <251 Then
Rx = Rr
Else
rx=251
Select Case Rr
Case 251
Rx = Rnd(15)
Case 252
Rx = Rnd(30)
Case 253
Rx = Rnd(60)
Case 254
Rx = Rnd(120)
Case 255
Rx = Rnd(250)
End Select
R = Rx
End If
If Gg <251 Then
Gx = Gg
Else
gx=251
Select Case Gg
Case 251
gx = Rnd(15)
Case 252
gx = Rnd(30)
Case 253
gx = Rnd(60)
Case 254
gx = Rnd(120)
Case 255
gx = Rnd(250)
End Select
G = Gx
End If
If Bb <251 Then
Bx = Bb
Else
bx=251
Select Case Bb
Case 251
bx = Rnd(15)
Case 252
bx = Rnd(30)
Case 253
bx = Rnd(60)
Case 254
bx = Rnd(120)
Case 255
bx = Rnd(250)
End Select
B = Bx
End If
Select Case Dans
Case 0:call snak_run_slow
Case 1:call snak_return_slow
case 2:
call snak_run_slow
call snak_return_slow
Case 3:call snak_run_fast
Case 4:call snak_return_fast
Case 5:
call snak_run_fast
call snak_return_fast
Case 6:call snak_run_slow_random
Case 7:call snak_return_slow_random
case 8:
call snak_run_slow_random
call snak_return_slow_random
Case 9:call snak_run_fast_random
Case 10:call snak_return_fast_random
Case 11:
call snak_run_fast_random
call snak_return_fast_random
case 12 :call snak_runreturn_slow_random
Case 13 :
Nnb = 0
Call Half_snak_out_mid_slow
Case 14 :
Nnb = 1
Call Half_snak_out_mid_slow
Case 15 :
Call Half_snak_out_mid_slow
Toggle Nnb
Goto Modh
Case 16 : Call Half_half_right_slow
case 17:call half_half_left_slow
Case 18 :
Mx = 0
Call Star_run_slow
Case 19 :
Mx = 1
Call Star_run_slow
Case 20 : Call Star_runreturn_slow
Case 21 : Call Star_run_fast
Case 22 : Call Star_return_fast
Case 23:
call star_run_fast
call star_return_fast
Case 24 : Call Snak_growup_slow
Case 25 : Call Star_playful
Case 26 : Call Snak_star_playful
Case 27 : Call Star_fillers
Case 28 : Call Movable_light
Case 29 : Call Snak_runreturn_colored
Case 30 : Call Star_diamonds_blink_slow
Case 31 : Call Star_diamonds_blink_fast
Case 32 : Call Star_diamonds_blink_faster
Case 33 : Call Disco
Case 34 : Call Fillstripe_color
Case 35 : Call Breathing
Case 36 : Call Percolate_run
Case 37 : Call Percolate_return
Case 38 :
Call Percolate_run
Call Percolate_return
Case 39 : Call Snak_1_2_run
Case 40 : Call Snak_1_2_return
Case 41 :
Call Snak_1_2_run
Call Snak_1_2_return
Case 42 : Call Snak_1_2_run_rev
Case 43 : Call Snak_1_2_return_rev
Case 44 :
Call Snak_1_2_run_rev
Call Snak_1_2_return_rev
Case 45 : Call Snak_relax_run
Case 46 : Call Snak_relax_return
Case 47 :
Call Snak_relax_run
Call Snak_relax_return
Case 48 :
Rainbo = 0
Call Snak_rainbow
Case 49 :
Rainbo = 1
Call Snak_rainbow
Case 50 :
Rainbo = 0
Call Snak_rainbow
Rainbo = 1
Call Snak_rainbow
Case 51 :
Rainbo = 0
Call Snak_rainbow_lp
Case 52 :
Rainbo = 1
Call Snak_rainbow_lp
Case 53 :
Rainbo = 0
Call Snak_rainbow_lp
Rainbo = 1
Call Snak_rainbow_lp
Case 54 : Call Snak_rainbow_bl
End Select
Goto Main
sub chekm
If Tim1 > 999 or tim1<1 Then Tim1 =1
If Tim2 > 999 or tim2<1 Then Tim2 =1
end sub
Sub Time1
Call Chekm
For Tt1 = 0 To Tim1
Reset Watchdog
Waitms 1
If Ina = 1 Then Exit For
next
If Ina = 1 Then Goto Red
End Sub
Sub Time2
Call Chekm
For Tt2 = 0 To Tim2
Reset Watchdog
Waitms 1
If Ina = 1 Then Exit For
Next
If Ina = 1 Then goto red
End Sub
sub memclr
r=0
print " "
Print " Rangmang Wait "
For ii = 0 To 800
Writeeeprom R , ii
Reset Watchdog
Next
print " Clear :) "
Rb_clearstripe
end sub
''''''''''''''efects
sub snak_run_slow
R = Rx : G = Gx : B = Bx
For Nd = 0 To Led
Rb_setcolor Nd , Color(1)
call time1
Rb_send
Next
R = 0 : G = 0 : B = 0
For Nd = 0 To Led
Rb_setcolor Nd , Color(1)
call time2
Rb_send
Next
end sub
sub snak_return_slow
R = Rx : G = Gx : B = Bx
For Nd = Led To 0 Step -1
Rb_setcolor Nd , Color(1)
call time1
Rb_send
Next
R = 0 : G = 0 : B = 0
For Nd = Led To 0 Step -1
Rb_setcolor Nd , Color(1)
call time2
Rb_send
Next
end sub
sub snak_run_fast '
R = Rx : G = Gx : B = Bx
For Nd = 0 To Led step 5
xfd=nd+1
yfd=nd+2
vfd=nd+3
bfd=nd+4
Rb_setcolor Nd , Color(1)
Rb_setcolor xfd , Color(1)
Rb_setcolor yfd , Color(1)
Rb_setcolor vfd , Color(1)
Rb_setcolor bfd , Color(1)
call time1
Rb_send
Next
R = 0 : G = 0 : B = 0
For Nd = 0 To Led step 5
xfd=nd+1
yfd=nd+2
vfd=nd+3
bfd=nd+4
Rb_setcolor Nd , Color(1)
Rb_setcolor xfd , Color(1)
Rb_setcolor yfd , Color(1)
Rb_setcolor vfd , Color(1)
Rb_setcolor bfd , Color(1)
call time2
Rb_send
Next
end sub
sub snak_return_fast
R = Rx : G = Gx : B = Bx
For Nd = led To 0 step -5
xfd=nd+1
yfd=nd+2
vfd=nd+3
bfd=nd+4
Rb_setcolor Nd , Color(1)
Rb_setcolor xfd , Color(1)
Rb_setcolor yfd , Color(1)
Rb_setcolor vfd , Color(1)
Rb_setcolor bfd , Color(1)
call time1
Rb_send
Next
R = 0 : G = 0 : B = 0
For Nd = led To 0 step -5
xfd=nd+1
yfd=nd+2
vfd=nd+3
bfd=nd+4
Rb_setcolor Nd , Color(1)
Rb_setcolor xfd , Color(1)
Rb_setcolor yfd , Color(1)
Rb_setcolor vfd , Color(1)
Rb_setcolor bfd , Color(1)
call time2
Rb_send
Next
end sub
sub snak_run_slow_random
For Nd = 0 To Led
Jj = Nd Mod 2
If Jj = 0 Then R = Rnd(rx) : G = Rnd(gx) : B = Rnd(bx)
Rb_setcolor Nd , Color(1)
call time1
Rb_send
Next
R = Rx : G = Gx : B = Bx
For N = 1 To Led -1
Rb_shiftright 0 , Led
call time2
Rb_send
Next
Rb_clearstripe
end sub
sub snak_return_slow_random
For Nd = Led To 0 Step -1
Jj = Nd Mod 2
If Jj = 0 Then R = Rnd(rx) : G = Rnd(gx) : B = Rnd(bx)
Rb_setcolor Nd , Color(1)
call time1
Rb_send
Next
R = Rx : G = Gx : B = Bx
For N = 1 To Led -1
Rb_shiftleft 0 , Led
call time2
Rb_send
Next
Rb_clearstripe
end sub
sub snak_run_fast_random
For Nd = 0 To Led step 5
Jj = Nd Mod 2
If Jj = 0 Then R = Rnd(rx) : G = Rnd(gx) : B = Rnd(bx)
xfd=nd+1
yfd=nd+2
vfd=nd+3
bfd=nd+4
Rb_setcolor Nd , Color(1)
Rb_setcolor xfd , Color(1)
Rb_setcolor yfd , Color(1)
Rb_setcolor vfd , Color(1)
Rb_setcolor bfd , Color(1)
Rb_send
call time1
Next
R = 0 : G = 0 : B = 0
For Nd = 0 To Led step 5
xfd=nd+1
yfd=nd+2
vfd=nd+3
bfd=nd+4
Rb_setcolor Nd , Color(1)
Rb_setcolor xfd , Color(1)
Rb_setcolor yfd , Color(1)
Rb_setcolor vfd , Color(1)
Rb_setcolor bfd , Color(1)
Rb_send
call time2
Next
Rb_clearstripe
end sub
sub snak_return_fast_random
For Nd = Led To 4 Step -5
Jj = Nd Mod 2
If Jj = 0 Then R = Rnd(rx) : G = Rnd(gx) : B = Rnd(bx)
xfd=nd-1
yfd=nd-2
vfd=nd-3
bfd=nd-4
Rb_setcolor Nd , Color(1)
Rb_setcolor xfd , Color(1)
Rb_setcolor yfd , Color(1)
Rb_setcolor vfd , Color(1)
Rb_setcolor bfd , Color(1)
call time1
Rb_send
Next
R = 0 : G = 0 : B =0
For Nd = Led To 4 Step -5
xfd=nd-1
yfd=nd-2
vfd=nd-3
bfd=nd-4
Rb_setcolor Nd , Color(1)
Rb_setcolor xfd , Color(1)
Rb_setcolor yfd , Color(1)
Rb_setcolor vfd , Color(1)
Rb_setcolor bfd , Color(1)
call time2
Rb_send
Next
Rb_clearstripe
end sub
sub snak_runreturn_slow_random
For Nd = Led To 0 Step -1
Jj = Nd Mod 2
If Jj = 0 Then R = Rnd(rx) : G = Rnd(gx) : B = Rnd(bx)
Rb_setcolor Nd , Color(1)
call time1
Rb_send
Next
R = Rx : G = Gx : B = Bx
For N = 1 To Led -1
Rb_shiftright 0 , Led
call time2
Rb_send
Next
For Nd = 0 To Led
Jj = Nd Mod 2
If Jj = 0 Then R = Rnd(rx) : G = Rnd(gx) : B = Rnd(bx)
Rb_setcolor Nd , Color(1)
call time1
Rb_send
Next
R = Rx : G = Gx : B = Bx
For N = 1 To Led -1
Rb_shiftleft 0 , Led
call time2
Rb_send
Next
end sub
sub half_snak_out_mid_slow
R = Rx : G = Gx : B = Bx
Jk = Led / 2
If Nnb = 0 Then
For Nd = 0 To Jk
Kk = Led - Nd
Rb_setcolor Nd , Color(1)
Rb_setcolor Kk , Color(1)
Call Time1
Rb_send
Next
Else
For Nd = Jk To 0 Step -1
Kk = Led - Nd
Rb_setcolor Nd , Color(1)
Rb_setcolor Kk , Color(1)
Call Time1
Rb_send
Next
End If
end sub
sub half_half_right_slow
Rb_clearcolors
R = Rx : G = Gx : B = Bx
Jk = Led / 2
For Nd = 0 To Jk
Kk = Jk + Nd
Rb_setcolor Nd , Color(1)
Rb_setcolor Kk , Color(1)
Call Time1
Rb_send
Next
end sub
sub half_half_left_slow
Rb_clearcolors
R = Rx : G = Gx : B = Bx
Jk = Led / 2
For Nd = Jk To 0 Step -1
Kk = Jk + Nd
Rb_setcolor Nd , Color(1)
Rb_setcolor Kk , Color(1)
Call Time1
Rb_send
Next
end sub
Sub Star_run_slow
If Chc = 0 Then
Ado = Led
Chc = 1
End If
If Ado = 1 Then Chc = 0
For Nd = 0 To Ado Step 2
If Mx = 0 Then
R = Rx : G = Gx : B = Bx
Else
R = Rnd(rx) : G = Rnd(gx) : B = Rnd(bx)
End If
Dvado = Nd + 1
Rb_setcolor Nd , Color(1)
Rb_setcolor Dvado , Color(1)
Rb_send
Call Time1
Rb_clearcolors
Next
If Mx = 0 Then
R = 222 : G = 222 : B = 222
Else
R = Rnd(222) : G = Rnd(222) : B = Rnd(222)
End If
If Ado > 10 Then
Dvado = Ado / 10
For Nd = Ado To Ado + Dvado
Rb_setcolor Nd , Color(1)
Next
Else
Rb_setcolor Ado , Color(1)
End If
Rb_send
Call Time2
If Chc = 1 Then
If Ado > 10 Then
Ado = Ado - Dvado
Else
Decr Ado
End If
End If
end sub
sub star_runreturn_slow
R = Rx : G = Gx : B = Bx
For Nd = 0 To Led Step 2
Dvado = Nd + 1
Rb_setcolor Nd , Color(1)
Rb_setcolor Dvado , Color(1)
Dvado = Nd + 2
Rb_setcolor Dvado , Color(1)
Rb_send
Call Time1
Rb_clearcolors
Next 'call time1
For Nd = Led To 0 Step -2
Dvado = Nd + 1
Rb_setcolor Nd , Color(1)
Rb_setcolor Dvado , Color(1)
Dvado = Nd + 2
Rb_setcolor Dvado , Color(1)
Rb_send
Call Time2
Rb_clearcolors
Next
end sub
sub star_run_fast
R = Rx : G = Gx : B = Bx
For Nd = 0 To Led step 5
xfd=nd+1
yfd=nd+2
vfd=nd+3
bfd=nd+4
Rb_setcolor Nd , Color(1)
Rb_setcolor xfd , Color(1)
Rb_setcolor yfd , Color(1)
Rb_setcolor vfd , Color(1)
Rb_setcolor bfd , Color(1)
Rb_setcolor Nd , Color(1)
Rb_send
Call Time1
Rb_clearcolors
...
This file has been truncated, please download it to see its full contents.
3 projects • 0 followers
Electrical & electronics engineer sharing simple beginner‑level projects. Still learning, still improving. Feedback helps me grow.
Comments