Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Jeu 16 Fév 2006, 21:07
Donc g créer un programme sur les atome. Il prend environ 10000. Il 'agit d'un programme qui permet de savoir pleins d'information sur le atomes. Je nbe vais pas le taper en entier parceque j'ai la flem mai bon le principe du code c'etr:
Donc voila snon javaispensé pour que cela prenne moin de place de définir un Goto pour les "titres" (Mass.MOLAIR, NUM.ATOMAIQUE:) mais j'y arive pas donc si quelqu'un trouve la solution, qu'il me le fasse savoir (et me la dise).
Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Lun 27 Fév 2006, 18:39
Salut,
J'ai trouve ton idee très interessante, c'est pourquoi je te propose ce début de code:
c'est une liste qui permet de visionner tout les atomes (ne fait attention au reste parce que c'est pas encore au point
Les touches:
.enter
.les 4 fleches
.+ et -
Je pense que ce serais aussi interressant de mette une partie cours ou onpuisse voir les principale regle sur l'atome
Si tu a pas le cable, tu peux tjs l'essayer avec l'emulateur
Rappel
ü = ->
ø = [pas égal à]
ú = ( - )
ù = [plus grand ou egal à]
Code
:Lbl 7
:ClrHome
:Disp "","","","","","",""
:Menu("Atomes","Liste",4,"Nôatomique",5,"Credit",6,"Quitter",Z)
:Lbl 4
:0üA
:1üC
:1üD
:Goto A
:Lbl 0
:output(C,1,"*")
:If CøD:output(D,1," ")
:0üK
:While K=0
:gandKeyüK
:End
:If K=45
:Goto 7
:
:If K=26:Then
:(A*7)+CüA
:If Aù44:A+1üA
:If Aù61:A+1üA
:If Aù63:A+1üA
:If Aù65:A+1üA
:If Aù69:A+1üA
:If Aù72:A+1üA
:If Aù98:A+1üA
:If Aù105:A+1üA
:If Aù107:A+1üA
:If Aù109:A+1üA
:If Aù112:A+1üA
:If Aù115:A+1üA
:If Aù117:A+1üA
:If Aù119:A+1üA
:If Aù121:A+1üA
:If Aù125:A+2üA
:If Aù128:A+1üA
:If Aù130:A+1üA
:Goto 5
:End
:
:CüD
:Lbl 2
:If K=25:C-1üC
:If K=34:C+1üC
:
:If (C=2 and (A=6 or A=9 or A=10 or A=15 or A=17 or A=18)) or (C=3 and A=16) or (C=4 and (A=15 or A=18) or (C=5 and (A=8 or A=16)) or (C=6 and (A=9 or A=17 or A=18)) or (C=7 and (A=8 or Aù13 and A÷18))
:Goto 2
:
:If (K=34 or K=25) and C÷7 and Cù1:Goto 0
:If K=95 or K=34:A+1üA
:If K=85 or K=25:A-1üA
:If C>7 or K=85 or K=95:1üC
:If C<1:Then
:7üC
:If A=8 or (Aù13 and A÷16):6üC
:If A=17 or A=ú1:5üC
:End
:
:If Kø105:Goto 1
:
:Input "Atteindre : ",A
:
:If Aù44:A+1üA
:If A>61:A+1üA
:If A>63:A+1üA
:If A>65:A+1üA
:If A>69:A+1üA
:If A>72:A+1üA
:If A>98:A+1üA
:If A>105:A+1üA
:If A>107:A+1üA
:If A>109:A+1üA
:If A>112:A+1üA
:If A>115:A+1üA
:If A>117:A+1üA
:If A>119:A+1üA
:If A>121:A+1üA
:If A>125:A+2üA
:If A>128:A+1üA
:If A>130:A+1üA
:
:A-int((A-1)/7)*7üC
:int((A-1)/7)üA
:
:
:Lbl 1
:If A<0:18üA
:If A>18:0üA
:
:If A=0:Goto A
:If A=1:Goto B
:If A=2:Goto C
:If A=3:Goto D
:If A=4:Goto E
:If A=5:Goto F
:If A=6:Goto G
:If A=7:Goto H
:If A=8:Goto I
:If A=9:Goto J
:If A=10:Goto K
:If A=11:Goto L
:If A=12:Goto M
:If A=13:Goto N
:If A=14:Goto O
:If A=15:Goto P
:If A=16:Goto Q
:If A=17:Goto R
:If A=18:Goto S
:
:Lbl A
:output(1,1," 1 He hydrogène 2 He hélium 3 Li lithium 4 Be béryllium 5 B bore 6 C carbone 7 N azote "
:Goto 0
:Lbl B
:output(1,1," 8 O oxygène 9 F fluor 10 Ne néon 11 Na sodium 12 Mg magnésium 13 Al aluminium 14 Si silicium "
:Goto 0
:Lbl C
:output(1,1," 15 P phosphore 16 S sorfre 17 Cl chlore 18 Ar argon 19 K potassium 20 Ca calcium 21 Sc scandium "
:Goto 0
:Lbl D
:output(1,1," 22 Ti titane 23 V vanadium 24 Cr chrome 25 Mn manganèse 26 Fe fer 27 Co cobalt 28 Ni nickel "
:Goto 0
:Lbl E
:output(1,1," 29 Cu cuivre 30 Zn zinc 31 Ga gallium 32 Ge germanium 33 As arsenic 34 Se sélénium 35 Br brome "
:Goto 0
:Lbl F
:output(1,1," 36 Kr krypton 37 Rb rubidium 38 Sr strontium 39 Y yttrium 40 Zr zirconium 41 Nb niobium 42 Mo molybdène"
:Goto 0
:Lbl G
:output(1,1," 43 Tc technéú tium 44 Ru ruthénium 45 Rh rhodium 46 Pd palladium 47 Ag argint 48 Cd cadmium "
:Goto 0
:Lbl H
:output(1,1," 49 In indium 50 Sn étain 51 Sb antimoine 52 Te tellure 53 I iode 54 Xe xénon 55 Cs césium "
:Goto 0
:Lbl I
:output(1,1," 56 Ba baryum 57 La lanthane 58 Ce cérium 59 Pr praséoú disme 60 Nd néodisme "
:Goto 0
:Lbl J
:output(1,1," 61 Pm proméú thium 62 Sm samarium 63 Eu europium 64 Gd gadoliú nium 65 Tb terbium "
:Goto 0
:Lbl K
:output(1,1," 66 Dy dysproú sium 67 Ho holmium 68 Er erbium 69 Tm thulium 70 Yb ytterbium 71 Lu lutétium "
:Goto 0
:Lbl L
:output(1,1," 72 Hf hafnium 73 Ta tantalee 74 W tungstène 75 Re rhénium 76 Os osmium 77 Ir iridium 78 Pt platine "
:Goto 0
:Lbl M
:output(1,1," 79 Au or 80 Hg mercure 81 Tl thallium 82 Pb plomb 83 Bi bismuth 84 Po plonium 85 At astate
:Goto 0
:Lbl N
:output(1,1," 86 Rn radon 87 Fr francium 88 Ra radium 89 Ac actinium 90 Th thorium 91 Pa protactiú nium "
:Goto 0
:Lbl O
:output(1,1," 92 U uranium 93 Np neptunium 94 Pu plutonium 95 Am américium 96 Cm curium 97 Bk brekélium "
:Goto 0
:Lbl P
:output(1,1," 98 Cf califorú nium 99 Es einsteiú nium 100 Fm fermium 101 Md mendéléú vium "
:Goto 0
:Lbl Q
:output(1,1," 102 No nobélium 103 Lr lawrenú cium 104 Rf rutherú fordium 105 Db dubnium "
:Goto 0
:Lbl R
:output(1,1," 106 Sg seaború gium 107 Bh bohrium 108 Hs hassium 109 Mt meitneú rium "
:Goto 0
:Lbl S
:output(1,1," 110 Uun ununniú lium 111 Uuu ununuú nium 112 Uub ununú bium "
:Goto 0
:
:
:Lbl 5
:ClrHome
:output(3,1,"N°ATOMIQUE Z= NUCLEONS A=
:output(6,1,"NB ELECTRONS NB PROTONS NB NEUTRONS"
:output(3,14,A)
:output(6,11,A)
:output(3,1,"
:While gandKeyø24
:End
:Goto 7
:
:Lbl 6
:ClrHome
:output(5,4,"26/02/2006")
:Pause
:Goto 7
:
:Lbl Z
:ClrHome
:Stop
Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Mar 28 Fév 2006, 16:41
1) Il n'y aura pas assez de Label => => Il faudrait faire 4 ou 5 prgrs.
2) Avec mon prog tu peux faire une recherche par n° atomique pas avec les menus et la navigation est plus simple.
3) Pas assez de place pour mettre à la fois le nom de l'atome, le n atomique ainsi que le symbole avec les menus.
Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Mer 01 Mar 2006, 12:03
Si t'a la flemme de recopier je te comprend très bien , en fait je pensais que t'avais un cable, C pour ca.
Sinon au niveau place, ca doit prendre autour de 4 ko pour l'instant. A la fin je pense qu'on devrai arriver à 10ko (1/3 de la place pour ti 82)
Si tu veux je te ferai un screenshot pour que tu vois à quoi ca ressemble
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 01 Mar 2006, 13:43
tinkiet pa g pa de cable mai je recopie très vite le codes.
10 ko c pa trop long encor. J'ai mon programme de course ki en prend 14000.
Je serait pas contre un screen shot pour voir a quois ca reemble.
Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Mer 01 Mar 2006, 17:33
Code
:Lbl 7
:ClrHome
:Disp "","","","","","",""
:Menu("Atomes","Liste",4,"Nôatomique",5,"Credit",6,"Quitter",Z)
:Lbl 4
:0->A 'A correspond à la fois au n° atomique et à la colone
:1->C 'C correspond à l'emplacement Y de *
:1->D 'D correspond à C telle qui l'était avant
:Lbl 0
:output(C,1,"*") 'Afficher *
:If C [pas egal à] D:output(D,1," ") 'Si l'emplacement de * a changer, effacer l'ancienne postition
:0->K
:While K=0 'tant qu'aucune touche est appuyé on attend
:getKey->K
:End
:If K=45 'Si la touche appuyé est Clear, on va au menu
:Goto 7
:
:If K=26:Then 'Si la fleche droite est appuyé (=atome selectionne),
:(A*7)+C->A 'on localise le numero atomique pour savoir de quel atome il s'agit
:If A [plus grand ou égal à] 44:A+1->A 'La c'etait parce que certain atome avait un nom trop long
:If A [plus grand ou égal à] 61:A+1->A
:If A [plus grand ou égal à] 63:A+1->A
:If A [plus grand ou égal à] 65:A+1->A
:If A [plus grand ou égal à] 69:A+1->A
:If A [plus grand ou égal à] 72:A+1->A
:If A [plus grand ou égal à] 98:A+1->A
:If A [plus grand ou égal à] 105:A+1->A
:If A [plus grand ou égal à] 107:A+1->A
:If A [plus grand ou égal à] 109:A+1->A
:If A [plus grand ou égal à] 112:A+1->A
:If A [plus grand ou égal à] 115:A+1->A
:If A [plus grand ou égal à] 117:A+1->A
:If A [plus grand ou égal à] 119:A+1->A
:If A [plus grand ou égal à] 121:A+1->A
:If A [plus grand ou égal à] 125:A+2->A
:If A [plus grand ou égal à] 128:A+1->A
:If A [plus grand ou égal à] 130:A+1->A
:Goto 5
:End
:
:C->D 'D devient l'ancienne valeur de C
:Lbl 2
:If K=25:C-1->C 'Si "haut" est appuyé, * vers le haut
:If K=34:C+1->C 'Si "bas" est appuyé, * vers le bas
:
:If (C=2 and (A=6 or A=9 or A=10 or A=15 or A=17 or A=18)) or (C=3 and A=16) or (C=4 and (A=15 or A=18) or (C=5 and (A=8 or A=16)) or (C=6 and (A=9 or A=17 or A=18)) or (C=7 and (A=8 or A [plus grand ou égal à] 13 and A [plus petit ou égal à] 18))
:Goto 2
:
:If (K=34 or K=25) and C [plus petit ou égal à] 7 and C [plus grand ou égal à] 1:Goto 0
:If K=95 or K=34:A+1->A 'Si + est appuyé ou ("bas" est appuyé et * est tt en bas), on descend d'une colone
:If K=85 or K=25:A-1->A 'Si (-)est appuyé ou ("haut" est appuyé et * est tt en haut), on remonte d'une colone
:If C>7 or K=85 or K=95:1->C 'Si on à monté d'une colone,* est tt en bas
:If C<1:Then 'Si on à baissé d'une colone,* se retrouve tt en haut
:7->C
:If A=8 or (A [plus grand ou égal à] 13 and A [plus petit ou égal à] 16):6->C
:If A=17 or A=(-)1:5->C
:End
:
:If K [pas egal à] 105:Goto 1 'Si on a presse "enter", on demande d'entrer A
:
:Input "Atteindre : ",A
:
:If A [plus grand ou égal à] 44:A+1->A
:If A>61:A+1->A 'La c'etait parce que certain atome avait un nom trop long
:If A>63:A+1->A
:If A>65:A+1->A
:If A>69:A+1->A
:If A>72:A+1->A
:If A>98:A+1->A
:If A>105:A+1->A
:If A>107:A+1->A
:If A>109:A+1->A
:If A>112:A+1->A
:If A>115:A+1->A
:If A>117:A+1->A
:If A>119:A+1->A
:If A>121:A+1->A
:If A>125:A+2->A
:If A>128:A+1->A
:If A>130:A+1->A
:
:A-int((A-1)/7)*7->C 'On trouve l'emplacement de * grace à A
:int((A-1)/7)->A
:
:
:Lbl 1
:If A<0:18->A 'Si le numero atomique depasse 112, on revient à hydrogène
:If A>18:0->A 'et vice versa
:
:If A=0:Goto A 'Si A = 0 on affiche les 7 1er atomes
:If A=1:Goto B 'Si A = 1 on affiche les 7 atomes suivant
:If A=2:Goto C
:If A=3:Goto D
:If A=4:Goto E
:If A=5:Goto F
:If A=6:Goto G
:If A=7:Goto H
:If A=8:Goto I
:If A=9:Goto J
:If A=10:Goto K
:If A=11:Goto L
:If A=12:Goto M
:If A=13:Goto N
:If A=14:Goto O
:If A=15:Goto P
:If A=16:Goto Q
:If A=17:Goto R
:If A=18:Goto S
:
:Lbl A
:output(1,1," 1 He hydrogène 2 He hélium 3 Li lithium 4 Be béryllium 5 B bore 6 C carbone 7 N azote "
:Goto 0
:Lbl B
:output(1,1," 8 O oxygène 9 F fluor 10 Ne néon 11 Na sodium 12 Mg magnésium 13 Al aluminium 14 Si silicium "
:Goto 0
:Lbl C
:output(1,1," 15 P phosphore 16 S sorfre 17 Cl chlore 18 Ar argon 19 K potassium 20 Ca calcium 21 Sc scandium "
:Goto 0
:Lbl D
:output(1,1," 22 Ti titane 23 V vanadium 24 Cr chrome 25 Mn manganèse 26 Fe fer 27 Co cobalt 28 Ni nickel "
:Goto 0
:Lbl E
:output(1,1," 29 Cu cuivre 30 Zn zinc 31 Ga gallium 32 Ge germanium 33 As arsenic 34 Se sélénium 35 Br brome "
:Goto 0
:Lbl F
:output(1,1," 36 Kr krypton 37 Rb rubidium 38 Sr strontium 39 Y yttrium 40 Zr zirconium 41 Nb niobium 42 Mo molybdène"
:Goto 0
:Lbl G
:output(1,1," 43 Tc techné- tium 44 Ru ruthénium 45 Rh rhodium 46 Pd palladium 47 Ag argint 48 Cd cadmium "
:Goto 0
:Lbl H
:output(1,1," 49 In indium 50 Sn étain 51 Sb antimoine 52 Te tellure 53 I iode 54 Xe xénon 55 Cs césium "
:Goto 0
:Lbl I
:output(1,1," 56 Ba baryum 57 La lanthane 58 Ce cérium 59 Pr praséo- disme 60 Nd néodisme "
:Goto 0
:Lbl J
:output(1,1," 61 Pm promé- thium 62 Sm samarium 63 Eu europium 64 Gd gadoli- nium 65 Tb terbium "
:Goto 0
:Lbl K
:output(1,1," 66 Dy dyspro- sium 67 Ho holmium 68 Er erbium 69 Tm thulium 70 Yb ytterbium 71 Lu lutétium "
:Goto 0
:Lbl L
:output(1,1," 72 Hf hafnium 73 Ta tantalee 74 W tungstène 75 Re rhénium 76 Os osmium 77 Ir iridium 78 Pt platine "
:Goto 0
:Lbl M
:output(1,1," 79 Au or 80 Hg mercure 81 Tl thallium 82 Pb plomb 83 Bi bismuth 84 Po plonium 85 At astate
:Goto 0
:Lbl N
:output(1,1," 86 Rn radon 87 Fr francium 88 Ra radium 89 Ac actinium 90 Th thorium 91 Pa protacti- nium "
:Goto 0
:Lbl O
:output(1,1," 92 U uranium 93 Np neptunium 94 Pu plutonium 95 Am américium 96 Cm curium 97 Bk brekélium "
:Goto 0
:Lbl P
:output(1,1," 98 Cf califor- nium 99 Es einstei- nium 100 Fm fermium 101 Md mendélé- vium "
:Goto 0
:Lbl Q
:output(1,1," 102 No nobélium 103 Lr lawren- cium 104 Rf ruther- fordium 105 Db dubnium "
:Goto 0
:Lbl R
:output(1,1," 106 Sg seabor- gium 107 Bh bohrium 108 Hs hassium 109 Mt meitne- rium "
:Goto 0
:Lbl S
:output(1,1," 110 Uun ununni- lium 111 Uuu ununu- nium 112 Uub unun- bium "
:Goto 0
:
:
:Lbl 5
:ClrHome
:output(3,1,"N°ATOMIQUE Z= NUCLEONS A=
:output(6,1,"NB ELECTRONS NB PROTONS NB NEUTRONS"
:output(3,14,A)
:output(6,11,A)
:output(3,1,"
:While getKey [pas egal à] 24
:End
:Goto 7
:
:Lbl 6
:ClrHome
:output(5,4,"26/02/2006")
:Pause
:Goto 7
:
:Lbl Z
:ClrHome
:Stop
Voila, mon explication est un pti peu fouareuse mais si ca peu t'aider...
Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Ven 03 Mar 2006, 10:31
15000 octet, ca devient du délire! Demande plutot à un de tes potes de te preter le cable, ou essaye d'en fabriquer un, y a plein de site qui parle de ca
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Ven 03 Mar 2006, 10:53
Je tape a peu près 1000 octets en 1 h donc 15000 me prendra que 15 soirs.
Ofait la je suis en train d'écrire sou word mon programme RACE qui prend 13186.
Comme je l'ai dit il suffit de bcp de motivation et de muique