• Home
 · 
• Math/Dates
 · 
• calcular radio de la circunferencia.

calcular radio de la circunferencia.

calcular radio de la circunferencia.

API Declarations


Dim a As Double
Dim r As Double



Rate calcular radio de la circunferencia.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

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