Visual Basic.NET - codigo para jugar a los dados

   
Vista:

codigo para jugar a los dados

Publicado por Gerardo (1 intervención) el 26/03/2014 06:14:07
Necesito hacer que al oprimir un botón salgan en dos textbox los números como si fuera el juego de
dados y mostrar un mensaje de ganador cuando caigan pares alguien me puede ayudar porfavor...grasias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

codigo para jugar a los dados

Publicado por Cristian (10 intervenciones) el 26/03/2014 15:50:58
Estimado

Crea 2 textbox , 2 botones y un timer


Primer boton que sera el iniciar la tirada :

Timer1.Enabled = True
Timer1.Interval = 300

Segundo Boton :

Timer1.Enabled = False

y en el timer :

Dim A As Integer
A = (6 - 1) * Rnd() + 1
TextBox1.Text = A.ToString
Dim b As Integer
b = (6 - 1) * Rnd() + 1
TextBox2.Text = b.ToString


También le puedes poner dentro del timer cada cierto tiempo o cada 5 cambios de números parar automáticamente pero yo creo que poner parar da mas credibilidad al juego

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

codigo para jugar a los dados

Publicado por Fernando Fumero luzyfer666@gmail.com (1 intervención) el 29/07/2017 01:58:31
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar