Microsoft Small Basic

Program Listing: HRM982

List Program

GraphicsWindow.Width=400
GraphicsWindow.Height=400
GraphicsWindow.DrawBoundText(10,10,500,"Klik drie keer met de muis om een driehoek te tekenen")

aantaldriehoeken=0
volgendepunt=1

GraphicsWindow.MouseDown=OnMouseDown
GraphicsWindow.MouseMove=OnMouseMove
GraphicsWindow.MouseUp=OnMouseUp



Sub OnMouseUp
endsub

Sub OnMouseMove
endsub

Sub OnMouseDown
If volgendepunt=1 then
aantaldriehoeken=aantaldriehoeken+1
EndIf

x=GraphicsWindow.MouseX
y=GraphicsWindow.MouseY

GraphicsWindow.DrawEllipse(x-2,y-2,5,5)

driehoek[aantaldriehoeken][volgendepunt]["x"]=x
driehoek[aantaldriehoeken][volgendepunt]["y"]=y

volgendepunt=volgendepunt+1
If volgendepunt=4 Then
' teken de drie lijnstukken
x1=driehoek[aantaldriehoeken][1]["x"]
y1=driehoek[aantaldriehoeken][1]["y"]
x2=driehoek[aantaldriehoeken][2]["x"]
y2=driehoek[aantaldriehoeken][2]["y"]
x3=driehoek[aantaldriehoeken][3]["x"]
y3=driehoek[aantaldriehoeken][3]["y"]


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

volgendepunt=1
endif

endsub