lunes, 21 de octubre de 2013

JUEGOS DE DADOS

ENUNCIADO.-
crear un juego de dados en la que un dado se lanze al azar y comparar con el numero que pones  previamente .
DISEÑO







CÓDIGO
Private sub CmdCer_Click()
End
End Sub
Private Sub CmdJug_click()
 TmrLan.Enabled=True
 TmrDet.Enabled=True
 TmrJug.Enabled=false
End Sub

Private Sub TmrDet_timer()
 If Val(TxtNum) = LblCara Then
   MsgBox "Ganastes acertastes con"  &LblCara& ,48,"Dados"
 Else
   MsgBox "Lo siento Perdistes.." , 16, "Dados"
End If
 CmdJug.Enabled=True
 TmrLan.Enabled=False
 TmrDet.Enabled=false
End Sub

Private Sub TmrLan_Timer()
 Randomize
 LblCara=Int ((Rnd*6)+1)
 ImgDa.Picture("C:\imgDADOS\"& LblCara & ".gif")
End Sub

EXPLICACIÓN
tienes que seguir el esquema de la imagen que pusimos al principio.
-tienes que colocar una imagen de un dado
-colocar titulo
-colocar comandos de cerrar y lanzar
-colocar el label que te sirve para hacer el efecto de "azar"
-colocar un text para ingresar el numero
-colocar los timers, uno para lanzar con intervalo de 200 y otro para detener con intervalo de 1000

*el label del azar se necesita para poder asociar la imagen con el mismo y hacer un efcto de azar .
RECUERDA 
La orden RANDOMIZE realiza la obtención de los tiempos del reloj del procesador de máquina.
el COMANDO INT((RND*6)+1) permite generar un número aleatorio según el rango especificado , en este caso del 1 al 6 (colocas el rango en donde se encuantra el nuúmero 6)

*tenemos dos timers con diferentes intervalos para que se realize de acción "azar" cada 2 microsegundos durante un segundo (por eso el timer de detener es 1000). asi en un segundo se detendra solo 

*no olvides mantener los timers apagados antes de empezar y prenderlos con el comando de lanzar .

 *se realiza una compración con el ultimo numero que salió.

6 comentarios: