by claudio galindo (1 Submission)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 15th May 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
calcular radio de la circunferencia.
API Declarations
Dim a As Double
Dim r As Double
MsgBox ("Utilizando el panel ingrese el radio de la circunferencia a la cual quiere calcular el area y la longuitud despues precione el boton calcular")
End Sub
Private Sub Command10_Click()
If Text1 <> 0 Then
Text1 = Text1 + "8"
Else
Text1 = 8
End If
End Sub
Private Sub Command11_Click()
If Text1 <> 0 Then
Text1 = Text1 + "9"
Else
Text1 = 9
End If
End Sub
Private Sub Command12_Click()
If Text1 <> 0 Then
Text1 = Text1 + "0"
Else
Text1 = 0
End If
End Sub
Private Sub Command13_Click()
Text1 = 0
Text2 = 0
Text3 = 0
End Sub
Private Sub Command14_Click()
MsgBox ("creado por Claudio Galindo")
End
End Sub
Private Sub Command2_Click()
r = Val(Text1)
a = 3.14 * r * r
l = 6.28 * r
Text2 = a
Text3 = l
End Sub
Private Sub Command3_Click()
If Text1 <> 0 Then
Text1 = Text1 + "1"
Else
Text1 = 1
End If
End Sub
Private Sub Command4_Click()
If Text1 <> 0 Then
Text1 = Text1 + "2"
Else
Text1 = 2
End If
End Sub
Private Sub Command5_Click()
If Text1 <> 0 Then
Text1 = Text1 + "3"
Else
Text1 = 3
End If
End Sub
Private Sub Command6_Click()
If Text1 <> 0 Then
Text1 = Text1 + "4"
Else
Text1 = 4
End If
End Sub
Private Sub Command7_Click()
If Text1 <> 0 Then
Text1 = Text1 + "5"
Else
Text1 = 5
End If
End Sub
Private Sub Command8_Click()
If Text1 <> 0 Then
Text1 = Text1 + "6"
Else
Text1 = 6
End If
End Sub
Private Sub Command9_Click()
If Text1 <> 0 Then
Text1 = Text1 + "7"
Else
Text1 = 7
End If
End Sub
Private Sub Text1_Change()
Text1 = Val(Text1)
End Sub