Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

Programmes et jeux pour calculatrices Casio Graph et calculatrice ClassPad 300, jeux casio, cours...Calcul formel pour Casio Graph 85
 

Programmes Casio en texte

 

Affichage du code

Nom à donner au programme : BOURSE
'LE CODE EST 1 PAR DEFAUT ALLER A "MODIF DU CODE" POUR CHANGER
'[PP]
ClrText
Prog "PSET"
Locate 1,1,"======LA BOURSE======"
For 2H To 6
Locate 1,H,"II"
Locate 20,H,"II"
Next
Locate 5,3,"Votre partie"
Locate 5,4,"Jour:"
Locate 5,5,"Argent:"
Locate 10,4,Mat W[3,5]
Locate 12,5,Mat W[1,5]
Locate 1,7,"======ZPstudios======"
Locate 14,6,"[EXE]"
3H
Do
Locate H,6,""
Locate H,6," "
H+1H
H=14Locate 14,6,"[EXE]"
H=14Locate 14,6,"[EXE]"
H=14Locate 14,6,"[EXE]"
H=143H
H=3Locate 14,6," "
H=3Locate 14,6,"[EXE] "
If Getkey=47:Then ClrText:Stop
IfEnd
LpWhile Getkey31
ClrText
'MODIF DU CODE
"CODE"?H
H=1Goto X
H1Stop
Lbl X
Q>3Goto
Mat W[2,5]M
M=0Mat W[1,5]Mat W[2,6]
M>2Goto B
Mat W[1,5]P
For 1R To 3
Mat W[2,R]X
X=-1Int (10Ran#+17)H
X=0Int (10Ran#+12)H
X=1Int (10Ran#+7)H
200-Mat W[R,4]<H200-Mat W[R,4]H
R=1HC
R=2HD
R=3HE
Next
Lbl A
ClrText
PMat W[1,5]
Locate 1,1,"===LA BOURSE:COURS==="
Locate 1,3,"1MAd-TV:"
Locate 1,4,"MSBBill:"
Locate 1,5,"3WComp:"
Locate 10,2,"PRIX nBre"
Locate 14,3,""
Locate 14,4,""
Locate 14,5,""
Locate 1,7,"Liquide:"
Locate 10,7,P
Locate 13,6,"1/2/3/N ?"
M=0Locate 3,2,"MATIN"
M=0Locate 5,6,"ACHETER"
M=1Locate 4,2,"SOIR"
M=1Locate 5,6,"VENDRE"
For 1R To 3
Mat W[1,R]X
X=-1Locate 19,2+R,"-"
X=0Locate 19,2+R,"~"
X=1Locate 19,2+R,"+"
Mat W[2,R]X
X=-1Locate 20,2+R,"-"
X=0Locate 20,2+R,"~"
X=1Locate 20,2+R,"+"
Mat W[R,4]X
Locate 16,2+R,X
Mat W[3,R]X
Locate 9,2+R,X
Next
Goto G
Lbl G
0I
Getkey=721I
Getkey=622I
Getkey=523I
Getkey=64 And M=0Goto C
Getkey=27 And M=0Goto C
Getkey=64 And M=1Goto B
Getkey=31 And M=1Goto B
Getkey=27 And M=1Goto B
I=1 Or I=2 Or I=3Goto D
Goto G
Lbl D
0J~L
PMat W[1,5]
ClrText
" "
" "
" "
" "
" "
Locate 11,3,Mat W[I,4]
Locate 3,5,"ARGENT:"
Locate 11,5,P
Locate 10,1,"d'Actions =="
Locate 12,2,Mat W[3,I]
Locate 3,3,"POSSEDE:"
If M=0
Then Locate 1,1,"== ACHAT"
Locate 3,4,"A Vendre:"
IfEnd
If M=1
Then Locate 1,1,"== Vente"
IfEnd
If I=1
Then Locate 5,2,"MAd-TV"
M=0Locate 12,4,C
?J
M=0J>CGoto D
J<0Goto D
M=1 And J>Mat W[1,4]Goto D
IfEnd
If I=2
Then Locate 5,2,"MSBill:"
M=0Locate 12,4,D
?J
M=0J>DGoto D
J<0Goto D
M=1 And J>Mat W[2,4]Goto D
IfEnd
If I=3
Then Locate 1,2,"World Comp:"
M=0Locate 12,4,E
?J
M=0J>EGoto D
J<0Goto D
M=1 And J>Mat W[3,4]Goto D
IfEnd
J=0Goto A
Int JJ
If M=0
Then JxMat W[3,I]>PGoto D
P-(JxMat W[3,I])P
J+Mat W[I,4]Mat W[I,4]
Mat W[3,I]+Int (J2)Mat W[3,I]
I=1C-JC
I=2D-JD
I=3E-JE
ClrText
"Achat... "
Goto A
IfEnd
If M=1
Then Mat W[I,4]-J>Mat W[I,4]Goto D
P+JxMat W[3,I]P
Mat W[I,4]-JMat W[I,4]
Mat W[3,I]-Int (J2)Mat W[3,I]
ClrText
"Vente... "
Goto A
Lbl C
ClrText
0Q
0r
0
1Mat W[2,5]
1M
For 1H To 3
Mat W[H,4]>100Q+1Q
Locate 18,H+1,Mat W[H,4]
Next
Q=3Goto
Locate 1,1,"~~~~~~~~iNFOS~~~~~~~~"
Locate 2,2,"MAd-TV:"
Locate 2,3,"MSBill:"
Locate 2,4,"WComp:"
Locate 1,6,"DIVIDENDES:"
Locate 1,7,"TOTAL:"
For 1H To 3
Mat W[1,H]=1r+1r
Mat W[2,H]=1r+1r
Locate 17,1+H,""
Next
0Y
r=6Int 10Ran#
=2Goto r
For 1H To 3
Int (6Ran#+1)A
Int (6Ran#+1)B
Mat W[2,H]Mat W[1,H]
If Mat W[2,H]=0
Then Abs (A-B)A
A=3 Or A=1 Or A=51F
A=00F
A=2 Or A=4-1F
IfEnd
If Mat W[2,H]=1 Or Mat W[2,H]=-1
Then A+B=7-(Mat W[2,H])F
A+B=12-(Mat W[1,H])F
IfEnd
If F=0
Then 0Mat W[2,H]
Locate 10,H+1,"Idem"
IfEnd
If F=1
Then 3x(A+B)+Mat W[3,H]Mat W[3,H]
1Mat W[2,H]
Locate 10,H+1,"+"
Locate 11,H+1,3x(A+B)
Mat W[3,H]01Mat W[3,H]
IfEnd
If F=-1
Then -1Mat W[2,H]
Mat W[3,H]-2x(A+B)Mat W[3,H]
Locate 10,H+1,(-3x(A+B))
IfEnd
Mat W[2,H]=-1Y-(12xMat W[H,4])Y
Mat W[2,H]=1Y+(3xMat W[H,4])Y
Mat W[2,H]=0Y+Mat W[H,4]Y
Next
Int YY
P+YP
PMat W[1,5]
Locate 13,6,(Int Y)
Locate 7,7,(P-Mat W[2,6])
Do
Getkey=27Goto X
LpWhile Getkey31
Goto X
Lbl r
0Y
Locate 1,5,"CRACK BOURSIER:-40/."
For 1H To 3
Locate 10,1+H,"!!!"
Int (0.6xMat W[3,H])Mat W[3,H]
Int (Y-(23xMat W[H,4]))Y
Next
Int (Y+Mat W[1,5])Mat W[1,5]
Locate 13,6,Y
0r
0
Do
LpWhile Getkey31
Goto X
Lbl B
ClrText
Locate 1,1,"==BILAN DU JOUR =="
Locate 17,1,Mat W[3,5]
Locate 1,2,"CONTROLE de: Sctes"
Locate 1,3,"*Argent:"
Locate 1,4,"*Resultat:"
Locate 1,5,"*Actions:"
Locate 1,6,"*Patrimoine:"
Locate 1,7,"EXITQuitter EXEGo!"
0K
0Q
For 1H To 3
Mat W[H,4]>50Q+1Q
K+(Mat W[H,4]xMat W[3,H])K
Next
Locate 13,2,Q
Q3Goto
PMat W[1,5]
Locate 9,3,P
Locate 11,4,((P+K)-Mat W[3,6])
Locate 10,5,K
Locate 13,6,(K+P)
Mat W[3,5]+1Mat W[3,5]
P+KMat W[3,6]
P<0Goto 8
0M
0Mat W[2,5]
50+Mat W[1,5]Mat W[1,5]
Lbl H
Getkey=31Goto X
Getkey=27Goto X
Getkey=47ClrText
Getkey=47Stop
Goto H
Lbl
ClrText
For 1H To 6
Locate 1,H,"*********************"
Next
For 1H To 350
Locate 8,1," Votre "
Locate 7,2," SOCIETE "
For 1H To 500
Next
Locate 9,3," est "
Locate 6,4," maintenant "
For 1H To 600
Next
Locate 7,5," un GEANT "
Locate 4,6," INTERNATIONAL ! "
Locate 1,7,"Score: jours"
Locate 7,7,Mat W[3,5]
18H
Do
LpWhile Getkey31
For 1H To 21
For 1K To 7
Locate H,K,">"
Locate H,K,">#"
Locate H,K," "
Next
Next
Locate 1,1,"1Nouvelle partie"
Locate 1,2,"2Quitter"
Goto Z
Lbl Z
Getkey=72Goto 9
Getkey=62ClrText
Getkey=62Stop
Goto Z
Lbl 9
For 1H To 3
0Mat W[1,H]
0Mat W[2,H]
0Mat W[H,4]
100Mat W[3,H]
Next
5000Mat W[1,5]
0Mat W[2,5]
1Mat W[3,5]
Goto X
Lbl 8
ClrText
"Votre entreprise a fait FAILLITE, c'est la fin des haricots"
" "
" GAME OVER"
"Effacer partie?"
Goto 9
Retour

 

 

 
     


Toutes les pages et les images de jeux casio appartiennent à http://www.jeuxcasio.com ©2002-2020
Toute reproduction partielle ou totale de Jeuxcasio.com ou de son contenu est strictement interdite. | Casio est une marque déposée par le groupe Noblet

Bac Français Meeticadblocktest Amazon.com Expedia.com Ebookers
Opodo
Amazon.fr eBay Fr