Microsoft Small Basic

Program Listing: HRX829

List Program

'we maken het venster wat groter

GraphicsWindow.Width=800

GraphicsWindow.height=600

blokje=Shapes.AddRectangle(30,10)

y1=300

x1=600

Shapes.Move(blokje,x1,y1)

GraphicsWindow.KeyDown=OnkeyDown

'we kiezen een zeer kleine snelheid

snelheid=0.05

hoek=90


While "true"

Shapes.Rotate(blokje,hoek)

'hier wordt een willkeurige hoek gekozen

hoek=hoek+math.GetRandomNumber(13)-7


x2=x1+snelheid*math.Cos(Math.GetRadians(hoek))

y2=y1+snelheid*math.Sin(Math.GetRadians(hoek))

Shapes.move(blokje,x2,y2)


'hier tekenen we het spoor

GraphicsWindow.DrawLine(x1,y1,x2,y2)

'het eindpunt wordt het nieuwe beginpunt

x1=x2

y1=y2


Program.Delay(1)

endwhile

Sub OnKeyDown

key=graphicswindow.LastKey

If key="Left" then

hoek=hoek-5

elseif key="Right" then

hoek=hoek+5

elseif key="Up" then

snelheid=snelheid+5

elseif key="Down" then

snelheid=snelheid-5

endif


EndSub