Voilà en fait ce que je cherche à faire c´est une action lorsque j´apuis sur une touche.
Je vais donner mon programme comme ça ce sera plus facile.
CLS
screen 12
color 9
for cercleX = 40 to 580 step 60
for cercleY = 60 to 360 step 55
circle ( cercleX, cercleY), 25
sound cercleX + xercle Y, 1
paint ( cercleX, cercleY)
next next
color 3
color 5
circle ( 40, 60), 25
Voilà ensuite je voudrais pouvoir déplacer le cercle rouge sur les autre cercles bleux.
et c´est là que je ne comprend pas comment ce là fonctionne.
Pour pouvoir intercepter un évenement je crois qu´il faut écrire par exemple:
on key ( 11) haut
pour ensuite mettre une étiquette et lui donné un ordre.
J´ai cru comprendre qu´il fallait activer les touche alors j´ai écris:
key ( 11) on
key ( 12) on
key ( 13) on
key ( 14) on
Mais bon là je crois que je m´embrouille complètement alors je vais m´arreter là en espérant une aide précieuse.
Merci d´avance.

Snif le Qbasic, que de souvenirs
ça fait trop longtemps que j´y ai pas touché, peut etre quelqu´un pourras t´aider sinon va voir les tutos sur des sites comme http://qbworld.free.fr/
c´est un ami a moi qui l´as fait, Achraf Cherti, très sympa mais je suis pas sur qu´il l´entretien encore, enfin bref c´était une mine d´infos pour moi a l´époque, ya meme un BOT programmé en Qbasic

regarde sur Google, yen a plein

Ca fait deux ans que je n´ai pas touché au QBasic, tu aurai du demander plus tôt j´aurai été apte à te répondre, mais maintenant je saurai à peine tracer un cercle :/

Ceci dit j´ai un très bon ami qui devrait savoir comment faire ( ça fait longtemps qu´il n´y a pas touché lui non plus, ça date de la troisième et nous allons en première :s), j´essaierai de le contacter, ou si tu veux je te file son numéro.

C´est marrant ton message ressemble au mien en tout point

J´avais pas fait gaffe, j´ai lu après avoir écrit le mien ^^

je regarde quelques tutoriaux ouis je vous dirais si j´y arrive ou pas.

Bon ça va un peu mieux mais en fait il faudrait que quelqu´un m´explique dans quelles conditions et pourquoi on utilise tel ou tel commande.
Je parle de inkey$, chr$, ect....
Parce que je viens de trouver qu´on pouver faire if inkey$ = " 8" then ect....
Pendant que j´y suis quelqu´un peut m´expliquer à quoi sert cette boucle dans quel cas on l´utilise et ce quelle signifie.
do
loop until et apres j´ai inkey$ mais il doit pouvoir y voir autre chose
merci d´avance de votre aide

" key ( 11) on" Oui c´est juste, mais il manque " on key 11 gosub etiquette"

Tout ceci est noté dans la documentation de QBasic !

Ca devrait par exemple donner:

key ( 1) on
on key(1) gosub fin
do
print " boucle à l´infini"
loop
fin:
print " Tu as appuyé sur F1 ! !!!!!!!!!"
END

En fait la fonction " key" n´attend pas l´utilisateur: il faut l´utiliser dans une boucle sinon le programme est fini.

ouai merci du coup de main mais j´avais réussit à trouver mais j´ai 2 question.
1.On est obligé d´utilisé une instruction comme gosub parce que j´ai le pere d´un pote qui m´a dit que les goto et gosub c´est franchement pas bien pour apprendre à programmer?.
2. Comment on fait pour effacer quelques chose de précis genre je veux effacer ce cercle là ( ex: circle ( x, y), z)et pas un autre.
Comment je fais pour effacer un texte précis.
en fait c´est juste parce que je ne connais que l´instruction cls qui sert à tout effacer ou juste les texte ou juste les dessins mais pas quelque chose de précis.
J´ai besoins de savoir rapidement.
Merci d´avance

1. Oui en BASIC pour cette fonction le gosub est obligatoire. Quand à la remarque sur les GOSUB et les GOTO, c´est vrai que c´est mauvais ! Ca insite à la programmation spaghettis et ton programme risque de devenir un vrai bordel avec des GOTO partout. Mais pour commencer c´est vrai que c´est plus simple ainsi. Le seul problème que tu auras c´est en changeant de langague. Si après tu veux apprendre le C, le Java, . .. tu auras des problèmes si tu es un obsédé du GOTO...

2. Je sais plus vraiment. Tu pourais créer un cercle qui aura la couleur du fond de l´écran, ainsi on ne le verra plus.

goto est effectivement moche.

gosub l´es beaucoup moins.
Si ton code est bien écrit avec les procédure bien séparé, alors gocub est presque beau ( moins bien que call mais c´est un problème de QB).

2) oui, tu fait circle ( x,y),r,0 0 étant normallement la couleur de fond de l´écran, sauf si tu l´a toi même repeint. Mais le problème, c´est que si tu a par exemple une ligne qui coupe ce cercle, alors la ligne sera coupé ! ( je veut dire qu´il manquera un pixel sur cette ligne)

J´ai 2 blem mais y´en à un que je ne peux pas expliquer tout de suite je mettrer mon prog et j´expliquerais mon bel.
Mais pour mon second blem , je voudrais savoir comment on peut activer la touche enter parce que je crois quelle n´existe pas avec la fonction on key mais elle doit se trouver dans les caractere ACSI.

ça serait pas key ( 13) par hasard ?

si ce n´est pas le cas, c´est quand même un truc comme a$=inkey$
avec a$=chr$(13)+chr$(10) quand on presse enter, mais je ne suis pas sur du tout.

Ha non key(13) c´est le 6 du pavé numérique.

chr$(0)+chr$(13)

j´ai pas essayé mais je pense que ça doit etre ça.
Mais quelqu´un peut me dire ou celà est écris dans qbasic parce que je n´ai pas trouvé.
du moins le code ascii correspondant à 13 est d´après qbasic ( dans l´aide):
013 ( cr).
Je voudrais aussi savoir ce qu´est le code du clavier.

ça ne marche pas.
Autre chose j´ai voulu mettre la touche esc pour quitter dans l´aide code ascii y´a écrit que c la touche 027.
voilà ce que j´ai fait:
key 16, chr$(0) + chr$ ( 27)
on key(16) gosub quitter
key(16) on
do
y´a d´autre truc la
loop

DSL J´AI APPUYE SUR UNE MAUVAISE TOUCHE.
ça ne marche pas.
Autre chose j´ai voulu mettre la touche esc pour quitter dans l´aide code ascii y´a écrit que c la touche 027.
voilà ce que j´ai fait:
key 16, chr$(0) + chr$ ( 27)
on key(16) gosub quitter
key(16) on
do
( y´a d´autre truc la dedans)
loop
quitter:
end

tu fait :

do
. ..
loop until inkey$=chr$(27)

ou alors :

do
a$=inkey$
select case a$
case chr$(13)+chr$(10)
´quand on appuie sur enter
case trucmuche
´ce que tu veux
. ..
case chr$(27)
exit do
end select
loop

Tu peux me dire pourquoi sa marche pas quand j´écris:
key 15, chr$(13) + chr$(10)
on key(15) gosub enter
key(15) on
do
loop until inkey$ = chr$(27)
enter:
( et là je met ce que je veux)
mais quand j´appuis sur enter ça marche pas tu peux m´expliquer pourquoi.
Autre chose tu peux aussi m´expliquer pourquoi enter c´est chr$(13) + chr$(10) parce que ça je crois que j´ai pas compris grand chose.
Merci