codigo para jugar a los dados
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Deberás insertar los siguientes objetos
'
' 6 PictureBox: (Picture1, Picture2, ... Picture6)
' 2 PictureBox: (PictureDadoL y PictureDadoR)
' 1 CommandButton: (BT_Tirar_dados)
'
' Deberás crear las 6 caras del dado con imágenes llamadas Dado1.jpg...Dado6.jpg
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
Randomize
Picture1.Picture = LoadPicture(App.Path & "\dado1.jpg")
Picture2.Picture = LoadPicture(App.Path & "\dado2.jpg")
Picture3.Picture = LoadPicture(App.Path & "\dado3.jpg")
Picture4.Picture = LoadPicture(App.Path & "\dado4.jpg")
Picture5.Picture = LoadPicture(App.Path & "\dado5.jpg")
Picture6.Picture = LoadPicture(App.Path & "\dado6.jpg")
End Sub
Private Sub BT_Tirar_dados_Click()
Dim i As Byte
Dim CaraL As Byte
Dim CaraR As Byte
Dim Ngiros As Byte
DoEvents
Ngiros = Int(Rnd * 17) + 7
For i = 1 To Ngiros
CaraL = Int(1 + Rnd * 6): CaraR = Int(1 + Rnd * 6)
Select Case CaraL
Case 1: PictureDadoL = Picture1
Case 2: PictureDadoL = Picture2
Case 3: PictureDadoL = Picture3
Case 4: PictureDadoL = Picture4
Case 5: PictureDadoL = Picture5
Case 6: PictureDadoL = Picture6
End Select
Select Case CaraR
Case 1: PictureDadoR = Picture1
Case 2: PictureDadoR = Picture2
Case 3: PictureDadoR = Picture3
Case 4: PictureDadoR = Picture4
Case 5: PictureDadoR = Picture5
Case 6: PictureDadoR = Picture6
End Select
PictureDadoL.Refresh: PictureDadoR.Refresh
Call Sleep(66 + (i * 20))
Next i
If CaraL = CaraR Then MsgBox "Han sido dobles", vbInformation, "Dados iguales"
End Sub