Les éléments chimiques et leurs symboles

Salut tout le monde.

J’ai fais un petit programme autour de la chimie.
Un peu comme les cris des animaux, AL-KIMIA.BAS (c’est le nom du programme) vous propose l’un des éléments chimiques et vous devriez donner son symbole.

Le programme utilise des fichiers externes (.mp3, .JPG, .BMP).
L’utilisation du programme est très intuitive et vous saurez vite comment l’utiliser.

A chaque lancement du programme, vous avez l’un des 8 professeurs (tiré au hasard) pour vous poser les questions.
Vous répondez en tapant votre réponse puis cliquez sur VALIDER. Vous pouvez cliquer directement sur VALIDER sans fournir de réponse. Dans ce cas votre réponse sera considérée comme fausse.

Le programme vérifie votre réponse et affichera un message adéquat.
Il affiche aussi quelques autres informations concernant l’élément en question (numéro atomique, température de fusion, température d’ébullition et éventuellement son image).
Vous pouvez également écouter une leçon sur les atomes et afficher le tableau périodique de Mendeleïev.

Le programme AL-KIMIA.BAS et les fichiers images sont à télécharger à partir de mon Webdav
http://www.mydrive.ch/
username : panoramicien@papydall_panoramic
password : panoramic123

Fichier : LesElementsChimiques.zip

Enregistrez le tout dans un répertoire de votre convenance.
Chargez AL-KIMIA.BAS dans panoramic_editor et reenregistrez-le dans le même répertoire pour que le répertoire courant soit pris en considération.

Amusez-vous bien !

D’ici là, j’attends vos interventions.

lol!

Merci Papydall, beau boulot Wink

Là je dis Bravo,

Un peu trop sérieux pour mon goût, mais c'est bien fait et très éducatif.

Une remarque: j'ai augmenté le HEIGHT de FORM 0 de 10 pixels (760) pour avoir une fenêtre normale.

Voici notre Papydall au boulot:

Les éléments chimiques et leurs symboles Images16

Merci Jicehel.
Merci Jean Claude.
Eh oui, il m’arrive parfois d’être un peu sérieux. albino

J’ai pensé être tout seul dans mon labo. Tu as qu’en même réussi à me photographier.
BRAVO !
sunny

@ Papydall,

Une idée très original, Bravo!

Un ptit bug tout de même une fois le tableau affiché
si je clique sur retour j'ai un message d'erreur si je veux ré afficher celui ci...

Serais tu faché avec la partie graphique ?.... Laughing

Salut Ygeronimo

En effet il ya un bug au niveau du réaffichage du tableau de Mendeleïev.
Il suffit de remplacer le Delete 1000 dans le sous/programme ‘cacher’ par Hide 1000 et tout entre en ordre.

Une affaire urgente m’appelle. Je serais de retour dans la soirée.

A+

Bug corrigé.
Voici la version corrigée.

Code:: ' ******************************************************************************
'
' LES ELEMENTS CHIMIQUES ET LEURS SYMBOLES
'
' AL-KIMIA.BAS
'
' PAR PAPYDALL
'
' ******************************************************************************
'
'
' Le mot chimie dérive du terme ancien alchimie directement tiré de l'arabe AL-KIMIA
'
' ******************************************************************************

dim titre$,Reponse$,question$,repertoire$
dim NbElement : NbElement = 118 : ' Nombre des éléments chimiques actuellement connus
dim NomElement$(NbElement) : ' Tableau contenant les NbElement
dim NumAtom(NbElement) : ' Tableau contenant les numéros atomiques
dim Symbole$(NbElement) : ' Tableau contenant les symboles chimiques
dim PointFusion$(NbElement) : ' Tableau contenant les températures de fusion en °C
dim PointEbulition$(NbElement) : ' Tableau contenant les température d'ébulition en °C
dim Image$(NbElement) : ' Tableau contenant les noms des images des éléments
dim Data$,s$,c$,nl$ : ' Variables de travail
dim i%,j%,k% : ' Variables compteurs
dim question%,BonneReponse% : ' Variables utilisées dans le score
dim aleat%

