Microsoft Small Basic

Program Listing: ZBZ152

List Program

WW = 800
WH = 800

GraphicsWindow.Width = WW
GraphicsWindow.Height = WH
GraphicsWindow.CanResize = "False"
GraphicsWindow.BackgroundColor = GraphicsWindow.GetColorFromRGB(255, 255, 255)
GraphicsWindow.Top = (Desktop.Height/2)-(WH/2)
GraphicsWindow.Left = (Desktop.Width/2)-(WW/2)

BarrelDiameter = 20
BarrelX = 100
BarrelY = ((WH/2)-100)-BarrelDiameter+2
XSpeed = 0
YSpeed = 0
XChange = 3
YChange = 1
Acceleration = 0.01
Start = "True"

SetupGraphics()

'Ratio = 3:1

While Start = "True"
Shapes.Move(Barrel, BarrelX, BarrelY)
BarrelX = BarrelX+XSpeed
BarrelY = BarrelY+YSpeed
XSpeed = XSpeed + (XChange*Acceleration)
YSpeed = YSpeed + (YChange*Acceleration)

If BarrelX > WW-100 Then
YSpeed = YSpeed + ((YChange*Acceleration)*50)
EndIf

Program.Delay(20)
EndWhile

Sub SetupGraphics
GraphicsWindow.BrushColor = "Black"
GraphicsWindow.DrawLine(100, (WH/2)-100, WW-100, (WH/2)+100)
Barrel = Shapes.AddEllipse(BarrelDiameter, BarrelDiameter)
Shapes.Move(Barrel, BarrelX, BarrelY)
EndSub