Forum Home | Login

superman

Join Date 03/2008

+133

Auto changing color

Here is script by Peterdudejm for scripting color

'Called when L-click is released
Function Object_OnLButtonUp(x, y, dragged)
If Not dragged Then
'Store the current hue in variable
hueshift = Object.hue
'If current hue is equal to or greater than 255
'reset to 0
If hueshift => 255 Then
hueshift = 0
'If hue is not yet 255, keep adding
Else
hueshift = hueshift + 7
End If
'Set the object hue
object.hue = hueshift
End If
End Function

What i want to auto change the color slowly... without clicking it.....
Thanks in advance

Locked Post

Advanced Search

Watch this post

Do not email me updates for this post Email me updates for this post

Successfully updated karma reason!

you'll probably have to revise the script to include a timer instead of clicking

Successfully updated karma reason!

C'mon i don't know it. This script is by Peterdudejm.
I never learnt vbscript.
So please revise it and post it. Thank you

Successfully updated karma reason!

though for websites, these can get you started:

http://w3schools.com/vbscript/vbscript_intro.asp

http://w3schools.com/vbscript/vbscript_ref_functions.asp

have you considered just using an animation that changes colors?

I never learnt vbscript.
So please revise it and post it. Thank you

please, I can't even spell bvscritp

Successfully updated karma reason!

This script is by Peterdudejm.

So please revise it and post it.

I don't know about that first guy you mentioned.

You might want to PM a DX author.

And isn't there a DX site?

Successfully updated karma reason!

Code: vbscript
Dim Speed,Duration
Speed=100	' This is the time in milliseconds between changing colors
Duration=2000	' This is the time in milliseconds before ending the automatic color changing
'Called when L-click is released
Function Object_OnLButtonUp(x, y, dragged)
 If Not dragged Then
Object.SetTimer 1, Speed
Object.SetTimer 2, Duration
 End If
End Function
Sub Object_OnTimer1
  'Store the current hue in variable
  hueshift = Object.hue
  'If current hue is equal to or greater than 255
  'reset to 0
  If hueshift => 255 Then
   hueshift = 0
  'If hue is not yet 255, keep adding
  Else
   hueshift = hueshift + 7
  End If
  'Set the object hue
  object.hue = hueshift
End Sub
Sub Object_OnTimer2
Object.KillTimer 1
Object.KillTimer 2
' Uncomment Next line if you want to reset color when done
'Object.hue=0
End Sub

Successfully updated karma reason!

So for one script i will have to learn whole book @ w3schools.
I don't even read my textbooks!
Ok, i won't ask bvscript to u.
I wonder!
Any great coder there!
Just revise that code dear!
And bring me my beer!

Successfully updated karma reason!

Any great coder there!
Just revise that code dear!
And bring me my beer!

real world test:

put demands in one hand
crap in the other

slap your hands together and see which you get

Successfully updated karma reason!

ZubaZ

Join Date 11/2001

+917

Learning is always better than just getting.

Successfully updated karma reason!

Thank you SirSmiley
I praise you highly
For you are the real coder
My heart would ever aspire

Thanks for your boon
I'll check the code soon
And tell you if it works
And if my widget spurts

Successfully updated karma reason!

Dim Speed,DurationSpeed=10........
.......................................................
Uncomment Next line if you want to reset color when done'Object.hue=0End Sub

It did work but i want to change the color automatically once it starts....
That is, i clicked the widget, it starts and keeps changing the color and changing and changing and....

What it did was, i ran it, then it need to be clicked to change the color once clicked it changed for few seconds.... i don't want this...

I want to change the color automatically since the widget starts till it runs....

Sorry but i don't know vbscript...

Thank you very much for the previous script and thank u very much for the next one......

Successfully updated karma reason!

ZubaZ

Join Date 11/2001

+917

Roses are red
Violets are blue

Some poems are needed
but these aren't.

Successfully updated karma reason!

please, I can't even spell bvscritp

put demands in one hand
crap in the other
slap your hands together and see which you get

Successfully updated karma reason!

I tried to figure it out as to the limit i could do....

I changed 'Called when L-click is released with 'Called when the script is executed...
but no change in behaviour After running it needed to be clicked..

I changed timer to a very large digit but it gave an error. and option to disable script. once i disabled and edited...but no gain.
Again i continued the script, although it worked but then there was an error and my widget will become buggy.....

So please give me a script for automatic color changing from the time the objects runs/starts till it is stopped...

It will be really a great help for me. As for till now i use animations to change color etc.
If i get this, my widgets will become resource friendly.

Successfully updated karma reason!

Yes, it will crash if you run the timer constantly, also your memory usage will skyrocket.

Timer's are meant to run for a specific period of time to complete a routine/function and then end.

Here ya go with a Left click function to enable/disable it.

Code: vbscript
Dim Speed, blnActive
Speed=1000 ' This is the time in milliseconds between changing colors
blnActive=True	' Indicates to start color change on Script Enter
'Called when L-click is released
Function Object_OnLButtonUp(x, y, dragged)
If Not dragged Then
	If blnActive Then
		blnActive=False
		Object.KillTimer 1
	ElseIf Not blnActive Then
		blnActive=True
		Object.SetTimer 1, Speed
	End If
End If
End Function
'Called when the script is executed
Sub Object_OnScriptEnter
	If blnActive Then Object.SetTimer 1, Speed
End Sub
Sub Object_OnTimer1
'Store the current hue in variable
hueshift = Object.hue
'If current hue is equal to or greater than 255
'reset to 0
If hueshift => 255 Then
hueshift = 0
'If hue is not yet 255, keep adding
Else
hueshift = hueshift + 7
End If
'Set the object hue
object.hue = hueshift
End Sub
'Called when the script is terminated
Sub Object_OnScriptExit
Object.KillTimer 1
End Sub

Successfully updated karma reason!

WoW!!!! It worked
Thank you SirSmiley
I praise you highly
For you are the real coder
My heart would ever aspire

Thanks for your boon
I'll check the code soon
And tell you if it works
And if my widget spurts

Successfully updated karma reason!

Great work SirSmiley

Successfully updated karma reason!

My Sweet SirSmiley Can i use these scripts in my widgets. I know you will say yes but a formal permission is required otherwise my submission may be rejected.
Thank you very much

Successfully updated karma reason!

Of course you/anyone can use this or any script that I post in the forums in your object, widgets, themes, or gadgets.

Successfully updated karma reason!

SirSmiley U R always great! Thank u

Successfully updated karma reason!

Snowman

Join Date 03/2001

+343

real world test:

put demands in one hand
crap in the other

slap your hands together and see which you get

Now there's a quote I'll be remembering and using whenever someone's being naggy and rude.

Successfully updated karma reason!

If u don't know something u can ask.
After all, forum are community meant for help with ideas, disscussions etc. I needed to ask because to learn vbscript i'll have to abandon my management books..
If i were a computer student, i won't have asked...
...and that might be the case with most who ask, won't u help them then?

Successfully updated karma reason!

well sure... but...

these:

What i want to auto change the color slowly... without clicking it.....

[quote]So please revise it and post it. Thank you[/quote

and thank u very much for the next one......

So please give me a script for automatic color changing from the time the objects runs/starts till it is stopped...

don't really fit the 'polite request for help' category.

I have an 8 yr old that makes veiled demands, but she's better at it.

Successfully updated karma reason!

Thanx i'll keep that in my mind...and sorry if my request was not polite...but my heart was true ...and our cultures are different... Anyways thanx again dear friend...

Successfully updated karma reason!

Welcome Guest! Please take the time to register with us.

There are many great features available to you once you register, including:

Richer content, access to many features that are disabled for guests like commenting and posting on the forums.
Access to a great community, with a massive database of many, many areas of interest.
Access to contests & subscription offers like exclusive emails.
It's simple, and FREE!

View all recent posts

Mark all posts as read Delete cookies created by the forum Return to Top

Stardock Forums v Server Load Time: Page Render Time: