Autorisation : Membre
Nb de messages : 3293
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 : 1522
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 : 1522
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 : 1522
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 : 3293
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 : 1522
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 : 1522
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 : 3293
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
Autorisation : Membre
Nb de messages : 1522
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Ven 31 Mar 2006, 19:02
j'ai copié 50 atomes pour l'instant.
Je voulais juse poser une question:
-pour les ti 82 et 82 stat, c'est possible de mettre du "texte comme ca" et non pas du "TEXTE COMME CA"? (en tout cas y faut forcement passer par ordi).
Autorisation : Membre
Nb de messages : 1522
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Ven 31 Mar 2006, 20:11
Oui, mais c'est parce que c'est c'est plus agreable d'avoir un texte en minuscule, donc je demande...
Sinon a mon avis je pense que c'est possible mais seulement pour les stats, c'est pourquoi vaut mieux faire 2 versions.
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Sam 01 Avr 2006, 12:22
J'ai tester la 82, la 82 STATS, La 83 et la 83 plus mais sur aucune, en tapant à la main j'ai réussit à avoir des minuscule (A part quand je met des instruction).
Par exemple, qnd je met Output(1,1,"And" (L'instruction), Ca marque And.
Autorisation : Membre
Nb de messages : 132
Inscrit le : Sam 15 Avr 2006, 11:31
Posté le : Sam 15 Avr 2006, 12:00
meme ac une bone radio il fo la foi ..
surtt pr se genre de pgrm ( je sui + branché jeux)
dc vive le ti- pc
par contre ratus chapo pr l'ip ... c le bon ( incrédule com je sui g vérifier ) ... moi ki mmé troi h a le trouver ...
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Ven 24 Nov 2006, 19:47
Mais, il n'est pas encor finis.
Et puis, il y a plein de choses a rajouté comme l'électronégativitée, le nombre d'électrons de valence, ses différents isomères ...
Autorisation : Membre
Nb de messages : 221
Inscrit le : Jeu 12 Oct 2006, 19:30
Posté le : Dim 16 Sep 2007, 0:40
rha j'aime pas ta reponse webmaster meme si la question a deja ete posté 100 fois. dans ton programme, tu appuye sur la touche prgm + fleche droite + 8 ou descent avec les fleches
Autorisation : Membre
Nb de messages : 591
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Dim 16 Sep 2007, 10:10
Dites les gars, vous êtes bien sûr qu'il sert à quelquechose votre programme ? Parce que un petit imprimé sur papier est tout aussi pratique non ? (et en plus on peut même choisir la police qu'on veut…)
---------------------- Vive la programmation et vive le vibraphone !!!
Autorisation : Membre
Nb de messages : 591
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Lun 17 Sep 2007, 18:30
Certes, mais tu va me dire que ton prof t'as obligé à apprendre le tableau périodique par coeur ? Et puis de toute façon je n'ai jamais vu de sales de chimie sans un énnorme tableau périodique accroché au fond de la classe…!
---------------------- Vive la programmation et vive le vibraphone !!!
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mar 18 Sep 2007, 14:18
En salle de TP ou aux CFMC de grenoble, tu peut avoir besoin de ton tableau périodique et il n'est pas affiché.
Et lorsque tu est en chimie, tu est sensé connaitre énormément de chose sur les atomes les plus utilisés.
![](../images/char/<img src="./images/smileys/cupsmiley.gif" border="0" alt="cupsmiley.gif" title="cupsmiley.gif" />.png)
, en fait je pensais que t'avais un cable, C pour ca.
...
... normalement, ya que le n atomique.
Oui, mais c'est parce que c'est c'est plus agreable d'avoir un texte en minuscule, donc je demande...