utilización de variable random

esta variable utilizada en Visual Basic 2010 nos sirve para general números aleatorios en esta ocacion les voy a presentar un pequeño juego que consiste en ingresar un numero cualquiera que al presionar  un button nos dira si el numero ingresado es mayor o menor que el que la computadora eligió.

e subido el ejecutable lo descomprimen e instalan y listo

descargar

EMPIEZA A SACAR CUENTAS

Alguna vez te as preguntado como se  hace una calculadora en visual, pues fácil es sencillo en este ejercicio pondremos en practica lo ya aprendido pues utilizaremos sentencias ya conocidas como el if else.

e dispuesto de este enlace para que lo puedan descargar solo lo descomprimes y si tienes visual 2010 en tu pc lo podrás ejecutar. 

Buena suerte 

descargar

Sentencias de Control

CICLO FOR

El ciclo for en Visual Basic .NET se maneja un poco distinto de como se maneja en otros lenguajes generalmente. Por ejemplo en otros lenguajes teníamos la sintaxis de “Inicio, control, Inc/decremento“. En Basic generalmente definimos un punto de inicio y un punto final para su sintaxis básica. Veamos un ejemplo:

?

1 2 3 4

Dim i As Integer For i = 1 To 10  MessageBox.Show("Este es el número: "+ i) Next

El ejemplo anterior muestra los números enteros del 1 al 10 en un cuadro de texto tipo MessageBox. Como verán solo declaré una variable para ir guardando estos valores enteros y luego definí un punto de inicio y uno de terminación.

Visualizar un rango de números en un ListBox usando el ciclo for

Bien, vamos a hacer un sencillo ejemplo de uso del ciclo for. Para este ejercicio haremos uso de un ListBox y un botón. En el ListBox se visualizarán los números del 1 al 10 cuando se presione el botón, es decir algo como esto:

:

El código completo quedaría mas o menos así:

?

1 2 3 4 5 6 7 8

Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim i As Integer         For i = 1 To 10             ListBox1.Items.Add("Número: " + Str(i))         Next     End Sub End Class