Foro de elhacker.net

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