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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager