Jeu de dés fait avec quick basic

Soyez le premier à donner votre avis sur cette source.

Vue 2 572 fois - Téléchargée 202 fois

Description

Ce code utilise les fonctions les plus simples du basic.

Source / Exemple :


010 PRINT "Jouons au d‚s - Par SpintroniK - Copyright 1997"
020 S = 0
030 P = 0
040 INPUT "Comment t'appelles tu "; nom$
050 D1 = INT(RND(6) * 6) + 1
060 D2 = INT(RND(6) * 6) + 1
070 PRINT "D‚s de "; nom$; " : "; D1
080 PRINT "D‚s de l'ordnateur : "; D2
090 IF D1 < D2 THEN PRINT "Tu as perdu"
100 IF D1 < D2 THEN S = S + 1: GOTO 160
110 IF D1 > D2 THEN PRINT "Tu as gagn‚"
120 IF D1 > D2 THEN P = P + 1: GOTO 160
130 IF D1 = D2 THEN PRINT "Egalit‚"
140 IF D1 = D2 THEN P = P + 1: GOTO 160
150 IF D1 = D2 THEN S = S + 1: GOTO 160
160 INPUT "Encore un essai ? (oui/non)"; o$
170 IF o$ = "oui" THEN GOTO 50
180 IF o$ = "non" THEN GOTO 190
190 PRINT "Score ordinateur= "; S
200 PRINT "Score de "; nom$; "= "; P
210 IF P < S THEN PRINT "D‚sol‚ "; nom$; " tu as perdu la partie"
220 IF P > S THEN PRINT "Bien jou‚ "; nom$; " tu as gagn‚ la partie"
230 IF P = S THEN PRINT "Pas mal "; nom$; " tu est a ‚galit‚ avec l'ordinateur"
240 INPUT "Appuye sur un touche pour continuer "; t$
999 END

Conclusion :


j'ai fé ce code en 1997 j'avais 10 ans mais la je lé modifié donc il n'y a plus de bug... on peut dire que c'est la version 2.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
19
Date d'inscription
mercredi 14 mai 2003
Statut
Membre
Dernière intervention
5 mai 2004

Ha... Que bon souvenir ! Je suis sûr que beaucoups de personne ont commencer avec qbasic avant de se lancer dans vb. Il est vrai que ce site n'est pas vraiment le bon choix pour déposer une tel source. Voici un site super où il trouvera sa place si tu demande à son auteur (Achraf cherti ) de le publier : http://qbworld.fr.st/

Salut et bonne continuation sur n'importe quel support !
Messages postés
161
Date d'inscription
jeudi 20 mars 2003
Statut
Membre
Dernière intervention
7 mai 2007

Mais ici, c'est VBFRANCE.COM, PAS QBFRANCE.COM. Sinon, la source n'est pas mal, elle peut toujours servir...bonne prog : 6/10
Messages postés
73
Date d'inscription
lundi 23 octobre 2000
Statut
Membre
Dernière intervention
16 mars 2008
2
Si quelqu'un d'habitué à ce site veut écrire quelques lignes de QBasic c'est parfait.
Je trouve que ton post n'est pas hors sujet car après tout, on trouve bien sur le même site des codes VB, VBA et VB.NET. (Qui sont tous assez différents les uns des autres, non ?)
Ahhhh ! ça me fait penser à mon premier prog ! Un jeu de cartes que j'avais fait à 11 ans et j'avais oublié qu'un joueur humain peut tricher ou se tromper...
Moi qui suit en train de passer à .net ça me donne envie de me remettre au QB.

Bonne prog à toi !
Messages postés
4531
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
8
>Spinork2003

Je suis désolé de te dire ça mais ....
ta source est carrement hors sujet !

ya deja de tres bon site de programmation pour QBasic
(ils ont pour la plupart été créé ya plus de 10 ans)
mais vbfrance est dédié a visual basic (toutes versions)
de plus ton code est a peine digne d'une calculatrice !

Tu aurais pu faire l'effort de le porter sur VB
Mais... c'est ton premier post, tout le monde a le droit a l'erreur !

B@nne prog
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
Surtout que les GOTO des lignes 150 et 180 ne servent à rien et que celui de la ligne 140 court-circuite la ligne suivante qui n'est jamais éxécutée.
Au fait QB 4.0 n'a pas besoin de numéros de ligne
Afficher les 6 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.