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ó.
