Sonoff B1

Some text some message..

The Red, Green, Blue LEDs of a Sonoff B1 Lamp can be controlled by sending individual R, G, B vales, OR a single 24bit combined RGB value.

At the bottom of the Annex Toolkit UDP Console tab are 3 sliders which broadcasts a 24bit combined RGB value to the subnet.

These can be used as a UDP RGB lamp controller for the simple scripts below.

Don't let the relative simplicity fool you... the identical script could be run on multiple devices to provide impressive synchronized lighting control.

This first script is for use on a Sonoff B1 Lamp:

CODE: DTMF.BAS

This next script is for any device with neopixels connected to gpio2

CODE: DTMF.BAS

This last script uses individual R,G,B signals, and has it’s own browser R,G,B sliders for local control.

The sliders also broadcast their value changes to any other listening UDP devices on the same subnet.

So multiple devices can be controlled by each other and/or the Toolkit UDP Console.

CODE: DTMF.BAS

' UDP R,G,B Slider for Sonoff B1 / neopixels / RGB LEDs - developed on Annex 1.41 beta2 - Electroguard
title$         = "R,G,B UDP Controller"
localIP$   = WORD$(IP$,1)
netIP$      = WORD$(localIP$,1,".") + "." + WORD$(localIP$,2,".") + "." + WORD$(localIP$,3,".") + "."
udpport    = 5001               'change to suit your own preference, but don't forget to do the same for all nodes
udp.begin(udpport)
onudp udpRX
r=0:g=0:b=0                         'define original R,G,B values 
pixels = 12                           'declare how many pixels to be addressed (12 for this example) 
neo.setup pixels                 'initalise for declared number of pixels 
neo.strip 0, pixels-1 ,r,g,b  'turn all pixels off
sonoffb1.init
sonoffb1.rgb r,g,b                'turn all leds off
pwm(12)=r                            'turn RGN LED gpio's off
pwm(15)=g
pwm(13)=b
onhtmlchange changeit                
gosub screen                       'send screen output to browser 
wait

udpRX:
x=val(udp.read$)                  'read incoming 24bit combined RGB value
b=(x and &hff)                       'extract just the B value
g=(x >> 8) and &hff              'extract just the G value
r=(x >> 16) and &hff             'extract just the R value
gosub changeit
return

changeit:
udp.write netIP$+"255", udpport, str$(r)+","+str$(g)+","+str$(b)
pwm(12)=r*4                         'pwm values are 0 to 1023, but R,G,B values are only 0 to 255, so need multiplying by 4 
pwm(15)=g*4
pwm(13)=b*4
neo.strip 0,11,r,g,b
sonoffb1.rgb r,g,b
pause 20
return

end  '-----------end------------

Note:

Pay attention to the s w e e t active slider…

replace$(slider$(r, 0, 255,”R”), “onchange“, “oninput”)

which branches on immediate change to the branch declared with onhtmlchange ie:changeit in the above example (thanks CiccioCB)

Follow Us

Features

Get Started

About