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 : ARCHERY
ViewWindow 1,127,0,1,63,0
Cls
ClrText
0A~Z
1Z
1O
Getkey
Locate 1,1,"ARCHERY V.1.0 AT PROD"
Locate 1,3,"PLAYERS ROUNDS DIST"
Locate 1,4," ONE TWO 30M"
Locate 1,5," TWO FIVE 50M"
Locate 1,6," TEN 70M"
Locate 1,7," TWENTY 90M"
1R
Lbl M
Locate 2,3+Z,""
Getkey
Ans=27Goto N
Ans=38Goto O
Ans=28 Or Ans=37Z+1Z
Ans=31Goto P
Z=31Z
Locate 2,5," "
Locate 2,4," "
Goto M
Lbl N
For 4I To 7
Locate 10,I," "
Next
Locate 10,3+R,""
Getkey
Ans=27Goto O
Ans=38Goto M
Ans=37R+1R
Ans=28R-1R
Ans=31Goto P
R=51R
R=04R
Goto N
Lbl O
For 4I To 7
Locate 18,I," "
Next
Getkey
Locate 18,3+O,""
Ans=27Goto M
Ans=38Goto N
Ans=31Goto P
Ans=28O-1O
Ans=371+OO
O=51O
O=04O
Goto O
Lbl P
Rtanh 10R
R=102R
R=205R
R=3010R
R=4020R
Otanh 3O
1P
1N
70C
Orange Text 5,C,"ARCHERY V 1.0 "
Text 10,C,"------------ "
Z=2Green Text 20,C,"PLAYER "
Z=2Text 20,115,"1"
Green Text 27,C,"SHOT "
Text 27,115,"1"
Green Text 34,C,"POINTS "
Text 34,115,"0"
Green Text 41,70,"LAST"
Text 41,115,"0"
Green Text 48,70,"AVERAGE"
Text 48,115,"0"
Green Text 55,70,"ROUNDS"
Text 55,115,R
Lbl 0
Int 13Ran#+1X
Int 7Ran#+1Y
2G~H
0A
Circle 32,32,30
F-Line 30,32,34,32
F-Line 32,30,32,34
Int 63Ran#+1r
Int 63Ran#+1
0F
While A78 And F-1
GetkeyA
Isz F
F=50Text 10,20,"HURRY UP"
F=65-1F
If A78
Then A=38-Int (12+O)Ran#
A=27+Int (12+O)Ran#
A=37r+Int (12+O)Ran#r
A=28r-Int (12+O)Ran#r
(3-(O8))Ran#<1Int ((10+O)Ran#-(5+O2)+rr
(3-(O8))Ran#<1Int ((10+O)Ran#-(5+O2)+
>6363
<11
r>6363r
r<11r
PxlOff G,H
Green PxlOn r,
rG
H
IfEnd
WhileEnd
Lbl 2
PxlOff G,H
Int ((32-((Abs (r-32))Z+(Abs (-32))Z))3)S
0M
S01M
F=-12M
For 1I To 63 Step 5
Text I,1," "
Next
Text 57,20," "
Text 48,10,""
Text 53,10,"#"
Text 53,13,"-)"
Text 53,58,"()"
Text 58,10,"^"
PxlOff 1,1
If M1
Then For 1I To 200
Next
For 3I To 36 Step 3
F-Line 21+I,9,24+I,9
Text 55,17+I," "
Next
IfEnd
If M=1
Then Text 53,58,"(-"
Text 53,58,"(-"
Text 53,58,"() "
IfEnd
M10S
M=2Text 10,10,"DISQUALIFIED"
For 1I To 11
Text 20,I," POINTS"
Next
For 2I To 20
Text I-1,43," "
Text I,43,S
Next
Text 34,115," "
Text 41,115," "
Text 48,115," "
If P=1
Then SL
S+TT
Int ((TN))E
Text 48,115,E
Text 41,115,S
N+1N
Text 34,115,T
IfEnd
If P=2
Then SU
S+VV
Int (V(N-1))W
Text 34,115,V
Text 41,115,U
Text 48,115,W
IfEnd
1I
12
While Getkey31
I+
20Ran#<18Ran#-4I
>62-(4Ran#)I
<-I+14Ran#I
Text 30,Int ," [PRESS EXE] "
WhileEnd
Text 30,Int ," "
If Z=1 Or (Z=2 And P=2)
Then Text 27,115,N
IfEnd
If Z=2
Then Text 34,115," "
Text 41,115," "
Text 48,115," "
P+1P
P=31P
Text 20,115,P
If P=1
Then 0I
Text 34,115,T
Text 41,115,L
Text 48,115,E
IfEnd
If P=2
Then Text 34,115,V
Text 41,115,U
Text 48,115,W
IfEnd
IfEnd
For 1I To 63 Step 5
Text I,1," "
Next
NR+1Goto 0
P=2 And N=R+1Goto 0
Lbl R
Cls
Text 1,20,"---@FINAL RESULTS@---"
Orange Text 18,13,"ROUNDS"
Orange Text 18,42,R
Text 18,50,"DISTANCE"
O=330O
O=650O
O=970O
O=1290O
Text 18,90,O
If Z=2
Then Orange Text 30,25,"PLAYER 1"
Orange Text 37,25,"PLAYER 2"
Green Text 24,61,"SCORE"
Green Text 24,90,"AVG."
Text 30,92,E
Text 37,92,W
Text 30,65,T
Text 37,65,V
V>TGreen Text 37,21,"!"
T>VGreen Text 30,21,"!"
IfEnd
If Z=1
Then Green Text 30,40,"SCORE"
Text 30,75,T
Green Text 36,40,"AVERAGE"
Text 36,75,Int (TR)
IfEnd
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