Calculadora con memoria en vb
En este ejercicio vamos a aprender a crear una calculadora utilizando una variable de tipo "Integer", que almacenara en memoria los datos que ingresemos y realizara operaciones matematicas con estos, mostrando el total en un "Label" y las diferentes operaciones en un "Listbox".
Tabla de Propiedades
| Objeto | Propiedad | Objeto | Propiedad |
| Text1 |
Name = txtDatos Alignment = 2- Center Tabindex = 0 |
Form1 |
Caption = Calculadora |
| Label1 |
Name = lblTotal Alignment = 2- Center |
||
| List1 | Name = lstDatos | ||
| Command1 |
Name = cmdSuma Caption = + |
Command3 |
Name = cmdMultiplicar Caption = * |
| Command2 |
Name = cmdResta Caption = - |
Command4 |
Name = cmdDividir Caption = / |
Codigo Fuente
Option Explicit
Dim Memoria As Integer
Private Sub cmdDivision_Click()
Memoria = Val(Memoria / txtDatos.Text)
lstDatos.AddItem ("/" & txtDatos.Text)
lblTotal.Caption = Memoria
txtDatos.Text = ""
txtDatos.SetFocus
End Sub
Private Sub cmdMultiplicacion_Click()
Memoria = Val(Memoria * txtDatos.Text)
lstDatos.AddItem ("*" & txtDatos.Text)
lblTotal.Caption = Memoria
txtDatos.Text = ""
txtDatos.SetFocus
End Sub
Private Sub cmdResta_Click()
Memoria = Val(Memoria - txtDatos.Text)
lstDatos.AddItem ("-" & txtDatos.Text)
lblTotal.Caption = Memoria
txtDatos.Text = ""
txtDatos.SetFocus
End Sub
Private Sub cmdsuma_Click()
Memoria = Val(Memoria + txtDatos.Text)
lstDatos.AddItem ("+" & txtDatos.Text)
lblTotal.Caption = Memoria
txtDatos.Text = ""
txtDatos.SetFocus
End Sub
Private Sub Form_Load()
Memoria = 0
End Sub