Forum

Catégorie : Discussions générales
Forum : Espace de liberté
Vues : 1747
Réponses : 10
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Traducteur casio vers ti

pito2901 le 07/05/2013 à 19:49
Bonjour, y'a-t-il un traducteur de programme de casio graph 35 + vers TI 82 stats et inversement ? happy.gif
The K le 11/05/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. winkle.gif
Cytropus le 13/05/2013 à 17:54
Si tu veux absolument un prog de la casio de ton voisin, winkle.gif tu peux le poster ici, on pourra te le traduire.

(je précise dans l'espace de liberté, là ou "on parle de ce que l'on veux" parce que casio...) eyeonly.gif
pito2901 le 13/05/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.
Cytropus le 14/05/2013 à 17:47
Si c'est du "casio basique", je pourrai te le traduire en Ti-basique, mais si c'est de l'hexa... crazy.gif

regarde le nom du langage de programmation, si il faut un shell casio pour l'utiliser, c'est même pas la peine beer.gif
pito2901 le 14/05/2013 à 19:11
Non c'est tout du casio basique, en voilà un:

Lien

Voici le code qu j'aimerais avoir:
Lien

Code
<<<<<<<<<<<<<<<<<<<<<<<<<<<<< CALCASIOGAMES >>>>>>>>>>>>>>>>>>>> >>>>>>>>>
              Jonath'studios

ASTEROID 3 (Casio Graph 35)



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

<<<<<<<<<<<<<<<<<<<<<<<<<<<<< CALCASIOGAMES >>>>>>>>>>>>>>>>>>>> >>>>>>>>>
              Jonath'studios


Bonne chance !
Cytropus le 17/05/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 . happy.gif


Sur ce, bon weekend de trois jours les gens !
pito2901 le 18/05/2013 à 10:32
Ouai merci bien !
Cytropus le 22/05/2013 à 07:05
Salut,

j'ai un petit contretemps du à certaines "fonctions ?"
notamment le "Moins 40 109, "+""


Cela dis, la syntaxe est quand même assez lourde une fois traduite.
Je vais en faire un plus court happy.gif

A plus !
pito2901 le 22/05/2013 à 20:33
Ok merci mais ne te force pas !
Cytropus le 24/05/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 laugh.gif

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 cry.gif

Bonne continuation à tous ! happy.gif
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.