Microsoft 365 créer des séquences aléatoires avec possibilités de choix, perdu et nouveau dans excel

[ricky1977]

Bonsoir,

Afin de travailler mon jeu au texas holdem poker, plus particulièrement mon jeu PREFLOP ( avant que les cartes communes ne soient distribuées ) de créer des séquences aléatoires afin que ce soit plus efficace .

je souhaite travailler par exemple mon jeu en position MP vs UTG vs3x ( middle position versus un open de UTG de x3 )
pour cela j'ai 5 choix
call
3bet or call
3bet or fold
3bet
fold

j'ai des mains établi précise que je souhaite donc apprendre qui sont les suivantes

call : 77, 88, 99, TT, 98s, T9s, JTs
3bet or call : JJ, ATs, AJs, AQs, AKs ce
3bet or fold : A2s, A3s, A4s, A5s
3bet : AQo, AKo, QQ, KK, AA
fold : toutes les autres combinaisons de 2 cartes restantes


ce que j'aimerai est ceci
pouvoir distribuer 2 cartes aléatoirement qui constitue les 52 cartes du jeu
par exemple : A8o avec possibilités de 5 choix
le but du jeu est de deviner dans quelle catégorie A8 se trouve , si je click sur le bon , une nouvelle combinaison de 2 cartes est distribuée, si je me trompe, j'ai encore 4 choix.

je n'ai pas besoin que cela soit super design non plus, même pas besoin d'avoir de vraies cartes, seulement leurs valeurs suffisent

pour matérialiser encore plus

1- distribution d'une combinaison de 2 cartes aléatoires ( 169 combinaisons )
2- possibilité de choix jusqu’à 5
3- bon choix ou mauvais - nouvelle distribution aléatoire avec jusqu’à 5 nouveaux choix


je n'ai pas beaucoup, voir pratiquement pas de connaissance excel, c'est le bon moyen de m'y mettre, j'aurai besoin d'un coup de pouce afin de savoir comment je pourrais faire pour établir ce petit programme, vers quel types de matériel me tourner afin de gagner du temps .
C'est mon premier poste ici, et je vous remercie d'avance de votre aide

amicalement
Richard

 

[Dranreb]

Peut être. À moins qu'il soit suffisant à ce que vous souhaitez de tester si la CBxFamille n'est pas déjà MatchFound. Il suffirait après tout de l'effacer avant d'utiliser le bouton pour en changer … ou pas.

 

[ricky1977]

qu'entendez vous par MatchFound ?

 

[Dranreb]

C'est la propriété la ComboBox. C'est directement une condition utilisable dans un If. Pas besoin d'opérateur relationnel pour en fabriquer une expression Boolean puisque c'en est déjà une.
If Not CBxFamille.MatchFound Then

 

[ricky1977]

Alors là je ne vois pas du tout, n'oubliez pas mes faibles voir inexistantes notions d'excel .
j'ai essayé de copier coller If Not CBxFamille.MatchFound Then
je pense que c'est ce que je fois faire, mais j'ai des bugs

 

[Dranreb]

Il faut un End If après la dernière instruction à ne plus exécuter dans ce cas, évidemment, c'est à dire avant d'attaquer ensuite le tirage aléatoire du thème seulement.

 

[ricky1977]

je ne sais pas, je n'ai pas d'amélioration

 

[Dranreb]

Mais bon sang il faut mettre le test avant les instructions dont l'exécution doit être sautée !

Private Sub CBnAlea_Click()
   Randomize
   If Not CBxFamille.MatchFound Then
      CBxFamille.ListIndex = Int(Rnd * CBxFamille.ListCount)
      CBxThemPrnc.List = TValTheme(CBxFamille.Text, "LST", True)
      End If
   CBxThemPrnc.ListIndex = Int(Rnd * CBxThemPrnc.ListCount)
   CBxThemPrnc.SetFocus
   End Sub

 

[Dranreb]

Non ça ne va pas.

Private Sub CBnAlea_Click()
   Randomize
   If Not CBxFamille.MatchFound Then CBxFamille.ListIndex = Int(Rnd * CBxFamille.ListCount)
   CBxThemPrnc.List = TValTheme(CBxFamille.Text, "LST", True)
   CBxThemPrnc.ListIndex = Int(Rnd * CBxThemPrnc.ListCount)
   CBxThemPrnc.SetFocus
   End Sub

 

[Dranreb]

On peut aussi, en multipliant les SetFocus, veiller à ce que ce soient les procédures exécutées d'ordinaire qui fassent en sorte que ça puisse marcher :

Private Sub CBnAlea_Click()
   Randomize
   If Not CBxFamille.MatchFound Then
      CBxFamille.SetFocus
      CBxFamille.ListIndex = Int(Rnd * CBxFamille.ListCount)
      End If
   CBxThemPrnc.SetFocus
   CBxThemPrnc.ListIndex = Int(Rnd * CBxThemPrnc.ListCount)
   CBnTirage.SetFocus
'   If CBxThemDerv.ListCount = 0 Then Exit Sub
'   CBxThemDerv.SetFocus                      MAIS TOUT ÇA N'A PAS ÉTÉ DEMANDÉ 
'   CBxThemDerv.ListIndex = Int(Rnd * CBxThemDerv.ListCount)
'   CBnTirage.SetFocus
   End Sub

 

[ricky1977]

Ça marche super bien, je suis toujours impressionné.
Merci encore .
Je regarde à chaque fois les lignes de codes ,j'en ai compris certaines, mais la majorité est un Grand flou.
Très bonne journée