9. Contador manejo de While

En este tema aremos otro simple contador que cuente desde uno hasta cinco con el Bucle While para comprender como funciona, empecemos.

En el diseño del formulario creamos un Button y en la propiedad text escribir Contar.

Después le damos double click al Button y dentro de la función Button1_click:

Declaramos una variable tipo integer y la llamaremos letra.

Dim letra As Integer = 1

Le e asignado el valor uno a letra para que en el While empieze el contador desde uno.

Escribimos un While para la variable -letra- que leera desde uno hasta cinco y lo mostrara en un Msgbox.

Escribimos While letra <= 5 y le damos a enter y se creara el While.

Dentro del While escribimos Msgbox(Letra).

Luego escribimos Letra = letra + 1.esto lo que hara que sumara uno a letra. Para enterlo mejor decimos;

1 = 1 + 1

2 = 2 + 1

3 = 3 + 1

4 = 4 + 1

la primera linea vale uno y al sumarle uno la variable va a valer dos, entonces en la segunda linea la variable vale dos y le suma uno, asi sucesivamente hasta llegar a cinco.

While letra <= 5

MsgBox(letra)

letra = letra + 1

End While

Tengamos en cuenta que la variable letra debe valer uno antes de empesar el While, porque si no empezara desde cero.

[Youtube] Contador con While

8. Contador Manejo de For

En este tema aremos un simple contador que cuente desde uno hasta cinco con el Bucle For, para comprender como funciona, empecemos.

En el diseño del formulario creamos un button y en la propiedad text escribir Contar.

Después le damos double click al Button y dentro de la función Button1_click:

Declaramos una variable tipo integer y la llamaremos letra.

Dim letra As Integer

Escribimos un For para la variable -letra- que leera desde uno hasta cinco y lo mostrara en un Msgbox.

Escribimos For letra = 1 To 5 y le damos a enter y se creara el For.

Dentro del For e añadido un If para que vean que interesante es combinar un For con un If. El If lo que hara es que si –letra- no es igual a tres muestre el msgbox.

Dentro del For escribimos Msgbox(Letra).

Esto lo que ba a hacer es sumar uno a letra. Para enterlo mejor decimos;

1 = 1 + 1

2 = 2 + 1

3 = 3 + 1

4 = 4 + 1

la primera linea vale uno y al sumarle uno la variable va a valer dos, entonces en la segunda linea la variable vale dos y le suma uno, asi sucesivamente.

For letra = 1 To 5

If Not letra = 3 Then

MsgBox(letra)

End If

Next

[Youtube] Contador con For

Mayor de Dos Numeros manejo de IF

Buenas programadores en este tema aremos un programa que me diga el mayor de dos numeros y un mensaje de error si son iguales.

En el diseño del formulario crearemos dos label, tres textbox y un boton.

Para el label1 en la propiedad text escribir Primer numero.

Para el label2 en la propiedad text escribir Segundo numero.

Los dos primeros textbox lo dejaremos asi.

Para el button1 en la propiedad text escribir Calcular.

Y al ultimo textbox en la propiedad ReadOnly le cambiamos de False a True.

Y se vera de esta forma.

Le damos double click al boton y dentro de la funcion Button1_click aremos lo siguiente:

primero declaramos dos variables Integer n1 y n2, despues asignamos el Me.TextBox1.Text a n1 y el n2 = Me.TextBox2.Text a n2.

Al usar Me podremos buscar la variable mas rapido, ya que el visual basic 2005 nos lo traera al ir digitando el nombre de la variable.

Dim n1, n2 As Integer

n1 = Me.TextBox1.Text

n2 = Me.TextBox2.Text

Luego crearemos dos If. el primer If se dara si n1 es mayor que n2, entonces si n1 es mayor colocaremos "El primer numero es mayor." en el Me.TextBox3.Text.

En el segundo If es un If anidado al primero y ya explicamos lo que es un If anidado. Entonces el Elseif se dara si n1 es menor que n2,entonces si n1 es menor colocaremos "El segundo numero es mayor." en el Me.TextBox3.Text.

Okey pienza un momento, si en el primer If n1 no es mayor que n2 y en el Elseif el n1 no es menor que n2 significa que son iguales. :D

Entonces el Else se dara si n1 es igual a n2 y dentro colocaremos un Msgbox diciendo "Los dos numeros son iguales".

If n1 > n2 Then

Me.TextBox3.Text = "El primer numero es mayor."

Elseif n1 < n2 Then

