10 INPUT " DONNE UN NOMBRE";A
20 INPUT " DONNE UN SECOND NOMBRE";B
30 PRINT " ADDITION OU SOUSTRACTION"
40 PRINT " MULTIPLICATION OU DIVISION?"
50 PRINT " QUELLE OPERATION VEUT TU?"
60 PRINT " DONNE LA PREMIERE LETTRE"
70 INPUT R$
80 IF R$="A" THEN C=A+B : GOTO 150
90 IF R$="S" THEN C=A-B : GOTO 150
100 IF R$="M" THEN C=A*B : GOTO 150
110 IF R$="D" THEN C=A/B : GOTO 150
120 PRINT " TU AS FAIT UNE ERREUR"
130 PRINT " RECOMMENCE"
140 GOTO 30
150 PRINT " LA REPONSE EST";C
160 END

Et quand je lance se programme, ils me demande un nombre(je met 15...), un second nombre(Je met 10...), ensuite il me demande de mettre Multiplication, soustraction.....(je met un A, pour addition....), et la sa quite la fenetre DOS!
Pkoi?

PS : M´engueuller pas, c´est la premiere fois que j´écrit en Basic!

Salut je viens de lire ton message à propos de
ton problème sur ton programme.
rajoute entre la ligne 150 et 160 ceci:wait 3000
Si ça ne marche pas alors dis moi quelle est le nom de ton compilateur.

Sa marche pas Wait 3000 : (
J´utilise Rapid-Q IDE!

ce que veut dire jlan, c´est qu´en fait, quand ton programme se termine, il quitte tout de suite. Et c´est tellement rapide d´afficher le résultat que ça l´affiche et hop ça quitte sans que tu aies pu voir !

donc si wait ne marche pas, essaie simplement un :

155 INPUT " appuyez sur entree pour quitter";S$

essaie : )

Hé! Merci JeanYvesYves!!
Mais en fait c´est Rapid-Q qui déconne, parce que avec Quick Basic sa marche!

C normal je crois, car Qbasic demande automatiquement l´appuie d´une touche pour quitter quand il a atteint la fin du programme ou la commande END. Et je suppose que l´autre language ne faisait pas de meme et quitter tout seul tout de suite !

Merde et remerde! Lol!

Pkoi sa clignotte pas? Sa clignote sous Quick Basic, mais pas quand on lance l´application DOS sans.

10 ´ Se programme a été programmer par Johan Baskovec.
20 Color 2 ´ Sa écrit en vert...
30 PRINT " C´est mon 1er programme! C´est coool!"
40 Color 18 ´ Sa c´est pour qua sa clignotte!
50 Print " Sa clignotte!"
60 Sound 100, 3 ´ La y´as du son!
70 Input " Appuyer sur Entrer pour quitter!";$
80 End

Encore pire lol!

10 ´ Se programme a été programmer par Johan Baskovec.
20 Color 2 ´ Sa écrit en vert!
30 PRINT " C´est mon 1er programme! C´est coool!"
40 Color 18 ´ En vert Clignotant
50 Input " Sa clignotte!";$
60 Sound 100, 3 ´ Du son!
70 SCREEN 12
80 Input " Appuyer sur Entrer pour quitter!";$
90 End

La ligne 70 Screen 12(pour faire un mode 640 sur 480)pose probleme! Quand je la met, sa marche pas(Rapid-Q me dit Line 7: ERROR: Trying to assign reserved word SCREEN), et quand je l´enlève, sa marche! Comment sa se fait?

PS : Le problème de clignotement est toujours d´actualité!

J´y connais rien en QBasic, mais je met ma petit hypothèse.

Vérfie que la fonction SCREEN est bien définie.

Lol...comment on fait pour la " définir"?

Voila un résumer de tout mes probleme :

10 ´ Se programme a été programmer par Johan Baskovec.

20 Color 2 ´ Sa écrit en vert!

30 PRINT " C´est mon 1er programme! C´est coool!"

40 Color 18 ´ En vert Clignotant, mais sa le fait que sous Quick Basic

50 Print " Sa clignotte!"

60 Sound 100, 3 ´ Du son!

70 PSET ( 10,15), 7 ´ Sa devrait faire un point! Mais Quick Basic et Rapid-Q IDE ne reconnaissent pas le mot clef PSET! Donc je peut pas faire le point.

80 Input " Appuyer sur Entrer pour quitter!";$ ´Sous Quick Basic sa marche pas!

100 End

Ah ok, la couleur clignottante, c´est réservé a certains basics je crois

essaie :

5 a=1
10 color a
15 locate 1,1 ( si ça marche pas essaie gotoxy 1,1)
20 print " clignotte"
30 a=a+1
40 if a>10 then a=1
45 if inkey$<>"" then end
50 goto 10

Et pour Pset?

salon les basic, tu as les instructions suivantes qui sont équivalentes a PSET

PLOT
PUTPIXEL
PIXELSET

a toi de trouver la bonne.

Merci!

Je finie ma phrase...Merci! Mais aucun des 3 ne marche : (