π
<-
Chat plein-écran
[^]

Casio fx-92+ SC lancement d'un dé en mode graphique

:fxesp32b: :fxesp32n: :fxesp32v:

Casio fx-92+ SC lancement d'un dé en mode graphique

Unread postby ptitjoz » 23 Feb 2020, 14:01

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 :

Image

Le code sur le site casio voir ici
Last edited by ptitjoz on 23 Feb 2020, 21:21, edited 1 time in total.
User avatar
ptitjozPremium
Niveau 10: GR (Guide de Référence)
Niveau 10: GR (Guide de Référence)
Level up: 66%
 
Posts: 211
Images: 0
Joined: 17 Oct 2018, 15:38
Location: France Loir et Cher
Gender: Male
Calculator(s):

Re: Casio fx-92+ SC lancement d'un dé en mode graphique

Unread postby grosged » 23 Feb 2020, 21:02

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 ;)
User avatar
grosgedVIP++
Niveau 13: CU (Calculateur Universel)
Niveau 13: CU (Calculateur Universel)
Level up: 67.3%
 
Posts: 695
Images: 21
Joined: 14 Sep 2011, 12:29
Gender: Male

Re: Casio fx-92+ SC lancement d'un dé en mode graphique

Unread postby grosged » 25 Feb 2020, 20:49

ç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 :mmm: )
User avatar
grosgedVIP++
Niveau 13: CU (Calculateur Universel)
Niveau 13: CU (Calculateur Universel)
Level up: 67.3%
 
Posts: 695
Images: 21
Joined: 14 Sep 2011, 12:29
Gender: Male

Re: Casio fx-92+ SC lancement d'un dé en mode graphique

Unread postby ptitjoz » 26 Feb 2020, 22:24

merci pour ce code optimisé !

Image

je n'ai pas mesuré mais lequel va le plus vite ?
User avatar
ptitjozPremium
Niveau 10: GR (Guide de Référence)
Niveau 10: GR (Guide de Référence)
Level up: 66%
 
Posts: 211
Images: 0
Joined: 17 Oct 2018, 15:38
Location: France Loir et Cher
Gender: Male
Calculator(s):

Re: Casio fx-92+ SC lancement d'un dé en mode graphique

Unread postby grosged » 26 Feb 2020, 22:54

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é) :p

(merci pour la capture d'écran ;) )
User avatar
grosgedVIP++
Niveau 13: CU (Calculateur Universel)
Niveau 13: CU (Calculateur Universel)
Level up: 67.3%
 
Posts: 695
Images: 21
Joined: 14 Sep 2011, 12:29
Gender: Male


Return to Casio (fx-82/83/85/92/95/115/300/350/500/570/991, Collège)

Who is online

Users browsing this forum: No registered users and 0 guests

-
Search
-
Featured topics
Omega, le fork étendant les capacités de ta NumWorks, même en mode examen !
Comparaisons des meilleurs prix pour acheter sa calculatrice !
12
-
Donations / Premium
For more contests, prizes, reviews, helping us pay the server and domains...

Discover the the advantages of a donor account !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !


Partner and ad
Notre partenaire Jarrety 
-
Stats.
443 utilisateurs:
>430 invités
>6 membres
>7 robots
Record simultané (sur 6 mois):
6892 utilisateurs (le 07/06/2017)
-
Other interesting websites
Texas Instruments Education
Global | France
 (English / Français)
Banque de programmes TI
ticalc.org
 (English)
La communauté TI-82
tout82.free.fr
 (Français)