Donc j'ai fini de taper un programme seulement il y a une erreur qui apparait quand je veux aller dans tableau (voir programme si dessous) l'erreur se met au premier recallpix pix 1 . Avant de poster j'ai fouiller un peu le forum pour voir s'il y avait des erreur similaire j'ai essayer de mettre recallpix 1 sa ne marche pas . J'ai une TI 82 stats.fr
| Citer | :
:ClrHome
:Menu(" TBL PERIODIQUE ","TABLEAU",N,"RECHERCHE",O,"ANION",P,"CATION",Q,"QUITTE",R)
:Lbl R
:ClrHome
:Stop
:Lbl P
:ClrDraw
:1üXmin
:95üXmax
:0üXscl
:1üYmin
:63üYmax
:0üYscl
:Text(2,2,"IONS CHLORURE: CL-"
:Text(10,18,"HYDROXYDE: HO-"
:Text(20,18,"SULFATE: SO"
:Text(17,60,"2-"
:Text(23,60,"4"
:Text(33,18,"NITRATE: NO"
:Text(30,59,"-"
:Text(36,59,"3"
:Text(46,1,"HYDROGENOCARBONATE: "
:Text(53,70,"HCO"
:Text(56,82,"3"
:Text(50,82,"-"
:Pause
:prgmAPERIO
:Lbl Q
:ClrDraw
:1üXmin
:95üXmax
:0üXscl
:1üYmin
:63üYmax
:0üYscl
:Text(1,18,"ARGENT: AG+"
:Text(7,18,"ALLUMINIUM: AL3+"
:Text(15,2,"IONS SODIUM: NA+"
:Text(22,18,"HYDROGENE: H+"
:Text(29,18,"OXONIUM: H3O+"
:Text(37,18,"CUIVRE 2: CU2+"
:Text(45,18,"FER 2: Fe2+"
:Text(53,18,"FER 3: Fe3+"
:Text(53,18,"ZINC: ZN2+"
:
:Pause
:prgmAPERIO
:Lbl O
:9üA:18üB:27üC:9*4üD:9*5üE:9*6üF:9*7üG:9*8üH:9*10üI:9*11üJ:9*12üK:9*13üL:9*14üM:9*15üN:9*16üO:9*17üO:9*18üP:9*19üQ:9*20üR:9*21üS:9*22üT:9*23üU:9*24üV:9*25üW:9*26üX:9*27üY:9*28üZ
:Input "MOT ?",Á
:If Á=HYDROGENE:Then:2üA:2üB:Goto M:End
:If Á=HELIUM:Then:2üA:87üB:Goto M:End
:If Á=LITHIUM:Then:9üA:2üB:Goto M:End
:
:
:
:
:Lbl N
:2üA:2üB
:Lbl M
:AxesOff
:ClrDraw
:RecallPic Pic1
:Goto 2
:Lbl 1
:If B=12 and A=37:Then:Text(10,15,"LANTHANIDES":
:End
:If B=12 and A=44:Then:Text(10,20,"ACTINIDES":End
:If A=2 and B=2
:Then
:Text(5,35,"H"
:Text(1,30,"1"
:Text(8,30,"1"
:Text(55,5,"HYDROGENE"
:End
:If A=2 and B=87:Then:Text(5,35,"He":Text(1,30,"4":Text(8,30,"2":Text(55,10,"HELIUM"
:End
:
:If A=9 and B=2
:Then:Text(5,35,"LI":Text(1,30,"7":Text(8,30,"3":Text(55,10,"LITHIUM":Text(55,50,"M.M=6.9":End
:
:If A=9 and B=7
:Then:Text(5,35,"Be":Text(1,30,"9":Text(8,30,"4":Text(55,5,"BERYLLIUM":End
:
:If A=9 and B=62:Then:Text(5,35,"B":Text(1,25,"11":Text(8,30,"5":Text(55,10,"BORE":Text(55,50,"M.M=10.8":End
:
:If B=67 and A=9:Then:Text(5,35,"C":Text(1,25,"12":Text(8,30,"6":Text(55,5,"CARBONE":End
:If B=72 and A=9:Then:Text(5,35,"N":Text(1,25,"14":Text(8,25,"7":Text(55,10,"AZOTE":End
:If B=77 and A=9:Then:Text(5,35,"O":Text(1,25,"16":Text(8,30,"8":Text(55,5,"OXYGENE":End
:If B=82 and A=9:Then:Text(5,35,"F":Text(1,25,"19":Text(8,30,"9":Text(55,10,"FLUOR":End
:If B=87 and A=9:Then:Text(5,35,"Ne":Text(1,25,"20":Text(8,25,"10":Text(55,10,"NEON":End
:If A=16 and B=2:Then:Text(5,35,"Na":Text(1,25,"23":Text(8,25,"11":Text(55,10,"SODIUM":End
:If A=16 and B=7:Then:Text(5,35,"MG":Text(1,25,"24":Text(8,25,"12":Text(55,5,"MAGNESIUM"):End
:If A=16 and B=62:Then:Text(5,35,"AL":Text(1,25,"27":Text(8,25,"13":Text(55,5,"ALUMINIUM":End
:If A=16 and B=67:Then:Text(5,35,"SI":Text(1,25,"28":Text(8,25,"14":Text(55,5,"SILICIUM":Text(55,55,"M.M=28,1":End
:If A=16 and B=72:Then:Text(5,35,"P":Text(1,25,"31":Text(8,25,"15":Text(55,5,"PHOSPHORE":End
:If A=16 and B=77:Then:Text(5,35,"S":Text(1,25,"32":Text(8,25,"16":Text(55,10,"SOUFRE":Text(55,50,"M.M=32,1":End
:If A=16 and B=82:Then:Text(5,35,"CL":Text(1,25,"35":Text(8,25,"17":Text(55,10,"CHLORE":Text(55,50,"M.M=35.5":End
:If A=16 and B=87:Then:Text(5,35,"Ar":Text(1,25,"40":Text(8,25,"18":Text(55,5,"ARAGON":Text(55,50,"M.M=39,9":End
:If B=2 and A=23:Then:Text(5,35,"K":Text(1,25,"39":Text(8,25,"19":Text(55,5,"POTASSIUM":Text(55,50,"M.M=39,1":End
:If B=7 and A=23:Then:Text(5,35,"Ca":Text(1,25,"40":Text(8,25,"20":Text(55,2,"CALCIUM":Text(55,50,"M.M=40,1":End
:If B=12 and A=23:Then:Text(5,35,"Se":Text(1,25,"45":Text(8,25,"21":Text(55,10,"SCANDIUM":End
:If B=17 and A=23:Then:Text(5,35,"TI":Text(1,25,"48":Text(8,25,"22":Text(55,2,"TITANE":Text(55,50,"M.M=47,9":End
:If B=22 and A=23:Then:Text(5,35,"V":Text(1,25,"51":Text(8,25,"23":Text(55,2,"VANADIUM":Text(55,50,"M.M=50.9":End
:If A=23 and B=27:Then:Text(5,35,"Cr":Text(1,25,"52":Text(8,25,"24":Text(55,5,"CHROME":End
:If A=23 and B=32:Then:Text(5,35,"MÖ":Text(1,25,"55":Text(8,25,"25":Text(55,2,"MANGANESE":Text(55,55,"M.M=54.9":End
:If A=23 and B=37:Then:Text(5,35,"Fe":Text(1,25,"56":Text(8,25,"26":Text(55,5,"FER":Text(55,55,"M.M=55.8":End
:
:If A=23 and B=42:Then:Text(5,35,"CO":Text(1,25,"59":Text(8,25,"27":Text(55,5,"COBALT":Text(55,50,"M.M=58.9":End
:
:
:
:
:
:
:
:For(Z,0,1û9
:getKeyüY
:If Y=23
:Then
:ClrHome
:Stop
:End
:If Y=105 and A=37 and B=12:Goto F
:If Y=105 and A=44 and B=12:Goto F
:
:
:
:
:If Y=24
:Then:B-5üB:Goto 2:End
:If Y=25:Then:A-7üA:Goto 2:End
:If Y=26
:Then
:B+5üB:Goto 2:End
:If Y=34
:Then
:A+7üA:Goto 2:End
:End
:Goto 2
:Lbl 2
:ClrDraw
:RecallPic Pic1
:If A<2:2üA
:If B<2:87üB
:If A>50:44üA
:If B>90:2üB
:If A<23 and B=12:62üB
:If A<23 and B=57:7üB
:If A=2 and B=7:87üB
:If A=2 and B=82:2üB
:If A=2 and B>60 and B<80:44üA
:If A=16 and B>10 and B<60:44üA
:
:Pxl-Change(A,B)
:Pxl-Change(A+1,B)
:Pxl-Change(A+2,B)
:Pxl-Change(A+3,B)
:Pxl-Change(A+4,B)
:Pxl-Change(A+5,B)
:Pxl-Change(A,B+1)
:Pxl-Change(A+1,B+1)
:Pxl-Change(A+2,B+1)
:Pxl-Change(A+3,B+1)
:Pxl-Change(A+4,B+1)
:Pxl-Change(A+5,B+1)
:Pxl-Change(A,B+2)
:Pxl-Change(A+1,B+2)
:Pxl-Change(A+2,B+2)
:Pxl-Change(A+3,B+2)
:Pxl-Change(A+4,B+2)
:Pxl-Change(A+5,B+2)
:Pxl-Change(A,B+3)
:Pxl-Change(A+1,B+3)
:Pxl-Change(A+2,B+3)
:Pxl-Change(A+3,B+3)
:Pxl-Change(A+4,B+3)
:Pxl-Change(A+5,B+3)
:Goto 1
:
:
:
:
:Lbl F
:ClrDraw
:AxesOff
:1üXmin
:95üXmax
:0üXscl
:1üYmin
:63üYmax
:0üYscl
:10üB:32üA
:
:Lbl H
:ClrDraw
:Line(10,32,85,32)
:Line(10,25,85,25)
:Line(10,18,85,1
:For(X,10,80,10
:Line(X,32,X,18
:Line(X+5,32,X+5,1
:End
:Goto G
:Lbl I
:If A=32:Text(55,5,"LANTHANIDES"
:If A=39:Text(55,5,"ACTINIDES"
:
:If A=32 and B=10:Then:Text(5,75,"La":Text(1,60,"139":Text(8,65,"57":Text(5,5,"LANTHANE":End
:
:
:
:
:For(X,0,1û9
:getKeyüY
:If Y=23:Then:37üA:12üB:Goto 2:End
:If Y=24:Then:B-5üB:Goto H:End
:If Y=25:Then:A-7üA:Goto H:End
:If Y=26:Then:B+5üB:Goto H:End
:If Y=34:Then:A+7üA:Goto H:End
:End
:Lbl G
:For(E,0,3
:For(D,0,5
:Pxl-On(A+D,B+E)
:End
:End
:Goto I
:
|
|
