Ballistics

[andybiochem]

Hi Guys,

Thought I'd share this with you all.

It's a ballistics simulator, showing what happens when you throw a ball in the air. w00t!

To throw a ball, click and drag anywhere in the white portion of the GUI - preferably to the left hand side.

The longer you make your line the more energy (starting velocity) your ball has...so it will be thrown further.

expandcollapse popup

#include <GuiConstantsEx.au3>
#include <Misc.au3>

Opt("MouseCoordMode",2)

;***********************************
; Declare Vars
;***********************************

Global $PI = 3.1415926536

Global $iWidth = 800
Global $iHeight = 600

Global $iStartX
Global $iStartY

Global $time
Global $distance
Global $height
Global $velocity
Global $angle

Global $m1[2]
Global $m2[2]

Global $dll = DllOpen("user32.dll")

Global $iGraphCount = 0


;***********************************
; GUI
;***********************************

$GUI = GUICreate("",$iWidth,$iHeight,Default,Default,Default,0x2000000)
GUISetOnEvent($GUI_EVENT_CLOSE,"_Close")


GUICtrlCreateLabel("",1,550,800,50)
GUICtrlSetBkColor(-1,0xe9e9e9)


;***********************************
; Graphic
;***********************************

$Graphic = GUICtrlCreateGraphic(0,0,$iWidth,$iHeight)
GUICtrlSetBkColor(-1,0xFFFFFF)



GUISetState()

While 1
;***********************************
; Set up potential + angle
;***********************************

    Sleep(100)
    
    If _IsPressed("01",$dll) = 1 Then
        
        $m1 = MouseGetPos()
        
        $Ball = GUICtrlCreateRadio("",$m1[0],$m1[1]-13,13,13)
        GUICtrlSetBkColor(-1,0xFFFFFF)
        
        
        Do
            _ClearGraphic()
            $m2 = MouseGetPos()
            GUICtrlSetGraphic($Graphic,$GUI_GR_MOVE,$m1[0],$m1[1])
            GUICtrlSetGraphic($Graphic,$GUI_GR_LINE,$m2[0],$m2[1])
            GUICtrlSetGraphic($Graphic,$GUI_GR_REFRESH)
            Sleep(1)
        Until _IsPressed("01",$dll) = 0
        
        $velocity = Sqrt((($m2[1] - $m1[1])^2) + (($m2[0] - $m1[0])^2))
        $angle = ASin((($m2[1] - $m1[1]) / $velocity)) * (180 / $PI)
    
        _ClearGraphic()
        _Shoot()

    EndIf
    
WEnd


Func _Shoot()
;***********************************
; Calculate projection + move radio
;***********************************

    $time = 0
    $distance = 0
    $height = 0
    
    $angle *= ($PI / 180)
    
    Do
        $time += 0.1
        $velocity -= 0.5
        
        $distance = $velocity * Cos($angle) * $time + $m1[0]
        $height = $m1[1] - ((($velocity * Sin($angle) * $time) - (9.8 * $time^2)) / 2) - 13
        
        GUICtrlSetPos($Ball,$distance,$height)
        
        If Abs($height) > (550 - 16) Then ExitLoop
        If $distance > (800 - 13) Or $distance < (0 - 16) Then ExitLoop
        
        Sleep(1)
        
    Until $height < 0
    
EndFunc



Func _ClearGraphic()
;***********************************
; Clears / deletes graphic
;***********************************
    
    $iGraphCount += 1
    
    GUICtrlSetGraphic($Graphic,$GUI_GR_MOVE,0,$iHeight / 2)
    GUICtrlSetGraphic($Graphic,$GUI_GR_PENSIZE,1000)
    GUICtrlSetGraphic($Graphic,$GUI_GR_COLOR,0xFFFFFF)
    GUICtrlSetGraphic($Graphic,$GUI_GR_LINE,$iWidth,$iHeight / 2)
    GUICtrlSetGraphic($Graphic,$GUI_GR_PENSIZE,1)
    GUICtrlSetGraphic($Graphic,$GUI_GR_COLOR,0x000000)
    
    If $iGraphCount > 100 Then
        GUISetState(@SW_LOCK)
        GUICtrlDelete($Graphic)
        $Graphic = GUICtrlCreateGraphic(0,0,$iWidth,$iHeight)
        GUICtrlSetBkColor(-1,0xFFFFFF)
        GUISetState(@SW_UNLOCK)
        $iGraphCount = 0
    EndIf
    
EndFunc



Func _Close()
;***********************************
; Bye Bye!!
;***********************************

    Exit
    
EndFunc

There is a slight bug/problem with the condition (line 110):

If Abs($height) > (550 - 16) Then ExitLoop

The ExitLoop causes the ball to stop moving. The problem is, if you fire a ball upwards it will 'stop' on the top of the screen, even though the position ($height) is not greater than (550 - 16).

Anyone know why this is happening?....something to do with it being a negative number initially? - I've used Abs to try to rectify this, but no luck.

Comments / critisism welcome!!!

[ludocus]

pretty cool..

Although it bugs and it doesn't work always

[Valuater]

one thing, you are missing

Opt("GUIOnEventMode", 1)

to exit the GUI

8)