WinAce_Boy
Power Member
Boas,
Estou a desenvolver um jogo de poker em vb6 para 2 jogadores jogarem em rede. A parte da comunicação entre os dois vou deixar para o fim, comecei por construir o IDE até que depois de essa parte concluída passei para o código, baralhar as 52 cartas tendo 4 naipes diferentes e 13 cartas cada um como é óbvio (52/4) e pôr a lista das cartas já baralhadas numa listbox para posteriormente ser possível jogar com elas como se a listbox fosse o baralho de cartas já baralhado.
Tive a testar a função Randomize e a função Rnd necessárias para a geração de números aleatórios, entre esses testes está aqui um pequeno algoritmo que gera 4 números aleatórios testando se existe algum número igual ao que vai ser gerado; se isso se verificar ele gera outro número até que sejaM diferentes dos outros todos gerados anteriormente.
Questões:
1- Gostava que me me dissessem se é possível fazer as mesmas instruções do algoritmo em cima mas com menos palavras e que me explicassem por passos o mesmo algoritmo já modificado.
Vou também precisar de ajuda (mas isso é mais à frente, depois de me responderem à primeira questão) com a minha primeira dúvida - baralhar o baralho de cartas.
Só espero ter-me explicado bem e que me ajudem o mais rapidamente possível.
Obrigado desde já e Obrigado pela atenção!
Abraços para todos
Estou a desenvolver um jogo de poker em vb6 para 2 jogadores jogarem em rede. A parte da comunicação entre os dois vou deixar para o fim, comecei por construir o IDE até que depois de essa parte concluída passei para o código, baralhar as 52 cartas tendo 4 naipes diferentes e 13 cartas cada um como é óbvio (52/4) e pôr a lista das cartas já baralhadas numa listbox para posteriormente ser possível jogar com elas como se a listbox fosse o baralho de cartas já baralhado.
Tive a testar a função Randomize e a função Rnd necessárias para a geração de números aleatórios, entre esses testes está aqui um pequeno algoritmo que gera 4 números aleatórios testando se existe algum número igual ao que vai ser gerado; se isso se verificar ele gera outro número até que sejaM diferentes dos outros todos gerados anteriormente.
Código:
Private Sub Command2_Click()
List2.Clear
For i = 1 To 4
Randomize
value = CInt(Int((4 * Rnd()) + 1))
If i = 1 Then List2.AddItem value: v(1) = value
If i = 2 Then
Do
value = CInt(Int((4 * Rnd()) + 1))
Loop While value = v(1)
List2.AddItem value
v(2) = value
End If
If i = 3 Then
Do
value = CInt(Int((4 * Rnd()) + 1))
Loop While value = v(1) Or value = v(2)
List2.AddItem value
v(3) = value
End If
If i = 4 Then
Do
value = CInt(Int((4 * Rnd()) + 1))
Loop While value = v(1) Or value = v(2) Or value = v(3)
List2.AddItem value
End If
Next i
End Sub
Questões:
1- Gostava que me me dissessem se é possível fazer as mesmas instruções do algoritmo em cima mas com menos palavras e que me explicassem por passos o mesmo algoritmo já modificado.
Vou também precisar de ajuda (mas isso é mais à frente, depois de me responderem à primeira questão) com a minha primeira dúvida - baralhar o baralho de cartas.
Só espero ter-me explicado bem e que me ajudem o mais rapidamente possível.
Obrigado desde já e Obrigado pela atenção!
Abraços para todos