Me.TextBox3.Text = "El segundo numero es mayor."

Else

MsgBox("Los dos numeros son iguales")

End If

Ya podemos probar nuestro programa.

Nota: el evento Button1_click funciona para motrar el resultado de lo escrito dentro al darle click al Boton. Existen mas eventos y esta a tu imaginacion usarlos para tu programa, se encuentra en la parte de arriba donde esta el actual evento click.

[Youtube] Mayor de dos numeros

Calculadora combobox usando IF

Vamos hacer un ejemplo de IF con un nuevo control llamado combobox

Veamos algunas de las propiedades de un combobox:

• Ítems: esta es la propiedad más importante de un combobox, cuando hablamos de comobox es porque queremos contener una lista de posibles valores para poder seleccionar, en esta propiedad podemos agregar valores al comobox línea por línea. Existen más propiedades pero ustedes la irán descubriendo en su camino de la programación y seguro la usaremos más adelante.

Vamos a ver como se ve el código de un combobox

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

End Sub

Lo que está en rosado es el evento principal de nuestro comobox .

Un evento es que debe hacer mi programa al pasar algo, como cuando damos clic a un botón o presionamos una tecla ese es un evento de un control (para lo que no sean dado cuenta donde se encuentran la opciones de los eventos se lo mostrare en el video tutorial de este programa le dejo el link más abajo)

Vamos hacer nuestro interface grafico, solo vamos a usar 3 textbox 4 label, un combobox y un botón.

Ya conocemos dos de los controles aquí, vamos a ver las propiedades de cada uno.

Los tres textbox le vamos a cambiar la propiedad text = 0

le cambiamos la propiedad nombre a cada uno por num1,num2,resultado

Los label: a dos de ellos le vamos a poner en la propiedad texto Introducir numero, a otro seleccionar operación y el último resultado.

A nuestro combobox vamos a cambiar el nombre a operación. Y la propiedad Item vamos a agregar:

SUMA

RESTA

DIVISION

MULTIPLICACION

OJO PONERLO SUMA LE DAMOS A ENTER RESTA LE DAMOS A ENTER DIVISION LE DAMOS A ENTER Y MULTIPLICACION EN MAYUSCULA

Al form1 cambiar la propiedad name a Operaciones.

EL interface grafico se tiene que ver mas o menos haci:

Ahora le damos doble clic a nuestro comobox (llamado ahora operación)

Public Class Form1

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles operacion.SelectedIndexChanged

End Sub

End Class

Vamos hacer el programa ahora el codigo.

Public Class Form1

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles operacion.SelectedIndexChanged

'declarar 3 variables double por que vamos a

'usar divicion y tenemos que dominar decimales

Dim n1, n2, n3 As Double

'Una variable string para ver como se usa

Dim signo As String

'vamos a dar los valores a la variables

'num1 y 2 es un textbox lo unico que le cambiamos el nombre

n1 = Num1.Text

n2 = Num2.Text

'asigno el valos 0 a n3

n3 = 0

'operacion es un comobox pero le cambiamos el nombre

signo = operacion.Text

'ahora vamos hacer un pequeña calculadora veamos.

'SUMA ENTRE LAS COMILLA significa que una cadeda de caracter

'y estoy comparanod si signo es = a SUMA

If signo = "SUMA" Then ' si signo = SUMA ejecuta el digo

n3 = n1 + n2 'para sumar, si no se cumple evalua la siguiente

ElseIf signo = "RESTA" Then 'esta, si secuple ejecuta el codigo

n3 = n1 - n2 'para restar, si no se cumple evalua la siguiente

ElseIf signo = "MULTIPLICACION" Then ' esta,si se cumple ejecuta el codigo

n3 = n1 * n2 'para MULTIPLICAR, si no se cumple evalua siguiente

ElseIf signo = "DIVISION" Then ' esta,si se cumple ejecuta el codigo

n3 = n1 / n2 'para DIVISION, si no se cumple evalua siguiente

Else ' si no se cumple ninguna de las anteriores

MsgBox("Operasfion no declarada") ' mostrar ese mensaje

End If

' Asigno el valor a el texbox resultado

Resultado.Text = n3

End Sub

End Class

Aqui el dejo la aplicacion para que la puedan descargar, y un video de la aplicacion que acabamos de hacer en el turorial.

[MU] Calculadora combobox usando IF

[Youtube] Calculadora combobox usando IF

Cualquier duda comentar o sugerencia comentar