Hallo,
wie kann ich eine GUI auf dem Desktop fallen lassen, so das es auch echt aussieht. Also es fällt runter und springt auch danach noch ein wenig.
so weit bin ich gekommen:
[autoit]$2 = GUICreate("HAH", 200, 200, 500, 1)
GUISetState()
For $1 = 1 To 610
WinMove($2, "", 500, $1)
Sleep(10)
Next
For $1 = 610 To 500 Step -1
WinMove($2, "", 500, $1)
Sleep(10)
Next
Probier mal das aus :
$2 = GUICreate("HAH", 200, 200, 500, 1)
GUISetState()
For $1 = 1 To 610
WinMove($2, "", 500, $1)
Sleep(10)
Next
For $j = 510 To 610 Step +10
For $1 = 610 To $j Step -1
WinMove($2, "", 500, $1)
Sleep(10)
Next
For $1 = $j To 610
WinMove($2, "", 500, $1)
Sleep(10)
Next
Next
Oder mit weniger gehoppel :
$2 = GUICreate("HAH", 200, 200, 500, 1)
GUISetState()
For $1 = 1 To 610
WinMove($2, "", 500, $1)
Sleep(10)
Next
For $j = 510 To 610 Step +20
For $1 = 610 To $j Step -1
WinMove($2, "", 500, $1)
Sleep(10)
Next
For $1 = $j To 610
WinMove($2, "", 500, $1)
Sleep(10)
Next
Next
Ja so in der art sollte es sein. Aber beim fallen darf es ja nicht mit gleicher Geschwindigkeit nach unten fallen. Sondern erst langsam und dann schnell. Nur wie kann man sowas machen...
Dann mach es so in der Art:
$2 = GUICreate("HAH", 200, 200, 500, 1)
GUISetState()
For $1 = 1 To 610
WinMove($2, "", 500, $1)
Sleep(35-$1/16)
Next
For $j = 510 To 610 Step +20
For $1 = 610 To $j Step -1
WinMove($2, "", 500, $1)
Sleep(10)
Next
For $1 = $j To 610
WinMove($2, "", 500, $1)
Sleep(10)
Next
Next
Einfach mal ein Bischen mit dem Sleep rumbasteln.
Edit:Shit, falschen Quelltext . Angepaßt.
GTA sieht gut aus.
Edit : GTA´s Beispiel mit der Gui:
#include <WindowsConstants.au3>
[/autoit] [autoit][/autoit] [autoit]; Bounce Test by Hallman
[/autoit] [autoit][/autoit] [autoit]; Change these variables to whatever you want
Global $Gravity = 1.4
; Has to be greater than 1 (1.4 = default)
Global $Bounce_Ratio = 0.7 ;
; Should be >0 and <1 (0.7 = default). If you set it to 1, then the ball will bounce to the same height that it was dropped from.
Global $TimePerTick = 30
; How long each tick is in miliseconds. Bigger number = slower ball movement (30 = default)
; -----------------------------------------------------------------------------------------------------------------------------------
; -----------------------------------------------------------------------------------------------------------------------------------
Dim $BallPos[4]
$BallPos[0] = 0
$BallPos[1] = 0
$BallPos[2] = 200
$BallPos[3] = 200
Dim $Current_Tick[6]
;~ $Current_Tick[0] = Active? (0 or 1)
;~ $Current_Tick[1] = Timer
;~ $Current_Tick[2] = Movement So Far
;~ $Current_Tick[3] = Total Movement
Global $Speed = 0
[/autoit] [autoit][/autoit] [autoit]$Main_Window =GUICreate("HAH", 200, 200, 500, 1)
[/autoit] [autoit][/autoit] [autoit]GuiSetState()
[/autoit] [autoit][/autoit] [autoit]WinSetOnTop($Main_Window, "", 1)
[/autoit] [autoit][/autoit] [autoit]$Win_Pos = WinGetPos($Main_Window, "")
[/autoit] [autoit][/autoit] [autoit]$BallPos[0] = $Win_Pos[0]
$BallPos[1] = $Win_Pos[1]
Sleep(2000)
[/autoit] [autoit][/autoit] [autoit]$Loop_Timer = TimerInit()
$Time_Per_Loop = 1
$Speed = 1
[/autoit] [autoit][/autoit] [autoit]$Current_Tick[0] = 0
[/autoit] [autoit][/autoit] [autoit]While 1
$Time_Per_Loop = TimerDiff($Loop_Timer)
$Loop_Timer = TimerInit()
If $Current_Tick[0] = 1 Then
$Current_Tick_Time = TimerDiff($Current_Tick[1])
If $Current_Tick_Time > $TimePerTick Then
$BallPos[1] = $Current_Tick[3]
WinMove($Main_Window, "", $BallPos[0], $BallPos[1], $BallPos[2], $BallPos[3])
$Current_Tick[0] = 0
Else
If $Speed > 0 Then
$int = ($TimePerTick - $Current_Tick_Time) / $Time_Per_Loop
$Movement = ($Current_Tick[3] - $Current_Tick[2]) / $int
$Current_Tick[2] += $Movement
If $Current_Tick[2] >= $Current_Tick[3] Then
$BallPos[1] = $Current_Tick[3]
WinMove($Main_Window, "", $BallPos[0], $BallPos[1], $BallPos[2], $BallPos[3])
$Current_Tick[0] = 0
Else
$BallPos[1] = $Current_Tick[2]
WinMove($Main_Window, "", $BallPos[0], $BallPos[1], $BallPos[2], $BallPos[3])
EndIf
Else
$int = ($TimePerTick - $Current_Tick_Time) / $Time_Per_Loop
$Movement = ($Current_Tick[3] - $Current_Tick[2]) / $int
$Current_Tick[2] += $Movement
If $Current_Tick[2] <= $Current_Tick[3] Then
$BallPos[1] = $Current_Tick[3]
WinMove($Main_Window, "", $BallPos[0], $BallPos[1], $BallPos[2], $BallPos[3])
$Current_Tick[0] = 0
Else
$BallPos[1] = $Current_Tick[2]
WinMove($Main_Window, "", $BallPos[0], $BallPos[1], $BallPos[2], $BallPos[3])
EndIf
EndIf
EndIf
Else
If $BallPos[1] = (@DesktopHeight - $BallPos[3]) Then
$Speed = $Speed * -1
$Speed = $Speed * $Bounce_Ratio
If $Speed > -0.2 and $Speed < 0.2 Then
Sleep(2000)
Exit
EndIf
Else
If $Speed > 0 Then
$Speed = $Speed * $Gravity
ElseIf $Speed < 0 Then
$Speed = $Speed / $Gravity
If $Speed > -2 Then $Speed = $Speed * -1
EndIf
EndIf
$Current_Tick[2] = $BallPos[1]
$Current_Tick[3] = $BallPos[1] + $Speed
If $Current_Tick[3] > (@DesktopHeight - $BallPos[3]) Then
$Current_Tick[3] = (@DesktopHeight - $BallPos[3])
EndIf
$Current_Tick[1] = TimerInit()
$Current_Tick[0] = 1
EndIf
WEnd
Und das is auch Nett:
#include <WindowsConstants.au3>
[/autoit] [autoit][/autoit] [autoit]; Bounce Test by Hallman
[/autoit] [autoit][/autoit] [autoit]; Change these variables to whatever you want
Global $Gravity = 1.4
; Has to be greater than 1 (1.4 = default)
Global $Bounce_Ratio = 0.7 ;
; Should be >0 and <1 (0.7 = default). If you set it to 1, then the ball will bounce to the same height that it was dropped from.
Global $TimePerTick = 30
; How long each tick is in miliseconds. Bigger number = slower ball movement (30 = default)
; -----------------------------------------------------------------------------------------------------------------------------------
; -----------------------------------------------------------------------------------------------------------------------------------
Dim $BallPos[4]
$BallPos[0] = 30
$BallPos[1] = 0
$BallPos[2] = 200
$BallPos[3] = 200
Dim $Current_Tick[6]
;~ $Current_Tick[0] = Active? (0 or 1)
;~ $Current_Tick[1] = Timer
;~ $Current_Tick[2] = Movement So Far
;~ $Current_Tick[3] = Total Movement
Global $Speed = 0
[/autoit] [autoit][/autoit] [autoit]$Main_Window = GUICreate("HAH", 200, 200, 1, 1)
[/autoit] [autoit][/autoit] [autoit];~ $Ball_Ctrl = GUICtrlCreatePic("accessories_guide_golfball.gif", 0, 0, $BallPos[2], $BallPos[3])
[/autoit] [autoit][/autoit] [autoit]GuiSetState()
[/autoit] [autoit][/autoit] [autoit]WinSetOnTop($Main_Window, "", 1)
[/autoit] [autoit][/autoit] [autoit]$Win_Pos = WinGetPos($Main_Window, "")
[/autoit] [autoit][/autoit] [autoit]$BallPos[0] = $Win_Pos[0]
$BallPos[1] = $Win_Pos[1]
Sleep(2000)
[/autoit] [autoit][/autoit] [autoit]$Loop_Timer = TimerInit()
$Time_Per_Loop = 1
$Speed = 1
[/autoit] [autoit][/autoit] [autoit]$Current_Tick[0] = 0
[/autoit] [autoit][/autoit] [autoit]While 1
$Time_Per_Loop = TimerDiff($Loop_Timer)
$Loop_Timer = TimerInit()
$BallPos[0] += 1
If $Current_Tick[0] = 1 Then
$Current_Tick_Time = TimerDiff($Current_Tick[1])
If $Current_Tick_Time > $TimePerTick Then
$BallPos[1] = $Current_Tick[3]
WinMove($Main_Window, "", $BallPos[0], $BallPos[1], $BallPos[2], $BallPos[3])
$Current_Tick[0] = 0
Else
If $Speed > 0 Then
$int = ($TimePerTick - $Current_Tick_Time) / $Time_Per_Loop
$Movement = ($Current_Tick[3] - $Current_Tick[2]) / $int
$Current_Tick[2] += $Movement
If $Current_Tick[2] >= $Current_Tick[3] Then
$BallPos[1] = $Current_Tick[3]
WinMove($Main_Window, "", $BallPos[0], $BallPos[1], $BallPos[2], $BallPos[3])
$Current_Tick[0] = 0
Else
$BallPos[1] = $Current_Tick[2]
WinMove($Main_Window, "", $BallPos[0], $BallPos[1], $BallPos[2], $BallPos[3])
EndIf
Else
$int = ($TimePerTick - $Current_Tick_Time) / $Time_Per_Loop
$Movement = ($Current_Tick[3] - $Current_Tick[2]) / $int
$Current_Tick[2] += $Movement
If $Current_Tick[2] <= $Current_Tick[3] Then
$BallPos[1] = $Current_Tick[3]
WinMove($Main_Window, "", $BallPos[0], $BallPos[1], $BallPos[2], $BallPos[3])
$Current_Tick[0] = 0
Else
$BallPos[1] = $Current_Tick[2]
WinMove($Main_Window, "", $BallPos[0], $BallPos[1], $BallPos[2], $BallPos[3])
EndIf
EndIf
EndIf
Else
If $BallPos[1] = (@DesktopHeight - $BallPos[3]) Then
$Speed = $Speed * -1
$Speed = $Speed * $Bounce_Ratio
If $Speed > -0.2 and $Speed < 0.2 Then
Sleep(2000)
Exit
EndIf
Else
If $Speed > 0 Then
$Speed = $Speed * $Gravity
ElseIf $Speed < 0 Then
$Speed = $Speed / $Gravity
If $Speed > -2 Then $Speed = $Speed * -1
EndIf
EndIf
$Current_Tick[2] = $BallPos[1]
$Current_Tick[3] = $BallPos[1] + $Speed
If $Current_Tick[3] > (@DesktopHeight - $BallPos[3]) Then
$Current_Tick[3] = (@DesktopHeight - $BallPos[3])
EndIf
$Current_Tick[1] = TimerInit()
$Current_Tick[0] = 1
EndIf
sleep(1)
WEnd
Ich hab mir mal erlaubt das in eine Funktion einzubauen (vielleicht brauchts ja Deepred)
#include <GUIConstantsEx.au3>
$Main_Window = GUICreate("HAH", 200, 200, 1, 1)
GuiSetState()
_Gravity($Main_Window, @DesktopWidth / 2, @DesktopHeight / 2)
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
Sleep(10)
WEnd
Func _Gravity($Main_Window, $EndPosX = 500, $EndPosY = 500, $Gravity = 1.4, $Bounce_Ratio = 0.7, $TimePerTick = 30)
Dim $BallPos[4]
$BallPos[0] = 30
$BallPos[1] = 0
$BallPos[2] = 200
$BallPos[3] = 200
Dim $Current_Tick[6]
;~ $Current_Tick[0] = Active? (0 or 1)
;~ $Current_Tick[1] = Timer
;~ $Current_Tick[2] = Movement So Far
;~ $Current_Tick[3] = Total Movement
Global $Speed = 0
[/autoit] [autoit][/autoit] [autoit]WinSetOnTop($Main_Window, "", 1)
[/autoit] [autoit][/autoit] [autoit]$Win_Pos = WinGetPos($Main_Window, "")
[/autoit] [autoit][/autoit] [autoit]$BallPos[0] = $Win_Pos[0]
$BallPos[1] = $Win_Pos[1]
$Loop_Timer = TimerInit()
$Time_Per_Loop = 1
$Speed = 1
[/autoit] [autoit][/autoit] [autoit]$Current_Tick[0] = 0
[/autoit] [autoit][/autoit] [autoit]While 1
$Time_Per_Loop = TimerDiff($Loop_Timer)
$Loop_Timer = TimerInit()
$BallPos[0] += 1
If $Current_Tick[0] = 1 Then
$Current_Tick_Time = TimerDiff($Current_Tick[1])
If $Current_Tick_Time > $TimePerTick Then
$BallPos[1] = $Current_Tick[3]
WinMove($Main_Window, "", $BallPos[0], $BallPos[1], $BallPos[2], $BallPos[3])
$Current_Tick[0] = 0
Else
If $Speed > 0 Then
$int = ($TimePerTick - $Current_Tick_Time) / $Time_Per_Loop
$Movement = ($Current_Tick[3] - $Current_Tick[2]) / $int
$Current_Tick[2] += $Movement
If $Current_Tick[2] >= $Current_Tick[3] Then
$BallPos[1] = $Current_Tick[3]
WinMove($Main_Window, "", $BallPos[0], $BallPos[1], $BallPos[2], $BallPos[3])
$Current_Tick[0] = 0
Else
$BallPos[1] = $Current_Tick[2]
WinMove($Main_Window, "", $BallPos[0], $BallPos[1], $BallPos[2], $BallPos[3])
EndIf
Else
$int = ($TimePerTick - $Current_Tick_Time) / $Time_Per_Loop
$Movement = ($Current_Tick[3] - $Current_Tick[2]) / $int
$Current_Tick[2] += $Movement
If $Current_Tick[2] <= $Current_Tick[3] Then
$BallPos[1] = $Current_Tick[3]
WinMove($Main_Window, "", $BallPos[0], $BallPos[1], $BallPos[2], $BallPos[3])
$Current_Tick[0] = 0
Else
$BallPos[1] = $Current_Tick[2]
WinMove($Main_Window, "", $BallPos[0], $BallPos[1], $BallPos[2], $BallPos[3])
EndIf
EndIf
EndIf
Else
If $BallPos[1] = (@DesktopHeight - $BallPos[3]) Then
$Speed = $Speed * -1
$Speed = $Speed * $Bounce_Ratio
If $Speed > -0.2 and $Speed < 0.2 Then
ExitLoop
EndIf
Else
If $Speed > 0 Then
$Speed = $Speed * $Gravity
ElseIf $Speed < 0 Then
$Speed = $Speed / $Gravity
If $Speed > -2 Then $Speed = $Speed * -1
EndIf
EndIf
$Current_Tick[2] = $BallPos[1]
$Current_Tick[3] = $BallPos[1] + $Speed
If $Current_Tick[3] > (@DesktopHeight - $BallPos[3]) Then
$Current_Tick[3] = (@DesktopHeight - $BallPos[3])
EndIf
$Current_Tick[1] = TimerInit()
$Current_Tick[0] = 1
EndIf
sleep(1)
WEnd
WinMove($Main_Window, "", $EndPosX, $EndPosY)
EndFunc
Padmak
