Planète Casio
Les membres ayant 30 points peuvent parler sur les canaux annonces, projets et hs du chat.
La shoutbox n'est pas chargée par défaut pour des raisons de performances. Cliquez pour charger.
Menu
Calculatrices
Graph 35 à 100
Graph 25+Pro/25+E/25+E II
Graph 35+USB/75(+E)/85/95 SD
Graph 100(+)
Classpad 300/330(+)
fx-CG 10/20 (Prizm)
Classpad 400(+E)
Graph 90+E
fx-92+ SC
Liens
¤ Transférer un programme sur
sa calculatrice
¤ Vous cherchez une fonction ?
Utilitaires >> Graph 35+USB/75(+E)/85/95 SD >> Divers >> Hasard
Hasard
Version : 1.3 Taille : 4016 octets Ajouté le : 2013-12-13 19:38 Modifié le : 2015-02-16 20:44
Auteur et posteur :
RevenartsHors ligneMembrePoints: 233 Défis: 5 Message
 Planète Casio - Programme Casio - Hasard - RevenARTS - Calculatrices
Nombre de visites sur cette page : 4328
Score au progrank : 33
Note actuelle : 6/10 noté 1 fois
Vous devez être connecté(e) pour noter (inscription).
565 téléchargements | Soumettre un test

Ce programme est sous licence Creative Commons 2.0 BY-NC-ND

Votre calculatrice doit posséder les chaines de caractères (Str) et Menu pour utiliser ce programme. Si vous avez une Graph 85 (SD), mettez-la à jour.
Description :

Hasard:

Ce programme permet de faire des lancés de dés (un ou deux) ou des lancés de pièces.
Une interface claire et une utilisation facile pour l\'étude des statistiques en mathématiques ou pour remplacer des dés en plastiques dans un jeu.

Ceci est la version finale du programme (Version 1.3)

Mises à jour: 10/01/2015

ChangeLog Version 1.2
Cliquer pour enrouler

ChangeLog version 1.2:

- Amélioration de l'esthétique de l'aide
- Ajout d'une animation à la fermeture
- Amélioration de l'animation de lancement


ChangeLog Version 1.3
Cliquer pour enrouler

ChangeLog version 1.3: (Version finale)

Lancement du jeu:
- Réduction importante de la durée de l'animation
- Animation "Hasard" avec fonction Str() et Rotate() (Optimisation du code)

Pile ou Face:
- Effacement de "Pile" ou "Face" avant l'image
- Génération des nombres aléatoires avec RanInt#()
- Ajustement de la syntaxe de code

Lancé de dé:
- Ajout d'un "s" à "lancé"

Infos:
- Modification de l'adresse e-mail

Aide:
- Remplacement de "jeu" par "programme"
- Remplacement de "principale" par "principal"

Animation de fermeture:
- Durée de l'animation diminuée
- Modification de la boucle 'For' d'incrémentation de 'x'
- Ajout d'un accent à "Planète Casio"

Global:
- Meilleure lisibilité du code
- Ordre plus logique des instructions


Je ne pense pas qu'il soit possible d'optimiser d'avantage le code, cependant si vous trouvez quelque chose envoyez moi un message!

Mot de passe du programme: CHARLIE
Pour ce qui ce demandent pourquoi je met un mot de passe alors qu'il est très facile de l'enlever, sachez que c'est pour faciliter l'utilisation du programme, avec un mot de passe on ne peut pas modifier sans faire exprès le code en quittant avec [AC] par exemple.

Code version 1.3
Cliquer pour enrouler

