Trouver le nombre [vbs]

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 419 fois - Téléchargée 30 fois

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

Ajouter un commentaire

Commentaires

Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
8
?
Messages postés
31
Date d'inscription
lundi 14 mars 2005
Statut
Membre
Dernière intervention
9 novembre 2008

Salut à tous et merci pour tous vos commentaires mais petite précision, je suis conscient de tous ce que vous avez dit mais j'ai déposé cette source pour les débutants, cela ne signifie pas que je suis moi aussi un débutant.
Sinon vos commentaires sont toujours les bienvenus.

P.S. : merci à Barbichette pour prendre ma défense.
Messages postés
243
Date d'inscription
lundi 30 octobre 2000
Statut
Membre
Dernière intervention
15 juillet 2013

Juste une petite info. Je ne suis pas du tout programmeur de metier, et loin d'être dans le milieu de l'informatique en général (PS: je travail sur l'autoroute). Donc, quand j'ai besoin d'un soft, je cherche d'abort sur internet avant de faire un prog. Or, dans les cas de mes codes sources, il n'en existait pas.
Pour l'écran de veille, j'ai du cherche sur des sites en anglais ou en Japonnais pour trouver des docs et des exemples ou bien importer des codes du C++ vers Delphi.
Maintenant, pour le listeur, il me semble bien avoir eu des remarques sur le fait que ça existait déjà et en mieux. donc, à mon tour de dire quand il y a doublons.

Que maxwells veuille s'améloirer, c'est une bonne chose. Si il y avait eu Internet quand j'ai appris le PC, j'aurais sûrement surfer sur la vague pour trouver des exemples. Mais là, il y en a au moins 19 codes pour le PGCD en basic. Il me semble que depuis le temps, on en a fait le tour plusieurs fois.

Mais la question est : Pourquoi mettre un code maladroit en disant, "Cela peut peut-être aider les débutant... ". Non, ça peut l'aider, et je pense que ça lui a permis d'avancer. Mais il y a mieux. Alors, pour de l'aide OUI, mais il faut le dire.
Pour le fun, NON.

Barbichette
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
8
Barbichette !

JE polémiquerais une seule fois : En quoi tes deux posts sont-ils constructif pour maxwells ? (niveau débutant)

et pis, "le compte est bon" , "des écrans de veilles" , "listeur de répertoires" , etc... il y en a aussi des tas sur internet, non ? et encore plus, si je tiens compte de tous les langages de programmation, comme toi ! ILS font donc plus que doublons ! ... et donc si tu es logique avec toi-même, il te reste plus qu'à les supprimer...

Us.
Messages postés
243
Date d'inscription
lundi 30 octobre 2000
Statut
Membre
Dernière intervention
15 juillet 2013

Pour rajouter un truc, je suis bien content que tu arrive à programmer ça. Il faut bien commencer par quelque chose. Là n'est pas la question.
Le problème, c'est de mettre ce source en ligne.
Si on fait une recherche sur se site, on en trouve déjà trois sans se creuser les méninges sur le mot clé.
Voilà...

Barbichette
Afficher les 13 commentaires

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.