Poster un nouveau sujet Poster une réponse
FLECHETT
Auteur Message
Persalteas



Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Lun 06 Sep 2010, 21:13   Citer 

j'ai du poster une version de ce prog, mais comme je retrouve pas le topic, j'en fais un nouveau:

un jeu de fléchettes:
# c'est racinne carrée
{x est dans variables/stats c'est un espèce de E suvi d'un petit x


Code

:Full
:ClrHome
:" {x----->"->Str1
:Output(3,1,"****************"
:Output(4,1,"***FLECHETTES***"
:Output(5,1,"****************"
:For(Y,1,8)
:If Y=3:6->Y
:For(K,1,7
:Output(Y,K,Str1
:69!
:End
:End
:Pause
:-4->A:-6.5->B
:0->S:1->T
:1->C:1.1->D
:ClrDraw
:-5->Ymin
:5->Ymax
:7.5->Xmax
:-7.5->Xmin
:For(K,1,5
:Circle(0,0,K
:End
:Line(6,3,7.5,3
:Line(6,1,7.5,1
:Line(6,1,6,5
:
:Lbl 1
:Text(3,87,S
:Text(15,87,T
:
:Repeat getKey=105
:Line(-7.5,A-C,-6,A-C,0
:Line(B-D,-5,B-D,-4,0
:Line(-7.5,A,-6,A
:Line(B,-5,B,-4
:If abs(A)>=5:-C->C
:If abs(B)>=7.5:-D->D
:A+C->A
:B+D->B
:End
:T+1->T
:A-C->A
:B-D->B
:Line(-7.5,A,-6,A,0
:Line(B,-5,B,-4,0
:Pt-On(B,A,3
:iPart(#(A²+B²)->K
:S+(5-K)->S
:A+C->A
:B+D->B
:If T=/=16:Goto 1
:Text(3,87,S
:Horizontal -1
:For(K,-.8,1,0.1
:Line(Xmin,K,Xmax,K,0
:End
:Horizontal 1
:Text(28,20,"<--SCORE:   ",S," -->"
:Pause
:ClrDraw
:ClrHome
:DelVar ADelVar BDelVar CDelVar DDelVar SDelVar KDelVar TDelVar XDelVar YDelVar Str1
:Output(1,1,"



 Adresse email Haut de page Bas de page 
 
raboulave



Autorisation : Membre
Nb de messages : 57
Inscrit le : Jeu 08 Oct 2009, 20:56
Posté le : Ven 10 Sep 2010, 17:27   Citer 

Salut ! TOut d'abord merci pour ton joli petit programme winkle.gif
Il y a juste quelques petits trucs bizarres :
- Que signifient les chiffres à droite dans le cadran ?
- Une barre descend et remonte à gauche, je pense que c'est la flèche. J'appuie sur entrée au moment où elle passe au centre de la cible, les chiffres à droite changent mais la flèche a continué son chemin :/
- Mon score est toujours négatif ( et pas parce que je suis mauvais je pense ^^)
Voilà voilà ! J'espère que tu vas trouver des réponses à mes problèmes, parce qu'étant donné que c'est pas mon prog, j'ai beaucoup de mal à savoir comment ça s'organise là-d'dans tongue.gif
Et merci d'avance winkle.gif

 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Sam 11 Sep 2010, 15:19   Citer 

alors:
les chiffres a droite, c'est les points que tu as marqué et le nombre de fléchettes que tu as lancé.

il y a deux traits qui font des allers et retours sur l'écran, un à gauche de l'acran, et un en bas.
ils bougent sans arrêt, et quand tu fais enter, ça tire sur la cible à l'endroit d'intersection des deux traits (tu vois apparaître une croix sur la cible.

le score négatif, là... erreur de recopiage, ou erreur de postage de ma part.
je vérifie.


edit:
a la ligne "S+(5-K)->S" tu utilises bien la touche [-] sans parenthèses ?
le grand moins, quoi.

 Adresse email Haut de page Bas de page 
 
raboulave



Autorisation : Membre
Nb de messages : 57
Inscrit le : Jeu 08 Oct 2009, 20:56
Posté le : Lun 13 Sep 2010, 18:05   Citer 

Ouioui, j'ai bien écrit avec le bon signe - . Et aussi, la croix ne s'affiche pas, c'est normal ? De plus, il n'y pas assez de place pour le score sur la droite. Et une dernière chose importante aussi : la barre du bas traverse l'écran de gauche à droite une seule fois puis disparaît. Tu m'étonnes que j'ai une score mauvais happy.gif

 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Lun 13 Sep 2010, 20:54   Citer 

tu as répondu tout seul à pourquoi la croix ne s'affiche pas.

le reste, euh... dès que j'aurais de nouveau ce programme sur ma calto, je te promets de vérifier le code.
parce que mon prog fonctionnait à merveille quand je l'ai fait.

essaye de le télécharger:http://www.mediafire.com/?4up3rduhnsw8e76

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Page générée en 9 requêtes