Jump to content
Sign in to follow this  
arcker

My Gift for the Auto IT CoMunnIty

Recommended Posts

just a simple animation, but to thanx the devs of autoit, for improving this langage, that permits me to have a job

for this year of scripting :

;K2000 animation 2006 By Arcker
;For The AutoIt community
#include <GUIConstants.au3>
;Dim $light[9],$lightvalue[9]
_display_progress("AUTO IT VERSION 3.2.X.X", 1, 0x040000, 0xff0000, -1, 25, 30, 5, 0,3)
GUISetState(@sw_hide)
sleep(100)
_display_progress("And his community", 1, 0x040000, 0xff0000, -1, 10, 30, 5, 2,6)
GUISetState(@sw_hide)
sleep(100)
_display_progress("Wish you a merry christmas ", 1, 0x040000, 0xff0000, -1, 20, 30, 5, 1,4)
GUISetState(@sw_hide)
sleep(100)
_display_progress("and a happy new year ", 1, 0x040FFF, 0xffFF00, -1, 20, 30, 5, 1,4)
GUISetState(@sw_hide)
sleep(100)
_display_progress(" thanx for this year of code addicting ", 1, 0x040FFF, 0xffFF00, -1, 10, 30, 5, 1,4)
GUISetState(@sw_hide)
sleep(100)
_display_progress("  LONG LIFE TO AUTOIT  ", 1, 0x0F0F0F, 0xffFFFF, -1, 150, 40, 15, 1,4)
Func _display_progress($size = 5, $sizevaluefade = 1, $valuefade = 0x110000, $valuemaxcolor = 0xff0000, $croissance = -1, $delay = 50, $itemwidth = 20, $itemspace = 5, $switch = 0,$limit=0)
    Dim $tabsize, $istring = 0
    If IsInt($size) Then
        $size = $size
    Else
        $string = $size
        $size = StringLen($size)
        $istring = 1
    EndIf
    $tabsize = $size - 1
    $middle = Mod($size, 2)
    If $middle = 0 Then Exit
    $middle = $size / 2 - 0.5
    ConsoleWrite("middle = > " & $middle & @CRLF)
    Dim $light[$size], $lightvalue[$size], $currentheight[$size], $currentwidth[$size], $sizevalue[$size]
    ConsoleWrite("value fade => " & $valuefade)
    ;ConsoleWrite(Int($valuemax))
    $widthtoset = $itemwidth + $itemspace
    $width = 10 + $size * $widthtoset
    $height = 25 + $size
    $setheight = $height - $size - 5
    $Form1 = GUICreate("AForm1", $width, $height, -1, -1, $WS_POPUP)
    $totalsize = 20 + $size
    If $croissance = -1 Then
        $valuemax = $totalsize
    Else
        $valuemax = 3
    EndIf
    $widthset = 5
    For $i = 0 To $middle - 1
        $currentwidth[$i] = $widthset
        $light[$i] = GUICtrlCreateLabel("", $widthset, $setheight - $i, $itemwidth, $i + $size)
        GUICtrlSetBkColor(-1, $valuemaxcolor)
        If $istring Then GUICtrlSetData(-1, StringMid($string, $i + 1, 1))
        GUICtrlSetFont(-1, $size * 1.4, 800)
        $widthset += $widthtoset
    Next
    $light[$middle] = GUICtrlCreateLabel("", $widthset, $setheight - $middle, $itemwidth, $middle + $size)
    GUICtrlSetBkColor(-1, $valuemaxcolor)
    If $istring Then GUICtrlSetData(-1, StringMid($string, $i + 1, 1))
    GUICtrlSetFont(-1, $size * 1.4, 800)
    $currentwidth[$middle] = $widthset
    $widthset += $widthtoset
    ;$setheight = 0;$middle - 1
    $k = 0
    ;$scale = $size -29
    $itemheight = $setheight - $middle + 1
    $itemsize = $middle + $size - 1
    For $i = $middle + 1 To $tabsize
        $currentwidth[$i] = $widthset
        $light[$i] = GUICtrlCreateLabel("", $widthset, $itemheight, $itemwidth, $itemsize)
        GUICtrlSetBkColor(-1, $valuemaxcolor)
        If $istring Then GUICtrlSetData(-1, StringMid($string, $i + 1, 1))
        GUICtrlSetFont(-1, $size * 1.4, 800)
        $widthset += $widthtoset
        $itemheight += 1
        $itemsize -= 1
    Next
    GUISetState(@SW_SHOW)
    GUISetBkColor(0x000000)
    AdlibEnable("messageHandler", 50)
    $countlimit=1
    While 1
        If $limit = 0 Then
            ;ContinueLoop
        Else
            If $countlimit = $limit Then ExitLoop
            $countlimit += 1
        EndIf
        For $i = 0 To $tabsize
            $lightvalue[$i] = $valuemaxcolor
            $sizevalue[$i] = $valuemax
            ;$switch = 0
            GUICtrlSetBkColor($light[$i], $valuemax)
            ;pour tous les éléments APRES la lumière "principale"
            If $i <= $tabsize Then
                For $current = $i + 1 To $tabsize
                    If $croissance = -1 Then
                        $sizevalue[$current] -= $sizevaluefade
                    Else
                        $sizevalue[$current] += $sizevaluefade
                    EndIf
                    Switch $switch
                        Case 0
                            GUICtrlSetPos($light[$current], $currentwidth[$current], 0, $itemwidth, $sizevalue[$current])
                        Case 1
                            GUICtrlSetPos($light[$current], $currentwidth[$current], ($totalsize - $sizevalue[$current]) / 2, $itemwidth, $sizevalue[$current])
                        Case 2
                            GUICtrlSetPos($light[$current], $currentwidth[$current], ($totalsize - $sizevalue[$current]), $itemwidth, $sizevalue[$current])
                    EndSwitch
                    $lightvalue[$current] -= $valuefade
                    GUICtrlSetBkColor($light[$current], $lightvalue[$current])
                Next
            EndIf
            If $i > 0 Then
                For $current = $i - 1 To 0 Step - 1
                    If $croissance = -1 Then
                        $sizevalue[$current] -= $sizevaluefade
                    Else
                        $sizevalue[$current] += $sizevaluefade
                    EndIf
                    Switch $switch
                        Case 0
                            GUICtrlSetPos($light[$current], $currentwidth[$current], 0, $itemwidth, $sizevalue[$current])
                        Case 1
                            GUICtrlSetPos($light[$current], $currentwidth[$current], ($totalsize - $sizevalue[$current]) / 2, $itemwidth, $sizevalue[$current])
                        Case 2
                            GUICtrlSetPos($light[$current], $currentwidth[$current], ($totalsize - $sizevalue[$current]), $itemwidth, $sizevalue[$current])
                    EndSwitch
                    $lightvalue[$current] -= $valuefade
                    GUICtrlSetBkColor($light[$current], $lightvalue[$current])
                Next
            EndIf
            Sleep($delay)
        Next
        
        
        For $i = $tabsize To 0 Step - 1
            $lightvalue[$i] = $valuemaxcolor
            $sizevalue[$i] = $valuemax
            GUICtrlSetBkColor($light[$i], $valuemax)
            ;pour tous les éléments APRES la lumière "principale"
            If $i < $tabsize Then
                For $current = $i + 1 To $tabsize
                    If $croissance = -1 Then
                        $sizevalue[$current] -= $sizevaluefade
                    Else
                        $sizevalue[$current] += $sizevaluefade
                    EndIf
                    Switch $switch
                        Case 0
                            GUICtrlSetPos($light[$current], $currentwidth[$current], 0, $itemwidth, $sizevalue[$current])
                        Case 1
                            GUICtrlSetPos($light[$current], $currentwidth[$current], ($totalsize - $sizevalue[$current]) / 2, $itemwidth, $sizevalue[$current])
                        Case 2
                            GUICtrlSetPos($light[$current], $currentwidth[$current], ($totalsize - $sizevalue[$current]), $itemwidth, $sizevalue[$current])
                    EndSwitch
                    $lightvalue[$current] -= $valuefade
                    GUICtrlSetBkColor($light[$current], $lightvalue[$current])
                Next
            EndIf
            If $i > 0 Then
                For $current = $i - 1 To 0 Step - 1
                    If $croissance = -1 Then
                        $sizevalue[$current] -= $sizevaluefade
                    Else
                        $sizevalue[$current] += $sizevaluefade
                    EndIf
                    Switch $switch
                        Case 0
                            GUICtrlSetPos($light[$current], $currentwidth[$current], 0, $itemwidth, $sizevalue[$current])
                        Case 1
                            GUICtrlSetPos($light[$current], $currentwidth[$current], ($totalsize - $sizevalue[$current]) / 2, $itemwidth, $sizevalue[$current])
                        Case 2
                            GUICtrlSetPos($light[$current], $currentwidth[$current], ($totalsize - $sizevalue[$current]), $itemwidth, $sizevalue[$current])
                    EndSwitch
                    $lightvalue[$current] -= $valuefade
                    GUICtrlSetBkColor($light[$current], $lightvalue[$current])
                Next
            EndIf
            Sleep($delay)
        Next
    WEnd
