Hipotenüs hesaplama programı
|
May 3 2009 11:58PM |
Public Class Form1
Private Sub Button1_Click......
Dim a As İnteger
Dim b As İnteger
a= Textbox1.Text
b=Textbox2.Text
Dim hipotenüs=hipotenüs(a,b)
MessageBox.Show(hipotenüs)
End Sub
Private Function hipotenüs (ByVal a As İnteger, b As İnteger) As Single
Dim hipotenüs As Single
hipotenüs= system.math.sqrt (a*a+b*b)
Return hipotenüs
End Function
End Class |
|
|
ŞULE ERCAN |
|