Forum TI-Planet.org

avec RanInt#(1;6) on peut simuler le lancer d'un dé en mode texte.
Pour faire plus joli, et plus vrai, j'ai essayé de le faire en mode graphique.
Le problème avec cette machine c'est qu'on ne peut pas faire de sous-programmes. De plus pas de matrice ni de liste pour les mémoires. Bref ce que je faisais avec une TI-80 est maintenant 10 fois plus grand avec la Casio

Alors j'ai quand même programmé un "truc" un peu lourd mais qui fonctionne quand même.

Si vous avez des idées pour faire beaucoup plus simple, je suis preneur !

Le résultat :



Le code sur le site casio voir ici

Hey ! Chouette idée, le dé graphique
J'ai commencé à regarder comment optimiser...Je t'en ferais part quand j'aurais résolu un dernier petit problème

ça y est, j'ai bouclé ma version (légèrement différente sur le plan graphique car j'ai opté pour des petits ronds, n'ai pas dessiné d'effet 3d :j'ai préféré arrondir un peu les coins du dé ...)

Voici le programme:

Code: Select all

RanInt#(1;6→A
Si A>3 Alors
   A+6→A
Fin
Si A=12 Alors
   14→A
Fin
S'orienter à 22 degrés
Répéter 4
   ,5Ent(A→A
   Répéter 2
      Si A≠Ent(A Alors
         Stylo écrit
      Fin
      Répéter 4
         Tourner de ↺ 90 degrés
         Avancer de 2 pixels
      ⤴
      Stylo relevé
      Aller à x =-x;y =-y
   ⤴
   Si x=0 Alors
      Aller à x =7;y =14
   Fin
   Aller à x =x;y =y-x
⤴
Aller à x =12;y =-9
S'orienter à 90 degrés
Stylo écrit
Répéter 4
   Avancer de 20 pixels
   Tourner de ↺ 45 degrés
   Avancer de 6 pixels
   Tourner de ↺ 45 degrés
⤴
Stylo relevé
Avancer de 44 pixels

Tu pourrais poster une capture d'écran, stp ? (je sollicite encore car je n'ai toujours réinstallé l'émulateur )

merci pour ce code optimisé !



je n'ai pas mesuré mais lequel va le plus vite ?

Oh je pense que ma version doit être la plus lente en temps d'exécution : c'est bien sûr parce que ça trace toujours tout (avec le stylo judicieusement en position "écrit"/"relevé", en fonction du rendu souhaité)

(merci pour la capture d'écran )