Test a DX clock for me » Forum Post by theAVMAN

Work fine Harley!

Thank ya sir ! your help with the Vexa clock helped make it possible!

I'd give you some Karma if I could find that button!

Sign Up or Login and this ad disappears!
There are many great features available to you once you register. Sign Up for a free account and browse the forums without ads.

I'd give you some Karma if I could find that button!

The thumbs up button under the reply... click it.

Thank you!

This one I like very much.

ok.. looking at the code..

Code: vbscript

'Change object name to apply to new object
ulHue = DesktopX.Object("3Dmetal_Clock_Face").hue
ulHue = DesktopX.Object("3Dmetal_Clock_Hours").hue
ulHue = DesktopX.Object("3Dmetal_Clock_Minutes").hue
ulHue = DesktopX.Object("3Dmetal_Clock_Seconds").hue
ulHue = ulHue + 10

Whu set the same VAR to multiple items, the only one that matters in this case is the LAST one. Applying it at the end of that function makes sense, but the beginning sets make no sense.

I would redo it:

Sub Object_OnLButtonDown(x, y)
Dim ulHue
ulHue = DesktopX.Object("3Dmetal_Clock_Face").hue
ulHue = ulHue + 10
'if hue is set to Black "1000" then set it back to Unshifted "0"
If ulHue > 1001 Then ulHue = 0

'if hue is past 255, set it to black.
If ulHue > 255 And ulHue < 999 Then ulHue = 1000

'apply the hue change to the object(s)
DesktopX.Object("3Dmetal_Clock_Face").hue = ulHue
DesktopX.Object("3Dmetal_Clock_Hours").hue = ulHue
DesktopX.Object("3Dmetal_Clock_Minutes").hue = ulHue
DesktopX.Object("3Dmetal_Clock_Seconds").hue = ulHue
End Sub

This seems to work, the main key with this is to make sure the master items are RED.
the Hue works best with a RED main image. Other than the above, it looks good.

"Whu set the same VAR "

um.. where's my EDIT button? Im speaking Zubazzish

"Why set the same VAR" - edited

Here is some revised code for the hue button.
It reduces the calls to set the object hue's down to a single function call.
It also saves the hue in storage so that it will be there when it comes back up the next time its run.

Code: vbscript

Sub Object_OnLButtonDown(x, y)
Dim ulHue
ulHue = DesktopX.Object("3Dmetal_Clock_Face").hue
ulHue = ulHue + 10
'if hue is set to Black "1000" then set it back to Unshifted "0"
If ulHue > 1001 Then ulHue = 0
If ulHue > 255 And ulHue < 999 Then ulHue = 1000
Call SetHue(ulHue)
End Sub

'*************************************************************

'Resets the hue to 0 if right clicked
Sub Object_OnRButtonDown(x, y)
Call SetHue(1000)
End Sub

'Resets the hue to 0 if right clicked
Sub Object_OnScriptEnter
If Object.LocalStorage("Hue") = "" Then
ulHue = 1000
Else
ulHue = Object.LocalStorage("Hue")
End If
Call SetHue(ulHue)
End Sub

Function SetHue(huesetting)
DesktopX.Object("3Dmetal_Clock_Face").hue = huesetting
DesktopX.Object("3Dmetal_Clock_Hours").hue =huesetting
DesktopX.Object("3Dmetal_Clock_Minutes").hue = huesetting
DesktopX.Object("3Dmetal_Clock_Seconds").hue = huesetting
Object.LocalStorage("Hue") = huesetting
desktopx.Object("test").text = huesetting
End Function

RomanDA

Thank you very much !I will keep this in mind for this application,I assume this will work in other instances also.

Thanks again
Harley

sure.. it reads 1 items hue, then increments that, then stores it back out to the local storage. not real bad. It also looks for that local storage on 1st run to see if there is anything in there, if so, it uses that value.

I think i need to add this to the snippets!

Hi Harley .. It looks great ... Run first time ...

I am not sure if this is correct for you but if I mouse over the colour changer... keep it still and just click away I can get loads of other colours too ... Is it supposed to do that ? ...

Nice clock for sure ... works well !!

Regards

Mike

I am not sure if this is correct for you but if I mouse over the colour changer... keep it still and just click away I can get loads of other colours too ... Is it supposed to do that ? ..

That's a hue shift . .and by design.