Microsoft Small Basic

Program Listing: CPT007

List Program

While "true"
GraphicsWindow.Clear()
Teken()
Program.Delay(1000)
endwhile


Sub Teken
'je kunt het aantal punten hieronder aanpassen
aantal=4

for teller=1 To aantal
hoek[teller]=math.GetRandomNumber(360)
x[teller]=150+100*math.Cos(Math.GetRadians(hoek[teller]))
y[teller]=150+100*math.Sin(Math.GetRadians(hoek[teller]))
endfor

'na het laatste punt gaan we terug naar het eerste punt
hoek[aantal+1]=hoek[1]
x[aantal+1]=x[1]
y[aantal+1]=y[1]

For teller=1 To aantal
GraphicsWindow.DrawLine(x[teller],y[teller],x[teller+1],y[teller+1])
endfor

endsub