EndFunc   ;==>_display_progress
Func messageHandler()
    If GUIGetMsg() = $GUI_EVENT_CLOSE Then Exit
EndFunc   ;==>messageHandler

-- Arck System _ Soon -- Ideas make everything

"La critique est facile, l'art est difficile"

Projects :

[list] [*]Au3Service : Run your exe as service V3 / Updated 29/07/2013 Get it Here [/list]

Share this post


Link to post
Share on other sites

Good animation and very thoughtful :P


My Programs:AInstall - Create a standalone installer for your programUnit Converter - Converts Length, Area, Volume, Weight, Temperature and Pressure to different unitsBinary Clock - Hours, minutes and seconds have 10 columns each to display timeAutoIt Editor - Code Editor with Syntax Highlighting.Laserix Editor & Player - Create, Edit and Play Laserix LevelsLyric Syncer - Create and use Synchronised Lyrics.Connect 4 - 2 Player Connect 4 Game (Local or Online!, Formatted Chat!!)MD5, SHA-1, SHA-256, Tiger and Whirlpool Hash Finder - Dictionary and Brute Force FindCool Text Client - Create Rendered ImageMy UDF's:GUI Enhance - Enhance your GUIs visually.IDEA File Encryption - Encrypt and decrypt files easily! File Rename - Rename files easilyRC4 Text Encryption - Encrypt text using the RC4 AlgorithmPrime Number - Check if a number is primeString Remove - remove lots of strings at onceProgress Bar - made easySound UDF - Play, Pause, Resume, Seek and Stop.

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  

×
×
  • Create New...