Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Support -> TI-82 STATS.fr -> jeu de formule 1

jeu de formule 1

Auteur

Message

xxnuxxx
Invité

Posté le : Dim 19 Fév 2012, 12:29

salut tout le monde,
J'ai recopier un jeu sur ma calculette le jeu marche bien, ou presque. voila mon problème: le départ est lancé et la la course est déjà fini ça me met finish et la course n'a duré que 1 seconde. voila le programme:
:FnOff :PlotsOff :FullScreen:CoordOff:GridOff:AxesOff:LabelOff
:
:ClrDraw
:Degree
:37üA:4üB:180üC
:0üXmin:94üXmax
:0üYmin:62üYmax
:Menu(" GAME TYPE: ","PRACTICE",M,"1 PLAYER RACE",M,"1 PLAYER WCUP",P,"2 PLAYER RACE",O,"2 PLAYER WCUP",R
:Lbl M:1üP:1üL:Goto S
:Lbl O:2üP:1üL:Goto S
:Lbl P:1üP:2üL:Goto S
:Lbl R:2üP:2üL:Goto S
:
:Lbl S
:1üQ
:{P,8}üdim [A]
:Fill(0,[A])
:ClrDraw
:1üD
:If L=2:Goto T
:Menu(" SELECT TRACK: ","MONACO",D,"ALBERT PARK",E,"MONZA",F,"IMOLA",G,"SILVERSTONE",H,"BARCELONA",J,"BUENOS AIRES",I
:Lbl T
:37üA:4üB:180üC
:ClrDraw
:If D=1:Goto D
:If D=2:Goto E
:If D=3:Goto F
:If D=4:Goto G
:If D=5:Goto H
:If D=6:Goto J
:If D=7:Goto I
:Lbl D
:Line(0,0,0,16
:Line(0,16,11,16
:Line(11,16,11,33
:Line(11,33,32,33
:Line(32,33,32,16
:Line(32,16,74,16
:Line(74,16,74,54
:Line(74,54,94,54
:Line(94,54,94,0
:Line(94,0,0,0
:Line(8,8,84,8
:Line(84,8,84,45
:Line(22,24,22,8
:Text(1,1,"MONACO"
:1üD
:Goto C
:Lbl E
:Line(0,0,0,32
:Line(0,32,18,50
:Line(18,50,36,32
:Line(36,32,36,22
:Line(94,22,36,22
:Line(94,22,94,8
:Line(94,8,88,8
:Line(88,8,88,0
:Line(88,0,0,0
:Line(88,15,28,15
:Line(28,15,28,26
:Line(28,26,18,36
:Line(18,36,8,26
:Line(8,26,8,8
:Line(8,8,80,8
:Line(80,8,80,15
:Text(1,1,"ALBERT PARK - AUSTRALIA"
:2üD
:Goto C
:Lbl F
:Line(0,0,8,28
:Line(9,28,0,28
:Line(0,28,0,50
:Line(0,50,40,50
:Line(40,50,55,16
:Line(55,16,94,16
:Line(94,16,94,0
:Line(94,0,0,0
:Line(88,8,10,8
:Line(10,8,18,35
:Line(18,35,8,35
:Line(8,35,8,42
:Line(8,42,32,42
:Line(48,8,32,42
:Text(1,1,"MONZA - ITALY"
:3üD
:Goto C
:Lbl G
:Line(0,0,0,10
:Line(0,10,20,30
:Line(20,30,40,30
:Line(40,30,40,50
:Line(40,50,94,50
:Line(94,50,94,40
:Line(94,40,74,30
:Line(74,30,59,0
:Line(59,0,0,0
:Line(52,8,12,8
:Line(12,8,27,23
:Line(27,23,49,23
:Line(49,23,49,42
:Line(49,42,77,42
:Line(66,37,77,42
:Line(66,37,52,8
:Text(1,1,"IMOLA - SAN MARINO"
:4üD
:Goto C
:Lbl H
:Line(30,0,0,10
:Line(0,10,10,40
:Line(10,40,40,40
:Line(40,40,40,26
:Line(30,26,94,26
:Line(94,26,94,0
:Line(94,0,30,0
:Line(33,33,18,33
:Line(18,33,11,15
:Line(11,15,30,8
:Line(30,8,85,8
:Line(85,8,85,18
:Line(85,18,23,18
:Line(23,18,23,33
:Line(23,33,33,33
:Text(1,1,"SILVERSTONE - ENGLAND"
:5üD
:Goto C
:Lbl J
:Line(0,0,0,50
:Line(0,50,30,50
:Line(30,50,30,37
:Line(30,37,14,37
:Line(14,37,14,16
:Line(14,16,25,16
:Line(25,16,50,41
:Line(50,41,75,16
:Line(75,16,75,50
:Line(75,50,94,50
:Line(94,50,94,0
:Line(94,0,0,0
:Line(85,41,85,8
:Line(85,8,7,8
:Line(7,8,7,43
:Line(7,43,24,43
:Line(28,8,50,30
:Line(50,30,72,8
:Text(1,1,"BARCELONA - SPAIN"
:6üD
:Goto C
:Lbl I
:Line(0,0,0,16
:Line(0,16,24,40
:Line(24,40,31,40
:Line(31,40,31,28
:Line(31,28,65,28
:Line(65,28,65,52
:Line(65,52,94,52
:Line(94,52,94,0
:Line(94,0,0,0
:
:
:Line(8,8,8,12
:Line(8,12,24,28
:Line(24,28,24,21
:Line(24,21,73,21
:Line(73,8,73,45
:Line(73,45,86,45
:Line(86,45,86,8
:Line(86,8,73,8
:Line(52,8,8,8
:Line(52,8,52,21
:Line(62,13,62,0
:Text(1,1,"BUENOS AIRES - ARGENTINA"
:7üD
:Lbl C
:For(X,37,40
:Line(X,8,X,0
:End
:0üÁ
:Text(55,28,"P"
:Text(55,33,Q
:If W=2:Then
:ð12üZ:Pause :End
:Text(55,28," "
:For(T,3,0,ú1
:solve(Xò-1,X,8
:Text(55,30,T
:End
:Text(55,30," "
:getKey
:For(T,0,500
:getKeyüÁ
:If Áø0:C+(25-Á)45üC
:A+round(cos C,0üA
:B+round(sin C,0üB
:If A=40 and B<8:Goto A
:If pxl-Test(round(62-B,0),round(A,0)):Goto B

t-On(A,B
:End
:Lbl A
:Text(40,20,"FINISH"
:Text(47,20,"TIME: "
:Text(47,42,T
:TüR
:Goto K
:Lbl B
:Text(30,22,"***CRASH***"
:500üR
:Lbl K
:Rü[A](Q,D)
:If Q=2:Then:
:
:End
:[A](Q,

+Rü[A](Q,

:Pause
:If P=2 and Q=1:Then:2üQ:Goto T:End
:If L=2:Then
:ClrDraw
:Line(0,0,0,62
:Line(0,0,94,0
:Line(94,0,94,62
:Line(0,62,94,62
:Line(54,62,54,0
:Text(1,3,"TRACK"
:Text(1,62,"P1"
:If P=2:Text(1,77,"P2"
:Text(8,3,"MONACO"
:Text(15,3,"ALBERT PARK"
:Text(22,3,"MONZA"
:Text(29,3,"IMOLA"
:Text(36,3,"SILVERSTONE"
:Text(43,3,"BARCELONA"
:Text(50,3,"BUENOS AIRES"
:Text(56,3,"TOTAL TIME"
:If P=2:Line(74,62,74,0
:For(A,1,8
:For(B,1,P
:If [A](B,A)ø0
:Text((Aø

+7A,41+B20-4(A=

,[A](B,A)
:End
:Line(0,62-7A,94,62-7A
:End
:Pause

+1üD
:1üQ
:If D<8:Goto T
:End

voila merci d'avance

linkakro

Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25

Posté le : Dim 19 Fév 2012, 17:38

La partie importante du programme est celle-ci.

Code

:Lbl C
:For(X,37,40
:Line(X,8,X,0
:End
:0ü

Á
:Text(55,28,"P"
:Text(55,33,Q
:If W=2:Then
:ð12ü

Z:Pause :End
:Text(55,28," "
:For(T,3,0,ú

1
:solve(Xò-1,X,8
:Text(55,30,T
:End
:Text(55,30," "
:getKey
:For(T,0,500
:getKeyü

Á
:If Áø0:C+(25-Á)45ü

C
:A+round(cos C,0ü

A
:B+round(sin C,0ü

B
:If A=40 and B<8:Goto A // vérifie surtout cette ligne là
:If pxl-Test(round(62-B,0),round(A,0)):Goto B
Pt-On(A,B
:End

Vérifie tout d'abord la ligne que j'ai signalée.
Vérifie aussi ce qui concerne les lettres A et B dans tout le programme.

Á est un caractère spécial qui désigne la lettre grecque thêta saisie avec alpha+3
Ne pas confondre thêta (Á) avec la lettre A ni avec le rond barré (ø) qui est un caractère spécial désignant un égal barré.
ò désigne le carré (²) , ð racine carrée

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store

xxnuxxx
Invité

Posté le : Dim 19 Fév 2012, 20:46

d'accord merci je test sa demain et je vous dit.

xxnuxxx
Invité

Posté le : Dim 19 Fév 2012, 22:49

alors j'ai vérifier et la ligne précise est juste seulement j'avais oublié le end après pt-on(a,b et maintenant la calculette mais une erreur sur le end. quoi faire?

sandro

Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58

Posté le : Lun 20 Fév 2012, 9:59

Tu pourais préciser le type d'erreur s'il te plais?

----------------------
mort à l'inutile, place à la mémoire libre et aux programmes

xxnuxxx
Invité

Posté le : Mar 21 Fév 2012, 17:40

c'etait une erreur de domaine. mais maintenant le jeu marche merci

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Support -> TI-82 STATS.fr -> jeu de formule 1

Page générée en 6 requêtes

Flux RSS