a02halo ça marche avec d´autres images?

faut une image . bmp
tu ouvre ton image ac paint, et tu la met en . bmp
ensuite tu la met ds le dossier media de DB
apres tu fait
LOAD BITMAP " ****"
et normalement sa devrait marcher

En gros timorite, tant que la reponses ne sera pas oui, sa repetera tt, c sa?
Et j´ai une autre question,
comment faut il faire pour kan on repond oui, sa fait un truc, kan on repond non sa fait autre chose, et que tte les autre reponses, rien ne ce passe?
mici ++

Salut!
Mon problème persiste: j´arrive vraiment pas à tester mon quiz!
je vais vous envoyer mon code, peut-être trouverez-vous mon erreur!

Rem Project: Quiz!
Rem Created: 14/05/05 17:25:27

Rem ***** Main Source File *****

Print " Salut! Voici mon premier programme!"
Wait Key
Print " C´est un petit quiz sur l´ensemble de l´IDD!"
Wait Key
Print " Il n´y a pas de compteur de bonnes réponses, alors je vous conseille de savoir compter! Gniark!"
Wait Key
Print " Si vous ne comprenez rien à ce truc, demandez Grobourrin_XIX ( 19ème du nom) ou Artemis Fowl IV ( 4ème du nom)."
Wait Key
Print " Mais comme c´est une seule et même personne, vous trouverez forcément les deux."
Wait Key
Print " Quelle imagination ces jeunes..."
Wait Key
Print " *soupir*"
Wait Key
Print " Bon, ben c´est pas l´tout mais on va commencer, non?"
Wait Key
Input " Répondez par oui ou par non. " ; ouinon$
If ouinon$="non" then
Print " Ben salut alors!"
Wait Key
End
If ouinon$<>"non" then
Print " Ah? Très bien."
Wait key
Print " Je rajoute juste qu´il faut IMPERATIVEMENT mettre une majuscule à chaque réponse!"
Wait Key
Print " C´est partit!"
Wait Key
Print " Question 1:"
Wait Key
Input " Quelle est la couleur de l´air?" ; couleurdelair$
If couleurdelair$<>"Incolore" then
Load Bitmap " Images\Boum.bmp",1
Create Bitmap 1,180,240
Wait 20000
Delete Bitmap 1
WAIT KEY
Print " Eeeeehhhh non, c´est pas " ;couleurdelair$
Wait Key
Print " Mais je ne vous dirai pas la réponse sinon vous allez tricher."
Wait Key
Print " Allez, ressaisissez-vous, encore 9 questions! ^^"
If couleurdelair$="Incolore" then
Print " Bien joué!"
Wait Key
End

bob8577: Je vais répondre à ta question -pour la première fois sur ce topic -:
tu met par exemple
Input " tu veux quitter";ouinono$
if ouinon$="oui" then
Print " Ok salut!"
Wait key
End
If ouinon$<>"oui" then
Ce que tu veux.

Et j´espère ne pas m´être trompé.

Ben je me suis mis au DarkBasic y´a peu de temps pour voir ce que c´était et je trouve ça plutôt sympa
Je ne vais pas aller jusqu´à dire que je fais déjà des programmes tout seul, ça serait totalement faux, alors je m´exerce en faisant un petit quiz pour mon IDD 4ème.
Sinon tu saurais pourquoi ça me met " Ce programme va être arrêté" avec ce code?

Rem Project: Quiz!
Rem Created: 14/05/05 17:25:27

Rem ***** Main Source File *****

Print " Salut! Voici mon premier programme!"
Wait Key
Print " C´est un petit quiz sur l´ensemble de l´IDD!"
Wait Key
Print " Il n´y a pas de compteur de bonnes réponses, alors je vous conseille de savoir compter! Gniark!"
Wait Key
Print " Si vous ne comprenez rien à ce truc, demandez Grobourrin_XIX ( 19ème du nom) ou Artemis Fowl IV ( 4ème du nom)."
Wait Key
Print " Mais comme c´est une seule et même personne, vous trouverez forcément les deux."
Wait Key
Print " Quelle imagination ces jeunes..."
Wait Key
Print " *soupir*"
Wait Key
Print " Bon, ben c´est pas l´tout mais on va commencer, non?"
Wait Key
Input " Répondez par oui ou par non. " ; ouinon$
If ouinon$="non" then
Print " Ben salut alors!"
Wait Key
End
If ouinon$<>"non" then
Print " Ah? Très bien."
Wait key
Print " Je rajoute juste qu´il faut IMPERATIVEMENT mettre une majuscule à chaque réponse!"
Wait Key
Print " C´est partit!"
Wait Key
Print " Question 1:"
Wait Key
Input " Quelle est la couleur de l´air?" ; couleurdelair$
If couleurdelair$<>"Incolore" then
Load Bitmap " Images\Boum.bmp",1
Create Bitmap 1,180,240
Wait 20000
Delete Bitmap 1
WAIT KEY
Print " Eeeeehhhh non, c´est pas " ; couleurdelair$
Wait Key
Print " Mais je ne vous dirai pas la réponse sinon vous allez tricher."
Wait Key
Print " Allez, ressaisissez-vous, encore 9 questions! ^^"
If couleurdelair$="Incolore" then
Print " Bien joué!"
Wait Key
End

