Ficha 19

Private Sub Command1_Click()

If Combo1 = "Classificação de triângulos" Then
Form2.Show
Form1.Hide
ElseIf Combo1 = "Classificação de circunferência" Then
Form3.Show
Form1.Hide
Else
x = MsgBox("Escolha uma Classificação..", vbOKOnly + vbInformation, "Form1")
End If

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Combo1.AddItem "Classificação de triângulos"
Combo1.AddItem "Classificação de circunferência"

End Sub

Private Sub Timer1_Timer()

Label1 = Time

End Sub




Private Sub cmd1_Click()

Dim a As Single, b As Single, c As Single, x As Single, y As Single, z As Single

x = Val(operA.Text)
y = Val(operB.Text)
z = Val(operC.Text)

If x > y And x > z Then
a = x
b = y
c = z
ElseIf y > x And y > z Then
a = y
b = x
c = z
ElseIf z > x And z > y Then
a = z
b = x
c = y
Else
a = x
b = y
c = z
End If


If a >= b + c Then
resultado.Caption = "Nenhum triângulo formado"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = True

ElseIf a ^ 2 = b ^ 2 + c ^ 2 Then
resultado.Caption = "Triângulo retângulo"
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False

ElseIf a ^ 2 > b ^ 2 + c ^ 2 Then
resultado.Caption = "Triângulo obtusângulo"
Image1.Visible = False
Image2.Visible = True
Image3.Visible = False
Image4.Visible = False

ElseIf a ^ 2 < b ^ 2 + c ^ 2 Then
resultado.Caption = "Triângulo acutângulo"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = True
Image4.Visible = False

End If

End Sub

Private Sub cmd2_Click()

Form2.Hide
Form1.Show

End Sub

Private Sub cmd3_Click()

End

End Sub




Private Sub Command1_Click()

Dim pontox As Integer, pontoy As Integer

Picture1.Cls
Label1.Caption = ""

pontox = Val(InputBox("Intoduza coordenada X", "Introdução de dados"))

Picture1.Print Tab(4); "X=" & pontox
pontoy = Val(InputBox("Introduza coordenada Y", "Introdução de dados"))

Picture1.Print Tab(4); "Y=" & pontoy

If (x - a) ^ 2 + (y - b) ^ 2 Then

Label1.Caption = ("O ponto introduzido é interior à circunferência de centro")

ElseIf (x - a) ^ 2 + (y - b) ^ 2 > r ^ 2 Then
Label1.Caption = ("O ponto introduzido é exterior à circuferencia de centro")

ElseIf (x - a) ^ 2 + (y - b) ^ 2 = r ^ 2 Then
Label1.Caption = ("O ponto introduzido é fronteiro à circuferencia de centro")

Else

MsgBox "Pontos inválidos!", vbOKOnly + vbInformation, "Informação"

End If


End Sub

Private Sub Command2_Click()

Form3.Hide
Form1.Show

End Sub

Private Sub Command3_Click()

End

End Sub