by Joseph Mort (1 Submission)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 16th July 2005
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Will produce the A, B, or C values in The Pythagorean Theorem.
If Text3.Text = "" Then
Text3.Text = (Val(Text1.Text) ^ 2 + Val(Text2.Text) ^ 2) ^ 0.5
End If
If Text1.Text = "" Then
Text1.Text = ((Val(Text3.Text) ^ 2 - Val(Text2.Text) ^ 2) ^ 0.5)
End If
If Text2.Text = "" Then
Text2.Text = ((Val(Text3.Text) ^ 2 - Val(Text1.Text) ^ 2) ^ 0.5)
End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()
frmMain.Hide
frmAbout.Show
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub