Fucking FAILURE! - Shad0w
 
HomePortalMemberlistRegisterLog in
Top posters
shad0w
 
rdwuestewald
 
Crush Combat
 
banksy
 
Kewley
 
Ashley
 
Anthony
 
Inix
 
mitch
 
dukemaster95
 
Who is online?
In total there are 2 users online :: 0 Registered, 0 Hidden and 2 Guests

None

Most users ever online was 13 on Fri Mar 09, 2018 8:56 pm

Share | 
 

 [VB6] Pythagorean Theorum [Code]

Go down 
AuthorMessage
shad0w



Number of posts : 173
Points : 238
Reputation : 0
Registration date : 2009-03-18
Location : 127.0.0.1

PostSubject: [VB6] Pythagorean Theorum [Code]   Thu Mar 19, 2009 7:24 pm

Option Explicit

Private Sub cmdCalculateHypotenuse_Click()
Dim intSideA As Integer
Dim intSideB As Integer
Dim dblAnswer As double

intSideA = txtLength1.Text 'Gets user input

intSideB = txtLength2.Text 'Gets user input

dblAnswer = (intSideA ^ 2 + intSideB ^ 2) ^ 0.5

lblAnswer.Caption = dblAnswer
End Sub

Private Sub cmdDone_Click()
Unload Me
End Sub

Private Sub txtLength1_Change()
'clear the current answer when the user begins to type a new length
lblAnswer.Caption = ""
End Sub

Private Sub txtLength2_Change()
'clear the current answer when the user begins to type a new length
lblAnswer.Caption = ""
End Sub
Back to top Go down
 
[VB6] Pythagorean Theorum [Code]
Back to top 
Page 1 of 1

Permissions in this forum:You cannot reply to topics in this forum
Fucking FAILURE! - Shad0w :: Shad0w's Computer Section :: Coding :: Visual Basic-
Jump to: