j avais deja posé la question sur un autre topic mais c etait pas la vraie question de départ
Donc j ai eu l idée comme toute personne qui commence de creer le petit 0 qui bouge, puis de rajouter une etoile au hasrd que le 0 pourrait manger puis de rajoutr a chaue fois que cela se produit una autre etoile

:Clrhome 

:1->X:1->Y 
:1->A:1->B 
:randInt (1, 16, I 
:randInt (1,8, J 
output (J,I; "*" 
:Repeat K=105 
:Output (A,B, " " 
:Output (Y,X,"O" 
:Y->A:X->B 
:getkey-> K 
:If K=24: X-1->X  // pour faire bouger l etoile
:... 
:If X=0:16->X // pour ne pas afficher Domain qd ele sort de l ecran
:... 
:End 


voila le debut il manque la derniere partie
merci de votre aide
je sais aussi qu on peut simplifier la premiere partie en supprimant les premiers If et en suprimant les A et B mais ce n est pas ce quim interesse
:Clrhome 

:1->X:1->Y 
:1->A:1->B 
:randInt (1, 16, I 
:randInt (1,8, J 
:Output (J,I; "*" 
:Repeat K=105 
:Output (A,B, " " 
:Output (Y,X,"O" 
:Y->A:X->B 
:getkey-> K 
:If K=24: X-1->X  // pour faire bouger l etoile
:... 
:If X=0:16->X // pour ne pas afficher Domain qd ele sort de l ecran
:... 

:If X=I and Y=J
:Then
:randInt (1, 16, I 
:randInt (1,8, J 
:Output (J,I; "*" 
:End 

:End



Voila ce que je ferais, tout simplement.
avatarloclamor
Mondo Photo
Le voyage en photo et en 1 clic
Loclamor (./3) :
[Voila ce que je ferais, tout simplement.


peut etre mais ca ne marche pas !
j ai enregistré ta partie en vert dans un autre programme que j ai rajoutée a l autre en essayant presuqe entre toutes les lignes mais cela ne marche pas !
l etoile est mangée et rien ne réapparait
[nosmile]
Juste avant la dernière ligne:
:Output (J,I; "*")
Tu rajouttes:
:Disp J
:Disp I


Et tu nous dit ce que ça affiche...
hmm...
ya pas de raison que ça marche pas...
Tu peux nous mettre le prog en entier ?
T'as peut être mis un End en trop qui fini la boucle.. Mais si tu nous met pas le prog en entier, tel qu'il est sur ta calto, on aura du mal à voir les erreurs.
avatarloclamor
Mondo Photo
Le voyage en photo et en 1 clic
ha, ben l'erreur est là, je pense :
ce n'est pas randInt (1, 16, I qu'il faut faire, mais randInt (1, 16)->I , même moi je l'avais faite, vu que j'avais fait un simple copier-coller smile
ce qui donne :

:Clrhome  
 
:1->X:1->Y  
:1->A:1->B  
:randInt (1, 16) -> I  
:randInt (1,8) -> J  
:Output (J,I; "*"  
:Repeat K=105  
:Output (A,B, " "  
:Output (Y,X,"O"  
:Y->A:X->B  
:getkey-> K  
:If K=24: X-1->X  // pour faire bouger l etoile 
:...  
:If X=0:16->X // pour ne pas afficher Domain qd ele sort de l ecran 
:...  
 
:If X=I and Y=J 
:Then 
:randInt (1, 16) -> I  
:randInt (1,8) -> J  
:Output (J,I; "*"  
:End  
 
:End


teste ça, ca devrais marcher... sinon, je vois pas.
avatarloclamor
Mondo Photo
Le voyage en photo et en 1 clic
Au pire test avec mon code :

ClrHome
1→X:1→Y
1→C:1→D
0→A:0→B
Repeat K=45
If X=C and Y=D:Then
randInt(1,8→D
randInt(1,16→C
End
Output(Y,X,"8"
Output(D,C,"*"
Repeat K
getKey→K
End
Output(Y,X," "
If K=34 AND Y+1≠9:Then
Y+1→Y
End
If K=25 AND Y-1≠0:Then
Y-1→Y
End
If K=24 AND X-1≠0:Then
X-1→X
End
If K=26 AND X+1≠17:Then
X+1→X
End
End
Ou sinon, envoie ton programme, si t'as un cable, parce que c'est surement une erreur de recopiage...
desole d avoir mis du temps a repondre ...
non j ai essaye ce code mais il ne marche qu une fois sur 2
des fois une 2 etoile apparait puis une 3 ee , etc
mais des fois ca affiche domain
Pour une fois j'ai testé mon code et celui là marche parfaitement :

ClrHome
1→X:1→W
1→C:1→D
0→A:0→B
Repeat K=45
If X=C and W=D:Then
randInt(1,8→D
randInt(1,16→C
End
Output(W,X,"8
Output(D,C,"*
Repeat K
getKey→K
End
Output(W,X," "
If K=34 AND W+1≠9
W+1→W
If K=25 AND W-1≠0
W-1→W
If K=24 AND X-1≠0
X-1→X
If K=26 AND X+1≠17
X+1→X
End
ClrHome


T'es sur que t'oublie rien en recopiant (des espaces/etc...) ?
merci beaucoup deeph ! je t en suis reconnaisant
mais j ai des questions
a quoi servent A et B puisqu on ne s en sert pas après ?
et puis je ne comprend pas vraimment le Repeat K
et h ai une grosse question : comment march les line pace que j ai pas compris
merci !
meyrink (./13) :
a quoi servent A et B puisqu on ne s en sert pas après ?

A rien j'ai oublié de les enlever ensuite.
meyrink (./13) :
et puis je ne comprend pas vraimment le Repeat K

'Repeat' c'est en gros l'inverse de 'While', ici ça sous entend 'Repeat K=0' ou 'While K≠0', ce qui signifie tant que K vaut 0 (ça c'est le Repeat) ou jusqu'à ce que K ne soit plus égal à 0 (While). Enfaite 'getKey' renvoi 0 tant qu'aucune touche n'est pressé, donc ici on demande d'arrêter la boucle lorsque getKey renvoi une autre valeur (ex: 45 pour Clear).
meyrink (./14) :
et h ai une grosse question : comment march les line pace que j ai pas compris

La commande 'line(' demande au moins quatre paramètres : les coordonnées X et Y du point de départ de la ligne et les coordonnées du point d'arrivé de la ligne. Bien sur il faut que l'écran soit réglé comme il faut pour pouvoir bien débuter avec l'écran graphique. Je te conseil d'écrire ça dans un programme et de l'exécuter :

0→Xmin:94→Xmax:0→Ymin:62→Ymax:AxesOff

Et là pour faire une ligne horizontale tu fait :

Line(2,2,8,2

Sinon je te conseil de lire le tuto 9 de Basic Learn à propos de l'écran graphique, ça devrais répondre à pas mal d'autres questions smile
merci j ai retenu le site mais j ai encore une autre question :
qu'est ce que starttimer ?
C'est une commande TI-Basic utilisable que sur TI 84+ (Silver Edition) et qui commence le chronomètre je croit (mais je ne sais plus trop comment ça s'utilise), 'fin tout est expliqué dans le manuel.
Ouaip, c'est à peu près ça.
A mes souvenirs, y'a deux deux commandes pour le chrono, mais y'en a une d'inutile.

En gros, celle ci te donne le temps en secondes que la calc a sur le moment.
Donc si tu le mets dans une variable, et que tu refais Starttimer, en faisant la différence, t'obtient le temps qu'il s'est écoulé.

C'est très peu utilisé, et comme ça gère que les secondes...
Bonjour, est ce que quelqu'un pourrait m'indiquer comment trouver et utiliser :randInt sur une calculette 83+ FR car elle n'y est pas sad

Merci beaucoup

Previou-s
MATH \ PRB \ 5
Merci beaucoup Baruch smile