label init,go,ecouter,valider,continuer,quitter,mendeleiev ,arreter,cacher
' ------------------------------------------------------------------------------
titre$ = string$(32,"*") : nl$ = chr$(10)+chr$(13)
height 0,760 :width 0,1000
titre$ = titre$ +" LES ELEMENTS CHIMIQUES EL LEURS SYMBOLES PAR PAPYDALL " +titre$
caption 0,titre$ : application_title "AL-KIMIA"
' color 0, 0,0,0
container 100
top 100,10 : left 100,190:height 100,380:width 100,680 : font_name 100,"Times new roman"
alpha 101 : parent 101,100 : caption 101 , " LES ELEMENTS CHIMIQUES":font_bold 101
alpha 102 : parent 102,100 : caption 102 , "Quel est le symbole chimique de cet élément ?"
top 101,25 : left 101,100 : font_size 101,16 : font_color 101, 110,10,5
top 102,60 : left 102,10 : font_size 102 , 14 : font_color 102, 0,0,255
alpha 103 : parent 103,100
top 103,60 : left 103, 360 : font_size 103,14 : font_color 103,255,0,0
alpha 104 : parent 104,100 : font_size 104, 10 : caption 104,"VOTRE REPONSE"
top 104,30 : left 104, 532 : font_color 104,100,20,100
button 110 : parent 110,100 : top 110,250 : left 110,20 : width 110,100 : cursor_point 110
caption 110,"ECOUTER" : font_size 110,12 : on_click 110, ecouter
hint 110,"Ecouter Les atomes et la structure atomique"
button 111:parent 111,100 : top 111,250 : left 111,290 : width 111,80 : cursor_point 111
caption 111,"VALIDER":font_size 111,12 : on_click 111,valider
hint 111,"Valider votre réponse"

button 112 : parent 112,100 : top 112,250 : left 112,420 : width 112,100 : cursor_point 112
caption 112,"CONTINUER" : font_size 112,12 : on_click 112,continuer
hint 112,"Poursuivre le jeu"

button 113 : parent 113,100 :top 113,250: left 113,550 : width 113,80: cursor_point 113
caption 113,"QUITTER" : font_size 113,12 :on_click 113, quitter
hint 113,"Quitter ce programme"

button 114 : parent 114, 100 : top 114,320: left 114, 20: width 114, 280
cursor_point 114 : caption 114,"TABLEAU DE MENDELEIEV" : font_size 114,12
on_click 114,Mendeleiev
hint 114, " Charger le tableau périodique de Mendeleiev"

button 115 : parent 115,100: top 115,250 : left 115, 150 :width 115,100: cursor_point 115
caption 115,"ARRETER" : font_size 115,12 : on_click 115,arreter
hint 115,"Terminer l'écoute" : inactive 115
memo 120 : parent 120,100 : top 120,50:left 120,550 : width 120,60 : height 120,40
font_size 120, 14 : font_color 120, 0,0,255 : set_focus 120

alpha 200 : parent 200 ,100 : top 200, 180 : left 200,10 : font_size 200, 10
font_color 200, 255,0,255 : font_bold 200

alpha 201 : parent 201 ,100 : top 201, 180 : left 201,210 : font_size 201, 10
font_color 201, 255,0,255 :font_bold 201

alpha 202 : parent 202 ,100 : top 202, 180 : left 202,410 : font_size 202, 10
font_color 202, 255,0,255 :font_bold 202

picture 400 : top 400, 400 : left 400,10 : width 400, 280 :height 400,320 : hide 400

hint 400," DMITRI MENDELEIEV"
container 405 : top 405,10: left 405, 15 : width 405, 170 :height 405, 380
picture 410: parent 410, 405:top 410,10:width 410, 200 : height 410, 200 :hide 410

hint 410 ,"LE PROFESSEUR CBIEN QUI SAIT TOUT ET N'IGNORE RIEN"

alpha 500: parent 500,405 : top 500,220 :left 500,1:font_size 500,12
font_color 500,255,0,0 : font_bold 500
s$ = " LE PROFESSEUR"+nl$+string$(10," ")+ "CBIEN"+ nl$ +" QUI SAIT TOUT"+ nl$
s$ = s$ +" ET N'IGNORE RIEN" : caption 500,s$

