Chiffre au hasard [Résolu]

[castou60]

Bonjour,

voila un petits script qui vous demande de choisir un chiffre et au piff et qui en choisie un aussi tout seul si c'est comme se que vous avez choisi alors vous gagner sinon vous perdez, sa c'est pour ceux qui save pas quoi faire au boulot dans la journée, je poste mon code vbs pour ceux que sa interesse.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
 
Dim ChoixChiffre, Response,N,Z
Randomize     ' Initialise Le Générateur De Nombres Aléatoires.
TrouveChiffre()			
Function TrouveChiffre()
   ChoixChiffre=Int((100 * Rnd) + 1)
   Z=ChoixChiffre
 '  Wscript.Echo("")&Z ' affiche le chiffre mystere pour le test
   N=inputbox("Entrer un chiffre entre 1 et 100","CHIFFRE MYSTERE")
   Wscript.Echo("votre chiffre et le "&N),(" et le chiffre mystere = ") &Z
End Function
Function StartFin()
If Response =VbYes Then TrouveChiffre()
if response=vbNo then fin()
End Function
Function Fin()
wscript.quit 0
End Function
Do Until Response = VbNo
   Response=MsgBox("Voulez_vous continuer ?",vbQuestion + vbYesNo + vbApplicationModal + 0,"CHIFFRE MYSTERE")
   StartFin()
Loop
Créer par ©Castou60

[fabrice.s]

Slt,

C'est clair qu'il faut avoir que ça à faire au taf.
Je m'amusait déjà avec ce genre de code en basic il y a une quinzaine d'année.

On peut aussi s'amuser à le faire en Batch pour ce que ça intéresse.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
 
@echo off
echo un Petit Jeu qui Sert a Rien Mais Qui Passe Le Temps.
echo Pour Ce Qui N Ont Rien d Autre A Faire Au Taf.
echo By FS
 
set /a n="%random%%%101"
set count=0
 
:Loop
 
echo Choissisez un Nombre entre 1 et 100
set /p m=%choice%
set /a count=%count%+1
 
if %m%==%n% (
cls
Goto Fin
)
if %m% LSS %n% (
echo Trop Petit
Goto Loop
)
if %m% GTR %n% (
echo Trop Grand
Goto Loop
)
 
:Fin
echo Vous Avez Gagne
echo Nombre de Coups Joue: %count%
Pause
exit

[castou60]

bonjour,

Je me suis dit que peut etre avec quelques niveaux sa pourrait etre un peu mieu alors je rajoute ceci, et après je vois pour y rajouter un compteur de coup, enfin voici le script un petit peu retravailler:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
'--------------------------------------------------------------------------
dim ChoixChiffre,Reponse,n,z,niveau
start()
function start()
niveau=inputbox("Veuiller choisir un niveau"& vbCrLf & "" & vbCrLf &"niveau1 = 0 à 10           PavNum1"& vbCr &"niveau2 = 0 à 100         PavNum2"& vbCr &"niveau3 = 0 à 1000       PavNum3","CHIFFRE MYSTERE")
if niveau = "1" then niva()
if niveau = "2" then nivb()
if niveau = "3" then nivc()
end function
 
Function niva()
ChoixChiffre=0
Randomize
n=inputbox("Entrer un chiffre entre 1 et 10","CHIFFRE MYSTERE")
if n = "" then n = inputbox("Entrer un chiffre entre 1 et 10","CHIFFRE MYSTERE")
if n = "" then wscript.quit 0
ChoixChiffre = Int((10 * Rnd) + 1)
z = ChoixChiffre
wscript.echo("Votre chiffre = "&n & vbCrLf & "Chiffre mystere = ")&z
fin()
end function
 
function nivb()
ChoixChiffre=0
Randomize
n=inputbox("Entrer un chiffre entre 1 et 100","CHIFFRE MYSTERE")
if n = "" then n = inputbox("Entrer un chiffre entre 1 et 100","CHIFFRE MYSTERE")
if n = "" then wscript.quit 0
ChoixChiffre = Int((100 * Rnd) + 1)
z = ChoixChiffre
wscript.echo("Votre chiffre = "&n & vbCrLf & "Chiffre mystere = ")&z
fin()
end function
 
function nivc()
ChoixChiffre=0
Randomize
n=inputbox("Entrer un chiffre entre 1 et 1000","CHIFFRE MYSTERE")
if n = "" then n = inputbox("Entrer un chiffre entre 1 et 1000","CHIFFRE MYSTERE")
if n = "" then wscript.quit 0
ChoixChiffre = Int((1000 * Rnd) + 1)
z = ChoixChiffre
wscript.echo("Votre chiffre = "&n & vbCrLf & "Chiffre mystere = ")&z
fin()
end function
 
Function fin()
ChoixChiffr=0
bouton = MsgBox("Voulez_vous continuer ?",vbQuestion + vbYesNo + vbApplicationModal + 0,"CHIFFRE MYSTERE")
if bouton = vbYes then start()
if bouton = vbNo then fini()
End function
 
Function fini()
Wscript.quit 0
end function
'-----------------------------------©Castou60----------------------------

©Castou60