jueves, 25 de octubre de 2007

VISUAL BASIC: cAlCuLaDoRa

'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