alpha 510: parent 510, 405 : top 510,320 :font_size 510,12: font_color 510,0,0,255
font_bold 510 :left 510,1 : caption 510," VOUS PRESENTE"

alpha 520 : top 520,600 : left 520,400: font_size 520,12 : font_color 520,200,0,200
font_bold 520

picture 600 : top 600,450 : left 600,630 : width 600,250 : height 600,250 : hide 600
alpha 700 : top 700,400 : left 700,420 : font_color 700,255,0,0 : font_size 700,12:font_bold 700
picture 800 : top 800,450 : left 800,400 : width 800,250 : height 800,250 : hide 800

image 1000 : ' Pour le tableau de mendeleiev

button 1010 : top 1010,650 :left 1010 ,300 : width 1010,100 : font_size 1010,12 : hide 1010
' ------------------------------------------------------------------------------
gosub init
gosub go
end
' ------------------------------------------------------------------------------

init:
repertoire$ = dir_current$+"\images"
aleat% = int(rnd(8))+1 : ' Tirage aléatoire de l'un des 8 professeurs CBIEN
' QUI_SAIT_TOUT_ET_N'_IGNORE_RIEN
show 410 : file_load 410,repertoire$+ "\CBIEN"+str$(aleat%)+".jpg"
' Charger l'image de Dmitri Mendeleiev
if file_exists(repertoire$+"\DIMendeleevCab.jpg") = 1
show 400 : file_load 400,repertoire$ + "\DIMendeleevCab.jpg"
end_if
' Charger une représentation de l'atome
if file_exists(repertoire$ +"\images.jpg") = 1
show 600 : file_load 600,repertoire$ + "\images.jpg"
end_if
' Chargement du tableau Element$() à partir des lignes DATA
for i% = 1 to NbElement
read Data$
s$ = "" : j% = 1 : k% = len(Data$)
c$ = mid$(data$, j%,1)
' détermination du numéro atomique de l'élément
while c$ <> chr$(32)
s$ = s$ + c$
j% = j% + 1
c$ = mid$(data$,j%,1)
end_while
NumAtom(i%) = val(s$)
' Détremination du nom de l'élement
repeat
s$ = "" : j% = j% + 1
c$ = mid$(data$, j%,1)
until c$ <> chr$(32)
while c$ <> chr$(32)
s$ = s$ + c$
j% = j% + 1
c$ = mid$(data$,j%,1)
end_while
NomElement$(i%) = s$
' determination du symbole de l'élement
repeat
s$ = "" : j% = j% + 1
c$ = mid$(data$, j%,1)
until c$ <> chr$(32)
while c$ <> chr$(32) and j% <= k%
s$ = s$ + c$
j% = j% + 1
c$ = mid$(data$,j%,1)
end_while
Symbole$(i%) = s$
' détermination du point de fusion
repeat
s$ = "" : j% = j% + 1
c$ = mid$(data$, j%,1)
until c$ <> chr$(32)
while c$ <> chr$(32) and j% <= k%
s$ = s$ + c$
j% = j% + 1
c$ = mid$(data$,j%,1)
end_while
PointFusion$(i%) = s$
' determination du point d'ébulition
repeat
s$ = "" : j% = j% + 1
c$ = mid$(data$, j%,1)
until c$ <> chr$(32)
while c$ <> chr$(32) and j% <= k%
s$ = s$ + c$
j% = j% + 1
c$ = mid$(data$,j%,1)
end_while
PointEbulition$(i%) = s$
' détermination des images
repeat
s$ = "" : j% = j% + 1
c$ = mid$(data$, j%,1)
until c$ <> chr$(32)
while c$ <> chr$(32) and j% <= k%
s$ = s$ + c$
j% = j% + 1
c$ = mid$(data$,j%,1)
end_while
image$(i%) = s$
next i%
return
' ------------------------------------------------------------------------------
go:
item_delete 120,1 : ' Effacer le contenu du memo
set_focus 120 : ' Afficher le curseur pour la saisie
i% = int(rnd(NbElement)+1) : ' Choix d'un nombre au hasard de 1 à 118
question$ = NomElement$(i%) : ' Un élément choisi au hasard parmi les 118
caption 103, question$ : ' On pose la question
active 111 : ' Activer le bouton VALIDER
return
' ------------------------------------------------------------------------------
' Ecouter la leçon sur les atomes et la structure atomique
ecouter:
if file_exists(repertoire$ + "\Les_atomes_et_la_structure_atomique.mp3") = 1
set_focus 120 : active 115 : inactive 110 : sound 300
file_load 300,repertoire$ +"\Les_atomes_et_la_structure_atomique.mp3"
play 300
end_if
return
' ------------------------------------------------------------------------------
' Arrêter la leçon
arreter:
inactive 115: active 110 : set_focus 120 : delete 300
return
' ------------------------------------------------------------------------------
' Verifier la réponse et afficher les infos sur l'élement en question
valider:
question% = question% + 1
Reponse$ = item_read$ (120,1)
if Reponse$ = Symbole$(i%)
message " BONNE REPONSE !! BRAVO !!"
BonneReponse% = BonneReponse% + 1
else
message " !! ERREUR !! LA REPONSE EST : " + Symbole$(i%)
end_if
caption 520, "SCORE : " + str$(BonneReponse%)+ " / " + str$(question%)
caption 200,"NUMERO ATOMIQUE " + str$(NumAtom(i%))
caption 201,"POINT DE FUSION " + PointFusion$(i%) + " °C"
caption 202,"POINT D'EBULITION " + PointEbulition$(i%) + " °C"
if image$(i%) <> "" : ' Si l'élement possède une image
file_load 800,repertoire$+"\"+image$(i%) : ' afficher cette image
show 800 : caption 700,NomElement$(i%)
else : hide 800 : caption 700,""
end_if
inactive 111 : active 112
return
' ------------------------------------------------------------------------------
' poursuivre le jeu pour une autre question
continuer:
caption 200,"" : caption 201,"" : caption 202,"" : caption 700,"" : hide 800
gosub go
return
' ------------------------------------------------------------------------------
' Afficher le tableau de Mendeleiev
mendeleiev:

