Voor het aansturen van mijn RGB strips heb ik verschillende events gemaakt om de kleuren te veranderen.
Bv voor kleur rood
&hs.SendToComport 9, chr(&H01) & chr(&H03) & chr(&H00) & chr(&HFF) & chr(&H00) & chr(&H00)
Dit is een commandline script en erg onleesbaar maar werkt prima.
Eerste 3 codes zijn aansturing
Laatste 3 zijn de RGB kleuren.
ik probeer een script te maken wat hetzelfde zou kunnen doen als de commandline...maar dan wat korter
bv RGB.VB
Met de volgende opties
("main", "010300;ff0000")
Helaas nog geen succes..hoop dat iemand een soortgelijke script heeft
RGB Script
RGB Script
Enver Tanriverdi | http://blog.tane.nl
Re: RGB Script
Kan je de rgb waardes niet gewoon aan een slider hangen in hst ( slider van 0...255 )
en deze in je script dan vervangen voor variabelen die je in een huiscode zet... ?
Laat je hst bij het lostlaten je scriptje draaien met de waardes van je slider.
Je zit alleen nog met de conversie van dec naar hex, maar daar zijn wel voorbeeldjes van.
Grtz
Ro
en deze in je script dan vervangen voor variabelen die je in een huiscode zet... ?
Laat je hst bij het lostlaten je scriptje draaien met de waardes van je slider.
Je zit alleen nog met de conversie van dec naar hex, maar daar zijn wel voorbeeldjes van.
Grtz
Ro
Re: RGB Script
Dat is inderdaad de volgende fase.
Eerste instantie is het wat vaste kleuren.
Als ik het goed begrijp..
3 Sliders
Waarde gaat naar 3 verschillende devices.
Bij een change van een van de waardes wordt een event uitgevoerd die de waarde van de 3 devices gelijk naar de com poort stuurt...
heb je een soortgelijke script..
Eerste instantie is het wat vaste kleuren.
Als ik het goed begrijp..
3 Sliders
Waarde gaat naar 3 verschillende devices.
Bij een change van een van de waardes wordt een event uitgevoerd die de waarde van de 3 devices gelijk naar de com poort stuurt...
heb je een soortgelijke script..
Enver Tanriverdi | http://blog.tane.nl
Re: RGB Script
Nee sorry geen scriptje... maar het is idd wel zoiets...
In deze stuur ik het volume van mijn denon aan met waarde 50:
&hs.Plugin("BLDenon").SendRawCommand("MV50")
En in deze heb ik het volume vervangen voor de slider die aan huiscode 15 hangt
&hs.Plugin("BLDenon").SendRawCommand("MV" & hs.DeviceValue("V15")&"")
Alleen dus nog een funktie om die decimaal omzet naar hex en volgens google zou dit in vb script je probleem oplossen.
response.write Hex(13499) zou als output 34BB moeten geven.
moet je alleen nog even de juiste syntax zien te vinden.
suc6
In deze stuur ik het volume van mijn denon aan met waarde 50:
&hs.Plugin("BLDenon").SendRawCommand("MV50")
En in deze heb ik het volume vervangen voor de slider die aan huiscode 15 hangt
&hs.Plugin("BLDenon").SendRawCommand("MV" & hs.DeviceValue("V15")&"")
Alleen dus nog een funktie om die decimaal omzet naar hex en volgens google zou dit in vb script je probleem oplossen.
response.write Hex(13499) zou als output 34BB moeten geven.
moet je alleen nog even de juiste syntax zien te vinden.
suc6