Sunday, 22 April 2012

Coding-Triangle

Private Sub cmdcalculate_Click()
Dim length As Integer
Dim height As Integer
Dim Formula As Integer

length = txtlength.Text
height = txtheight.Text

Formula = (length * height) / 2

picOut.Print " Area of Triangle"
picOut.Print
picOut.Print " The Area of Triangle :" & Formula; " cm "

End Sub

Private Sub cmdclear_Click()
txtlength.Text = ""
txtheight.Text = ""
End Sub

Private Sub cmdquit_Click()
End
End Sub

No comments:

Post a Comment