Trouver le nombre [vbs]

Commenter

Contenu du snippet

Voici un code que j'ai écrit vite fait
Il s'agit en fait de trouver un nombre que l'ordinateur choisi aléatoirement :
Pour cela on tape le nombre que l'on pense être et après l'ordi vous dit si c'est plus ou si c'est moins.
Il compte en combien de fois vous trouver le nombre et vous le dit à la fin.

Cette source utilise les différentes boite de dialogue de windows :
InputBox
Msgbox
elle utilise aussi la fonction Rnd() qui permet de générer un nombre aléatoire.
Cela peut peut-être aider les débutant...

Source / Exemple : 


'Voici un petit jeu écrit en script VBS
'il consiste à trouver un nombre choisi aléatoirement par l'ordinateur
'si le nombre que vous tapez est supérieur au nombre choisi par l'ordinateur, l'ordinateur vous indique qu'il faut que vous cherchiez dans les nombres inférieur à celui que vous venez de tapez
'et inversement.

'Code libre utilisable par tous pour tous.

Call Start()
Sub Start()
	Prenom = Inputbox("Avant de commencer le jeu je voudrais savoir votre prénom pour que cela soit plus conviviable." & Chr(10) & "Quel est votre prénom ?","quel est votre nom")
    BeginGame = Msgbox("Très bien " & Prenom & ", voici les règles du jeu : " & chr(10) & "L'ordinateur choisi un nombre compris entre 0 et 1000 et vous devez le trouver." & chr(10) & "Sachant que l'ordinateur vous dira si le nombre que vous devez trouvez est supérieur ou inférieur à celui que vous avez tapé." & chr(10) & chr(10) & "Voulez-vous commencer le jeu ?",vbinformation + vbyesno,"Règles du jeu...")
	If BeginGame = vbyes then 
		Msgbox"Très bien alors c'est parti !!!",vbinformation,"Ok alors on y va !!!"
		CodeJeu
	End If
	If BeginGame = vbno then Wscript.quit
	
		QuitOrReplay = Msgbox("Voulez-vous refaire une partie ?",vbyesno + vbquestion,"Voulez-vous rejouer ?")
		If QuitOrReplay = vbyes then CodeJeu
		If QuitOrReplay = vbno then Wscript.quit
End Sub
Sub CodeJeu()

		Randomize Timer
		NombreATrouver = int(Rnd*1000)
		NombreDeCoups = 0

		While Cint(NombreJoueur) <> NombreATrouver
			NombreJoueur = Inputbox("Tapez le nombre qui vous paraîtrait être celui que l'ordinateur à choisi.")
			If Cint(NombreJoueur) < NombreATrouver then
				Msgbox"C'est plus (+)!!!"
				NombreDeCoups = NombreDeCoups + 1
			End If
			If Cint(NombreJoueur) > NombreATrouver then
				Msgbox"C'est moins (-)!!!"
				NombreDeCoups = NombreDeCoups + 1
			End If
		Wend
		Msgbox"Bien joué " & Prenom & ", le nombre choisi par l'ordinateur était " & NombreATrouver & " ." & chr(10) & "Vous avez trouver ce nombre en " & NombreDeCoups & " coups."
End Sub

Conclusion :


Voilà désolé je ne l'ai pas commenté.
Vos commentaires sur cette source sont les bienvenus (bien que ce ne soit pas très nécessaire vu que c'est une source très simple.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_maxwells)