Sign in to follow this  
Followers 0
Swift

Flashy Colorful Color Test!

24 posts in this topic

Have you ever seen some programs where when you want to install them...they check your video?

and you press 'check' and then it makes swirls and colors and stuff like that?...i want a GUI with 1 button that says: test you click it....and it does all that....i like seeing the colors and stuff...so can anyone make me one? i found a example with JustinReno's All-In-One program...i love it...

its attached below its under: Misc.. Color Test.

All_In_One_Source.au3

Share this post


Link to post
Share on other sites



No One Knows How To Make These?

Share this post


Link to post
Share on other sites

No One Knows How To Make These?

Search for screen savers by lokster, he makes some good effects. He's got more than one thread for screen savers I think.

You can also do a lot with GUICtrlSetGraphic.


Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.

Share this post


Link to post
Share on other sites

that doesnt help me :) i pm'd him...but he hasnt replied.

Share this post


Link to post
Share on other sites

so can anyone make me one?

That's not the purpose of the forums. We can help you out if you run into problems but don't expect people to write the code for you. As I pointed out to you yesterday, RTFM.

Try to make it work by looking at examples already posted and THEN if you have problems, post what you've tried and someone will probably try to help you.


George

Question about decompiling code? Read the decompiling FAQ and don't bother posting the question in the forums.

Be sure to read and follow the forum rules. -AKA the AutoIt Reading and Comprehension Skills test.***

The PCRE (Regular Expression) ToolKit for AutoIT - (Updated Oct 20, 2011 ver:3.0.1.13) - Please update your current version before filing any bug reports. The installer now includes both 32 and 64 bit versions. No change in version number.

Visit my Blog .. currently not active but it will soon be resplendent with news and views. Also please remove any links you may have to my website. it is soon to be closed and replaced with something else.

"Old age and treachery will always overcome youth and skill!"

Share this post


Link to post
Share on other sites

I Dont know what to use though...thats the problem

Share this post


Link to post
Share on other sites

I already have that :)

Share this post


Link to post
Share on other sites

... I don't understand what you want.

JustinReno already made one for you.

See the source that you attached:

Func _Flicker()
    $WIndow = GUICreate("", @DesktopWidth + 200, @DesktopHeight + 200, -1, -1, $WS_POPUP + $WS_BORDER, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
    GUISetState(@SW_SHOW)
    $BkColor = 0xFF0000
    ProcessSetPriority(@ScriptName, 4)
For $i = 1000 to 1 Step -1
        If $BkColor = 0xFF0000 Then 
            $BkColor = 0x00FF00
        ElseIf $BkColor = 0x00FF00 Then 
            $BkColor = 0x0000FF
        ElseIf $BkColor = 0x0000FF Then 
            $BkColor = 0xFF0000 
        EndIf   
        GUISetBkColor($BkColor)
next
    GUIDelete()
    ProcessSetPriority(@ScriptName, 0)
EndFunc

Share this post


Link to post
Share on other sites

yeah...but i want one that is much longer...with more colors and flashes! :)

Share this post


Link to post
Share on other sites

#11 ·  Posted (edited)

Its really easy. Look up For/Next and for the colors click hex hub on www.december.com.

Edited by JustinReno

Share this post


Link to post
Share on other sites

#12 ·  Posted (edited)

For me its not :)...i get no help again :P so vague (Vahgah) idk if thats how u spell it..but...yea...for and next are just words to make it...basically

ShellExecute(jakjshf)

Next

1531

For

1522

:blink:

EDIT: and i looked for For and Next in the helpfile...didnt help me with what im tring to do :wub: i feel like im being ignored :P >.<

Edited by Swift

Share this post


Link to post
Share on other sites

#13 ·  Posted (edited)

Look up For/Next

The help file is your friend. Edited by JustinReno

Share this post


Link to post
Share on other sites

i tried to make this...but didnt exactly work as planned...now a red flash appears :)

#include <GuiConstants.au3>
#Include <Misc.au3>
GUICreate(" Push", 100, 50, -1, -1, $GUI_SS_DEFAULT_GUI , BitOr($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST))
$Button = GUICtrlCreateButton("Push", 2, 2, 98, 48)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitLoop
Case $Button
    _Flicker()
EndSwitch
WEnd

