JEU DE DÉS,PLUS OU MOINS
cs_Anotine
Messages postés
64
Date d'inscription
mardi 22 juin 2004
Statut
Membre
Dernière intervention
14 septembre 2008
-
23 août 2006 à 16:51
MadM@tt Messages postés 2167 Date d'inscription mardi 11 novembre 2003 Statut Membre Dernière intervention 16 juillet 2009 - 23 août 2006 à 20:40
MadM@tt Messages postés 2167 Date d'inscription mardi 11 novembre 2003 Statut Membre Dernière intervention 16 juillet 2009 - 23 août 2006 à 20:40
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/39237-jeu-de-des-plus-ou-moins
https://codes-sources.commentcamarche.net/source/39237-jeu-de-des-plus-ou-moins
23 août 2006 à 20:40
Et tu met juste Randomize Timer au début et ça suffit
Pense à indenter tes codes aussi ;)
23 août 2006 à 16:55
Merci!
23 août 2006 à 16:51
En VBS :
MsgBox("Bienvenu")
Randomize()
nbJoueurs = InputBox("Entrez le nombre de joueurs :")
For Compteur = 1 To nbJoueurs
MsgBox("Joueur " & Compteur)
For CompteurN2 = 1 To 9
Alea = CInt((Rnd() * 5) + 1)
Select Case CompteurN2
Case 1, 2, 4, 5, 7, 8
TotalPts = TotalPts + Alea
Case 3, 6, 9
TotalPts = TotalPts - Alea
End Select
MsgBox("Lancé de dés n° " & CompteurN2 & " : " & Alea)
Next
MsgBox("Le joueur n° " & Compteur & " a " & TotalPts & " points")
Next
En VB.Net :
MsgBox("Bienvenu")
Randomize()
Dim nbJoueurs As Long
nbJoueurs = InputBox("Entrez le nombre de joueurs :")
Dim Compteur As Long
For Compteur = 1 To nbJoueurs
Dim TotalPts As Long, CompteurN2 As Long
MsgBox("Joueur " & Compteur)
For CompteurN2 = 1 To 9
Dim Alea As Long = CInt((Rnd() * 5) + 1)
Select Case CompteurN2
Case 1, 2, 4, 5, 7, 8
TotalPts += Alea
Case 3, 6, 9
TotalPts -= Alea
End Select
MsgBox("Lancé de dés n° " & CompteurN2 & " : " & Alea)
Next
MsgBox("Le joueur n° " & Compteur & " a " & TotalPts & " points")
Next
J'espère que tu ne le prendras pas méchamment !
PS : Les Randomize ne sont pas obligatoire à chaques Rnd, un au début ça sufit ...
Bonne continuation !