'Declaración de variables
Dim num1 As Double
Dim num2 As Double
Dim resultado As Double
'Asignamos a las variables el contenido de los cuadros de texto
num1 = Text1.Text
num2 = Text2.Text
'Realizamos la operación
resultado = num1 + num2
'Mostramos el resultado
Label1.Caption = resultado
'¿Que hace esto?
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command2_Click()
'Salimos del programa
End
End Sub
Private Sub Command3_Click()
'Declaración de variables
Dim num1 As Double
Dim num2 As Double
Dim resultado As Double
'Asignamos a las variables el contenido de los cuadros de texto
num1 = Text1.Text
num2 = Text2.Text
'Realizamos la operación
resultado = num1 - num2
'Mostramos el resultado
Label1.Caption = resultado
'¿Que hace esto?
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command4_Click()
'Declaración de variables
Dim num1 As Double
Dim num2 As Double
Dim resultado As Double
'Asignamos a las variables el contenido de los cuadros de texto
num1 = Text1.Text
num2 = Text2.Text
'Realizamos la operación
resultado = num1 * num2
'Mostramos el resultado
Label1.Caption = resultado
'¿Que hace esto?
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command5_Click()
'Declaración de variables
Dim num1 As Double
Dim num2 As Double
Dim resultado As Double
'Asignamos a las variables el contenido de los cuadros de texto
num1 = Text1.Text
num2 = Text2.Text
'Realizamos la operación
resultado = num1 / num2
'Mostramos el resultado
Label1.Caption = resultado
'¿Que hace esto?
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Form_Load()
'¿Que hace esto?
Command1.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
End Sub
Private Sub Text1_Change()
'¿Para que sirve esto?
If Text1.Text <> "" And Text2.Text <> "" Then
Command1.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Else
Command1.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
End If
End Sub
Private Sub Text2_Change()
'¿Para que sirve esto?
If Text1.Text <> "" And Text2.Text <> "" Then
Command1.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Else
Command1.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
End If
End Sub
jueves, 25 de octubre de 2007
Suscribirse a:
Entradas (Atom)