InicioInfoArma tu calculadora en Visual Basic

Arma tu calculadora en Visual Basic

Info9/10/2008

Armar un programa en visual basic en muy sencillo aca les doy un ejemplo.

Toda la info es mia la arme yo por eso no hay fuente lo unico que saque fue las imagenes.

abrimos visual y hacemos click en EXE stàndar.


http://www.auladirectiva.com/curso/programacion-con-visual-basic-6/demostracion-del-curso/res/files/jpg209_0_.jpeg


Nos aparecera algo asy:



Para el ejemplo que vamos hacer les paso a explicar los siguiente:

Cuadro de herramientas:



Puntero: es para seleccionar cosas nada mas.
Label: es para poner un texto o una palabra para indicar algo.
Button: es para hacer botones.
Texbox: caja de texto permite escibir cuando el programa este funcionando.
Lo demas de los voy a explicar cuando agamos un ejemplo con ellos.

Vamos haer una mini calculadora para sumar,restar,multiplicar o dividir dos numeros.

1_Lo que vamos hacer es hacemos click en Texbox y hacemo 3 cuadrados en el formulario (From1)
Algo importante abajo a la derecha vemos que hay una lista que se llama propiedades
El primero que es (Nombre)
Cambienselo pongan algo que se acuerden por ejemplo (txtnumero1)
con las otras 2 restantes txtnumero2, txtresultado.

Para cambiar el nombre antes seleccionen la caja de texto.

Como vemos la caja de texto dice Text1, para borrarlo vamo a propiedades y abajo donde dice Text y al lado dice text1 borramos en text1.

2_hacemos click en button y hacemos 3 en el formulario (from1)
Tanbien le cambiamos el nombre por ejemplo (cmdsuma),(cmdresta)
(cmdmultiplicar),(cmddividir)
y para cambiarle el nombre a los botones cambiamos el caption que tambien esta en propiedades.

Listo ya tenesmo lo que nesesitamos ahora a los codigos

A_Hacemos doble clcik en el boton cmdsumar
nos aparecera algo asy:



Lo que dice:
Private sub .....()

end sub
Lo dejan como esta no lo borren.

entre esos dos escribimos lo siguiente:
If cmdsumar = True Then
txtresultado = Val(Txtnumero1) + Val(Txtnumero2)
End If

b_doble click en en botom cmdrestar y escribimos lo siguiente
If cmdrestar = True Then
txtresultado = Val(Txtnumero1) - Val(Txtnumero2)
End If

C_ doble click en en botom cmdmultiplicar y escribimos lo siguiente:
If cmdmultiplicar = True Then
txtresultado = Val(Txtnumero1) * Val(Txtnumero2)
End If

D_doble click en en botom cmddividir y escribimos lo siguiente:
If cmddividir = True Then
txtresultado = Val(Txtnumero1) / Val(Txtnumero2)
End If

¿que quiero decir eso?
1_ if : es para preguntar algo como vemos en e ejemplo esta preguntando si cmdacpetar (nuestro boton) es verdad (si lo apretaron)
2_then: quiere decir "entonces" (osea si se cumple lo que estamos preguntando)
3_txtresultado = Val(Txtnumero1) + Val(Txtnumero2): es sensillo es haciendo la suma creo que lo entienden pero lo que parece raro es cuando dice "Val"
4_Val: toma lo que vos ingresen en txtnumero1 com un valor
Osea escribiendo Val antes de la cajas de texto con las que se realizara la accion tomara lo que se esriba en la caja de texto como valor

¿Que pasa si no pongo Val?
por ejemplo: 2 + 2 = 22

¿Que pasa si pongo Val?
por ejemplo: 2 + 2 = 4

5_End if: Esta terminando la pregunta es importante si no lo ponen les tirara error.

listo a tenemos nuestra mini calculadora.


lo unico que tienen qu hacer es apretar el boton iniciar que esta arriba y tiene la apariencia de play(fecha a la derecha azul)

espero que les sirva muchachos prometo dar mas info de este tema

Datos archivados del Taringa! original
0puntos
362visitas
0comentarios
Actividad nueva en Posteamelo
0puntos
0visitas
0comentarios
Dar puntos:

Dejá tu comentario

0/2000

No hay comentarios nuevos todavía

Autor del Post

A
ArchEnemD🇦🇷
Usuario
Puntos0
Posts7
Ver perfil →
PosteameloArchivo Histórico de Taringa! (2004-2017). Preservando la inteligencia colectiva de la internet hispanohablante.

CONTACTO

18 de Septiembre 455, Casilla 52

Chillán, Región de Ñuble, Chile

Solo correo postal

© 2026 Posteamelo.com. No afiliado con Taringa! ni sus sucesores.

Contenido preservado con fines históricos y culturales.