hide 100 : hide 405
if file_exists(repertoire$ +"\tableau.bmp") = 1
file_load 1000,repertoire$ +"\tableau.bmp"
end_if
2d_image_paste 1000,0,0
show 1010
caption 1010,"RETOUR" :on_click 1010,cacher
return
' ------------------------------------------------------------------------------
' Cacher le tableau de Mendeleiev
cacher:

hide 1000 : cls : hide 1010
show 100 : show 405 : active 114 : set_focus 120
return
' ------------------------------------------------------------------------------
' Quitter le programme
quitter:
if message_information_yes_no("VOUS VOULEZ VRAIMENT QUITTER ?") = 1 then terminate
return
' ------------------------------------------------------------------------------

' Liste des 118 éléments chimiques
' ================================
' On dénombre 118 éléments chimiques ayant été observés, dont seulement
' 94 NATURELS qui se rencontrent dans le milieu naturel.
' Le reste (24) sont des éléments ARTIFICIELS.

' N° Nom Symbole Point de point d' image de
' atomique chimique chimique fusion°C ébulition°C l'élement
' ----------------------------------------------------------------------
DATA "89 Actinium Ac 1047 3197"
DATA "47 Argent Ag 961.9 2212 Argent.jpg"
DATA "13 Aluminium Al 660.5 2467 Aluminium.jpg"
DATA "95 Américium Am 994 2607 Americium.jpg"
DATA "18 Argon Ar -189.4 -185.9 Argon.jpg"
DATA "33 Arsenic As 613 XXX Arsenic.jpg"
DATA "85 Astate At 302 337"
DATA "79 Or Au 1064.4 2940 Or.jpg"
DATA "5 Bore B 2300 2550 Bore.jpg"
DATA "56 Baryum Ba 725 1640 Baryum.jpg"
DATA "4 Béryllium Be 1278 2970 Bérylium.jpg"
DATA "107 Bohrium Bh XXX XXX"
DATA "83 Bismuth Bi 271.4 1560 Bismuth.jpg"
DATA "97 Berkélium Bk 986 XXX"
DATA "35 Brome Br -7.3 58.8 Brome.jpg"
DATA "6 Carbone C 3550 4827 Carbone_diamant.jpg"
DATA "20 Calcium Ca 839 1487 Calcium"
DATA "48 Cadmium Cd 321 765 Cadmium.jpg"
DATA "58 Cérium Ce 798 3257 Cérium.jpg"
DATA "98 Californium Cf 900 XXX"
DATA "17 Chlore Cl -101 -34.6 Chlore.jpg"
DATA "96 Curium Cm 1340 XXX"
DATA "112 Copernicium Cn XXX XXX"
DATA "27 Cobalt Co 1495 2870 Cobalt"
DATA "24 Chrome Cr 1857 2482 Chrome.jpg"
DATA "55 Césium Cs 28.4 690"
DATA "29 Cuivre Cu 1083.5 2595 Cuivre.jpg"
DATA "105 Dubnium Db XXX XXX"
DATA "110 Darmstadtium Ds XXX XXX"
DATA "66 Dysprosium Dy 1409 2335 Dysprosium.jpg"
DATA "68 Erbium Er 1522 2510 Erbium.jpg"
DATA "99 Einsteinium Es 860 XXX"
DATA "63 Europium Eu 822 1597 Europium.jpg"
DATA "9 Fluor F -219.6 -188.1"
DATA "26 Fer Fe 1535 2750 Fer.jpg"
DATA "114 Flérovium Fl XXX XXX"
DATA "100 Fermium Fm 1527 XXX"
DATA "87 Francium Fr 27 677"
DATA "31 Gallium Ga 29.8 2403 Gallium.jpg"
DATA "64 Gadolinium Gd 1311 3233 Gadolinium.jpg"
DATA "32 Germanium Ge 937.4 2830 Germanium.jpg"
DATA "1 Hydrogène H -259.1 -252.9 Hydrogène.jpg"
DATA "2 Hélium He -272.2 -268.9"
DATA "72 Hafnium Hf 2150 5400 Hafnium"
DATA "80 Mercure Hg -38.9 356.6 Mercure.jpg"
DATA "67 Holmium Ho 1470 2720"
DATA "108 Hassium Hs XXX XXX"
DATA "53 Iode I 113.5 184.4 Iode.jpg"
DATA "49 Indium In 156.2 2080 Indium.jpg"
DATA "77 Iridium Ir 2410 4130 Iridium.jpg"
DATA "19 Potassium K 63.7 774 Potassium.jpg"
DATA "36 Krypton Kr -156.6 -152.3 Krypton.jpg"
DATA "57 Lanthane La 920 3454 Lanthane.jpg"
DATA "3 Lithium Li 180.5 1317 Lithium.jpg"
DATA "103 Lawrencium Lr 1627 XXX"
DATA "71 Lutétium Lu 1656 3315 Lutétium.jpg"
DATA "116 Livermorium Lv XXX XXX"
DATA "101 Mendélévium Md XXX XXX"
DATA "12 Magnésium Mg 648.8 1107 Magnesium.jpg"
DATA "25 Manganèse Mn 1244 2097 Manganèse.jpg"
DATA "42 Molybdène Mo 2617 5560 Molybdène.jpg"
DATA "109 Meitnerium Mt XXX XXX"
DATA "7 Azote N -209.9 -195.8 Azote.jpg"
DATA "11 Sodium Na 97.8 892 Sodium.jpg"
DATA "41 Niobium Nb 2468 4927 Niobium.jpg"
DATA "60 Néodyme Nd 1010 3127 Néodyme.jpg"
DATA "10 Néon Ne -248.7 -246.1 Néon.jpg"
DATA "28 Nickel Ni 1453 2732 Nickel.jpg"
DATA "102 Nobélium No 827 XXX"
DATA "93 Neptunium Np 640 3902 Neptunium.jpg"
DATA "8 Oxygène O -218.4 -182.9 Oxygène.jpg"
DATA "76 Osmium Os 3045 5027 Osmium.jpg"
DATA "15 Phosphore P 44 280 Phosphore.jpg"
DATA "91 Protactinium Pa 1554 4030"
DATA "82 Plomb Pb 3275 1740 Plomb.jpg"
DATA "46 Palladium Pd 1552 3140 Palladium.jpg"
DATA "61 Prométhium Pm 1080 2730"
DATA "84 Polonium Po 254 962"
DATA "59 Praséodyme Pr 931 3212 Praséodyme.jpg"
DATA "78 Platine Pt 1772 3827 Platine.jpg"
DATA "94 Plutonium Pu 641 3327 Plutonium.jpg"
DATA "88 Radium Ra 700 1140"
DATA "37 Rubidium Rb 39 688 Rubidium.jpg"
DATA "75 Rhénium Re 3180 5627 Rhénium.jpg"
DATA "104 Rutherfordium Rf XXX XXX"
DATA "111 Roentgenium Rg XXX XXX"
DATA "45 Rhodium Rh 1966 3727 Rhodium.jpg"
DATA "86 Radon Rn -71 -61.8"
DATA "44 Ruthénium Ru 2310 3900 Ruthénium.jpg"
DATA "16 Soufre S 113 444.7 Soufre.jpg"
DATA "51 Antimoine Sb 630.7 1750 Antimoine.jpg"
DATA "21 Scandium Sc 1539 2832 Scandium.jpg"
DATA "34 Sélénium Se 217 685 Sélénium.jpg"
DATA "106 Seaborgium Sg XXX XXX"
DATA "14 Silicium Si 1410 2355 Silicium.jpg"
DATA "62 Samarium Sm 1072 1778 Samarium.jpg"
DATA "50 Étain Sn 232 2270 Etain.jpg"
DATA "38 Strontium Sr 769 1384 Strontium.jpg"
DATA "73 Tantale Ta 2996 5425 Tantale.jpg"
DATA "65 Terbium Tb 1360 3041 Terbium.jpg"
DATA "43 Technétium Tc 2172 5030 Technétium.jpg"
DATA "52 Tellure Te 449.6 990 Tellure.jpg"
DATA "90 Thorium Th 1750 4787"
DATA "22 Titane Ti 1660 3260 Titane.jpg"
DATA "81 Thallium Tl 303.6 1457 Thallium.jpg"
DATA "69 Thulium Tm 1545 1727 Thulium.jpg"
DATA "92 Uranium U 1132.4 3818 Uranium.jpg"
DATA "118 Ununoctium Uuo XXX XXX"
DATA "115 Ununpentium Uup XXX XXX"
DATA "117 Ununseptium Uus XXX XXX"
DATA "113 Ununtrium Uut XXX XXX"
DATA "23 Vanadium V 1890 3380 Vanadium.jpg"
DATA "74 Tungstène W 3407 5927 Tungstène.jpg"
DATA "54 Xénon Xe -111.9 -107 Xénon.jpg"
DATA "39 Yttrium Y 1523 3337 Yttrium.jpg"
DATA "70 Ytterbium Yb 824 1193 Ytterbium.jpg"
DATA "30 Zinc Zn 419.6 907 Zinc.jpg"
DATA "40 Zirconium Zr 1852 4377 Zirconium.jpg"
' ==============================================================================
' *** FIN ***

Pour les images, chargez-les sur
http://www.mydrive.ch/
username : panoramicien@papydall_panoramic
password : panoramic123

Fichier : LesElementsChimiques.zip

Bravo ! çà fonctionne !

Maintenant la fenêtre est nickel.

A+

Attention : nickel n’est pas chrome comme a été dit quelque part !

Je "post" ici car c'est plus en relation avec ce sujet... Wink

Tu pourrais nous faire une version avec une interface différente
grâce aux avancées sur la souris... Laughing

Ma souris à moi n’a pas avancé d’un iota.
Mais je suis sur un autre programme quasi similaire (l’interface je veux dire) sur les pays du monde et leurs capitales.

» Symboles avec le clavier
» Insertion d'icônes rudimentaires (symboles) dans un objet
» Ptit caprice à propos des symboles non latin de base
» Les pays du monde et leurs capitales
» Mélanger les éléments d’un tableau trié