Wollte euch mal mein erstes komplett von mir geschriebenes AutoIt Programm vorstellen. Es heißt voll ausgeschrieben Periodensysteminformationsprogramm(Kurzschreibung: PSI). Es soll vorallem Schüler und Leuten helfen die das Periodensystem der Element in Chemie nicht auswendig lernen wollen(Atommasse,Ordnungszahl, u.s.w.). Es zeigt im Moment zwar nur den Namen, Aggragatzustand, Atommasse und Radioaktivität (falls vorhanden) an, aber ich werde es bestimmt noch mit mehr Informationen versorgen. Ein kleines Problem besteht zwar(Man kann im Moment nur Abkürzungen von Elementen verwenden) , aber das werde ich auch hinkriegen.
Geplant sind im moment die Ordnungszahlen und die Eingabe vom kompletten Namen.
Der Link zum Programm:
http://cid-4b3c5f417a0b793b.skydrive.live.com/self.aspx/Tools/PSI|_1.0.exe
Bitte um eure Meinung
EDIT: Hier dann der Skript. Er ist zwar sehr umständlich aber funktioniert.
Spoiler anzeigen
HotKeySet ("F12","Exit1")
[/autoit] [autoit][/autoit] [autoit]Global $Exit1 = "Exit"
Global $H = "H"
Global $He = "He"
Global $Li = "Li"
Global $Be = "Be"
Global $B = "B"
Global $C = "C"
Global $N = "N"
Global $O = "O"
Global $F = "F"
Global $Ne = "Ne"
Global $Na = "Na"
Global $Mg = "Mg"
Global $Al = "Al"
Global $Si = "Si"
Global $P = "P"
Global $S = "S"
Global $Cl = "Cl"
Global $Ar = "Ar"
Global $K = "K"
Global $Ca = "Ca"
Global $Sc = "Sc"
Global $Ti = "Ti"
Global $V = "V"
Global $Cr = "Cr"
Global $Mn = "Mn"
Global $Fe = "Fe"
Global $Co = "Co"
Global $Ni = "Ni"
Global $Cu = "Cu"
Global $Zn = "Zn"
Global $Ga = "Ga"
Global $Ge = "Ge"
Global $As = "As"
Global $Se = "Se"
Global $Br = "Br"
Global $Kr = "Kr"
Global $Rb = "Rb"
Global $Sr = "Sr"
Global $Y = "Y"
Global $Zr = "Zr"
Global $Nb = "Nb"
Global $Mo = "Mo"
Global $Tc = "Tc"
Global $Ru = "Ru"
Global $Rh = "Rh"
Global $Pd = "Pd"
Global $Ag = "Ag"
Global $Cd = "Cd"
Global $In = "In"
Global $Sn = "Sn"
Global $Sb = "Sb"
Global $Te = "Te"
Global $I = "I"
Global $Xe = "Xe"
Global $Cs = "Cs"
Global $Ba = "Ba"
Global $La = "La"
Global $Ce = "Ce"
Global $Pr = "Pr"
Global $Nd = "Nd"
Global $Pm = "Pm"
Global $Sm = "Sm"
Global $Eu = "Eu"
Global $Gd = "Gd"
Global $Tb = "Tb"
Global $Dy = "Dy"
Global $Ho = "Ho"
Global $Er = "Er"
Global $Tm = "Tm"
Global $Yb = "Yb"
Global $Lu = "Lu"
Global $Hf = "Hf"
Global $Ta = "Ta"
Global $W = "W"
Global $Re = "Re"
Global $Os = "Os"
Global $Ir = "Ir"
Global $Pt = "Pt"
Global $Au = "Au"
Global $Hg = "Hg"
Global $Tl = "Tl"
Global $Pb = "Pb"
Global $Bi = "Bi"
Global $Po = "Po"
Global $At = "At"
Global $Rn = "Rn"
Global $Fr = "Fr"
Global $Ra = "Ra"
Global $Ac = "Ac"
Global $Th = "Th"
Global $Pa = "Pa"
Global $U = "U"
Global $Np = "Np"
Global $Pu = "Pu"
Global $Am = "Am"
Global $Cm = "Cm"
Global $Bk = "Bk"
Global $Cf = "Cf"
Global $Es = "Es"
Global $Fm = "Fm"
Global $Md = "Md"
Global $No = "No"
Global $Lr = "Lr"
Global $Rf = "Rf"
Global $Db = "Db"
Global $Sg = "Sg"
Global $Bh = "Bh"
Global $Hs = "Hs"
Global $Mt = "Mt"
Global $Ds = "Ds"
WinMinimizeAll ()
MsgBox (1, "Willkommen", "Willkommen und vielen Dank das sie mein Periodensysteminformationsprogramm benutzen. Für Bewertungen (egal ob negativ, positiv oder sonstiges) bitte eine E-Mail an Conan10@live.de")
While (2)
$EA1 = InputBox ("Periodensysteminformation","Bitte geben sie die Abkürzung eines Elements ein, z.B. Cl für Chlor. Exit zum Beenden. Hinweis: Angaben in Klammern bei Atommasse = Kein zuverlässiger Messwert verfügbar", "","")
If $EA1 = $H Then
MsgBox (1, "Wasserstoff", "Wasserstoff: Gasförmig, Atommasse: 1,01u")
ElseIf $EA1 = $He Then
MsgBox (1, "Helium", "Helium: Gasförmig, Atommasse: 4u")
ElseIf $EA1 = $Li Then
MsgBox (1, "Lithium", "Lithium: Fest, Atommasse: 6,94u")
ElseIf $EA1 = $Be Then
MsgBox (1, "Beryllium", "Beryllium: Fest, Atommasse: 9,01u")
ElseIf $EA1 = $B Then
MsgBox (1, "Bor", "Bor: Fest, Atommasse: 10,81u")
ElseIf $EA1 = $C Then
MsgBox (1, "Kohlenstoff", "Kohlenstoff: Fest, Atommasse: 12,01u")
ElseIf $EA1 = $N Then
MsgBox (1, "Stickstoff", "Stickstoff: Gasförmig, Atommasse: 14,01u")
ElseIf $EA1 = $O Then
MsgBox (1, "Sauerstoff", "Sauerstoff: Gasförmig, Atommasse: 15,999u")
ElseIf $EA1 = $F Then
MsgBox (1, "Fluor", "Flour: Gasförmig, Atommasse: 18,998u")
ElseIf $EA1 = $Ne Then
MsgBox (1, "Neon", "Neon: Gasförmig, Atommasse: 20,18u")
ElseIf $EA1 = $Na Then
MsgBox (1, "Natrium", "Natrium: Fest, Atommasse: 22,99u")
ElseIf $EA1 = $Mg Then
MsgBox (1, "Magnesium", "Magnesium: Fest, Atommasse: 24,31u")
ElseIf $EA1 = $Al Then
MsgBox (1, "Aluminium", "Aluminium: Fest, Atommasse: 26,98u")
ElseIf $EA1 = $Si Then
MsgBox (1, "Silicium", "Silicium: Fest, Atommasse: 28,09u")
ElseIf $EA1 = $P Then
MsgBox (1, "Phosphor", "Phosphor: Fest, Atommasse: 30,97u")
ElseIf $EA1 = $S Then
MsgBox (1, "Schwefel", "Schwefel: Fest, Atommasse: 32,07u")
ElseIf $EA1 = $Cl Then
MsgBox (1, "Chlor", "Chlor: Gasförmig, Atommasse: 35,45u")
ElseIf $EA1 = $Ar Then
MsgBox (1, "Argon", "Argon: Gasförmig, Atommasse: 39,95u")
ElseIf $EA1 = $K Then
MsgBox (1, "Kalium", "Kalium: Fest, Atommasse: 39,10u")
ElseIf $EA1 = $Ca Then
MsgBox (1, "Calcium", "Calcium: Fest, Atommasse: 40,08u")
ElseIf $EA1 = $Sc Then
MsgBox (1, "Scandium", "Scandium: Fest(unter Normalbedingungen), Atommasse: 44,96u")
ElseIf $EA1 = $Ti Then
MsgBox (1, "Titan", "Titan: Fest(unter Normalbedingungen), Atommasse: 47,88u")
ElseIf $EA1 = $V Then
MsgBox (1, "Vanadium", "Vanadium: Fest(unter Normalbedingungen), Atommasse: 50,94u")
ElseIf $EA1 = $Cr Then
MsgBox (1, "Chrom", "Chrom: Fest(unter Normalbedingungen), Atommasse: 52,0u")
ElseIf $EA1 = $Mn Then
MsgBox (1, "Mangan", "Mangan: Fest(unter Normalbedingungen), Atommasse: 54,94u")
ElseIf $EA1 = $Fe Then
MsgBox (1, "Eisen", "Eisen: Fest(unter Normalbedingungen), Atommasse: 55,85u")
ElseIf $EA1 = $Co Then
MsgBox (1, "Cobalt", "Cobalt: Fest(unter Normalbedingungen), Atommasse: 58,93")
ElseIf $EA1 = $Ni Then
MsgBox (1, "Nickel", "Nickel: Fest(unter Normalbedingungen), Atommasse: 58,7u")
ElseIf $EA1 = $Cu Then
MsgBox (1, "Kupfer", "Kupfer: Fest(unter Normalbedingungen), Atommasse: 63,55u")
ElseIf $EA1 = $Zn Then
MsgBox (1, "Zink", "Zink: Fest(unter Normalbedingungen), Atommasse: 65,38u")
ElseIf $EA1 = $Ga Then
MsgBox (1, "Gallium", "Gallium: Fest, Atommasse: 69,72u")
ElseIf $EA1 = $Ge Then
MsgBox (1, "Germanium", "Germanium: Fest, Atommasse: 72,61")
ElseIf $EA1 = $As Then
MsgBox (1, "Arsen", "Arsen: Fest, Atommasse: 74,92")
ElseIf $EA1 = $Se Then
MsgBox (1, "Selen", "Selen: Fest, Atommasse: 78,96")
ElseIf $EA1 = $Br Then
MsgBox (1, "Brom", "Brom: Flüssig, Atommasse: 79,90u")
ElseIf $EA1 = $Kr Then
MsgBox (1, "Krypton", "Krypton: Gasförmig, Atommasse: 83,80u")
ElseIf $EA1 = $Rb Then
MsgBox (1, "Rubidium", "Rubidium: Fest, Atommasse: 85,47u")
ElseIf $EA1 = $Sr Then
MsgBox (1, "Strontium", "Strontium: Fest, Atommasse: 87,52u")
ElseIf $EA1 = $Y Then
MsgBox (1, "Yttrium", "Yttrium: Fest(unter Normalbedingungen), Atommasse: 88,91u")
ElseIf $EA1 = $Zr Then
MsgBox (1, "Zirconium", "Zirconium: Fest(unter Normalbedingungen), Atommasse: 91,22u")
ElseIf $EA1 = $Nb Then
MsgBox (1, "Niob", "Niob: Fest(unter Normalbedingungen), Atommasse: 92,91u")
ElseIf $EA1 = $Mo Then
MsgBox (1, "Molybdän", "Molybdän: Fest(unter Normalbedingungen), Atommasse: 95,94u")
ElseIf $EA1 = $TC Then
MsgBox (1, "Technetium", "Technetium: Fest(unter Normalbedingungen), Atommasse: (98)u, ACHTUNG:Radioaktiv!!")
ElseIf $EA1 = $Ru Then
MsgBox (1, "Ruthenium", "Ruthenium: Fest(unter Normalbedingungen), Atommasse: 101,07u")
ElseIf $EA1 = $Rh Then
MsgBox (1, "Rohdium", "Rohdium: Fest(unter Normalbedingungen), Atommasse: 102,91u")
ElseIf $EA1 = $Pd Then
MsgBox (1, "Palladium", "Palladium: Fest(unter Normalbedingungen), Atommasse: 106,42u")
ElseIf $EA1 = $Ag Then
MsgBox (1, "Silber", "Silber: Fest(unter Normalbedingungen), Atommasse: 107,87u")
ElseIf $EA1 = $Cd Then
MsgBox (1, "Cadmium", "Cadmium: Fest(unter Normalbedingungen), Atommasse: 112,41u")
ElseIf $EA1 = $In Then
MsgBox (1, "Indium", "Indium: Fest, Atommasse: 114,82u")
ElseIf $EA1 = $Sn Then
MsgBox (1, "Zinn", "Zinn: Fest, Atommasse: 118,71u")
ElseIf $EA1 = $Sb Then
MsgBox (1, "Antimon", "Antimon: Fest, Atommasse: 121,76u")
ElseIf $EA1 = $Te Then
MsgBox (1, "Tellur", "Tellur: Fest, Atommasse: 127,60u")
ElseIf $EA1 = $I Then
MsgBox (1, "Iod", "Iod: Fest, Atommasse: 126,90u")
ElseIf $EA1 = $Xe Then
MsgBox (1, "Xenon", "Xenon: Gasförmig, Atommasse: 131,29u")
ElseIf $EA1 = $Cs Then
MsgBox (1, "Cäsium", "Cäsium: Fest, Atommasse: 132,91u")
ElseIf $EA1 = $Ba Then
MsgBox (1, "Barium", "Barium: Fest, Atommasse: 137,33u")
ElseIf $EA1 = $La Then
MsgBox (1, "Lanthan", "Lanthan: Fest, Atommasse: 138,91u")
ElseIf $EA1 = $Ce Then
MsgBox (1, "Cer", "Cer: Fest, Atommasse: 140,12u")
ElseIf $EA1 = $Pr Then
MsgBox (1, "Praseodym", "Praseodym: Fest, Atommasse: 144,24u")
ElseIf $EA1 = $Nd Then
MsgBox (1, "Neodym", "Neodym: Fest, Atommasse: 144,24u")
ElseIf $EA1 = $Pm Then
MsgBox (1, "Promethium", "Promethium: Fest(unter Normalbedingungen), Atommasse: (145)u, ACHTUNG:Radioaktiv!!")
ElseIf $EA1 = $Sm Then
MsgBox (1, "Samarium", "Samarium: Fest, Atommasse: 150,36u")
ElseIf $EA1 = $Eu Then
MsgBox (1, "Europium", "Europium: Fest, Atommasse: 151,97u")
ElseIf $EA1 = $Gd Then
MsgBox (1, "Gadolinium", "Gadolinium: Fest, Atommasse: 157,97u")
ElseIf $EA1 = $Tb Then
MsgBox (1, "Terbium", "Terbium: Fest, Atommasse: 158,93u")
ElseIf $EA1 = $Dy Then
MsgBox (1, "Dysprosium", "Dysprosium: Fest, Atommasse: 162,50u")
ElseIf $EA1 = $Ho Then
MsgBox (1, "Holmium", "Holmium: Fest, Atommasse: 164,93u")
ElseIf $EA1 = $Er Then
MsgBox (1, "Erbium", "Erbium: Fest, Atommasse: 167,26u")
ElseIf $EA1 = $Tm Then
MsgBox (1, "Thulium", "Thulium: Fest, Atommasse: 168,93u")
ElseIf $EA1 = $Yb Then
MsgBox (1, "Ytterbium", "Ytterbium: Fest, Atommasse: 173,04u")
ElseIf $EA1 = $Lu Then
MsgBox (1, "Lutetium", "Lutetium: Fest, Atommasse: 174,97")
ElseIf $EA1 = $Hf Then
MsgBox (1, "Hafnium", "Hafnium: Fest, Atommasse: 178,49")
ElseIf $EA1 = $Ta Then
MsgBox (1, "Tantal", "Tantal: Fest, Atommasse: 180,95u")
ElseIf $EA1 = $W Then
MsgBox (1, "Wolfram", "Wolfram: Fest, Atommasse: 183,84u")
ElseIf $EA1 = $Re Then
MsgBox (1, "Rhenium", "Rhenium: Fest, Atommasse: 186,21u")
ElseIf $EA1 = $Os Then
MsgBox (1, "Osmium", "Osmium: Fest, Atommasse: 190,23u")
ElseIf $EA1 = $Ir Then
MsgBox (1, "Iridium", "Iridium: Fest, Atommasse: 192,22u")
ElseIf $EA1 = $Pt Then
MsgBox (1, "Platin", "Platin: Fest, Atommasse: 195,08u")
ElseIf $EA1 = $Au Then
MsgBox (1, "Gold", "Gold: Fest, Atommasse: 196,97u")
ElseIf $EA1 = $Hg Then
MsgBox (1, "Quecksilber", "Quecksilber: Flüssig, Atommasse: 200,59u")
ElseIf $EA1 = $Tl Then
MsgBox (1, "Thallium", "Thallium: Fest, Atommasse: 204,38u")
ElseIf $EA1 = $Pb Then
MsgBox (1, "Blei", "Blei: Fest, Atommasse: 207,20u")
ElseIf $EA1 = $Bi Then
MsgBox (1, "Bismut", "Bismut: Fest, Atommasse: 208,98u")
ElseIf $EA1 = $Po Then
MsgBox (1, "Polonium", "Polonium: Fest, Atommasse: (209)u, ACHTUNG: Radioaktiv!!!")
ElseIf $EA1 = $AT Then
MsgBox (1, "Astat", "Astat: Fest, Atommasse: (210)u, ACHTUNG: Radioaktiv!!!")
ElseIf $EA1 = $Rn Then
MsgBox (1, "Radon", "Radon: Fest, Atommasse: (222)u, ACHTUNG: Radioaktiv!!!")
ElseIf $EA1 = $Fr Then
MsgBox (1, "Francium", "Francium: Fest, Atommasse: (223)u, ACHTUNG: Radioaktiv!!!")
ElseIf $EA1 = $Ra Then
MsgBox (1, "Radium", "Radium: Fest, Atommasse: (226)u, ACHTUNG: Radioaktiv!!!")
ElseIf $EA1 = $Ac Then
MsgBox (1, "Actinium", "Actinium: Fest, Atommasse: 227,03u, ACHTUNG: Radioaktiv!!!")
ElseIf $EA1 = $Th Then
MsgBox (1, "Thorium", "Thorium: Fest, Atommasse: 232,04u, ACHTUNG: Radioaktiv!!!")
ElseIf $EA1 = $Pa Then
MsgBox (1, "Protactinium", "Protactinium: Fest, Atommasse: 231,03, ACHTUNG: Radioaktiv!!!")
ElseIf $EA1 = $U Then
MsgBox (1, "Uran", "Uran: Fest, Atommasse: 238,03u, ACHTUNG: Radioaktiv!!!")
ElseIf $EA1 = $Np Then
MsgBox (1, "Neptunium", "Neptunium: Fest, Atommasse: (237), ACHTUNG: Radioaktiv!!!")
ElseIf $EA1 = $Pu Then
MsgBox (1, "Plutonium", "Plutonium: Fest, Atommasse: (244)u, ACHTUNG: Radioaktiv!!!")
ElseIf $EA1 = $Am Then
MsgBox (1, "Americum", "Americum: Fest, Atommasse: (243)u, ACHTUNG: Radioaktiv!!!")
ElseIf $EA1 = $Cm Then
MsgBox (1, "Curium", "Curium: Fest, Atommasse: (247)u, ACHTUNG: Radioaktiv!!!")
ElseIf $EA1 = $Bk Then
MsgBox (1, "Berkelium", "Berkelium: Fest, Atommasse: (247)u, ACHTUNG: Radioaktiv!!!")
ElseIf $EA1 = $Cf Then
MsgBox (1, "Californium", "Californium: Fest, Atommasse: (251)u, ACHTUNG: Radioaktiv!!!")
ElseIf $EA1 = $Es Then
MsgBox (1, "Einsteinium", "Einsteinium: Fest, Atommasse: (252)u, ACHTUNG: Radioaktiv!!!")
ElseIf $EA1 = $Fm Then
MsgBox (1, "Fermium", "Fermium: Fest, Atommasse: (257)u, ACHTUNG: Radioaktiv!!!")
ElseIf $EA1 = $Md Then
MsgBox (1, "Mendelevium", "Mendelevium: Fest, Atommasse: (258)u, ACHTUNG: Radioaktiv!!!")
ElseIf $EA1 = $No Then
MsgBox (1, "Nobelium", "Nobelium: Fest, Atommasse: (259)u, ACHTUNG: Radioaktiv!!!")
ElseIf $EA1 = $Lr Then
MsgBox (1, "Lawrencium", "Lawrencium: Fest, Atommasse: (260)u, ACHTUNG: Radioaktiv!!!")
ElseIf $EA1 = $Rf Then
MsgBox (1, "Rutherfordium", "Rutherfordium: Fest, Atommasse: (261)u, ACHTUNG: Radioaktiv!!!")
ElseIf $EA1 = $Db Then
MsgBox (1, "Dubnium", "Dubnium: Fest, Atommasse: (262)u, ACHTUNG: Radioaktiv!!!")
ElseIf $EA1 = $Sg Then
MsgBox (1, "Seaborgium", "Seaborgium: Fest, Atommasse: (263)u, ACHTUNG: Radioaktiv!!!")
ElseIf $EA1 = $Bh Then
MsgBox (1, "Bohrium", "Bohrium: Fest, Atommasse: (262)u, ACHTUNG: Radioaktiv!!!")
ElseIf $EA1 = $Hs Then
MsgBox (1, "Hassium", "Hassium: Fest, Atommasse: (265)u, ACHTUNG: Radioaktiv!!!")
ElseIf $EA1 = $Mt Then
MsgBox (1, "Meitnerium", "Meitnerium: Fest, Atommasse: (266)u, ACHTUNG: Radioaktiv!!!")
ElseIf $EA1 = $Ds Then
MsgBox (1, "Darmstadtium", "Darmstadtium: Fest, Atommasse: (269)u, ACHTUNG: Radioaktiv!!!")
Else
$EA1= $Exit1
MsgBox (1, "Vielen Dank!!","Vielen Dank das sie mein Programm benutzt haben. Ursachen für das Beenden des Programmes könnten sein: -Falsche Eingabe -Manuelles Beenden")
Exit
EndIf
WEnd
Func Exit1 ()
Exit
EndFunc
P.S.: Geplant werden auch noch mehr Informationen, die auch durch das Periodensystem nicht erkennbar sind.