Calculadora simple en VB (explicacion de codigo)

[SweetSuicide]

Introduccion:

Espero en este tutorial mostrar algunos de las funciones de VB ...

Eskema de lo k vamos a hacer



Como se ve ahi ... use los nombres default (los k el programa te pone cuando clickeas en un [por ejemplo] Command Button y lo pones en la pantalla... [Command1, Command2, Command3, etc...])

Lo mismo con los label... pero no tiene mucha importancia... llendo al grano...

el codigo:

Código:

Dim variable1 As Integer
Dim variable2 As Integer

Private Sub Command1_Click()
variable1 = Text1
variable2 = Text2
Text1.Text = ""
Text2.Text = ""
resultado = variable1 + variable2
Text3.Text = resultado
End Sub

Private Sub Command2_Click()
variable1 = Text1
variable2 = Text2
Text1.Text = ""
Text2.Text = ""
resultado = variable1 - variable2
Text3.Text = resultado
End Sub

Private Sub Command3_Click()
variable1 = Text1
variable2 = Text2
Text1.Text = ""
Text2.Text = ""
resultado = variable1 * variable2
Text3.Text = resultado
End Sub

Private Sub Command4_Click()
variable1 = Text1
variable2 = Text2
Text1.Text = ""
Text2.Text = ""
resultado = variable1 / variable2
Text3.Text = resultado
End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub Command6_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Obviamente no va a servir de nada poner el codigo y hacer una calc igual .. no va a servir como aprendizaje...

Vamos explicando por partes:

Empiezo por esto :

Código:

Private Sub Command1_Click()

Como ahi se ve ... "Command1_CLICK()" Click es la accion ... o sea si se le hace click a Command1 pasa:

Código:

variable1 = Text1
variable2 = Text2
Text1.Text = ""
Text2.Text = ""
resultado = variable1 + variable2
Text3.Text = resultado

Explicando esta parte... q puede llevarme un tiempito... vamos a ver .... primero empezando porke :

Código:

Variable1 = text1

Ahi estamos diciendo q la variable1 es igual a Lo ke la caja de texto llamada "text1" contenga...

Aca:

Código:

Text1.Text = ""

Estamos diciendo q lo ke la caja de texto "Text1" cambie una de sus propiedades (llamada text) a "" lo ke es igual a nada... (desaparece el texto q aya ahi adentro) en la barra de propiedades tienen bastantes cosas para cambiar.. por ejemplo tengo un label1 y kiero q cuando se le haga click al boton Command1 el label1 cambie su Caption (lo ke muestra el label [en el caso de mi calculadora el label4 tiene como caption "www.zerohack.n et"]) entonces hariamos lo siguiente:

Código:

Private Sub Command1_Click()
label1.caption = "aca lo ke keremos q aparezca en el caption entre comillas"
end sub

y listo...

bueno ... aca:

Código:

resultado = variable1 + variable2

Se dice q Resultado va a ser igual a La suma de variable1 + variable2 ....

Primero ke nada ... si ponemos asi de nomas ...

Código:

text3.text = variable1 + variable2

Suponiendo q variable1 es "3" y variable2 es "4"... no los sumaria... simplemente en text3 apareceria:

34

envez de 7..

para ke esto no pase .. por eso esta las primeras dos lineas:

Código:

Dim variable1 As Integer
Dim variable2 As Integer

Le decimos q reconozca a Variable1 y variable2 como numeros ..y no como letras ... y listo ^^


Y luego termina el evento :

Código:

End Sub

Para el boton salir ... Para cerrar el programa se utiliza el comando End... como lo hize yo:

Código:

Private Sub Command5_Click()
End
End Sub

y taran .. ^^ calculadora lista para usar ^^

Si se kiere copiar y pegar este tutorial en los foros no hay problema mientras se ponga el nombre del autor, la web y no se lo modifique...

Por preguntas acerca de lo ke dije manden un mail a mi casilla (esta en mi perfil)

[JKey]

