siguimiento del tuto de la 1ra, 2da, 3ra y 4ta parte del tutorial.

http://www.promocionatupagina.com/aporta-tus-tutoriales-f18/aprende-visual-basic-parte-1-algoritmo-t6130.htm

http://www.promocionatupagina.com/aporta-tus-tutoriales-f18/aprende-visual-basic-parte-3-mi-primer-proyecto-t6131.htm

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Aprende Visual Basic Parte 5: Variables, Constantes & Mas...

Bienvenido a Aprende a programar en Visual Basic Parte 5: Poniendonos
calientes... Variables, Constantes y Renombrar objetos en tiempo de
ejecucion.

VARIABLES: Las variables son objetos que se establecen en tiempo de
ejecucion (Mientras el programa se ejecuta), sirven para almacenar
numeros, palabras, numeros decimales, objetos entre otros.

COMO DECLARARLAS:

Dim Nombredelavariable as Tipodelavariable
Nombredelavariable = Valor

Dim ---> Es lo que indica que voy a establecer una variable
Nombredelavariable ---> El nombre que va a tener esa variable, pueden
ser letras, numeros, etc
as Tipodelavariable ---> Aqui se indica el tipo que va a tener la
variable. Existen muchos, pero los que veremos a continuacion son:
String (Letras) e Integer (Numeros enteros)

CONSTANTES: Lo mismo que las variables, pero una vez declaradas NO
PUEDEN SER MODIFICADOS.

COMO DECLARARLAS:

Const Nombredelaconstante as Tipodelaconstante = Valor

Es practicamente lo mismo que Variables. Lo que cambia es que aqui el
valor de la Constante se ejecuta en el mismo momento que esta es
declarada.

Ejemplos de variables:

Un programa que pide que indique su nombre y lo almacena en la variable
de Nombre, para luego mostrar un Mensaje con tu nombre. Añadimos 1
TextBox y Un boton de "Aceptar"



Aqui el codigo: (Añadirlo en el Command1_Click)

Dim nombre As String ---> Declaro a la variable "nombre" para
almacenar datos tipo String (Texto)
nombre = Text1.Text ---> Declaro que la variable "nombre" tiene el
valor del Text1.text
MsgBox nombre, vbInformation, "Tu nombre es..." ---> Cuando esta
declarada, la variable "nombre" puede ser utilizada para MSGBOX,
Titulos, objetos entre muchos otros.

Un programa que pide que uno indique dos numeros y los sume. Añadimos 2
TextBox y un boton de "Aceptar"



Este es el codigo: (Añadirlo en el Command1_Click)

Dim n1, n2, n3 As Integer ---> Declaro a n1, n2 y n3 como variables
tipo Integer
n1 = Text1 ---> Declaro que n1 es igual al valor del Text1
n2 = Text2 ---> Lo mismo, pero esta ves es Text2
n3 = Val(n1) + Val(n2) ---> Declaro que n3 es igual al resultado de
sumar los valores de n1 y n2
MsgBox "El resultado de " & n1 & " + " & n2 & " Es igual
a " & n3, vbInformation, "Ese es el resultado" ---> Lanzo un
MSGBOX

Aqui el resultado:



EXTRA: Renombrar objetos en tiempo de ejecucion!

Esto sirve para cambiar lo que diga un Command1 sin editarlo de forma
visual (Se edita por codigo, es mas versatil y rapido)

Private Sub Form_Load()
Me.Caption = "Sumas" ---> Cambiamos el nombre del Form1 por "Sumas"
Command1.Caption = "Realizar la suma correspondiente" ---> Cambiamos
lo que dice un Command1 por "Realizar la suma correspondiente"
End Sub

Para que se entienda mejor, aqui una imagen:



FIN PARTE 5

En la parte 6: ¡Mi segundo proyecto!: ¡Una Calculadora!

---------------------------------------------------------------------------------------------------------------------------------------------------------

Aprende Visual Basic Parte 6: ¡Mi Segundo Proyecto!

Hola, tras tomarme un largo descanso en este tutorial, porfin les traigo
la parte 6:

Aprende a programar Visual Basic Parte 6: ¡Mi segundo proyecto!

En esta parte, aprenderemos a hacer una calculadora.

Para ello, colocamos 3 TextBox (Txt1, Txt2 y Txt3) y 4 Command
(Captions: Cmd1 = +, Cmd2 = -, Cmd3 = *, Cmd4 = /.)



Luego, vamos con el procedimiento Dentro del Cmd1_Click

txt3.Text = Val(txt1) + Val(txt2)

Hacemos lo mismo dentro del Cmd2_Click, pero cambiando el "+" por un "-"

txt3.Text = Val(txt1) - Val(txt2)

Igual con Cmd3_Click y Cmd4_Click

txt3.Text = Val(txt1) * Val(txt2)
txt3.Text = Val(txt1) / Val(txt2)

Ahora, revisamos nuestro proyecto:



Vemos que si sirve?

Ahora, veamos el mismo ejemplo, pero con variables (Aqui veremos
solamente el codigo, ya que lo demas es lo mismo)

Public n1, n2, n3 As Integer

Private Sub cmd1_Click()
n1 = Val(txt1)
n2 = Val(txt2)
n3 = n1 + n2
txt3 = n3
End Sub

Private Sub cmd2_Click()
n1 = Val(txt1)
n2 = Val(txt2)
n3 = n1 - n2
txt3 = n3
End Sub

Private Sub cmd3_Click()
n1 = Val(txt1)
n2 = Val(txt2)
n3 = n1 * n2
txt3 = n3
End Sub

Private Sub cmd4_Click()
n1 = Val(txt1)
n2 = Val(txt2)
n3 = n1 / n2
txt3 = n3
End Sub

FIN PARTE 6

En la parte 7: ¡Generemos un proyecto!

Gracias por el aporte men