Page 1 of 1

RGB Script

Posted: Tue Mar 06, 2012 11:39 pm
by TANE
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

Re: RGB Script

Posted: Wed Mar 07, 2012 12:01 am
by r_255
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

Re: RGB Script

Posted: Wed Mar 07, 2012 12:25 am
by TANE
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..:)

Re: RGB Script

Posted: Wed Mar 07, 2012 12:37 am
by r_255
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