¿Cómo hago para que me vaya sumando las imágenes de los dados?
Buen día,
El código siguiente lo copié de otro foro ya que me pidieron exactamente el mismo programita y este código es el adecuado para que haga mi proyecto.
Pero en mi proyecto me piden hacer lo siguiente al tirar el dado 3 veces:
a. Si la sumatoria supera la docena que muestre: EXCELENTE.
b. Si la sumatoria supera el 8 que muestre: MUY BIEN.
c. De lo contrario el mensaje será: VUELVA A INTENTARLO.
La pregunta es: ¿ Cómo hago para que al tirar los dados tres veces me vaya sumando y me salga las opciones ya mencionadas ?
Como verán las imágenes al terminar de tirar los dados salen aleatoria mente , pero yo quiero que cada imagen que salga me sume para lograr sacar un mensaje que diga en las 3 opciones.
No se si me explico bien pero como verán el código ya sabrán de qué hablo.
-----------------------------------------------------------------------------------------------------------
Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
'Acá cargamos cada picture con una imagen del dado diferente (1 por cada cara)
Randomize
Picture1.Picture = LoadPicture("C:\dado1.jpg")
Picture2.Picture = LoadPicture("C:\dado2.jpg")
Picture3.Picture = LoadPicture("C:\dado3.jpg")
Picture4.Picture = LoadPicture("C:\dado4.jpg")
Picture5.Picture = LoadPicture("C:\dado5.jpg")
Picture6.Picture = LoadPicture("C:\dado6.jpg")
End Sub
Private Sub cmdTirar_Click()
Dim i As Integer
Dim x As Integer
For i = 1 To Int(Rnd * 15) + 3 'El dado puede llegar a rodar 15 veces, minimo 3
x = Int(Rnd * 6) + 1 'El dado puede salir entre 1 y 6 (osea sus caras)
Select Case x
Case 1: PictureDado.Picture = Picture1.Picture 'Si el dado sale 1 carga dado 1
Case 2: PictureDado.Picture = Picture2.Picture 'Si el dado sale 2 carga dado 2
Case 3: PictureDado.Picture = Picture3.Picture 'Si el dado sale 3 carga dado 3
Case 4: PictureDado.Picture = Picture4.Picture 'Si el dado sale 4 carga dado 4
Case 5: PictureDado.Picture = Picture5.Picture 'Si el dado sale 5 carga dado 5
Case 6: PictureDado.Picture = Picture6.Picture 'Si el dado sale 6 carga dado 6
End Select
DoEvents 'Para que nuestro programa funcione sin colgarse
PictureDado.Refresh 'Redibujamos la imagen del dado para visualizar bien
Call Sleep(250) 'Duerme al programa por 0.25 segundos
Next i
End Sub
------------------------------------------------------------------------------------------------------------------
P.d.: Me sugirieron que lo hiciera así:** "Solo crea una variable general para ir sumando los resultados de cada tiro y otra variable para controlar el numero de tiros, estas variables las checarias cuando termine el evento tirar"**.
P.d.2 : Pero no entiendo cómo plantearlo.
De lo contrario quedo como su servidor y agradeceré a lo grande su ayuda, ya que no doy cómo hacerlo.
Muchas gracias,
