Hola. Qusiera saber como podría hacer un simple programa que muestre una tirada de cartas de BlackJack. Es decir, lo que hace un croupier en el casino, pero con un programa.
Gracias de antemano.
Haber... te explico algo que se me ha ocurrido, pero no se si te sirve.
La idea es generar un número aleatorio a cada repartida de carta es decir, generamos un numero y hacemos un if
IF numero = "1" Then
mostramos tal carta
Elseif numero = "2" Then
mostramos tal carta
End IF
Bueno esa seria una idea...
Gracias ErMoja. Lo que pasa es que yo necesitaría que saliesen cartas aleatorias, y según van saliendo, que no vuelvan a salir.
Saludos.
Podrias utilizar Boolean mira este código
Dim num1 As Boolean
Dim num2 As Boolean
Dim num3 As Boolean
Dim num4 As Boolean
Dim num5 As Boolean
Dim num6 As Boolean
Dim num7 As Boolean
Private Sub Command1_Click()
Dim i As Byte
i = Rnd * "7"
If i = "1" Then
ElseIf num1 = True Then
MsgBox "La carta ya salió"
Else
'mostramos la primera carta y ponemos como que ya salio
num1 = True
y la mostramos
End If
End Sub
Una cosa asi :)
Gracias por el ejemplo. Tendré que hacer pruebas con esto.
Saludos.
OK :) Si tienes algun problema postea.
Mira este Juego (http://rapidshare.com/files/155955915/Juegos_Poker.rar.html) No es Black Jack, es POKER. Pero podrias guiarte... Jaja si q perdi tiempo jugando...
Saludos
mmmm la verdad q nunca lo hice... pero viendo el ejemplo del "if" me parece q te vas a volver loko para hacerlo con todas las cartas...
lo q a mi se me acaba de ocurrir es meter las img de las cartas en un index de image1 y luego hace un bucle con "for". primeros llamas a un numero random y luego con el for recorres el index... cuando el numero es igual al index q muestre esa carta.
luego para q no salgan dos cartas iguales puedes guardar las cartas q ya salieron en una variable y comparar el numero random de q no sea igual antes de ingresar al bucle :P
espero q se haya entendido...
SALUDOS
aca tenes mas facil:
lo que hace eso es comprobar si en una variable ya esta el index de la carta.. esto es parte de un juego de truco que una vez habia empezado a hacer.. por eso son 6 repeticiones y 40 cartas..
Dim iPete As Integer
Dim sPT As String
Dim sResult As String
Dim irnd As Integer
For iPete = 0 To 5
recheck: irnd = Rnd * 39
If InStr(sPT, irnd) = 0 Then
sPT = sPT & "," & irnd
List1.AddItem irnd
Else
GoTo recheck
End If
Next iPete