Grobourrin_II
Je suis entrain de lire ton code, et si tu veux mon avi, il ne marchera pas même si tu arrive à le compiler. Je m´explique :

1: je cite un bout de ton code :
---------------------------------------------

Input " Répondez par oui ou par non. " ; ouinon$
If ouinon$="non" then
Print " Ben salut alors!"
Wait Key
End
If ouinon$<>"non" then
Print " Ah? Très bien."
Wait key

------------------------------------------

Tu a confondu deux commandes:
IF THEN
et
IF
ENDIF
Si tu n´as qu´une commande par condition, tu peux utiliser la commande
IF THEN
exemple :
IF ouinon$ = " non" THEN PRINT " Au revoir ! "
Attention : tu dois écrire toutes les commandes sur la même ligne !
cas n°2 : tu effectue plusieur commandes par condition ( comme dans ton programme)
à ce moment, tu écris:
IF ouinon$ = " non"
PRINT " Au revoir"
end
ENDIF
Tu remarquera qu´il n´y a PAS de THEN. Important, ça !
Car si tu écris ce que tu a écrit, voilà ce qui va se passer :

If ouinon$="non" then

rem tu remarque qu´il n´y a rien après le THEN, donc que cette condition soit vrai ou fausse cela ne change rien vu que rien n´est exécuté

Print " Ben salut alors!"

rem comme tu est hors de la condition IF THEN, ce message s´affichera de toute façon, que la condition soit vrai ou fausse

Wait Key
End

rem idem pour ces deux

If ouinon$<>"non" then
Print " Ah? Très bien."
Wait key

rem même problème que ci-dessus

voici cette partie de code corrigée :

Input " Répondez par oui ou par non. " ; ouinon$
If ouinon$="non"
Print " Ben salut alors!"
Wait Key
End
endif

If ouinon$<>"non"
Print " Ah? Très bien."
Wait key
endif

Ton code comporte ce type d´erreur plusieur fois, je te conseille donc de le revérifier par rapport avec cet exemple

bob8577
c´est simple :
de deux chose l´une :

1 : Tu demande quelques chose à l´utilisateur, et tu attend de lui une réponse précise, est tant que sa réponse ne sera pas une des deux que tu attend, le programme lui demandera une réponse :

Dans ce cas, voila ce qu´il te faut :

REPEAT
CLS
PRINT " Voulez-vous sauvergarder ? "
INPUT " Tapez oui ou non"; reponse$
IF reponse$ = " oui"
PRINT " partie sauvée"
ENDIF
IF reponse$ = " non"
PRINT " pas de sauvegarde"
ENDIF
UNTIl reponse$ = " oui" or reponse$ = " non"

Voilà pour le premier cas.
Maintenant admettons que tu demande le nom du joueur, et que tu veux que si le joueur s´appelle Mario, il commence avec 100 vies ( je sais, l´exemple est débile...)
Cela donne :

INPUT " Entrez un nom..."; nom$
IF nom$ = " mario" THEN vie = 100

Comme cela, si il entre mario, il aura 100 vies, et pour tous les autres noms, il ne se passera rien.
Note : Dans mon exemple, ton programme différenciera la casse.

Voilà, si ta pas tout compris, dis le moi !

Timorite
ça me fait plaisir de te donner un coup de main,
après toutes les questions que je t´ai posées ! Ah oui, enfait, ce que j´appelle tableau, c´est les array, si tu préfères ( c´est juste la traduction ! ). Merci de nous " coacher" !
Moi je vais bientôt commencer un jeu, je fini juste la lecture du chapitre sur l´enregistrement des fichiers et... je révolutionne le monde du jeux-vidéo...(très) amateur !

prog_debutant: Merci.
Donc, si j´ai bien compris, il faut que toutes les commandes destinées à " IF" doivent être sur une même ligne...
Bon ben je m´en vais arranger toute cette pagaille.

Si tu utilise IF THEN.
Sinon, tu peux en mettre sur les autres lignes avec IF ENDIF:
IF variable = 1
PRINT " S";
PRINT " A";
PRINT " L";
PRINT " U";
PRINT " T"
ENDIF

re tt le monde
est ce que vs avez MSN?
vous pouvez mettre vos adresse hotmail?
sa peux tjrs etre utile
la mienne:
bob85778@hotmail.com
pr les mails, c´est vauteregis@wanadoo.fr

Est ce ke l´on peut nommer les repeat paske j´en ai 50 mille ds mon code

Encore merci pour le coup de main prog_debutant J´ai hâte de voir ce que donnera ton premier jeu. Tu sais déjà quel style de jeu tu vas faire? Et pour les arrays, tu parles de load array et save array je suppose? Pour être honnête je ne les ai encore jamais utilisées, je vais tester ça tout à l´heure.

Donc Grobourrin_II effectivement ce sont des problèmes de syntaxe. Pour résumer voilà les différentes possibilités pour les conditions:

1. une seule instruction:

if " condition" then " instruction"

2. plusieurs instructions:

if " condition"
" instruction1"
" instruction2"
endif

3. avec un " sinon"

if " condition"
" instruction1"
" instruction2"
else
" instruction3"
" instruction4"
endif

bob85778, non on ne peut pas nommer les repeat, par contre pour structurer ton code tu peux rajouter des remarques, par exemple:

rem repeat1
rem repeat2
. ..

Et voilà mon e-mail, mais je ne suis quasiment jamais sur MSN, donc c´est juste pour les mails: timorite@hotmail.com

pask´en fait je me suis completement emmelé avec les repeat, et en + je maitrisent pas encore bien le DBPro

Si tu veux pas je comprendrai, mais est ce ke tu peux me donner un ti coup de main a arranger mon code pask g un prob et c´est assez complexe(stp stp)

tien voici mon code, fait un copier-coler et teste le stp
paske au 1er choix, je peux pas faire 2
apres g essayé plein de truc alors apres sa marche, mais kan je fais 1 et apre 2 sa s´arrete

SET DISPLAY MODE 1024, 768, 32
LOAD MUSIC " CT 06.mid",1
LOAD BITMAP " abstract03.bmp"
SET TEXT SIZE 26
SET TEXT FONT " GiovanniITCTT",1

PLAY MUSIC 1
SET CURSOR 320,120
PRINT " Le Calme, la Fierte"
WAIT KEY
LOAD BITMAP " abstract03.bmp"
SET CURSOR 320,120
PRINT " la Force, l´Esprit"
WAIT KEY
LOAD BITMAP " abstract03.bmp"
SET CURSOR 320,120
PRINT " le Bien, le Mal"
WAIT KEY
LOAD BITMAP " abstract03.bmp"
SET CURSOR 320,120
PRINT " Tout etait destine a s´opposer..."
WAIT KEY
LOAD BITMAP " abstract03.bmp"
SET CURSOR 320,120
PRINT " Quatre races:"
PRINT " -les Humains, race prospere, calme, intelligente et parfois cupide..."
WAIT KEY
PRINT " -Les Elfes, race sage, pleine de savoir et maitrisant la magie..."
WAIT KEY
PRINT " -Les orcs, race fiere et courageuse, elle n´en est pas moins assoifee de pouvoirs..."
WAIT KEY
PRINT " -Les elfes noir, race perfide et cruelle. Autrefois, ils étaint des elfes, mais ils furent possedes par le Diable..."
WAIT KEY
LOAD BITMAP " abstract03.bmp"
SET CURSOR 10,10
PRINT " Et Vous?"
REPEAT
CLS
LOAD BITMAP " abstract03.bmp"
SET CURSOR 10,10
REPEAT
REPEAT
LOAD BITMAP " abstract03.bmp"
SET CURSOR 10,10
PRINT " Pour qui prenez vous parti?"
PRINT " 1.Les Humains..."
PRINT " 2.Les Orcs..."
INPUT " Reponds par un chiffre",camp$

Rem CHOIX DES HUMAINS
IF camp$= " 1"
LOAD BITMAP " abstract03.bmp"
PRINT " Tu as donc choisi la voie de la sereinite..."
WAIT KEY
PRINT " Est ce ton choix final?"
PRINT " Prend ton temps, ne sois pas presse..."
PRINT " 1. Oui"
PRINT " 2. Non"
INPUT " Reponds par un chiffre",camp1$
ENDIF
UNTIL camp$="1" OR camp$="2"