Func _Flicker()
    $WIndow = GUICreate("", @DesktopWidth + 200, @DesktopHeight + 200, -1, -1, $WS_POPUP + $WS_BORDER, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
    GUISetState(@SW_SHOW)
    $BkColor = 0xFF0000
    ProcessSetPriority(@ScriptName, 4)
For $i = 1000 to 1 Step -1
        If $BkColor = 0xFF0000 Then 
            $BkColor = 0x00FF00
        ElseIf $BkColor = 0x00FF00 Then 
            $BkColor = 0x0000FF
        ElseIf $BkColor = 0x0000FF Then 
            $BkColor = 0xFF0000 
        EndIf   
        GUISetBkColor($BkColor)
next
    GUIDelete()
    ProcessSetPriority(@ScriptName, 0)
    $WIndow = GUICreate("", @DesktopWidth + 200, @DesktopHeight + 200, -1, -1, $WS_POPUP + $WS_BORDER, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
    GUISetState(@SW_SHOW)
    $BkColor = 0xFF0000
    ProcessSetPriority(@ScriptName, 4)
For $i = 1000 to 1 Step -1
        If $BkColor = 0xFF0000 Then 
            $BkColor = 0x00FF00
        ElseIf $BkColor = 0x00FF00 Then 
            $BkColor = 0x0000FF
        ElseIf $BkColor = 0x0000FF Then 
            $BkColor = 0xFF0000 
        EndIf   
        GUISetBkColor($BkColor)
next
    GUIDelete()
    ProcessSetPriority(@ScriptName, 0)
    $WIndow = GUICreate("", @DesktopWidth + 200, @DesktopHeight + 200, -1, -1, $WS_POPUP + $WS_BORDER, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
    GUISetState(@SW_SHOW)
    $BkColor = 0xFF0000
    ProcessSetPriority(@ScriptName, 4)
For $i = 5 to 1 Step -1
        If $BkColor = 0xFF00F0 Then 
            $BkColor = 0x42F32A
        ElseIf $BkColor = 0x00FF00 Then 
            $BkColor = 0x00FF00
        ElseIf $BkColor = 0x0F00FF Then 
            $BkColor = 0x42932A
        EndIf   
        GUISetBkColor($BkColor)
next
    GUIDelete()
    ProcessSetPriority(@ScriptName, 0)
    $WIndow = GUICreate("", @DesktopWidth + 200, @DesktopHeight + 200, -1, -1, $WS_POPUP + $WS_BORDER, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
        GUISetBkColor(0x42932A)
        GUISetBkColor(0xAA0000)
        GUISetBkColor(0x777C8A)
        GUISetBkColor(0x42932A)
        GUISetBkColor(0x42932A)
        GUISetBkColor(0x42932A)
        GUISetBkColor(0x42932A)
        GUISetBkColor(0x42932A)
    GUIDelete()
    ProcessSetPriority(@ScriptName, 0)

EndFunc

Whats wrong? why doesnt it make black circles?

Share this post


Link to post
Share on other sites

You never told it to make black circles. Your just repeating the script for a while.

Share this post


Link to post
Share on other sites

can you make it make black circles?

Share this post


Link to post
Share on other sites

I'm not experienced enough with GuiCtrlCreateGraphic().

Share this post


Link to post
Share on other sites

Oh.... :)

Share this post


Link to post
Share on other sites

But, because you did try, here is the example I made:

Have fun:

#Include <Misc.au3>

HotKeySet("{ESC}", "_MyExit")
HotKeySet("y", "_Key")
HotKeySet("n", "_Key")

Global $Colors[9] = ["0x000000", "0xFFFFFF", "0x800000", "0xFF6103", "0xB8860B", "0x385E0F", "0x3299CC", "0xCC00FF", "0xFF1CAE"], $Label

$CheckGUI = GUICreate("Video Card", 100, 26, -1, -1, -1, 0x00000080 + 0x00000100)
$CheckButton = GUICtrlCreateButton("Check Video Card", 0, 0, 99, 25, 0)
GUISetState(@SW_SHOW)
While 1
    Switch GUIGetMsg()
        Case -3
            Exit
        Case $CheckButton
            _Check(1500)
            ExitLoop
   EndSwitch
WEnd

Func _Check($Sleep)
$GUI =  GUICreate("", @DesktopWidth+100, @DesktopHeight+100, -1, -1, 0x80000000, 0x00000008)
GUISetState(@SW_SHOW, $GUI)
For $i = 1 to $Sleep
    GUISetCursor(16, 1, $GUI)
    GUISetBkColor($Colors[Random(0, 8, 1)], $GUI)
Next
Beep(8000, 100)
Beep(10000, 100)
Beep(12000, 100)
$Label = GUICtrlCreateLabel("Did you see the colored bars?", 65, @DesktopHeight-55, @DesktopWidth, 100)
GUICtrlSetFont($Label, 72)
GUICtrlSetColor($Label, 0xFFFFFF)
While 1
    Sleep(10)
WEnd
EndFunc

Func _Key()
    If @HotKeyPressed = "y" Then
        GUICtrlSetData($Label, GUICtrlRead($Label)&" Y")
        Sleep(1000)
        Exit
    EndIf
    If @HotKeyPressed = "n" Then
        GUICtrlSetData($Label, GUICtrlRead($Label)&" N")
        Sleep(1000)
        Exit
    EndIf
EndFunc

Func _MyExit()
    Exit
EndFunc

Share this post


Link to post
Share on other sites

thanks man :) i love it :P

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0