a revolving light effect controlled by UDP.
Posted: Wed Jun 08, 2016 5:40 am
I saw lights like this in a theme park, they were only red. This version lets you have any color and speed (I havent added a reverse though ).
The control program was written in Xojo, which is very fast for this sort of quick GUI development.
The Computer lets you choose Red green and blue with a value of 0-200 for each (could be up to 255) and also the speed, which is actually a delay in the timer speed. I wasnt sure if you could change the timer mutliple times but it seems you can.
The windows program packages this inks a hex string that the esp then decodes
format is cRRGGBBSSS where RR is a hex value from 00 to c8, same for GG and BB (red green blue) and the delay is a 3 digit Hex string from about 40 to 400.
video link low res
https://www.youtube.com/watch?feature=player_detailpage&v=4PPF5BoWJqk
high res
https://youtu.be/bVv4JiP6OnY
The control program was written in Xojo, which is very fast for this sort of quick GUI development.
The Computer lets you choose Red green and blue with a value of 0-200 for each (could be up to 255) and also the speed, which is actually a delay in the timer speed. I wasnt sure if you could change the timer mutliple times but it seems you can.
The windows program packages this inks a hex string that the esp then decodes
format is cRRGGBBSSS where RR is a hex value from 00 to c8, same for GG and BB (red green blue) and the delay is a 3 digit Hex string from about 40 to 400.
video link low res
https://www.youtube.com/watch?feature=player_detailpage&v=4PPF5BoWJqk
high res
https://youtu.be/bVv4JiP6OnY
Code: Select all
memclear
udpbegin 10111
udpbranch [udpr]
c = 0
r = 100
g = 0
b = 0
s = 100
[tt]
timer s,[tt]
c = c + 1
if c > 6 then
c = 0
neo(0,r,g,b,1)
else
neo(0,0,0,0,1)
end if
neo.shift(0,59,1)
wait
[udpr]
rec = udpread()
if left(rec,1) = "c" then
r = hextoint(mid(rec,2,2))
g = hextoint(mid(rec,4,2))
b = hextoint(mid(rec,6,2))
s = hextoint(mid(rec,8,3))
print rec
print s
end if
return
[exit]
end