Muchas gracias por tomarte el tiempo para explicar, algo sobre lo cual, muchas veces es obviado por quienes se empeñan en aprender este, o cualquier lenguaje.

De mi parte, el tema es muy claro, y está muy bien explicado.

Un gran saludo, y nuevamente, muchas gracias.

[Javi.ID]

Esta muy bien explicado gracias por tomarte esa molestia

[ziBboh]

Cierren este tema!

[JKey]

Cierren este tema!

[Javi.ID]

Hola
Porque quieres que cirren este tema

Esta muy bien me sirvio

[happy-word]

olle esto es muy basico ya esta bueno, losiento pero ya nadie nesesita esto

[Javi.ID]

Dejalo hombre alomejor alguien que este aprendiendo lo necesita
kien save

[happy-word]

esperemos que sirva de algo a algin esta calculadora

pero te repito con esto no se aprende gran cosa

yo recomiendo para aprender visual basic desde cero y mas alla

el manual del guille  su wed es
Para ver este enlace Registrate o Inicia Sesion

guille

[Javi.ID]

haora si llevas la razon

pero kien save de algo puede servir

[JKey]

olle esto es muy basico ya esta bueno, losiento pero ya nadie nesesita esto

Hay muchos que llegan aqui, sin saber nada. Esto les será útil. Defiendo el Post, defiendo el tema, y pienso que debe quedarse de cualquier modo. (Igual, nadie lo va quitar...No hay razón alguna, así que el primer plano de esta discusión es inutil)

El tema de fondo, es que, Hay muchos que saben, y claro, esto será básico para ellos, pero vamos que si todos supieran tanto, nadie preguntaría, y los foros no existirían.

Este tema, ¿es para tí, algo básico? Veo que en otro foro, quieres ser moderador, según entonces, es por que tus conocimientos en Visual Basic son de alto nivel, pero es que, ¿Todos, tenemos el mismo nivel?

Opinemos, discutamos, y debatamos los temas, pero no rebajemos el trabajo de otros, por favor!!!

Me decepcionan estos tipos de comentario, de alguien se supone, pretende enseñar haciendose moderador.....

(Otra cosa muy distinta, a lo que pienso, es incorrecto, es que lo expuesto aquí, como tema principal del Post, sea un Copy-Paste, de otro lado. Si es así, me retracto de todo lo anterior, pero como eso es algo que NO me consta, prefiero creer en la autoria, y la buena fé, de quienes postean aquí, compartiendo codigo, y conocimiento, tal cual, pensé, cuando leí este Post por primera vez. Prefiero creer eso, y por eso, digo lo que digo. Solo el tiempo dirá, si esta vez, estoy equivocado. De estarlo, nuevamente ratifico mi retractación. De no estarlo, me sostengo hasta el final.)

[ziBboh]

Estoy de acuerdo con happy-world, no digo que lo borren, solo que lo cierren, de igual forma es muy basico y creo que ese codigo se consigue en cualquier manual de VB6, y pienso que los que lo piden deberian mejor de empezar leyendo un buen manual y apllicarse, no solo llegar a copiar el codigo. Creo que deberian cerrarlo para ya no postear en este tema, o si te preocupa y crees que es de importancoia, contacta con ranefi y que lo ponga en la biblioteca de codigo, no crees?

[JKey]

o si te preocupa y crees que es de importancoia, contacta con ranefi y que lo ponga en la biblioteca de codigo, no crees?

No puedo creer que esté leyendo esto. Esa es la diferencia entre tu y yo. Yo hablo a título general, tú hablas a título personal. En fin, paso del tema.

[Javi.ID]

Eso si que lo cierren pero que no lo borren

[happy-word]

esta bien esa es una forma de razonar ..


Colaboren con mi foro suscribance y agamos de el un nuevo mundo de informacion
 
Para ver este enlace Registrate o Inicia Sesion

WWW.Bauldelcod igo.creatuforo .com

por favor nesecito de ustedes.