Visual Basic

Programas hechos en Visual BASIC
García Meza Saúl Gerardo GaMSG_2i_31
CommandButton
CommandButton
Label
Label
Textbox
Textbox

Formulario

Formulario
Mini Calculadora
Este programa sirve para realizar sumas, restas, multiplicaciones y divisiones.

Private Sub cmdDivi_Click()
txtResult.Text = Val(txtOper1.Text) / Val(txtOper2.Text)
lblOp.Caption = " /"
End Sub
‘Se repite elcódigo pero se cambia el símbolo a división para que haga la función señalada’
Private Sub cmdDivi_Click()
txtResult.Text = Val(txtOper1.Text) / Val(txtOper2.Text)
lblOp.Caption = " /"
End Sub
‘Se repite el código pero se cambia el símbolo a división para que haga la función señalada’
Private Sub cmdMulti_Click()
txtResult.Text = Val(txtOper1.Text) * Val(txtOper2.Text)
lblOp.Caption = " *"
EndSub
‘Solo se le cambia el signo, se conserva el código de los demás botones, para que multiplique’

Private Sub cmdMulti_Click()
txtResult.Text = Val(txtOper1.Text) * Val(txtOper2.Text)
lblOp.Caption = " *"
End Sub
‘Solo se le cambia el signo, se conserva el código de los demás botones, para que multiplique’

Private Sub cmdSuma_Click()
txtResult.Text = Val(txtOper1.Text) +Val(txtOper2.Text)
lblOp.Caption = " +"
End Sub
‘Al pulsar el botón, crea el resultado en el TextBox3, sumando el Valor de TextBox1 y el de TextBox2.’
Private Sub cmdSuma_Click()
txtResult.Text = Val(txtOper1.Text) + Val(txtOper2.Text)
lblOp.Caption = " +"
End Sub
‘Al pulsar el botón, crea el resultado en el TextBox3, sumando el Valor de TextBox1 y el de TextBox2.’
Private Sub cmdResta_Click()txtResult.Text = Val(txtOper1.Text) - Val(txtOper2.Text)
lblOp.Caption = " -"
End Sub
‘Al pulsar el botón, hace el mismo procedimiento que el de suma, pero se cambia el signo para que reste’
Private Sub cmdResta_Click()
txtResult.Text = Val(txtOper1.Text) - Val(txtOper2.Text)
lblOp.Caption = " -"
End Sub
‘Al pulsar el botón, hace el mismo procedimiento que el de suma, pero se cambia el signopara que reste’
Explicación del código.
En el primer TextBox se escribe un numero, en el segundo TextBox se escribe el segundo número, y si se pulsa el primer command button, se realiza una suma, en el segundo una resta en el tercero una multiplicación y en el cuarto una división. (Todos los resultados aparecen en el tercer TextBox)

Suma
Este programa Suma el Valor del text1 más el valor deltext2.
CommandButton
CommandButton
Label
Label
Textbox
Textbox

Formulario

Formulario

Public suma As Double
_________________________________________________________________________________
Private Sub Command1_Click()
Dim Valor As Double
If Text1.Text = "" Then
Valor = 0
Else
Valor = CDbl(Text1.Text)
End If
suma = suma + Valor
LblResult.Caption = suma
Text1.Text = ""
EndSub
‘Se declara la variable Suma como un doble antes de comenzar el código, después se declara la variable Dim, y se hace uso del “IF” que sería un “Si” en el Texto1 es igual a nada o “”, “Then” “Entonces” el valor será 0 “Else” o “Pero” S valor será igual a = “CDbl”(Comando de visual basic) (multiplicado por text 1)
Public suma As Double_________________________________________________________________________________
Private Sub Command1_Click()
Dim Valor As Double
If Text1.Text = "" Then
Valor = 0
Else
Valor = CDbl(Text1.Text)
End If
suma = suma + Valor
LblResult.Caption = suma
Text1.Text = ""
End Sub
‘Se declara la variable Suma como un doble antes de comenzar el código, después se declara la variable Dim, y se hace uso del “IF” que sería un “Si” en el Texto1 es igual anada o “”, “Then” “Entonces” el valor será 0 “Else” o “Pero” S valor será igual a = “CDbl”(Comando de visual basic) (multiplicado por text 1)
Explicación del Código
En el primer TextBox se pone un valor, y se captura en el Label que será la salida del resultado, después se escribe de nuevo en el primer TextBox otro valor, y al presionar el Boton suma se hará la operación requerida.

Label1...