Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse Page: 1,      >>
Atomes
Auteur Message
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Jeu 16 Fév 2006, 21:07   Citer 

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:


Code
: ClrHome
: 3=>A
: 6=>B
: 9=>C
: 12=>D
: 15=>E
: 18=>F
: 21=>G
: 24=>H
: 27=>I
: 30=>J
: 33=>K
: 36=>L
: 39=>M
: 42=>N
: 45=>O
: 48=>P
: 51=>Q
: 54=>R
: 57=>S
: 60=>T
: 63=>U
: 66=>V
: 69=>W
: 72=>X
: 75=>Y
: 78=>Z
: Input "ATOME",A
: If A=H
: Then
: ClrHome
: Disp "HYDROGENE H","MAS.MOLAIR:1.0","NUM.ATOMIQUE:1","CATE:METAUX","ALCALIN"
: Pause
: ClrHome
: Else
: If A=HE
: Then
: ClrHome
: Disp "HELI HE","AS MOLAIRE:?","NUM.ATOMIQUE:2","CATE: GAZ","GAZ NOBLE"
: Pause
: ClrHome
: Else
: If A=LI
: Then
: .......



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).

----------------------
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
webmaster
Avatar

Autorisation : Administrateur
Nb de messages : 782
Inscrit le : Mer 18 Aoû 2004, 22:13
Posté le : Jeu 16 Fév 2006, 22:42   Citer 

Effectivement, ce programme risque d'être long, très long à entrer dans sa TI !

@+ Le Webmaster beer.gif

----------------------
Retrouver le site sur Facebook : http://www.facebook.com/tout82
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Ven 17 Fév 2006, 18:01   Citer 

Quand on et rapide a taper et que l'on i connait, 18éléments prend environ 45 minutes (enfin c le tps que j'ai mis).

----------------------
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Lun 27 Fév 2006, 18:39   Citer 

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 winkle.gif

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






Code
:Disp "HYDROGENE H","MAS.MOLAIR:1.0","NUM.ATOMIQUE:1","CATE:METAUX","ALCALIN"
:Disp "HELI HE","AS MOLAIRE:?","NUM.ATOMIQUE:2","CATE: GAZ","GAZ NOBLE"

=> T'es pas obligé de reecrire tt ca a chaque fois que tu change d'atome, C'est à ca que ca sert les variables! sarcatisk.gif

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Lun 27 Fév 2006, 18:59   Citer 

Visionner le atomes c'est une bonne idée mais sinon on ne pourrait faire ous forme d'unh menu genre:


Code
: ClrHome
: Lbl 1
: Menu("1 ligne","HYDROGENE",A,"HELIUM",B,"...
: Pause
: Lbl A
: ClrHome
: Disp"HYDROGENE H","MAS.MOLAIRE"...
: Pause
: Goto 1
: Pause
: Lbl B
: Disp"HELIUM","MAS.MOLAIRE"...
: ...



Je sais pas si il y aura assez de Lbl

----------------------
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Mar 28 Fév 2006, 16:41   Citer 

1) Il n'y aura pas assez de Label => sarcatisk.gif => 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.

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mar 28 Fév 2006, 20:44   Citer 

ouai c sur ke c bien mais eske il y aura assez de place sur un 82?
Sinon c long a recopier mai ca mérite réflexion

----------------------
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Mer 01 Mar 2006, 12:03   Citer 

Si t'a la flemme de recopier je te comprend très bien laugh.gif , 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 winkle.gif

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 01 Mar 2006, 13:43   Citer 

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.

----------------------
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Mer 01 Mar 2006, 14:47   Citer 

Par contre tu pourra pas avoir les petite lettre vu que tu recopie à la main ahh.gif...

Voici le screenshot :




J'ai un peu triché pour la derniere image minied.gif ... normalement, ya que le n atomique.




Sinon, j'ai pensé que pour chaque atome, on pourrai mettre:

Citer
.symbole
.n atomique Z=
.nb de nucleons A=
.electrons
.protons
.neutrons

.Masse
.densite
.Rayon

.emplacement par rapport aux tableau, metaux, non-metaux, gaz nobles,lanthanides/actinides...

.temperature fusion/ebulition
.etat

.decouvert en ....
.obtenu articiellement ou pas



----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 01 Mar 2006, 15:19   Citer 

Très bonnes idées. Si tu pourrais essayer d'expliquer le code plus implement ce serait simpa (genre pour deux atomes).

----------------------
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Mer 01 Mar 2006, 17:33   Citer 


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...

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 01 Mar 2006, 18:33   Citer 

Ca aide en effet ca me permet même d'apprendre mieux l'utilisation d certaines fonctions

----------------------
 Adresse email Haut de page Bas de page 
 
Niko



Autorisation : Membre
Nb de messages : 41
Inscrit le : Mer 26 Oct 2005, 12:05
Posté le : Jeu 02 Mar 2006, 20:30   Citer 

Faut avoir le moral !
crazy.gif

 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Jeu 02 Mar 2006, 20:33   Citer 

Bon finalement c'est 15000 que ca prend godgrace.gif laugh.gif

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Jeu 02 Mar 2006, 20:43   Citer 

Il suffit d'un peu de motivation, de temps libre et d'une bonne station de radio pour bien taper.
Et ca marche nikel. cupsmiley.gif cupsmiley.gif

----------------------
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Ven 03 Mar 2006, 10:31   Citer 

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 winkle.gif

deje pour moi 1000 c'est enorme crazy.gif

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Ven 03 Mar 2006, 10:53   Citer 

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

----------------------
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Ven 03 Mar 2006, 12:14   Citer 

C'est toi qui voit ...

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Ven 03 Mar 2006, 12:27   Citer 

Oui je le veu! clown.gif

----------------------
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse Page: 1,      >>





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa