Autorisation : Membre
Nb de messages : 878
Inscrit le : Sam 15 Oct 2011, 11:07
Posté le : Sam 11 Mai 2013, 11:41
Oui, ils existent, mais ces traducteurs en question sont plus des personnes connaissant les deux langages qu'un bête traducteur qui n'existe pas.
---------------------- La la la ...
Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
Un problème de programmation ? Allez consulter ce tutoriel crée pour cela : TUTORIEL PROGRAMMATION
Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTIONEN VIDEO
Autorisation : Membre
Nb de messages : 107
Inscrit le : Sam 20 Avr 2013, 15:43
Posté le : Lun 13 Mai 2013, 21:03
oui mais j'ai trouvé plusieurs sites qui proposent pas mal de jeux et de programmes... Et il y en a un gros paquet.
Je suis d'accord casio... en fait je m'y suis intéressé car un copain m'a demandé de lui mettre des jeux, mais comme la casio est complètement différente de la TI... J'ai du cherché des jeux pour casio et j'aimerais bien les avoir pour TI 82 stats.
----------------------
visitez ma page ti82stats.fr
0 -> R << Ajouté texte
AxesOff
ViewWindow 1,100,1,1,100,1
Cls
10,50 texte, "Asteroids"
Horizontale 20
Horinzontal 70
Pour 5 -> A To 100
PxlOn Int 30Ran # 20, A
Suivant
Pour 4 -> 80 Etape 10
F-Line A, 20 A, 70
A = / = 4 => Int texte (20Ran # +25), Int (1,25), ""
A = 4 => Int texte (20Ran # +25), Int (1,25-1), "="
Suivant
40 -> A: 110 -> B: -1 -> C: 0 -> D
1 -> Z: 0 -> S: 0 -> T
Moins 40 109, "+"
S = 0 => 5 -> T
Alors que Z = 1
Avez-
A + C-> A
B + D-> B
B> 125 => 0 -> Z
B <3 => 2 -> Z
PxlTest A, B
Ans = 1 => 0 -> Z
PxlOn A, B
Getkey-> G
1 = / = Z => 1 -> G
Isz S
LpWhile 0 = G
Si G = 28
Ensuite, 0 -> D: -1 -> C
IfEnd
Si G = 37
Ensuite, 0 -> D: 1 -> C
IfEnd
Si G = 38
Ensuite, 0 -> C: -1 -> D
IfEnd
Si G = 27
Ensuite, 0 -> C: 1 -> D
IfEnd
WhileEnd
Si 2 = Z
Puis le texte 55,20, «l'objectif 200 points supplémentaires"
S +200> S
IfEnd
S * 2 -> N
Z = 0 => Text 55,44, "Vous avez détruit"
N + T-> N
F-Line 25,49,71,49
F-Line 25,49,25,60
F-Line 25,60,71,60
F-Line 71,60,71,49
N * 50 -> M
Pour 35 -> A 85
Text 27, A, ""
Suivant
M-365-> W
27,35 texte, "SCORE:"
Text 27,65, S
W + Int (98Ran #) +1-> W
W / 100 -> O
Frac W -> U
WU-> W
100U-> U
WU * 100 + U-> W
Text 3,1, "CODE:"
Text 3,26, W
Si S> Mat B [1,1] << Début ajoutée texte
Puis ClrText
"Nouveau record!"
"VOUS AVEZ FAIT 1ère place!"
S-> Mat B [1,1]
Aller à la r
IfEnd
Si s> Mat B [2,1]
Puis ClrText
"Nouveau record!"
«Tu as fait 2e place!"
S-> Mat B [2,1]
Aller à la r
IfEnd
Si S> Tapis B [3,1]
Puis ClrText
"Nouveau record!"
«Tu as fait la 3e place!"
S-> Mat B [3,1]
Aller à la r
Lbl r: Arrêt << Fin ajoutée texte
Autorisation : Membre
Nb de messages : 409
Inscrit le : Lun 07 Nov 2011, 12:09
Posté le : Ven 17 Mai 2013, 16:50
Je te le traduit ce weekend,
Je peut te le traduire mot pour mot mais il faut aussi adapter la fenêtre.
La casio fait 64*128 pixel donc il faut adapter l'écran si tu veux quelque chose de joli .
Autorisation : Membre
Nb de messages : 409
Inscrit le : Lun 07 Nov 2011, 12:09
Posté le : Ven 24 Mai 2013, 12:00
Voilà voilà !
dsl pour le retard mais j'ai du demander à un ami de le mettre sur sa casio... il y avait de gros bug sur l'original
Bon voilà le prgm Astéroids modifié à ma sauce évidemment !
Poids : 941 octets
Code
:3->dim(lASTE
:Lbl 0
:Menu(">>>>ASTEROIDS<<<","JOUER",1,"SCORE",9,"QUITTER",5
:Lbl 1
:EffVar R
:AxesNAff
:1->Xmin
:100->Xmax
:1->Ymin
:1->Ymax
:EffDessin
:Texte(10,30,"ASTEROIDS
:Horizontale 20
:Horizontale 70
:For(A,5,80
:Pt-On(A,entAléat(70,20
:End
:Ligne(4,20,4,70
:entAléat(21,45->U
:Pt-Off(4,U
:Pt-Off(5,U
:Pt-Off(6,U
:Pt-On(5,U+2
:Pt-On(5,U-1
:EffVar D EffVar S EffVar T
:40->A
:85->B
:-1->C
:1->Z
:Texte(40,84,"+
:If S=0
:5->T
:While Z=1
:A+C->A
:B+D->B
:If B>93
:0->Z
:If B<3
:2->Z
:If pxl-Test(A,B
:0->Z
:Pxl-On(A,B
:codeTouche->G
:S+1->S
:If G=25
:EffVar D -1->C
:If G=34
:EffVar D 1->C
:If G=24
:EffVar C -1->D
:If G=26
:EffVar C 1->D
:End
:If Z=2
:Then
:Texte(56,8,"GAOL 200 EXTRA POINTS <//-je laisse 2 espaces à chaque fois
:S+200->s
:If Z=0
:Texte(26,24,"YOU CRASHED
:If Z=2
:Texte(26,27,"YOU WIN <//- 7 espaces
:Ligne(24,49,71,49
:Ligne(24,49,24,60
:Ligne(24,60,71,60
:Ligne(71,60,71,49
:Pause
:For(A,23,65
:Texte(26,A," "
:End
:Texte(26,54,S
:Pause
:If S>lASTE(1
:Then
:EffEcr
:Disp "NEW HIGHSCORE!!!","YOU ARE THE 1ST!"
:lASTE(2->lASTE(3
:lASTE(1->lASTE(2
:S->lASTE(1
:Pause
:Goto 0
:End
:If S>lASTE(2
:Then
:EffEcr
:Disp "NEW HIGHSCORE!!!","YOU ARE THE 2ND!"
:lASTE(2->lASTE(3
:S->lASTE(2
:Pause
:Goto 0
:End
:If S>lASTE(3
:Then
:EffEcr
:Disp "NAW HIGHSCORE!!!","YOU ARE THE 3RD!"
:S->lASTE(3
:Pause
:Goto 0
:End
:Lbl 9
:EffEcr
:Disp " SCORE:","1ER:",lASTE(1),"2ND:",lASTE(2),"3RD",lASTE(3
:Pause
:Goto 0
:Lbl 5
:EffDessin
:EffEcr
:Output(8,9,"CYTROPUS
Voilà voilà.
C'est optimisable mais facileà lire pour les novices.
Certaines commandes sont un peu (voir beaucoup) inutiles mais je me suis contenté de corriger les bugs donc s'il vous plait, SOYEZ INDULGENTS
