Nuestro cuarto proyecto-Un juego sencillo

Bien, la idea de este proyecto es crear un sencillo juego de adivinar un número oculto, pero nos permitirá usar otros componente aún no utilizado en nuestros proyectos = la barra de progreso o progressbar.

Veamos la interfase primero:

interfase

En tiempo de diseño

Costa de una etiqueta o “label” con el texto “escribe tu número aquí”, dos valuebox: Vbnumero  y Vbtirada, tres  botones, btntirar, btncerrar y btnnuevo, el progresbar al que llamaremos pgbtiempo y un textbox llamado txtvalor. Además de un control Timer al que dejamos con su nombre por defecto:Timer1

Mientras el tiempo (en este caso 100 segundos) no se agote, podemos seguir escribiendo números. Si acertamos , el timer se detiene. Mediante mensajes en el cuadro de texto el programa nos informa si el numero a acertar es mayor o menor .

Básicamente , compara los valores de los valuebox y dispara los eventos asociados.

Vamos a crear el módulo generador, para que nos cree los números y cargue algunas variables en el formulario principal. Lo hacemos  así para poder llamar al procedimiento al efecto desde distintos eventos, el evento open de fmain y el evento click de btnnuevo.

El código es el siguiente:

Public Sub generar()

Dim numero As Integer                            ‘declaramos variables

Randomize                                                ‘inicializa el generador de números aleatorios

numero = Rnd(1, 500)                            ‘elige un número al azar
FMain.Vbnumero.Value = numero     ‘asigna el valor de numero al valuebox
FMain.Timer1.enabled = True              ‘inicializa el timer
FMain.Vbnumero.visible = False        ‘Hace invisible el valuebox del número a acertar
FMain.btntirar.Enabled = True           ‘Habilita el boton tirar
FMain.Pgbtiempo.Value = 1                   ‘Asigna el valor 1 al progressbar
End Sub

Los comentarios en rojo explican el procedimiento, el valor 1 al pgbtiempo es porque vamos a hacerlo ir de 100% (valor máximo) a 0% (valor mínimo)

Anuncios
Esta entrada fue publicada en programación y etiquetada , . Guarda el enlace permanente.

3 respuestas a Nuestro cuarto proyecto-Un juego sencillo

  1. pero no corre el progrma sisass caxo pero estbien el programa

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s