Alek Posted October 2, 2007 Posted October 2, 2007 (edited) it totaly usless but its kinda cool expandcollapse popup$r = 200 $pi = 3.14159265358979 $x = @DesktopWidth/2 $y = @DesktopHeight/2 $wx = 20 $wy = 20 $Gui = GUICreate("Test",200,400,-1,-1) GUISetState() _SpiralEffect($Gui,0) While 1 $msg = GUIGetMsg() if $msg = -3 then _SpiralEffect($Gui,1) ExitLoop EndIf WEnd Func _SpiralEffect($S_Hwnd,$In_Out = 0) $angle = 0 $Pos_Size = WinGetPos($S_Hwnd) if $In_Out = 0 Then While 1 $angle += 10 If $angle > 360 Then $angle = 0 Sleep(1) $r += 0.1 WinMove($S_Hwnd,"",$x + ($r * Sin(($pi*2/360)*$angle)), $y + ($r * Cos(($pi*2/360)*$angle)) ,$wx,$wy) if $Pos_Size[2] > $wx Then $wx += 2 EndIf If $Pos_Size[3] > $wy Then $wy += 2 EndIf If $Pos_Size[2] <= $wx and $Pos_Size[3] <= $wy Then ExitLoop EndIf $x -= 0.8 $y -= 0.8 WEnd Do $angle+= 10 If $angle > 360 Then $angle = 0 Sleep(1) $r += 0.1 WinMove($S_Hwnd,"",$x + ($r * Sin(($pi*2/360)*$angle)), $y + ($r * Cos(($pi*2/360)*$angle)) ,$wx,$wy) $Win_Pos = WinGetPos($S_Hwnd) If $Win_Pos[1] < 0 Then WinMove($S_Hwnd,"",$Win_Pos[0],0) Until $angle = 180 ElseIf $In_Out = 1 Then For $Angle = 180 to 0 Step -11 Sleep(1) $r += 0.1 WinMove($S_Hwnd,"",$x + ($r * Sin(($pi*2/360)*$angle)), $y + ($r * Cos(($pi*2/360)*$angle)) ,$wx,$wy) $wx -= 2 $wy -= 2 $x += 1 $y += 1 Next For $p = 1 to 4 For $Angle = 360 to 0 Step -11 Sleep(1) $r += 0.1 WinMove($S_Hwnd,"",$x + ($r * Sin(($pi*2/360)*$angle)), $y + ($r * Cos(($pi*2/360)*$angle)) ,$wx,$wy) $wx -= 2 $wy -= 2 $x += 1 $y += 1 Next Next EndIf EndFunc Edited October 3, 2007 by Alek [font="Impact"]Never fear, I is here.[/font]
JustinReno Posted October 2, 2007 Posted October 2, 2007 i think its really cool! Keep of the good work!
Alek Posted October 2, 2007 Author Posted October 2, 2007 woaw that was fast thanks [font="Impact"]Never fear, I is here.[/font]
JohnBailey Posted October 2, 2007 Posted October 2, 2007 haha indeed it is cool A decision is a powerful thing
Richard Robertson Posted October 2, 2007 Posted October 2, 2007 (edited) It's pretty, I like it. I five starred it. Edited October 2, 2007 by Richard Robertson
_Kurt Posted October 3, 2007 Posted October 3, 2007 Cool, you should definately add this into GUIEnhance.au3.Check it out at: http://www.autoitscript.com/forum/index.php?showtopic=52731Great Work,Kurt Awaiting Diablo III..
Alek Posted October 3, 2007 Author Posted October 3, 2007 Cool, you should definately add this into GUIEnhance.au3.Check it out at: http://www.autoitscript.com/forum/index.php?showtopic=52731Great Work,Kurtwell then it whould need some fixing like make the window rotate until its the correct size [font="Impact"]Never fear, I is here.[/font]
therks Posted October 3, 2007 Posted October 3, 2007 That was an interesting effect. Not totally useless.. it would make for a good presentation. My AutoIt Stuff | My Github
BrettF Posted October 3, 2007 Posted October 3, 2007 Lol! THIS IS SOOOOO COOL! Great job Vist my blog!UDFs: Opens The Default Mail Client | _LoginBox | Convert Reg to AU3 | BASS.au3 (BASS.dll) (Includes various BASS Libraries) | MultiLang.au3 (Multi-Language GUIs!)Example Scripts: Computer Info Telnet Server | "Secure" HTTP Server (Based on Manadar's Server)Software: AAMP- Advanced AutoIt Media Player | WorldCam | AYTU - Youtube Uploader Tutorials: Learning to Script with AutoIt V3Projects (Hardware + AutoIt): ArduinoUseful Links: AutoIt 1-2-3 | The AutoIt Downloads Section: | SciTE4AutoIt3 Full Version!
WeMartiansAreFriendly Posted October 3, 2007 Posted October 3, 2007 That was cool. Got anymore? Don't bother, It's inside your monitor!------GUISetOnEvent should behave more like HotKeySet()
Alek Posted October 3, 2007 Author Posted October 3, 2007 ok, it now spins until the window is the correct size, so you can now create the gui any size you want the biger it is the longer it will spin [font="Impact"]Never fear, I is here.[/font]
Achilles Posted October 3, 2007 Posted October 3, 2007 Nice work! I opened five in quick succession and it looked pretty cool! My Programs[list][*]Knight Media Player[*]Multiple Desktops[*]Daily Comics[*]Journal[/list]
Tasmania Posted October 4, 2007 Posted October 4, 2007 That was pretty neat... very nice effect. Keep it up
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now