Pour voir correctement le code utilisez FA124
------------------------------------------------------------------------------------------------------------------
Filename:HASARD
Locate 7,4,"RevenARTS"Ù
For 0㪠To 250:NextÙ
Locate 8,6,"Present"Ù
For 0㪠To 400:NextÙ
ClrTextÙ
"HASARD "ãStr 1Ù
For 0㪠To 14Ù
Locate 8,4,Str 1Ù
For 0ãä To 80:NextÙ
StrRotate(Str 1)ãStr 1Ù
NextÙ
14ãXÙ
For 0㪠To 10Ù
Locate X,4,"."Ù
For 0ãä To 50:NextÙ
Isz XÙ
If X=17:Then Ù
14ãXÙ
Locate 14,4," "Ù
IfEndÙ
NextÙ
3ãY:3ãJ:31ãX:1ãAÙ
Lbl äÙ
ClrTextÙ
Locate 8,1,"Hasard @E776#E5D1.#E5D3"Ù
Locate 5,3,"Lanc#E60A de d#E60A"Ù
Locate 5,4,"Pile ou Face"Ù
Locate 3,7,"Infos"Ù
Locate 16,7,"Aide"Ù
While 1Ù
A=1×Locate 4,3,"×"Ù
A=2×Locate 4,4,"×"Ù
A=3×Locate 2,7,"×"Ù
A=4×Locate 15,7,"×"Ù
Getkey=31 And A=1×Goto DÙ
Getkey=31 And A=2×Goto PÙ
Getkey=31 And A=3×Goto IÙ
Getkey=31 And A=4×Goto AÙ
If Getkey=37 And A=1Ù
Then 2ãAÙ
Locate 4,3," "Ù
Locate 4,4,"×"Ù
While GetkeyÙ
WhileEndÙ
IfEndÙ
If Getkey=37 And A=2Ù
Then 3ãAÙ
Locate 4,4," "Ù
IfEndÙ
If Getkey=28 And A=2Ù
Then 1ãAÙ
Locate 4,4," "Ù
Locate 4,3,"×"Ù
While GetkeyÙ
WhileEndÙ
IfEndÙ
If Getkey=28 And AÊ3Ù
Then 2ãAÙ
Locate 2,7," "Ù
Locate 15,7," "Ù
Locate 4,4,"×"Ù
While GetkeyÙ
WhileEndÙ
IfEndÙ
If Getkey=27 And A=3Ù
Then 4ãAÙ
Locate 2,7," "Ù
IfEndÙ
If Getkey=38 And A=4Ù
Then 3ãAÙ
Locate 15,7," "Ù
IfEndÙ
Getkey=47×Goto SÙ
WhileEndÙ
Lbl DÙ
Menu " Nombre de d#E60As:","Un seul",1,"Deux",2,"Retour",äÙ
Lbl 1Ù
1ãLÙ
ClrTextÙ
Locate 7,1,"#E6A6#E6A6#E6A6#E6A6#E6A6#E6A6#E6A6#E6A6#E6A6"Ù
Locate 7,7,"#E6A6#E6A6#E6A6#E6A6#E6A6#E6A6#E6A6#E6A6#E6A6"Ù
Locate 7,2,"#E6A6"Ù
Locate 7,3,"#E6A6"Ù
Locate 7,4,"#E6A6"Ù
Locate 7,5,"#E6A6"Ù
Locate 7,6,"#E6A6"Ù
Locate 15,2,"#E6A6"Ù
Locate 15,3,"#E6A6"Ù
Locate 15,4,"#E6A6"Ù
Locate 15,5,"#E6A6"Ù
Locate 15,6,"#E6A6"Ù
Locate 1,3,"Valeur"Ù
Locate 16,3,"Lanc#E60As"Ù
Lbl 3Ù
Locate 9,3," "Ù
Locate 9,4," "Ù
Locate 9,5," "Ù
RanBin#(1,6)ãDÙ
If D=1:Then Ù
Locate 11,4,"#E6A4"Ù
IfEndÙ
If D=2:Then Ù
Locate 12,3,"#E6A4"Ù
Locate 10,5,"#E6A4"Ù
IfEndÙ
If D=3:Then Ù
Locate 10,3,"#E6A4"Ù
Locate 11,4,"#E6A4"Ù
Locate 12,5,"#E6A4"Ù
IfEndÙ
If D=4:Then Ù
Locate 9,3,"#E6A4 #E6A4"Ù
Locate 9,5,"#E6A4 #E6A4"Ù
IfEndÙ
If D=5:Then Ù
Locate 9,3,"#E6A4 #E6A4"Ù
Locate 11,4,"#E6A4"Ù
Locate 9,5,"#E6A4 #E6A4"Ù
IfEndÙ
If D=6:Then Ù
Locate 9,3,"#E6A4 #E6A4"Ù
Locate 9,4,"#E6A4 #E6A4"Ù
Locate 9,5,"#E6A4 #E6A4"Ù
IfEndÙ
Locate 3,4,DÙ
Locate 18,4,LÙ
Isz LÙ
While GetkeyÙ
WhileEndÙ
While GetkeyÈ31Ù
Getkey=48×Goto äÙ
Getkey=47×Goto SÙ
WhileEndÙ
Goto 3Ù
Lbl 2Ù
ClrTextÙ
Locate 2,1,"#E6A6#E6A6#E6A6#E6A6#E6A6#E6A6#E6A6#E6A6#E6A6"Ù
Locate 2,7,"#E6A6#E6A6#E6A6#E6A6#E6A6#E6A6#E6A6#E6A6#E6A6"Ù
Locate 2,2,"#E6A6"Ù
Locate 2,3,"#E6A6"Ù
Locate 2,4,"#E6A6"Ù
Locate 2,5,"#E6A6"Ù
Locate 2,6,"#E6A6"Ù
Locate 10,2,"#E6A6"Ù
Locate 10,3,"#E6A6"Ù
Locate 10,4,"#E6A6"Ù
Locate 10,5,"#E6A6"Ù
Locate 10,6,"#E6A6"Ù
Locate 12,1,"#E6A6#E6A6#E6A6#E6A6#E6A6#E6A6#E6A6#E6A6#E6A6"Ù
Locate 12,7,"#E6A6#E6A6#E6A6#E6A6#E6A6#E6A6#E6A6#E6A6#E6A6"Ù
Locate 12,2,"#E6A6"Ù
Locate 12,3,"#E6A6"Ù
Locate 12,4,"#E6A6"Ù
Locate 12,5,"#E6A6"Ù
Locate 12,6,"#E6A6"Ù
Locate 20,2,"#E6A6"Ù
Locate 20,3,"#E6A6"Ù
Locate 20,4,"#E6A6"Ù
Locate 20,5,"#E6A6"Ù
Locate 20,6,"#E6A6"Ù
Locate 6,6,"+"Ù
Locate 15,6,"="Ù
Lbl 4Ù
Locate 4,3," "Ù
Locate 4,4," "Ù
Locate 4,5," "Ù
Locate 14,3," "Ù
Locate 14,4," "Ù
Locate 14,5," "Ù
Locate 18,6," "Ù
RanBin#(1,6)ãDÙ
Locate 4,6,D:DãEÙ
If D=1:Then Ù
Locate 6,4,"#E6A4"Ù
IfEndÙ
If D=2:Then Ù
Locate 7,3,"#E6A4"Ù
Locate 5,5,"#E6A4"Ù
IfEndÙ
If D=3:Then Ù
Locate 5,3,"#E6A4"Ù
Locate 6,4,"#E6A4"Ù
Locate 7,5,"#E6A4"Ù
IfEndÙ
If D=4:Then Ù
Locate 4,3,"#E6A4 #E6A4"Ù
Locate 4,5,"#E6A4 #E6A4"Ù
IfEndÙ
If D=5:Then Ù
Locate 4,3,"#E6A4 #E6A4"Ù
Locate 6,4,"#E6A4"Ù
Locate 4,5,"#E6A4 #E6A4"Ù
IfEndÙ
If D=6:Then Ù
Locate 4,3,"#E6A4 #E6A4"Ù
Locate 4,4,"#E6A4 #E6A4"Ù
Locate 4,5,"#E6A4 #E6A4"Ù
IfEndÙ
RanBin#(1,6)ãDÙ
E+DãFÙ
Locate 8,6,DÙ
Locate 17,6,FÙ
If D=1:Then Ù
Locate 16,4,"#E6A4"Ù
IfEndÙ
If D=2:Then Ù
Locate 17,3,"#E6A4"Ù
Locate 15,5,"#E6A4"Ù
IfEndÙ
If D=3:Then Ù
Locate 15,3,"#E6A4"Ù
Locate 16,4,"#E6A4"Ù
Locate 17,5,"#E6A4"Ù
IfEndÙ
If D=4:Then Ù
Locate 14,3,"#E6A4 #E6A4"Ù
Locate 14,5,"#E6A4 #E6A4"Ù
IfEndÙ
If D=5:Then Ù
Locate 14,3,"#E6A4 #E6A4"Ù
Locate 16,4,"#E6A4"Ù
Locate 14,5,"#E6A4 #E6A4"Ù
IfEndÙ
If D=6:Then Ù
Locate 14,3,"#E6A4 #E6A4"Ù
Locate 14,4,"#E6A4 #E6A4"Ù
Locate 14,5,"#E6A4 #E6A4"Ù
IfEndÙ
While GetkeyÙ
WhileEndÙ
While GetkeyÈ31Ù
Getkey=48×Goto äÙ
Getkey=47×Goto SÙ
WhileEndÙ
Goto 4Ù
Lbl PÙ
ViewWindow 0,127,1,0,63,1Ù
CoordOffÙ
GridOffÙ
AxesOffÙ
LabelOffÙ
S-L-ThickÙ
BG-NoneÙ
Circle 63,31,31Ù
S-L-NormalÙ
Circle 62,31,25Ù
0ãP:0ãFÙ
While 1Ù
RanBin#(1,2)ãDÙ
P=3×2ãD:P=3×0ãPÙ
F=3×1ãD:F=3×0ãFÙ
If D=1:Then Ù
Text 15,60,"++"Ù
Text 19,56,"+++"Ù
Text 23,52,"+ ++"Ù
Text 27,60,"++"Ù
Text 31,60,"++"Ù
Text 35,60,"++"Ù
Text 39,60,"++"Ù
Text 43,52,"++++++"Ù
Text 10,10,"Pile "Ù
Isz PÙ
While GetkeyÈ31Ù
Getkey=47×Goto SÙ
Getkey=48×Goto äÙ
WhileEndÙ
IfEndÙ
If D=2:Then Ù
Text 19,56,"++++"Ù
Text 23,52,"++++++"Ù
Text 27,52,"+ ++++"Ù
Text 31,48,"+++++++"Ù
Text 35,52,"++++++"Ù
Text 39,56,"++++"Ù
Text 10,10,"Face"Ù
Isz FÙ
While GetkeyÈ31Ù
Getkey=47×Goto SÙ
Getkey=48×Goto äÙ
WhileEndÙ
IfEndÙ
Text 10,10," "Ù
Text 15,48," "Ù
Text 19,48," "Ù
Text 23,48," "Ù
Text 27,48," "Ù
Text 31,48," "Ù
Text 35,48," "Ù
Text 39,48," "Ù
Text 43,48," "Ù
WhileEndÙ
Lbl IÙ
ClrTextÙ
Locate 9,1,"½nfos"Ù
Locate 1,3,"@E744@E765@E776@E765@E76C@E76F@E770@E770@E765@E775@E772:RevenARTS"Ù
Locate 1,4,"-------@E743@E76F@E76E@E774@E761@E763@E774-------"Ù
Locate 1,5,"@E752@E765@E776@E765@E76E@E741@E752@E754@E753@40@E74F@E775@E774@E76C@E76F@E76F@E76B.@E763@E76F@E76D"Ù
Locate 6,7,"@E756@E765@E772@E773@E769@E76F@E76E #E5D1.#E5D3"Ù
While GetkeyÈ48Ù
Getkey=47×Goto SÙ
WhileEndÙ
Goto äÙ
Lbl AÙ
ClrTextÙ
Locate 9,1,"Aide"Ù
Locate 1,2,"#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5"Ù
Locate 2,3,"Pour relancer un d#E60A"Ù
Locate 5,4,"ou une pi#E609ce"Ù
Locate 3,5,"Appuyez sur [EXE]"Ù
Locate 1,6,"#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5#E6A5"Ù
Locate 5,7,"Suivant [EXE]"Ù
While GetkeyÙ
WhileEndÙ
While GetkeyÈ31Ù
Getkey=47×Goto SÙ
Getkey=48×Goto äÙ
WhileEndÙ
Locate 1,3," Pour quitter le "Ù
Locate 1,4," programme "Ù
Locate 1,5," Appuyez sur [EXIT]. "Ù
While GetkeyÙ
WhileEndÙ
While GetkeyÈ31Ù
Getkey=47×Goto SÙ
Getkey=48×Goto äÙ
WhileEndÙ
Locate 1,3," Pour retourner au "Ù
Locate 1,4," menu principal: "Ù
Locate 2,5,"Appuyez sur [MENU]."Ù
Locate 5,7,"Sortir [MENU]"Ù
While GetkeyÙ
WhileEndÙ
While GetkeyÈ48Ù
Getkey=47×Goto SÙ
WhileEndÙ
Goto äÙ
Lbl SÙ
ClrTextÙ
Locate 4,1,"Programmation:"Ù
Locate 6,2,"@E74C@E76F#E610@E763 @E750@E765@E772@E772@E769@E76E"Ù
Locate 4,6,"Plan#E609te-casio.fr"Ù
Locate 5,7,"Siteduz#E60Aro.frÙ
For 1ãX To 21Ù
Locate X,3,"#E6A6"Ù
Locate X,4,"#E6A6"Ù
Locate X,5,"#E6A6"Ù
For 0ãä To 10:NextÙ
NextÙ
ClrTextÙ
Locate 3,4,"Appuyez sur [EXE]"
----------------------------------------------------------------------------------------------------------------------------------

