Si tu le sort ca fait error domain, c'est normal (apres tu peux t'arranger pour le faire reaparaitre de l'autre coté ou simplement l'empecher de sortir si ces coordonnées sont hors ecran).
Pour le faire aller 5 fois a droite:
For C,1,5
Y->B:X->A
X+1->X
Output(B,A," ")
Output(Y,X,"8")
End
very Le 10/11/2005 à 19:43 ( au passage, utiliser label / goto pour faire une boucle , çay mal )
«Les gens exigent la liberté d’expression pour compenser la liberté de pensée qu’ils préfèrent éviter.» - Sören Kierkegaard
La République, c’est comme la syphilis : quand on l’a attrapée, soit on se fait sauter le caisson, soit on essaie de vivre avec.
nilot Le 10/11/2005 à 20:38 A quoi correspondent le C et le 1 du for( ??
nilot Le 12/11/2005 à 19:31 Je voudrais savoir comment on fait pour que deux programmes s'exécutent en même temps
nilot Le 13/11/2005 à 15:51 sinon ça veut dire que dans un prg on ne peut pas faire boucher un truc et faire défiler un compte à rebours ???
nilot Le 13/11/2005 à 18:48 D'accord merci !!!
et pardon pour le smileys
Salut,
je post ici pasque j'ai moi aussi un probleme de mouvement,
enfin plus exactement avec la fonction Pt-Off(
voici la partie de mon code ou se trouve (je pense) le probleme
:while X<>23
:getKey->X
:A->C
:B->D
:If X=41 and A>-9
:A+1->A
:If X=61 and A<4
:A-1->A
:If X=65 and B<4
:B-1->B
:If X=45 and B>-9
:B+1->B
:Line(-8,A,-8,A+5
:Line(8,B,8,B+5
:Pt-Off(-8,C
:Pt-Off(-8,C+5
:Pt-Off(8,D
:Pt-Off(8,D+5
Je n'ai plus vraiment une trainée mais des especes de pointillé et ce meme en rajoutant
:Pt-Off(-8,C-1
:Pt-Off(-8,C-2
:Pt-Off(-8,C+6
:Pt-Off(-8,C+7
:Pt-Off(8,D-1
:Pt-Off(8,D-2
:Pt-Off(8,D+6
:Pt-Off(8,D+7
et meme avec un paquet de point en plus.
De plus lorsqu'une barre atteind le haut ou le bas de l'ecran impossible de la faire revenir, elle est bloquer.
Merci d'avance
Essaie d'effacer juste avant d'afficher (et non juste apres) et avec la fonction Line(x,y,x',y',0) (le 0 permet de tracer une ligne blanche = d'effacer)
Merci pour l'astuce du ,0 c'est exactement ce que je cherchait,
je présume que ca marche avec toutes les fonctions de dessins ?
C'est un peu moins important mais si quelqu'un savait pourquoi ma barre se bloque quand elle atteind le haut ou le bas
autrement dit:
:while X<>23
:getKey->X
:If X=41 and A>-10 <-- lorsque cette condition n'est plus verifier (ordonné de la barre inférieur a celle du bas de l'ecran)
:Then
:Line(-8,A,-8,A+5,0
:A+1->A
:End
:If X=61 and A<5 <-- alors celle ci ne peut plus avoir lieu
:Then
:Line(-8,A,-8,A+5,0
:A-1->A
:End
:If X=45 and B>-10 <-- pareille ici
:Then
:Line(8,B,8,B+5,0
:B+1->B
:End
:If X=65 and B<5 <-- et ici
:Then
:Line(8,B,8,B+5,0
:B-1->B
:End
:Line(-8,A,-8,A+5
:Line(8,B,8,B+5
:End
J'espere avoir sufisement commenté pour que vous puissié voir le probleme rapidement
merci d'avance pour l'aide...
C'est quoi le principe de ce prgm ?
Et ta barre elle s'affiche horizontalement ou verticalement ?
C'est un pong (plus par entrainement au code qu'autre chose) la barre est donc vertical.
Euh deja il faut inverser le A+1->A avec A-1->A, et pareil pour B.
bas la touche math (41) fait monter la barre d'ou le +1 et x² (61) fait dessendre je vois pas ce qui cloche.
Bha justement ca : quand tu veux faire monter c'est -1.
Bas avec Pt-On( en effet, et sans doute avec d'autre fonction, mais pas avec Line(
En tout cas mon prog n'a aucun probleme à ce niveau mais merci quand même.
Avec Line, -10 c'est toujours pour tracer au maximum en haut, et 10 pour tracer au maximum en bas non ?
nilot Le 21/11/2005 à 19:21 Je voulais savoir si on pouvait faire marcher la fonction pxl test( dans la fenêtre "home" (celle où on fait les calculs ).
Je crois plutot que Line( utilise les coordonnées du repere de la calculette et j'ai dit une betise pour Pt-On c'est pareil, c'est pour Pxl-On que les coordonnées sont inversées (et il n'y a pas de negatif) 0 est en haut et ca vas en bas jusqu'a 90 je crois
Oui, et pour Line en Zoom Standard, c'est -10 en haut, et 10 en bas.
Donc pour faire monter une ligne, il faut bien faire -1.