Chiffre au hasard

Version imprimable

Chiffre au hasard

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

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

modif ajout niveau

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----------------------------