Note sur 10 Commentaire Date de notation
6Pas mal.Le 20.12.2014 à 17:36
Commentaires :


Ti64CLiHors ligneMembrePoints: 629 Défis: 65 Message
Posté le 20-12-2014 à 17:37 | #
J'attends la version amélioré avec impatience.
EltoredoHors ligneModérateurPoints: 4301 Défis: 35 Message
Posté le 20-12-2014 à 17:43 | #
Il ne s'est pas connecté depuis longtemps

Sinon, je ne pense pas que l'on puisse améliorer un tel programme, c'est juste un petit coup de ranint et de bons graphismes !

Sinon, tu peux toujours l'optimiser et lui proposer le programme amélioré
RevenartsHors ligneMembrePoints: 233 Défis: 5 Message
Posté le 10-01-2015 à 22:28 | #
C'est vrai que je ne me connecte pas très souvent en ce moment étant donné que je n'ai plus beaucoup de temps à consacrer à Planète Casio à cause des études mais j'essaye de mettre à jour et de développer de nouveaux programmes que je mettrais de temps en temps....
Il faut que je modifie le GIF de la mise à jour mais je n'ai pas retrouvé mon câble pour prendre les captures d'écran et vu que l'émulateur à une durée limité (complètement stupide par ailleurs) je ne peut pas l'utiliser.

Voila la version amélioré que tu attendais Neuronix9302 même si elle n'a rien de révolutionnaire le code est plus propre et plus optimisé.

Planète Casio v4.3 © créé par Neuronix et Muelsaco 2004 - 2024 | Il y a 116 connectés | Nous contacter | Qui sommes-nous ? | Licences et remerciements

Planète Casio est un site communautaire non affilié à Casio. Toute reproduction de Planète Casio, même partielle, est interdite.
Les programmes et autres publications présentes sur Planète Casio restent la propriété de leurs auteurs et peuvent être soumis à des licences ou copyrights.
CASIO est une marque déposée par CASIO Computer Co., Ltd