Beschermde Sub (ByVal afzender als Voorwerp, ByVal e als System.EventArgs) Handvatten Page_Load Me.Load
Als niet Page.IsPostBack toen
a = Vals
'Img1.ImageUrl = „beelden/triangle4.png“
Zitting („abool“) = a
mySin = Nieuwe ClassSin
Label1.Text = „Kant x =“ & mysin.hyp & „m“
Label2.Text = „theta =“ & mysin.angle & „gr.“
Label3.Text = „Vondst de lengte van zijy.“
Label4.Text = „(om het antwoord aan“ & vbCr & „1 decimaal in m's)“
Eind als
'HyperLink1.Text = „. (meer)“
'HyperLink1.NavigateUrl = „yr7.aspx“
Eind Sub |