JUEGO DE DADOS

¿COMO CREAR EL JUEGO DE DADOS EN VB 6.0?

Quizás deberías pensar en una forma fácil y rápida de divertirte y crear tus propios juegos para esto te enseñare como hacer un juego en visual basic 6.0 perfecto para todas las edades

1. Empieza por diseñarlo
NOTA: no olvides que este debe tener dos timer uno para que las imágenes empiecen a cambiar y el otro para que se detengan mira aqui un ejemplo

2. Escribe el código

Private Sub CmdCer_Click()

End 

End Sub

Private Sub CmdJug_Click()

 tmrlan.enabled=true

 tmrdet.enabled=true

 cmdjug.enabled=false

End Sub

Private Sub TmrDet_Click()

 if val (txtnum) = LblCara then

 msgbox "Ganaste acertaste con " & LblCara, 48, "Dados"

Else

 msgbox "Lo siento perdiste...", 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= LoadPicture ("c:\imgDADOS\" & Lblcara &".gif")

End Sub

3.No olvides cambiar los nombres y bueno si quieres puedes copiar todo el codigo para que se te haga mas sencillo

4. El juego consiste en escribir un numero y lanzar el dado si el dado y el numero ingreso son iguales has ganado 

GRACIAS CHICOS ESPERO QUE LES HAYA GUSTADO.

DEJEN SUS COMENTARIOS