Tutorial:Crear calculadora con vb 6.0

Unido
octubre 23, 2008
Mensajes
1,150
Karma
264
Ubicación
MARBELLA
Hola a todos pues bueno os traigo un tutorial, tal como dice el titulo es para poder hacer nuestra propia calculadora con el programa visual basic 6.0 (en mi opinion prefiero este aunque alla mas versiones).

El por que e echo este tutorial?

Pues porque me llamo la atencion hace unas semanas y me costo vastante sacar informacion de como manejar este programa, y e visto que por aqui no habia ninguno y vengo para compartirlo con vosotros por si os ayuda en un futuro.



Aver lo unico que necesitais es:

*Visual basic 6.0 (u otra version, preferiblemente esta)


Ahora cuando abrais el programa elegis hacerlo en:


Exe estandar

Herramientas para hacerla:

* 3 TextBoxt

* 6 CommandButton

* 3 Label

* 1 Foto chula


La foto la pondremos de fondo usando la opcion de:

Image

La pondremos espandida segun queramos hacer de grande la calculadora.

Codigos para el funcionamiento de nuestra calculadora:

Código:
Option Explicit

[B]Private Sub Command1_Click()[/B]
text3.Text = Val(text1.Text) + Val(text2.Text)
End Sub

[B]Private Sub Command2_Click()[/B]
text3.Text = Val(text1.Text) - Val(text2.Text)
End Sub

[B]Private Sub Command3_Click()[/B]
text3.Text = Val(text1.Text) * Val(text2.Text)
End Sub

[B]Private Sub Command4_Click()[/B]
text3.Text = Val(text1.Text) / Val(text2.Text)
End Sub

[B]Private Sub Command5_Click()[/B]
text1.Text = ""
text2.Text = ""
text3.Text = ""
End Sub

[B]Private Sub Command6_Click()[/B]
End
End Sub

Os explico que hace cada codigo:

Comando 1: Este hace la suma

Comando 2: Este la resta

Comando 3: Este la multiplicacion

Comando 4: Este la division

Comando 5: Este limpia la calculadora (borra todo lo escrito)

Comando 6: Este es para salir de ella


Donde meter los codigos?

Facil,al crear los botones le damos doble clip uno a uno y nos saldre esto:

Private Sub Command1_Click()

end sub

y entre medio meteremos el codigo ejemplo:

Código:
Private Sub Command1_Click()
[U]text3.Text = Val(text1.Text) + Val(text2.Text)[/U] ----->este es el codigo
End Sub

Luego sobre los Label:

Esto sirve para escribir al lado de las cajillas de text para lo que es como si fuera una targeta de identificacion,pondremos asin:

* Numero-1
* Numero-2
* Resultado

En los label se puede cambiar el color de la letra seleccionandolo buscamos ForeColor y luego pinchamos en paleta y elegimos el color a nuestro gusto.



Bueno termino este tutorial poniendo unas fotos de las 3 calculadoras que tengo echas para que veais mas o menos como queday un video mio, espero que os alla gustado el tuto, asin que asta luego y no olvideis de comentar ^^.

Las fotos:






El video:
http://www.youtube.com/watch?v=pXFWklYWqG4


saludoss!!!:hola:
 
Superior