IF camp1$= " 1"
LOAD BITMAP " abstract03.bmp"
SET CURSOR 320,120
PRINT " Je te souhaite donc un bon courage, humain, car ta route sera difficile..."
WAIT KEY
LOAD BITMAP " abstract03.bmp"
SET CURSOR 320,120
PRINT " Et c´est la ou la situation sera la plus desesperee,"
WAIT KEY
LOAD BITMAP " abstract03.bmp"
SET CURSOR 320,120
PRINT " Que la victoire te souriera, c´est ton destin..."
WAIT KEY
LOAD BITMAP " abstract03.bmp"
SET CURSOR 320,120
PRINT " Cependant, un grand mystère plane, Et te tourmantera,"
WAIT KEY
LOAD BITMAP " abstract03.bmp"
SET CURSOR 320,120
PRINT " Encore, et encore..."
WAIT KEY
LOAD BITMAP " abstract03.bmp"
SET CURSOR 320,120
PRINT " C´est aussi,ton destin"
WAIT KEY
LOAD BITMAP " abstract03.bmp"
SET CURSOR 250,120
PRINT " Avant de commencer ton aventure, j´aimerais te poser quelques questions..."
WAIT KEY

ENDIF
UNTIL camp1$="1"

Rem FIN CHOIX HUMAINS

Rem CHOIX DES ORCS
IF camp$="2"
LOAD BITMAP " abstract03.bmp"
SET CURSOR 10,10
PRINT " Tu as donc choisi la voie de la puissance et de la fierte..."
WAIT KEY
PRINT " Est-ce un choix definitif?"
WAIT KEY
PRINT " Prends ton temps, ne te depeche pas..."
WAIT KEY
PRINT " 1. Oui"
PRINT " 2. Non"
WAIT KEY
INPUT " Reponds par un chiffre...",camp2$
ENDIF
UNTIL camp$="1" OR camp$="2"

IF camp2$= " 2"
LOAD BITMAP " abstract03.bmp"
SET CURSOR 320,120
PRINT " Je te souhaite un bon courage jeune orc, car ta route sera longue..."
WAIT KEY
LOAD BITMAP " abstract03.bmp"
SET CURSOR 320,120
PRINT " Et c´est quand la victoire te semblera proche..."
WAIT KEY
LOAD BITMAP " abstract03.bmp"
SET CURSOR 320,120
PRINT " Qu´elle sera en fait tres eloignée..."
WAIT KEY
LOAD BITMAP " abstract03.bmp"
SET CURSOR 320,120
PRINT " De plus, tu aura du mal a te faire respecter des tiens..."
WAIT KEY
LOAD BITMAP " abstract03.bmp"
SET CURSOR 320,120
PRINT " Mais, tu y arrivera tout de meme..."
WAIT KEY
LOAD BITMAP " abstract03.bmp"
SET CURSOR 320,120
PRINT " Avant de prendre les armes, j´aimerais te poser quelques questions..."
WAIT KEY
LOAD BITMAP " abstract03.bmp"
SET CURSOR 320,120
ENDIF

END

J´ai une petite question: Si je veux mettre des bitmap et des sons dans mon quiz, où est-ce que je les mets dans mon répertoire?

Et autre question: Je ne peux toujours pas tester mon quiz...
Je vais être plus précis: Ca me met:
" Ce programme va être arrêté car il a effectué une action non conforme."
Détails > > QUIZ! a causé une défaillance de page dans
le module < inconnu> à 0000:00000009.
Registres :
EAX=100187e8 CS=018f EIP=00000009 EFLGS=00010246
EBX=015b0e40 SS=0197 ESP=00f7f758 EBP=00f7f75c
ECX=00000000 DS=0197 ESI=0040e82a FS=6377
EDX=00f7fd00 ES=0197 EDI=00f7fbb8 GS=0000
Octets à CS : EIP :
00 96 09 65 04 70 00 65 04 70 00 54 ff 00 f0 88
État de la pile :
10002a06 00f7f76c 10003211 00402a49 00f7fdac 00f7fdac 004037d7 00000000 00000000 00570000 575c3a43 4f444e49 545c5357 5c504d45 7062645c 61746164

Je ne suis pas sûr que ça serve à grand chose mais bah vous trouverez peut-être.

Je viens de tester chez moi ( en remplaçant ton image et ta musique par des miennes forcément) et ça marchait plus ou moins ( à part des phrases qui se chevauchent). Si ton problème est que ça plante, ça doit venir de ton image ou de ta musique qui n´est pas acceptée par DarkBasic. Essaye d´abord en enlevant l´un ou l´autre et vois si ça marche.

a02halo " set display mode" ça définit la résolution de l´écran, là par exemple ça le met en 640X480 avec des couleurs 32 bit.