by Spenser Newton (7 Submissions)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 12th March 2003
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
This progarm will tell you if any three measurements are a Equilateral triangle, a Isosceles triangle, a Scalene triangle, or if they are not
VBcoders
Dim s1 As Single, s2 As Single, s3 As Single
s1 = Val(txts1)
s2 = Val(txts2)
s3 = Val(txts3)
If s1 + s2 < s3 Or s1 + s3 < s2 Or s2 + s3 < s1 Or s1 + s2 = s3 Or s1 + s3 = s2 Or s2 + s3 = s1 Then
lblnat.Visible = True
Printer.Print "These measurments can not be a trianlge"
ElseIf s1 = s2 And s1 = s3 And s2 = s3 Then
lbleq.Visible = True
Printer.Print "These measurements can be a Equilateral Triangle"
ElseIf s1 = s2 Or s2 = s1 Or s1 = s3 Or s3 = s1 Or s2 = s3 Or s3 = s2 Then
lblisos.Visible = True
Printer.Print "These measurments can be a Isoscles Triangle"
Else
lblgeneral.Visible = True
Printer.Print "These measurements can be a Scalene Triangle"
End If
Printer.Print "Spenser Newton, what kind of triangle prob."
Printer.Print "The measurements experimented with are "; txts1, txts2, txts3
Printer.Print ""
End Sub
Private Sub cmdclear_Click()
txts1 = ""
txts2 = ""
txts3 = ""
lblnat.Visible = False
lblisos.Visible = False
lblgeneral.Visible = False
lbleq.Visible = False
End Sub
Private Sub cmdEnd_Click()
End
End Sub
No comments have been posted about This progarm will tell you if any three measurements are a Equilateral triangle, a Isosceles triang. Why not be the first to post a comment about This progarm will tell you if any three measurements are a Equilateral triangle, a Isosceles triang.
