Bestimmten Teil wiederholen

Conan10

Hallo alle zusammen

Habe folgendes Problem, wo ich mir den Kopf drüber zerbreche . Und zwar soll der Script an einer bestimmten Stelle in der If-Schleife wieder zu einem bestimmten Stelle springen. Ich habe viel von goto gehört, aber das es jetzt nicht mehr geht. Kennt jemand noch eine andere Alternative.

Kurze Angabe von wo nach wo:

Spoiler anzeigen

[autoit]

Global $H = "H"
Global $He = "He"
;....
Msgbox(1,"","")

[/autoit] [autoit][/autoit] [autoit]

EA1 = Inputbox("","","","") <- Nach hier

[/autoit] [autoit][/autoit] [autoit]

If $EA1 = $H Then
MsgBox (1, "Wasserstoff", "Wasserstoff: Ordnungszahl:1, Gasförmig, Atommasse: 1,01u")

ElseIf $EA1 = $HGanz Then
MsgBox (1, "Wasserstoff", "Wasserstoff(H): Ordnungszahl:1, Gasförmig, Atommasse: 1,01u")
;...

[/autoit] [autoit][/autoit] [autoit]

Else
$EA1= $Exit1
MsgBox (1, "","")
Exit <- Von hier

[/autoit] [autoit][/autoit] [autoit][/autoit]

franzp

anstatt goto benutzt man eigentlich Func...EndFunc

schau mal in der Hilfe.

Conan10

Danke erstmal für deine schnelle Antwort werde es mal ausprobieren

**Oscar**

Nein, bitte nicht Funktionen als GoTo-Ersatz missbrauchen!
Das ist nicht nur ein unsauberer Programmierstil, sondern führt auch schnell zum fehlerhaften beenden Deines Scripts.

Stattdessen verwendet man Schleifen:
- While...WEnd
- Do...Until
- For...Next
Je nachdem, ob und wie oft die Schleife durchlaufen werden soll.

Eine Endlos-Schleife läßt sich z.B. mit

[autoit]

While True
; Jede Menge Befehle
WEnd

[/autoit]

erzeugen. So kannst Du auch Deine Befehle einfassen.

franzp

hab ich wohl falsch verstanden. Ich dachter er befindetsich bereits in einer Schleife..

wenn ich google finde ich das hier dazu:
http://www.autoit.de/dokumentation/faq.htm#4

Conan10

Danke für eure Hilfe. Hoffe ich werde es so umsetzen können.

Conan10

Habe es jetzt viele Male probiert, kriege es aber nicht auf die Reihe . Könnte mir jemand das dann in den script einbauen??

Der Script lautet wie folgt:

Spoiler anzeigen

[autoit]

HotKeySet ("F12","Exit1")
;Variablen:
Global $Exit1 = "Exit"
Global $H = "H"
Global $HGanz = "Wasserstoff"
Global $He = "He"
Global $HeGanz = "Helium"
Global $Li = "Li"
Global $LiGanz = "Lithium"
Global $Be = "Be"
Global $BeGanz = "Beryllium"
Global $B = "B"
Global $BGanz = "Bor"
Global $C = "C"
Global $CGanz = "Kohlenstoff"
Global $N = "N"
Global $NGanz = "Stickstoff"
Global $O = "O"
Global $OGanz = "Sauerstoff"
Global $F = "F"
Global $FGanz = "Fluor"
Global $Ne = "Ne"
Global $NeGanz = "Neon"
Global $Na = "Na"
Global $NaGanz = "Natrium"
Global $Mg = "Mg"
Global $MgGanz = "Magnesium"
Global $Al = "Al"
Global $AlGanz = "Aluminium"
Global $Si = "Si"
Global $SiGanz = "Silicium"
Global $P = "P"
Global $PGanz = "Phosphor"
Global $S = "S"
Global $SGanz = "Schwefel"
Global $Cl = "Cl"
Global $ClGanz = "Chlor"
Global $Ar = "Ar"
Global $ArGanz = "Argon"
Global $K = "K"
Global $KGanz = "Kalium"
Global $Ca = "Ca"
Global $CaGanz = "Calcium"
Global $Sc = "Sc"
Global $ScGanz = "Scandium"
Global $Ti = "Ti"
Global $TiGanz = "Titan"
Global $V = "V"
Global $VGanz = "Vanadium"
Global $Cr = "Cr"
Global $CrGanz = "Chrom"
Global $Mn = "Mn"
Global $MnGanz = "Mangan"
Global $Fe = "Fe"
Global $FeGanz = "Eisen"
Global $Co = "Co"
Global $CoGanz = "Cobalt"
Global $Ni = "Ni"
Global $NiGanz = "Nickel"
Global $Cu = "Cu"
Global $CuGanz = "Kupfer"
Global $Zn = "Zn"
Global $ZnGanz = "Zink"
Global $Ga = "Ga"
Global $GaGanz = "Gallium"
Global $Ge = "Ge"
Global $GeGanz = "Germanium"
Global $As = "As"
Global $AsGanz = "Arsen"
Global $Se = "Se"
Global $SeGanz = "Selen"
Global $Br = "Br"
Global $BrGanz = "Brom"
Global $Kr = "Kr"
Global $KrGanz = "Krypton"
Global $Rb = "Rb"
Global $RbGanz = "Rubidium"
Global $Sr = "Sr"
Global $SrGanz = "Strontium"
Global $Y = "Y"
Global $YGanz = "Yttrium"
Global $Zr = "Zr"
Global $ZrGanz = "Zirconium"
Global $Nb = "Nb"
Global $NbGanz = "Niob"
Global $Mo = "Mo"
Global $MoGanz = "Molybdän"
Global $Tc = "Tc"
Global $TcGanz = "Technetium"
Global $Ru = "Ru"
Global $RuGanz = "Ruthenium"
Global $Rh = "Rh"
Global $RhGanz = "Rhodium"
Global $Pd = "Pd"
Global $PdGanz = "Palladium"
Global $Ag = "Ag"
Global $AgGanz = "Silber"
Global $Cd = "Cd"
Global $CdGanz = "Cadmium"
Global $In = "In"
Global $InGanz = "Indium"
Global $Sn = "Sn"
Global $SnGanz = "Zinn"
Global $Sb = "Sb"
Global $SbGanz = "Antimon"
Global $Te = "Te"
Global $TeGanz = "Tellur"
Global $I = "I"
Global $IGanz = "Iod"
Global $Xe = "Xe"
Global $XeGanz = "Xenon"
Global $Cs = "Cs"
Global $CsGanz = "Cäsium"
Global $Ba = "Ba"
Global $BaGanz = "Barium"
Global $La = "La"
Global $LaGanz = "Lanthan"
Global $Ce = "Ce"
Global $CeGanz = "Cer"
Global $Pr = "Pr"
Global $PrGanz = "Praseodym"
Global $Nd = "Nd"
Global $NdGanz = "Neodym"
Global $Pm = "Pm"
Global $PmGanz = "Promethium"
Global $Sm = "Sm"
Global $SmGanz = "Samarium"
Global $Eu = "Eu"
Global $EuGanz = "Europium"
Global $Gd = "Gd"
Global $GdGanz = "Gadolinium"
Global $Tb = "Tb"
Global $TbGanz = "Terbium"
Global $Dy = "Dy"
Global $DyGanz = "Dysprosium"
Global $Ho = "Ho"
Global $HoGanz = "Holmium"
Global $Er = "Er"
Global $ErGanz = "Erbium"
Global $Tm = "Tm"
Global $TmGanz = "Thulium"
Global $Yb = "Yb"
Global $YbGanz = "Ytterbium"
Global $Lu = "Lu"
Global $LuGanz = "Lutetium"
Global $Hf = "Hf"
Global $HfGanz = "Hafnium"
Global $Ta = "Ta"
Global $TaGanz = "Tantal"
Global $W = "W"
Global $WGanz = "Wolfram"
Global $Re = "Re"
Global $ReGanz = "Rhenium"
Global $Os = "Os"
Global $OsGanz = "Osmium"
Global $Ir = "Ir"
Global $IrGanz = "Iridium"
Global $Pt = "Pt"
Global $PtGanz = "Platin"
Global $Au = "Au"
Global $AuGanz = "Gold"
Global $Hg = "Hg"
Global $HgGanz = "Quecksilber"
Global $Tl = "Tl"
Global $TlGanz = "Thallium"
Global $Pb = "Pb"
Global $PbGanz = "Blei"
Global $Bi = "Bi"
Global $BiGanz = "Bismut"
Global $Po = "Po"
Global $PoGanz = "Polonium"
Global $At = "At"
Global $AtGanz = "Astat"
Global $Rn = "Rn"
Global $RnGanz = "Radon"
Global $Fr = "Fr"
Global $FrGanz = "Francium"
Global $Ra = "Ra"
Global $RaGanz = "Radium"
Global $Ac = "Ac"
Global $AcGanz = "Actinium"
Global $Th = "Th"
Global $ThGanz = "Thorium"
Global $Pa = "Pa"
Global $PaGanz = "Protactium"
Global $U = "U"
Global $UGanz = "Uran"
Global $Np = "Np"
Global $NpGanz = "Neptunium"
Global $Pu = "Pu"
Global $PuGanz = "Plutonium"
Global $Am = "Am"
Global $AmGanz = "Americium"
Global $Cm = "Cm"
Global $CmGanz = "Curium"
Global $Bk = "Bk"
Global $BkGanz = "Berkelium"
Global $Cf = "Cf"
Global $CfGanz = "Californium"
Global $Es = "Es"
Global $EsGanz = "Einsteinium"
Global $Fm = "Fm"
Global $FmGanz = "Fermium"
Global $Md = "Md"
Global $MdGanz = "Mendelevium"
Global $No = "No"
Global $NoGanz = "Nobelium"
Global $Lr = "Lr"
Global $LrGanz = "Lawrencium"
Global $Rf = "Rf"
Global $RfGanz = "Rutherfordium"
Global $Db = "Db"
Global $DbGanz = "Dubnium"
Global $Sg = "Sg"
Global $SgGanz = "Seaborgium"
Global $Bh = "Bh"
Global $BhGanz = "Bohrium"
Global $Hs = "Hs"
Global $HsGanz = "Hassium"
Global $Mt = "Mt"
Global $MtGanz = "Meitnerium"
Global $Ds = "Ds"
Global $DsGanz = "Darmstadtium"
Global $Rg = "Rg"
Global $RgGanz = "Roentgenium"
Global $Uub = "Uub"
Global $UubGanz = "Ununbium"
Global $Uut = "Uut"
Global $UutGanz = "Ununtrium"
Global $Uuq = "Uuq"
Global $UuqGanz = "Ununquadium"
Global $Uup = "Uup"
Global $UupGanz = "Ununpentium"
Global $Uuh = "Uuh"
Global $UuhGanz = "Ununhexium"
Global $Uus = "Uus"
Global $UusGanz = "Ununseptium"
Global $Uuo = "Uuo"
Global $UuoGanz = "Ununoctium"

[/autoit] [autoit][/autoit] [autoit]

WinMinimizeAll ()

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

While (2)

$EA1 = InputBox ("Periodensysteminformation","Bitte geben sie den Namen oder die Abkürzung eines Elements ein, z.B. B oder Bor. Exit zum Beenden. Hinweis: Angaben in Klammern bei Atommasse = Kein zuverlässiger Messwert verfügbar", "","")

[/autoit] [autoit][/autoit] [autoit]

If $EA1 = $H Then
MsgBox (1, "Wasserstoff", "Wasserstoff: Ordnungszahl:1, Gasförmig, Atommasse: 1,01u")

ElseIf $EA1 = $HGanz Then
MsgBox (1, "Wasserstoff", "Wasserstoff(H): Ordnungszahl:1, Gasförmig, Atommasse: 1,01u")

ElseIf $EA1 = $He Then
MsgBox (1, "Helium", "Helium: Ordnungszahl:2, Gasförmig, Atommasse: 4u")

ElseIf $EA1 = $HeGanz Then
MsgBox (1, "Helium", "Helium(He): Ordnungszahl:2, Gasförmig, Atommasse: 4u")

ElseIf $EA1 = $Li Then
MsgBox (1, "Lithium", "Lithium: Ordnungszahl:3, Fest, Atommasse: 6,94u")

ElseIf $EA1 = $LiGanz Then
MsgBox (1, "Lithium", "Lithium(Li): Ordnungszahl:3, Fest, Atommasse: 6,94u")

ElseIf $EA1 = $Be Then
MsgBox (1, "Beryllium", "Beryllium: Ordnugszahl:4, Fest, Atommasse: 9,01u")

ElseIf $EA1 = $BeGanz Then
MsgBox (1, "Beryllium", "Beryllium(Be): Ordnugszahl:4, Fest, Atommasse: 9,01u")

ElseIf $EA1 = $B Then
MsgBox (1, "Bor", "Bor: Ordnungszahl:5, Fest, Atommasse: 10,81u")

ElseIf $EA1 = $BGanz Then
MsgBox (1, "Bor", "Bor(B): Ordnungszahl:5, Fest, Atommasse: 10,81u")

ElseIf $EA1 = $C Then
MsgBox (1, "Kohlenstoff", "Kohlenstoff: Ordnungszahl:6, Fest, Atommasse: 12,01u")

ElseIf $EA1 = $CGanz Then
MsgBox (1, "Kohlenstoff", "Kohlenstoff(C): Ordnungszahl:6, Fest, Atommasse: 12,01u")

ElseIf $EA1 = $N Then
MsgBox (1, "Stickstoff", "Stickstoff: Ordnungszahl:7, Gasförmig, Atommasse: 14,01u")

ElseIf $EA1 = $NGanz Then
MsgBox (1, "Stickstoff", "Stickstoff(N): Ordnungszahl:7, Gasförmig, Atommasse: 14,01u")

ElseIf $EA1 = $O Then
MsgBox (1, "Sauerstoff", "Sauerstoff: Ordnungszahl:8, Gasförmig, Atommasse: 15,999u")

ElseIf $EA1 = $OGanz Then
MsgBox (1, "Sauerstoff", "Sauerstoff(O): Ordnungszahl:8, Gasförmig, Atommasse: 15,999u")

ElseIf $EA1 = $F Then
MsgBox (1, "Fluor", "Flour: Ordnungszahl:9, Gasförmig, Atommasse: 18,998u")

ElseIf $EA1 = $FGanz Then
MsgBox (1, "Fluor", "Flour(F): Ordnungszahl:9, Gasförmig, Atommasse: 18,998u")

ElseIf $EA1 = $Ne Then
MsgBox (1, "Neon", "Neon: Ordnungszahl:10, Gasförmig, Atommasse: 20,18u")

ElseIf $EA1 = $NeGanz Then
MsgBox (1, "Neon", "Neon(Ne): Ordnungszahl:10, Gasförmig, Atommasse: 20,18u")

ElseIf $EA1 = $Na Then
MsgBox (1, "Natrium", "Natrium: Ordnungszahl:11, Fest, Atommasse: 22,99u")

ElseIf $EA1 = $NaGanz Then
MsgBox (1, "Natrium", "Natrium(Na): Ordnungszahl:11, Fest, Atommasse: 22,99u")

ElseIf $EA1 = $Mg Then
MsgBox (1, "Magnesium", "Magnesium: Ordnungszahl:12, Fest, Atommasse: 24,31u")

ElseIf $EA1 = $MgGanz Then
MsgBox (1, "Magnesium", "Magnesium(Mg): Ordnungszahl:12, Fest, Atommasse: 24,31u")

ElseIf $EA1 = $Al Then
MsgBox (1, "Aluminium", "Aluminium: Ordnungszahl:13, Fest, Atommasse: 26,98u")

ElseIf $EA1 = $AlGanz Then
MsgBox (1, "Aluminium", "Aluminium(Al): Ordnungszahl:13, Fest, Atommasse: 26,98u")

ElseIf $EA1 = $Si Then
MsgBox (1, "Silicium", "Silicium: Ordnungszahl:14, Fest, Atommasse: 28,09u")

ElseIf $EA1 = $SiGanz Then
MsgBox (1, "Silicium", "Silicium(Si): Ordnungszahl:14, Fest, Atommasse: 28,09u")

ElseIf $EA1 = $P Then
MsgBox (1, "Phosphor", "Phosphor: Ordnungszahl:15, Fest, Atommasse: 30,97u")

ElseIf $EA1 = $PGanz Then
MsgBox (1, "Phosphor", "Phosphor(P): Ordnungszahl:15, Fest, Atommasse: 30,97u")

ElseIf $EA1 = $S Then
MsgBox (1, "Schwefel", "Schwefel: Ordnungszahl:16, Fest, Atommasse: 32,07u")

ElseIf $EA1 = $SGanz Then
MsgBox (1, "Schwefel", "Schwefel(S): Ordnungszahl:16, Fest, Atommasse: 32,07u")

ElseIf $EA1 = $Cl Then
MsgBox (1, "Chlor", "Chlor: Ordnungszahl:17, Gasförmig, Atommasse: 35,45u")

ElseIf $EA1 = $ClGanz Then
MsgBox (1, "Chlor", "Chlor(Cl): Ordnungszahl:17, Gasförmig, Atommasse: 35,45u")

ElseIf $EA1 = $Ar Then
MsgBox (1, "Argon", "Argon: Ordnungszahl:18, Gasförmig, Atommasse: 39,95u")

ElseIf $EA1 = $ArGanz Then
MsgBox (1, "Argon", "Argon(Ar): Ordnungszahl:18, Gasförmig, Atommasse: 39,95u")

ElseIf $EA1 = $K Then
MsgBox (1, "Kalium", "Kalium: Ordnungszahl:19, Fest, Atommasse: 39,10u")

ElseIf $EA1 = $KGanz Then
MsgBox (1, "Kalium", "Kalium(K): Ordnungszahl:19, Fest, Atommasse: 39,10u")

ElseIf $EA1 = $Ca Then
MsgBox (1, "Calcium", "Calcium: Ordnungszahl:20, Fest, Atommasse: 40,08u")

ElseIf $EA1 = $CaGanz Then
MsgBox (1, "Calcium", "Calcium(Ca): Ordnungszahl:20, Fest, Atommasse: 40,08u")

ElseIf $EA1 = $Sc Then
MsgBox (1, "Scandium", "Scandium: Ordnungszahl:21, Fest(unter Normalbedingungen), Atommasse: 44,96u")

ElseIf $EA1 = $ScGanz Then
MsgBox (1, "Scandium", "Scandium(Sc): Ordnungszahl:21, Fest(unter Normalbedingungen), Atommasse: 44,96u")

ElseIf $EA1 = $Ti Then
MsgBox (1, "Titan", "Titan: Ordnungszahl:22, Fest(unter Normalbedingungen), Atommasse: 47,88u")

ElseIf $EA1 = $TiGanz Then
MsgBox (1, "Titan", "Titan(Ti): Ordnungszahl:22, Fest(unter Normalbedingungen), Atommasse: 47,88u")

ElseIf $EA1 = $V Then
MsgBox (1, "Vanadium", "Vanadium: Ordnungszahl:23, Fest(unter Normalbedingungen), Atommasse: 50,94u")

ElseIf $EA1 = $VGanz Then
MsgBox (1, "Vanadium", "Vanadium(V): Ordnungszahl:23, Fest(unter Normalbedingungen), Atommasse: 50,94u")

ElseIf $EA1 = $Cr Then
MsgBox (1, "Chrom", "Chrom: Ordnungszahl:24, Fest(unter Normalbedingungen), Atommasse: 52,0u")

ElseIf $EA1 = $CrGanz Then
MsgBox (1, "Chrom", "Chrom(Cr): Ordnungszahl:24, Fest(unter Normalbedingungen), Atommasse: 52,0u")

ElseIf $EA1 = $Mn Then
MsgBox (1, "Mangan", "Mangan: Ordnungszahl:25, Fest(unter Normalbedingungen), Atommasse: 54,94u")

ElseIf $EA1 = $MnGanz Then
MsgBox (1, "Mangan", "Mangan(Mn): Ordnungszahl:25, Fest(unter Normalbedingungen), Atommasse: 54,94u")

ElseIf $EA1 = $Fe Then
MsgBox (1, "Eisen", "Eisen: Ordnungszahl:26, Fest(unter Normalbedingungen), Atommasse: 55,85u")

ElseIf $EA1 = $FeGanz Then
MsgBox (1, "Eisen", "Eisen(Fe): Ordnungszahl:26, Fest(unter Normalbedingungen), Atommasse: 55,85u")

ElseIf $EA1 = $Co Then
MsgBox (1, "Cobalt", "Cobalt: Ordnungszahl:27, Fest(unter Normalbedingungen), Atommasse: 58,93")

ElseIf $EA1 = $CoGanz Then
MsgBox (1, "Cobalt", "Cobalt(Co): Ordnungszahl:27, Fest(unter Normalbedingungen), Atommasse: 58,93")

ElseIf $EA1 = $Ni Then
MsgBox (1, "Nickel", "Nickel: Ordnungszahl:28, Fest(unter Normalbedingungen), Atommasse: 58,7u")

[/autoit] [autoit][/autoit] [autoit]

ElseIf $EA1 = $NiGanz Then
MsgBox (1, "Nickel", "Nickel(Ni): Ordnungszahl:28, Fest(unter Normalbedingungen), Atommasse: 58,7u")

ElseIf $EA1 = $Cu Then
MsgBox (1, "Kupfer", "Kupfer: Ordnungszahl:29, Fest(unter Normalbedingungen), Atommasse: 63,55u")

ElseIf $EA1 = $CuGanz Then
MsgBox (1, "Kupfer", "Kupfer(Cu): Ordnungszahl:29, Fest(unter Normalbedingungen), Atommasse: 63,55u")

ElseIf $EA1 = $Zn Then
MsgBox (1, "Zink", "Zink: Ordnungszahl:30, Fest(unter Normalbedingungen), Atommasse: 65,38u")

ElseIf $EA1 = $ZnGanz Then
MsgBox (1, "Zink", "Zink(Zn): Ordnungszahl:30, Fest(unter Normalbedingungen), Atommasse: 65,38u")

ElseIf $EA1 = $Ga Then
MsgBox (1, "Gallium", "Gallium: Ordnungszahl:31, Fest, Atommasse: 69,72u")

ElseIf $EA1 = $GaGanz Then
MsgBox (1, "Gallium", "Gallium(Ga): Ordnungszahl:31, Fest, Atommasse: 69,72u")

ElseIf $EA1 = $Ge Then
MsgBox (1, "Germanium", "Germanium: Ordnungszahl:32, Fest, Atommasse: 72,61")

ElseIf $EA1 = $GeGanz Then
MsgBox (1, "Germanium", "Germanium(Ge): Ordnungszahl:32, Fest, Atommasse: 72,61")

ElseIf $EA1 = $As Then
MsgBox (1, "Arsen", "Arsen: Ordnungszahl:33, Fest, Atommasse: 74,92")

ElseIf $EA1 = $AsGanz Then
MsgBox (1, "Arsen", "Arsen(As): Ordnungszahl:33, Fest, Atommasse: 74,92")

ElseIf $EA1 = $Se Then
MsgBox (1, "Selen", "Selen: Ordnungszahl:34, Fest, Atommasse: 78,96")

ElseIf $EA1 = $SeGanz Then
MsgBox (1, "Selen", "Selen(Se): Ordnungszahl:34, Fest, Atommasse: 78,96")

ElseIf $EA1 = $Br Then
MsgBox (1, "Brom", "Brom: Ordnungszahl:35, Flüssig, Atommasse: 79,90u")

ElseIf $EA1 = $BrGanz Then
MsgBox (1, "Brom", "Brom(Br): Ordnungszahl:35, Flüssig, Atommasse: 79,90u")

ElseIf $EA1 = $Kr Then
MsgBox (1, "Krypton", "Krypton: Ordnungszahl:36, Gasförmig, Atommasse: 83,80u")

ElseIf $EA1 = $KrGanz Then
MsgBox (1, "Krypton", "Krypton(Kr): Ordnungszahl:36, Gasförmig, Atommasse: 83,80u")

ElseIf $EA1 = $Rb Then
MsgBox (1, "Rubidium", "Rubidium: Ordnungszahl:37, Fest, Atommasse: 85,47u")

ElseIf $EA1 = $RbGanz Then
MsgBox (1, "Rubidium", "Rubidium(Rb): Ordnungszahl:37, Fest, Atommasse: 85,47u")

ElseIf $EA1 = $Sr Then
MsgBox (1, "Strontium", "Strontium: Ordnungszahl:38, Fest, Atommasse: 87,52u")

ElseIf $EA1 = $SrGanz Then
MsgBox (1, "Strontium", "Strontium(Sr): Ordnungszahl:38, Fest, Atommasse: 87,52u")

ElseIf $EA1 = $Y Then
MsgBox (1, "Yttrium", "Yttrium: Ordnungszahl:39, Fest(unter Normalbedingungen), Atommasse: 88,91u")

ElseIf $EA1 = $YGanz Then
MsgBox (1, "Yttrium", "Yttrium(Y): Ordnungszahl:39, Fest(unter Normalbedingungen), Atommasse: 88,91u")

ElseIf $EA1 = $Zr Then
MsgBox (1, "Zirconium", "Zirconium: Ordnungszahl:40, Fest(unter Normalbedingungen), Atommasse: 91,22u")

ElseIf $EA1 = $ZrGanz Then
MsgBox (1, "Zirconium", "Zirconium(Zr): Ordnungszahl:40, Fest(unter Normalbedingungen), Atommasse: 91,22u")

ElseIf $EA1 = $Nb Then
MsgBox (1, "Niob", "Niob: Ordnungszahl:41, Fest(unter Normalbedingungen), Atommasse: 92,91u")

ElseIf $EA1 = $NbGanz Then
MsgBox (1, "Niob", "Niob(Nb): Ordnungszahl:41, Fest(unter Normalbedingungen), Atommasse: 92,91u")

ElseIf $EA1 = $Mo Then
MsgBox (1, "Molybdän", "Molybdän: Ordnungszahl:42, Fest(unter Normalbedingungen), Atommasse: 95,94u")

ElseIf $EA1 = $MoGanz Then
MsgBox (1, "Molybdän", "Molybdän(Mo): Ordnungszahl:42, Fest(unter Normalbedingungen), Atommasse: 95,94u")

ElseIf $EA1 = $Tc Then
MsgBox (1, "Technetium", "Technetium: Ordnungszahl:43, Fest(unter Normalbedingungen), Atommasse: (98)u, ACHTUNG:Radioaktiv!!")

ElseIf $EA1 = $TcGanz Then
MsgBox (1, "Technetium", "Technetium(Tc): Ordnungszahl:43, Fest(unter Normalbedingungen), Atommasse: (98)u, ACHTUNG:Radioaktiv!!")

ElseIf $EA1 = $Ru Then
MsgBox (1, "Ruthenium", "Ruthenium: Ordnungszahl:44, Fest(unter Normalbedingungen), Atommasse: 101,07u")

ElseIf $EA1 = $RuGanz Then
MsgBox (1, "Ruthenium", "Ruthenium(Ru): Ordnungszahl:44, Fest(unter Normalbedingungen), Atommasse: 101,07u")

ElseIf $EA1 = $Rh Then
MsgBox (1, "Rohdium", "Rohdium: Ordnungszahl:45, Fest(unter Normalbedingungen), Atommasse: 102,91u")

ElseIf $EA1 = $RhGanz Then
MsgBox (1, "Rohdium", "Rohdium(Rh): Ordnungszahl:45, Fest(unter Normalbedingungen), Atommasse: 102,91u")

ElseIf $EA1 = $Pd Then
MsgBox (1, "Palladium", "Palladium: Ordnungszahl:46, Fest(unter Normalbedingungen), Atommasse: 106,42u")

ElseIf $EA1 = $PdGanz Then
MsgBox (1, "Palladium", "Palladium(Pd): Ordnungszahl:46, Fest(unter Normalbedingungen), Atommasse: 106,42u")

ElseIf $EA1 = $Ag Then
MsgBox (1, "Silber", "Silber: Ordnungszahl:47, Fest(unter Normalbedingungen), Atommasse: 107,87u")

ElseIf $EA1 = $AgGanz Then
MsgBox (1, "Silber", "Silber(Ag): Ordnungszahl:47, Fest(unter Normalbedingungen), Atommasse: 107,87u")

ElseIf $EA1 = $Cd Then
MsgBox (1, "Cadmium", "Cadmium: Ordnungszahl:48, Fest(unter Normalbedingungen), Atommasse: 112,41u")

ElseIf $EA1 = $CdGanz Then
MsgBox (1, "Cadmium", "Cadmium(Cd): Ordnungszahl:48, Fest(unter Normalbedingungen), Atommasse: 112,41u")

ElseIf $EA1 = $In Then
MsgBox (1, "Indium", "Indium: Ordnungszahl:49, Fest, Atommasse: 114,82u")

ElseIf $EA1 = $InGanz Then
MsgBox (1, "Indium", "Indium(In): Ordnungszahl:49, Fest, Atommasse: 114,82u")

ElseIf $EA1 = $Sn Then
MsgBox (1, "Zinn", "Zinn: Ordnungszahl:50, Fest, Atommasse: 118,71u")

ElseIf $EA1 = $SnGanz Then
MsgBox (1, "Zinn", "Zinn(Sn): Ordnungszahl:50, Fest, Atommasse: 118,71u")

ElseIf $EA1 = $Sb Then
MsgBox (1, "Antimon", "Antimon: Ordnungszahl:51, Fest, Atommasse: 121,76u")

ElseIf $EA1 = $SbGanz Then
MsgBox (1, "Antimon", "Antimon(Sb): Ordnungszahl:51, Fest, Atommasse: 121,76u")

ElseIf $EA1 = $Te Then
MsgBox (1, "Tellur", "Tellur: Ordnungszahl:52, Fest, Atommasse: 127,60u")

ElseIf $EA1 = $TeGanz Then
MsgBox (1, "Tellur", "Tellur(Te): Ordnungszahl:52, Fest, Atommasse: 127,60u")

ElseIf $EA1 = $I Then
MsgBox (1, "Iod", "Iod: Ordnungszahl:53, Fest, Atommasse: 126,90u")

ElseIf $EA1 = $IGanz Then
MsgBox (1, "Iod", "Iod(I): Ordnungszahl:53, Fest, Atommasse: 126,90u")

ElseIf $EA1 = $Xe Then
MsgBox (1, "Xenon", "Xenon: Ordnungszahl:54, Gasförmig, Atommasse: 131,29u")

ElseIf $EA1 = $XeGanz Then
MsgBox (1, "Xenon", "Xenon(Xe): Ordnungszahl:54, Gasförmig, Atommasse: 131,29u")

ElseIf $EA1 = $Cs Then
MsgBox (1, "Cäsium", "Cäsium: Ordnungszahl:55, Fest, Atommasse: 132,91u")

ElseIf $EA1 = $CsGanz Then
MsgBox (1, "Cäsium", "Cäsium(Cs): Ordnungszahl:55, Fest, Atommasse: 132,91u")

ElseIf $EA1 = $Ba Then
MsgBox (1, "Barium", "Barium: Ordnungszahl:56, Fest, Atommasse: 137,33u")

ElseIf $EA1 = $BaGanz Then
MsgBox (1, "Barium", "Barium(Ba): Ordnungszahl:56, Fest, Atommasse: 137,33u")

ElseIf $EA1 = $La Then
MsgBox (1, "Lanthan", "Lanthan: Ordnungszahl:57, Fest, Atommasse: 138,91u")

ElseIf $EA1 = $LaGanz Then
MsgBox (1, "Lanthan", "Lanthan(La): Ordnungszahl:57, Fest, Atommasse: 138,91u")

ElseIf $EA1 = $Ce Then
MsgBox (1, "Cer", "Cer: Ordnungszahl:58, Fest, Atommasse: 140,12u")

ElseIf $EA1 = $CeGanz Then
MsgBox (1, "Cer", "Cer(Ce): Ordnungszahl:58, Fest, Atommasse: 140,12u")

ElseIf $EA1 = $Pr Then
MsgBox (1, "Praseodym", "Praseodym: Ordnungszahl:59, Fest, Atommasse: 144,24u")

ElseIf $EA1 = $PrGanz Then
MsgBox (1, "Praseodym", "Praseodym(Pr): Ordnungszahl:59, Fest, Atommasse: 144,24u")

ElseIf $EA1 = $Nd Then
MsgBox (1, "Neodym", "Neodym: Ordnungszahl:60, Fest, Atommasse: 144,24u")

ElseIf $EA1 = $NdGanz Then
MsgBox (1, "Neodym", "Neodym(Nd): Ordnungszahl:60, Fest, Atommasse: 144,24u")

ElseIf $EA1 = $Pm Then
MsgBox (1, "Promethium", "Promethium: Ordnungszahl:61, Fest(unter Normalbedingungen), Atommasse: (145)u, ACHTUNG:Radioaktiv!!")

ElseIf $EA1 = $PmGanz Then
MsgBox (1, "Promethium", "Promethium(Pm): Ordnungszahl:61, Fest(unter Normalbedingungen), Atommasse: (145)u, ACHTUNG:Radioaktiv!!")

ElseIf $EA1 = $Sm Then
MsgBox (1, "Samarium", "Samarium: Ordnungszahl:62, Fest, Atommasse: 150,36u")

ElseIf $EA1 = $SmGanz Then
MsgBox (1, "Samarium", "Samarium(Sm): Ordnungszahl:62, Fest, Atommasse: 150,36u")

ElseIf $EA1 = $Eu Then
MsgBox (1, "Europium", "Europium: Ordnungszahl:63, Fest, Atommasse: 151,97u")

ElseIf $EA1 = $EuGanz Then
MsgBox (1, "Europium", "Europium(Eu): Ordnungszahl:63, Fest, Atommasse: 151,97u")

ElseIf $EA1 = $Gd Then
MsgBox (1, "Gadolinium", "Gadolinium: Ordnungszahl:64, Fest, Atommasse: 157,97u")

ElseIf $EA1 = $GdGanz Then
MsgBox (1, "Gadolinium", "Gadolinium(Gd): Ordnungszahl:64, Fest, Atommasse: 157,97u")

ElseIf $EA1 = $Tb Then
MsgBox (1, "Terbium", "Terbium: Ordnungszahl:65, Fest, Atommasse: 158,93u")

ElseIf $EA1 = $TbGanz Then
MsgBox (1, "Terbium", "Terbium(Tb): Ordnungszahl:65, Fest, Atommasse: 158,93u")

ElseIf $EA1 = $Dy Then
MsgBox (1, "Dysprosium", "Dysprosium: Ordnungszahl:66, Fest, Atommasse: 162,50u")

ElseIf $EA1 = $DyGanz Then
MsgBox (1, "Dysprosium", "Dysprosium(Dy): Ordnungszahl:66, Fest, Atommasse: 162,50u")

ElseIf $EA1 = $Ho Then
MsgBox (1, "Holmium", "Holmium: Ordnungszahl:67, Fest, Atommasse: 164,93u")

ElseIf $EA1 = $HoGanz Then
MsgBox (1, "Holmium", "Holmium(Ho): Ordnungszahl:67, Fest, Atommasse: 164,93u")

ElseIf $EA1 = $Er Then
MsgBox (1, "Erbium", "Erbium: Ordnungszahl:68, Fest, Atommasse: 167,26u")

ElseIf $EA1 = $ErGanz Then
MsgBox (1, "Erbium", "Erbium(Er): Ordnungszahl:68, Fest, Atommasse: 167,26u")

ElseIf $EA1 = $Tm Then
MsgBox (1, "Thulium", "Thulium: Ordnungszahl:69, Fest, Atommasse: 168,93u")

ElseIf $EA1 = $TmGanz Then
MsgBox (1, "Thulium", "Thulium(Tm): Ordnungszahl:69, Fest, Atommasse: 168,93u")

ElseIf $EA1 = $Yb Then
MsgBox (1, "Ytterbium", "Ytterbium: Ordnungszahl:70, Fest, Atommasse: 173,04u")

ElseIf $EA1 = $YbGanz Then
MsgBox (1, "Ytterbium", "Ytterbium(Yb): Ordnungszahl:70, Fest, Atommasse: 173,04u")

ElseIf $EA1 = $Lu Then
MsgBox (1, "Lutetium", "Lutetium: Ordnungszahl:71, Fest, Atommasse: 174,97")

ElseIf $EA1 = $LuGanz Then
MsgBox (1, "Lutetium", "Lutetium(Lu): Ordnungszahl:71, Fest, Atommasse: 174,97")

ElseIf $EA1 = $Hf Then
MsgBox (1, "Hafnium", "Hafnium: Ordnungszahl:72, Fest, Atommasse: 178,49")

ElseIf $EA1 = $HfGanz Then
MsgBox (1, "Hafnium", "Hafnium(Hf): Ordnungszahl:72, Fest, Atommasse: 178,49")

ElseIf $EA1 = $Ta Then
MsgBox (1, "Tantal", "Tantal: Ordnungszahl:73, Fest, Atommasse: 180,95u")

ElseIf $EA1 = $TaGanz Then
MsgBox (1, "Tantal", "Tantal(Ta): Ordnungszahl:73, Fest, Atommasse: 180,95u")

ElseIf $EA1 = $W Then
MsgBox (1, "Wolfram", "Wolfram: Ordnungszahl:74, Fest, Atommasse: 183,84u")

ElseIf $EA1 = $WGanz Then
MsgBox (1, "Wolfram", "Wolfram(W): Ordnungszahl:74, Fest, Atommasse: 183,84u")

ElseIf $EA1 = $Re Then
MsgBox (1, "Rhenium", "Rhenium: Ordnungszahl:75, Fest, Atommasse: 186,21u")

ElseIf $EA1 = $ReGanz Then
MsgBox (1, "Rhenium", "Rhenium(Re): Ordnungszahl:75, Fest, Atommasse: 186,21u")

ElseIf $EA1 = $Os Then
MsgBox (1, "Osmium", "Osmium: Ordnungszahl:76, Fest, Atommasse: 190,23u")

ElseIf $EA1 = $OsGanz Then
MsgBox (1, "Osmium", "Osmium(Os): Ordnungszahl:76, Fest, Atommasse: 190,23u")

ElseIf $EA1 = $Ir Then
MsgBox (1, "Iridium", "Iridium: Ordnungszahl:77, Fest, Atommasse: 192,22u")

ElseIf $EA1 = $IrGanz Then
MsgBox (1, "Iridium", "Iridium(Ir): Ordnungszahl:77, Fest, Atommasse: 192,22u")

ElseIf $EA1 = $Pt Then
MsgBox (1, "Platin", "Platin: Ordnungszahl:78, Fest, Atommasse: 195,08u")

ElseIf $EA1 = $PtGanz Then
MsgBox (1, "Platin", "Platin(Pt): Ordnungszahl:78, Fest, Atommasse: 195,08u")

ElseIf $EA1 = $Au Then
MsgBox (1, "Gold", "Gold: Ordnungszahl:79, Fest, Atommasse: 196,97u")

ElseIf $EA1 = $AuGanz Then
MsgBox (1, "Gold", "Gold(Au): Ordnungszahl:79, Fest, Atommasse: 196,97u")

ElseIf $EA1 = $Hg Then
MsgBox (1, "Quecksilber", "Quecksilber: Ordnungszahl:80, Flüssig, Atommasse: 200,59u")

ElseIf $EA1 = $HgGanz Then
MsgBox (1, "Quecksilber", "Quecksilber(Hg): Ordnungszahl:80, Flüssig, Atommasse: 200,59u")

ElseIf $EA1 = $Tl Then
MsgBox (1, "Thallium", "Thallium: Ordnungszahl:81, Fest, Atommasse: 204,38u")

ElseIf $EA1 = $TlGanz Then
MsgBox (1, "Thallium", "Thallium(Tl): Ordnungszahl:81, Fest, Atommasse: 204,38u")

ElseIf $EA1 = $Pb Then
MsgBox (1, "Blei", "Blei: Ordnungszahl:82, Fest, Atommasse: 207,20u")

ElseIf $EA1 = $PbGanz Then
MsgBox (1, "Blei", "Blei(Pb): Ordnungszahl:82, Fest, Atommasse: 207,20u")

ElseIf $EA1 = $Bi Then
MsgBox (1, "Bismut", "Bismut: Ordnungszahl:83, Fest, Atommasse: 208,98u")

ElseIf $EA1 = $BiGanz Then
MsgBox (1, "Bismut", "Bismut(Bi): Ordnungszahl:83, Fest, Atommasse: 208,98u")

ElseIf $EA1 = $Po Then
MsgBox (1, "Polonium", "Polonium: Ordnungszahl:84, Fest, Atommasse: (209)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $PoGanz Then
MsgBox (1, "Polonium", "Polonium(Po): Ordnungszahl:84, Fest, Atommasse: (209)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $AT Then
MsgBox (1, "Astat", "Astat: Ordnungszahl:85, Fest, Atommasse: (210)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $ATGanz Then
MsgBox (1, "Astat", "Astat(At): Ordnungszahl:85, Fest, Atommasse: (210)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Rn Then
MsgBox (1, "Radon", "Radon: Ordnungszahl:86, Fest, Atommasse: (222)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Rn Then
MsgBox (1, "Radon", "Radon(Rn): Ordnungszahl:86, Fest, Atommasse: (222)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Fr Then
MsgBox (1, "Francium", "Francium: Ordnungszahl:87, Fest, Atommasse: (223)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $FrGanz Then
MsgBox (1, "Francium", "Francium(Fr): Ordnungszahl:87, Fest, Atommasse: (223)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Ra Then
MsgBox (1, "Radium", "Radium: Ordnungszahl:88, Fest, Atommasse: (226)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $RaGanz Then
MsgBox (1, "Radium", "Radium(Ra): Ordnungszahl:88, Fest, Atommasse: (226)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Ac Then
MsgBox (1, "Actinium", "Actinium: Ordnungszahl:89, Fest, Atommasse: 227,03u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $AcGanz Then
MsgBox (1, "Actinium", "Actinium(Ac): Ordnungszahl:89, Fest, Atommasse: 227,03u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Th Then
MsgBox (1, "Thorium", "Thorium: Ordnungszahl:90, Fest, Atommasse: 232,04u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $ThGanz Then
MsgBox (1, "Thorium", "Thorium(Th): Ordnungszahl:90, Fest, Atommasse: 232,04u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Pa Then
MsgBox (1, "Protactinium", "Protactinium: Ordnungszahl:91, Fest, Atommasse: 231,03, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $PaGanz Then
MsgBox (1, "Protactinium", "Protactinium(Pa): Ordnungszahl:91, Fest, Atommasse: 231,03, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $U Then
MsgBox (1, "Uran", "Uran: Ordnungszahl:92, Fest, Atommasse: 238,03u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $UGanz Then
MsgBox (1, "Uran", "Uran(U): Ordnungszahl:92, Fest, Atommasse: 238,03u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Np Then
MsgBox (1, "Neptunium", "Neptunium: Ordnungszahl:93, Fest, Atommasse: (237), ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $NpGanz Then
MsgBox (1, "Neptunium", "Neptunium(Np): Ordnungszahl:93, Fest, Atommasse: (237), ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Pu Then
MsgBox (1, "Plutonium", "Plutonium: Ordnungszahl:94, Fest, Atommasse: (244)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $PuGanz Then
MsgBox (1, "Plutonium", "Plutonium(Pu): Ordnungszahl:94, Fest, Atommasse: (244)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Am Then
MsgBox (1, "Americum", "Americum: Ordnungszahl:95, Fest, Atommasse: (243)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $AmGanz Then
MsgBox (1, "Americum", "Americum(Am): Ordnungszahl:95, Fest, Atommasse: (243)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Cm Then
MsgBox (1, "Curium", "Curium: Ordnungszahl:96, Fest, Atommasse: (247)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $CmGanz Then
MsgBox (1, "Curium", "Curium(Cm): Ordnungszahl:96, Fest, Atommasse: (247)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Bk Then
MsgBox (1, "Berkelium", "Berkelium: Ordnungszahl:97, Fest, Atommasse: (247)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $BkGanz Then
MsgBox (1, "Berkelium", "Berkelium(Bk): Ordnungszahl:97, Fest, Atommasse: (247)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Cf Then
MsgBox (1, "Californium", "Californium: Ordnungszahl:98, Fest, Atommasse: (251)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $CfGanz Then
MsgBox (1, "Californium", "Californium(Cf): Ordnungszahl:98, Fest, Atommasse: (251)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Es Then
MsgBox (1, "Einsteinium", "Einsteinium: Ordnungszahl:99, Fest, Atommasse: (252)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $EsGanz Then
MsgBox (1, "Einsteinium", "Einsteinium(Es): Ordnungszahl:99, Fest, Atommasse: (252)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Fm Then
MsgBox (1, "Fermium", "Fermium: Ordnungszahl:100, Fest, Atommasse: (257)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $FmGanz Then
MsgBox (1, "Fermium", "Fermium(Fm): Ordnungszahl:100, Fest, Atommasse: (257)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Md Then
MsgBox (1, "Mendelevium", "Mendelevium: Ordnungszahl:101, Fest, Atommasse: (258)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $MdGanz Then
MsgBox (1, "Mendelevium", "Mendelevium(Md): Ordnungszahl:101, Fest, Atommasse: (258)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $No Then
MsgBox (1, "Nobelium", "Nobelium: Ordnungszahl:102, Fest, Atommasse: (259)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $NoGanz Then
MsgBox (1, "Nobelium", "Nobelium(No): Ordnungszahl:102, Fest, Atommasse: (259)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Lr Then
MsgBox (1, "Lawrencium", "Lawrencium: Ordnungszahl:103, Fest, Atommasse: (260)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $LrGanz Then
MsgBox (1, "Lawrencium", "Lawrencium(Lr): Ordnungszahl:103, Fest, Atommasse: (260)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Rf Then
MsgBox (1, "Rutherfordium", "Rutherfordium: Ordnungszahl:104, Fest, Atommasse: (261)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $RfGanz Then
MsgBox (1, "Rutherfordium", "Rutherfordium(Rf): Ordnungszahl:104, Fest, Atommasse: (261)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Db Then
MsgBox (1, "Dubnium", "Dubnium: Ordnungszahl:105, Fest, Atommasse: (262)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $DbGanz Then
MsgBox (1, "Dubnium", "Dubnium(Db): Ordnungszahl:105, Fest, Atommasse: (262)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Sg Then
MsgBox (1, "Seaborgium", "Seaborgium: Ordnungszahl:106, Fest, Atommasse: (263)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $SgGanz Then
MsgBox (1, "Seaborgium", "Seaborgium(Sg): Ordnungszahl:106, Fest, Atommasse: (263)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Bh Then
MsgBox (1, "Bohrium", "Bohrium: Ordnungszahl:107, Fest, Atommasse: (262)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $BhGanz Then
MsgBox (1, "Bohrium", "Bohrium(Bh): Ordnungszahl:107, Fest, Atommasse: (262)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Hs Then
MsgBox (1, "Hassium", "Hassium: Ordnungszahl:108, Fest, Atommasse: (265)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $HsGanz Then
MsgBox (1, "Hassium", "Hassium(Hs): Ordnungszahl:108, Fest, Atommasse: (265)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Mt Then
MsgBox (1, "Meitnerium", "Meitnerium: Ordnungszahl:109, Fest, Atommasse: (266)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $MtGanz Then
MsgBox (1, "Meitnerium", "Meitnerium(Mt): Ordnungszahl:109, Fest, Atommasse: (266)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Ds Then
MsgBox (1, "Darmstadtium", "Darmstadtium: Ordnungszahl:110, Fest, Atommasse: (269)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $DsGanz Then
MsgBox (1, "Darmstadtium", "Darmstadtium(Ds): Ordnungszahl:110, Fest, Atommasse: (269)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Rg Then
MsgBox (1, "Roentgenium", "Roentgenium: Ordnungszahl:111, Fest, Atommasse: (272)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $RgGanz Then
MsgBox (1, "Roentgenium", "Roentgenium(Rg): Ordnungszahl:111, Fest, Atommasse: (272)u, ACHTUNG: Radioaktiv!!!")

[/autoit] [autoit][/autoit] [autoit]

ElseIf $EA1 = $Uub Then
MsgBox (1, "Ununbium", "Ununbium: Ordnungszahl:112, Fest, Atommasse: (285)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $UubGanz Then
MsgBox (1, "Ununbium", "Ununbium(Uub): Ordnungszahl:112, Fest, Atommasse: (285)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Uut Then
MsgBox (1, "Ununtrium", "Ununtrium: Ordnungszahl:113, Fest, Atommasse: (284)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $UutGanz Then
MsgBox (1, "Ununtrium", "Ununtrium(Uut): Ordnungszahl:113, Fest, Atommasse: (284)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Uuq Then
MsgBox (1, "Ununquadium", "Ununquadium: Ordnungszahl:114, Fest, Atommasse: (289)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $UuqGanz Then
MsgBox (1, "Ununquadium", "Ununquadium(Uuq): Ordnungszahl:114, Fest, Atommasse: (289)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Uup Then
MsgBox (1, "Ununpentium", "Ununpentium: Ordnungszahl:115, Fest, Atommasse: (288)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $UupGanz Then
MsgBox (1, "Ununpentium", "Ununpentium(Uup): Ordnungszahl:115, Fest, Atommasse: (288)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Uuh Then
MsgBox (1, "Ununhexium", "Ununhexium: Ordnungszahl:116, Fest, Atommasse: (292)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $UuhGanz Then
MsgBox (1, "Ununhexium", "Ununhexium(Uuh): Ordnungszahl:116, Fest, Atommasse: (292)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Uus Then
MsgBox (1, "Ununseptium", "Ununseptium: Ordnungszahl:117, Fest, Atommasse: (292)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $UusGanz Then
MsgBox (1, "Ununseptium", "Ununseptium(Uus): Ordnungszahl:117, Fest, Atommasse: (292)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Uuo Then
MsgBox (1, "Ununoctium", "Ununoctium: Ordnungszahl:118, Fest, Atommasse: (294)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $UuoGanz Then
MsgBox (1, "Ununoctium", "Ununoctium(Uuo): Ordnungszahl:118, Fest, Atommasse: (294)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

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

EndIf

[/autoit] [autoit][/autoit] [autoit]

WEnd
Func Exit1 ()
Exit
EndFunc

[/autoit]

Bitte kann mir bitte jemand helfen

Conan10

Könnte mir denn niemand eine Beschreibung wenigstens geben wo ich was wo eintragen kann??

.::Mignon::.

wohin willst du denn genau "springen" und wann willst du es? etwas genauer könntest du es schon beschreiben, sonst konnen wir dir auch nicht richtig helfen.

Conan10

Hoffe das hilft dir. Wenn dun nicht so viel Scrollen willst kannst du auch oben im ersten post die Makierung nachgucken, da es dort abgekürzt ist

Spoiler anzeigen

[autoit]

HotKeySet ("F12","Exit1")
;Variablen:
Global $Exit1 = "Exit"
Global $H = "H"
Global $HGanz = "Wasserstoff"
Global $He = "He"
Global $HeGanz = "Helium"
Global $Li = "Li"
Global $LiGanz = "Lithium"
Global $Be = "Be"
Global $BeGanz = "Beryllium"
Global $B = "B"
Global $BGanz = "Bor"
Global $C = "C"
Global $CGanz = "Kohlenstoff"
Global $N = "N"
Global $NGanz = "Stickstoff"
Global $O = "O"
Global $OGanz = "Sauerstoff"
Global $F = "F"
Global $FGanz = "Fluor"
Global $Ne = "Ne"
Global $NeGanz = "Neon"
Global $Na = "Na"
Global $NaGanz = "Natrium"
Global $Mg = "Mg"
Global $MgGanz = "Magnesium"
Global $Al = "Al"
Global $AlGanz = "Aluminium"
Global $Si = "Si"
Global $SiGanz = "Silicium"
Global $P = "P"
Global $PGanz = "Phosphor"
Global $S = "S"
Global $SGanz = "Schwefel"
Global $Cl = "Cl"
Global $ClGanz = "Chlor"
Global $Ar = "Ar"
Global $ArGanz = "Argon"
Global $K = "K"
Global $KGanz = "Kalium"
Global $Ca = "Ca"
Global $CaGanz = "Calcium"
Global $Sc = "Sc"
Global $ScGanz = "Scandium"
Global $Ti = "Ti"
Global $TiGanz = "Titan"
Global $V = "V"
Global $VGanz = "Vanadium"
Global $Cr = "Cr"
Global $CrGanz = "Chrom"
Global $Mn = "Mn"
Global $MnGanz = "Mangan"
Global $Fe = "Fe"
Global $FeGanz = "Eisen"
Global $Co = "Co"
Global $CoGanz = "Cobalt"
Global $Ni = "Ni"
Global $NiGanz = "Nickel"
Global $Cu = "Cu"
Global $CuGanz = "Kupfer"
Global $Zn = "Zn"
Global $ZnGanz = "Zink"
Global $Ga = "Ga"
Global $GaGanz = "Gallium"
Global $Ge = "Ge"
Global $GeGanz = "Germanium"
Global $As = "As"
Global $AsGanz = "Arsen"
Global $Se = "Se"
Global $SeGanz = "Selen"
Global $Br = "Br"
Global $BrGanz = "Brom"
Global $Kr = "Kr"
Global $KrGanz = "Krypton"
Global $Rb = "Rb"
Global $RbGanz = "Rubidium"
Global $Sr = "Sr"
Global $SrGanz = "Strontium"
Global $Y = "Y"
Global $YGanz = "Yttrium"
Global $Zr = "Zr"
Global $ZrGanz = "Zirconium"
Global $Nb = "Nb"
Global $NbGanz = "Niob"
Global $Mo = "Mo"
Global $MoGanz = "Molybdän"
Global $Tc = "Tc"
Global $TcGanz = "Technetium"
Global $Ru = "Ru"
Global $RuGanz = "Ruthenium"
Global $Rh = "Rh"
Global $RhGanz = "Rhodium"
Global $Pd = "Pd"
Global $PdGanz = "Palladium"
Global $Ag = "Ag"
Global $AgGanz = "Silber"
Global $Cd = "Cd"
Global $CdGanz = "Cadmium"
Global $In = "In"
Global $InGanz = "Indium"
Global $Sn = "Sn"
Global $SnGanz = "Zinn"
Global $Sb = "Sb"
Global $SbGanz = "Antimon"
Global $Te = "Te"
Global $TeGanz = "Tellur"
Global $I = "I"
Global $IGanz = "Iod"
Global $Xe = "Xe"
Global $XeGanz = "Xenon"
Global $Cs = "Cs"
Global $CsGanz = "Cäsium"
Global $Ba = "Ba"
Global $BaGanz = "Barium"
Global $La = "La"
Global $LaGanz = "Lanthan"
Global $Ce = "Ce"
Global $CeGanz = "Cer"
Global $Pr = "Pr"
Global $PrGanz = "Praseodym"
Global $Nd = "Nd"
Global $NdGanz = "Neodym"
Global $Pm = "Pm"
Global $PmGanz = "Promethium"
Global $Sm = "Sm"
Global $SmGanz = "Samarium"
Global $Eu = "Eu"
Global $EuGanz = "Europium"
Global $Gd = "Gd"
Global $GdGanz = "Gadolinium"
Global $Tb = "Tb"
Global $TbGanz = "Terbium"
Global $Dy = "Dy"
Global $DyGanz = "Dysprosium"
Global $Ho = "Ho"
Global $HoGanz = "Holmium"
Global $Er = "Er"
Global $ErGanz = "Erbium"
Global $Tm = "Tm"
Global $TmGanz = "Thulium"
Global $Yb = "Yb"
Global $YbGanz = "Ytterbium"
Global $Lu = "Lu"
Global $LuGanz = "Lutetium"
Global $Hf = "Hf"
Global $HfGanz = "Hafnium"
Global $Ta = "Ta"
Global $TaGanz = "Tantal"
Global $W = "W"
Global $WGanz = "Wolfram"
Global $Re = "Re"
Global $ReGanz = "Rhenium"
Global $Os = "Os"
Global $OsGanz = "Osmium"
Global $Ir = "Ir"
Global $IrGanz = "Iridium"
Global $Pt = "Pt"
Global $PtGanz = "Platin"
Global $Au = "Au"
Global $AuGanz = "Gold"
Global $Hg = "Hg"
Global $HgGanz = "Quecksilber"
Global $Tl = "Tl"
Global $TlGanz = "Thallium"
Global $Pb = "Pb"
Global $PbGanz = "Blei"
Global $Bi = "Bi"
Global $BiGanz = "Bismut"
Global $Po = "Po"
Global $PoGanz = "Polonium"
Global $At = "At"
Global $AtGanz = "Astat"
Global $Rn = "Rn"
Global $RnGanz = "Radon"
Global $Fr = "Fr"
Global $FrGanz = "Francium"
Global $Ra = "Ra"
Global $RaGanz = "Radium"
Global $Ac = "Ac"
Global $AcGanz = "Actinium"
Global $Th = "Th"
Global $ThGanz = "Thorium"
Global $Pa = "Pa"
Global $PaGanz = "Protactium"
Global $U = "U"
Global $UGanz = "Uran"
Global $Np = "Np"
Global $NpGanz = "Neptunium"
Global $Pu = "Pu"
Global $PuGanz = "Plutonium"
Global $Am = "Am"
Global $AmGanz = "Americium"
Global $Cm = "Cm"
Global $CmGanz = "Curium"
Global $Bk = "Bk"
Global $BkGanz = "Berkelium"
Global $Cf = "Cf"
Global $CfGanz = "Californium"
Global $Es = "Es"
Global $EsGanz = "Einsteinium"
Global $Fm = "Fm"
Global $FmGanz = "Fermium"
Global $Md = "Md"
Global $MdGanz = "Mendelevium"
Global $No = "No"
Global $NoGanz = "Nobelium"
Global $Lr = "Lr"
Global $LrGanz = "Lawrencium"
Global $Rf = "Rf"
Global $RfGanz = "Rutherfordium"
Global $Db = "Db"
Global $DbGanz = "Dubnium"
Global $Sg = "Sg"
Global $SgGanz = "Seaborgium"
Global $Bh = "Bh"
Global $BhGanz = "Bohrium"
Global $Hs = "Hs"
Global $HsGanz = "Hassium"
Global $Mt = "Mt"
Global $MtGanz = "Meitnerium"
Global $Ds = "Ds"
Global $DsGanz = "Darmstadtium"
Global $Rg = "Rg"
Global $RgGanz = "Roentgenium"
Global $Uub = "Uub"
Global $UubGanz = "Ununbium"
Global $Uut = "Uut"
Global $UutGanz = "Ununtrium"
Global $Uuq = "Uuq"
Global $UuqGanz = "Ununquadium"
Global $Uup = "Uup"
Global $UupGanz = "Ununpentium"
Global $Uuh = "Uuh"
Global $UuhGanz = "Ununhexium"
Global $Uus = "Uus"
Global $UusGanz = "Ununseptium"
Global $Uuo = "Uuo"
Global $UuoGanz = "Ununoctium"

[/autoit] [autoit][/autoit] [autoit]

WinMinimizeAll ()

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

While (2)
<- Nach Hier
$EA1 = InputBox ("Periodensysteminformation","Bitte geben sie den Namen oder die Abkürzung eines Elements ein, z.B. B oder Bor. Exit zum Beenden. Hinweis: Angaben in Klammern bei Atommasse = Kein zuverlässiger Messwert verfügbar", "","")

[/autoit] [autoit][/autoit] [autoit]

If $EA1 = $H Then
MsgBox (1, "Wasserstoff", "Wasserstoff: Ordnungszahl:1, Gasförmig, Atommasse: 1,01u")

ElseIf $EA1 = $HGanz Then
MsgBox (1, "Wasserstoff", "Wasserstoff(H): Ordnungszahl:1, Gasförmig, Atommasse: 1,01u")

ElseIf $EA1 = $He Then
MsgBox (1, "Helium", "Helium: Ordnungszahl:2, Gasförmig, Atommasse: 4u")

ElseIf $EA1 = $HeGanz Then
MsgBox (1, "Helium", "Helium(He): Ordnungszahl:2, Gasförmig, Atommasse: 4u")

ElseIf $EA1 = $Li Then
MsgBox (1, "Lithium", "Lithium: Ordnungszahl:3, Fest, Atommasse: 6,94u")

ElseIf $EA1 = $LiGanz Then
MsgBox (1, "Lithium", "Lithium(Li): Ordnungszahl:3, Fest, Atommasse: 6,94u")

ElseIf $EA1 = $Be Then
MsgBox (1, "Beryllium", "Beryllium: Ordnugszahl:4, Fest, Atommasse: 9,01u")

ElseIf $EA1 = $BeGanz Then
MsgBox (1, "Beryllium", "Beryllium(Be): Ordnugszahl:4, Fest, Atommasse: 9,01u")

ElseIf $EA1 = $B Then
MsgBox (1, "Bor", "Bor: Ordnungszahl:5, Fest, Atommasse: 10,81u")

ElseIf $EA1 = $BGanz Then
MsgBox (1, "Bor", "Bor(B): Ordnungszahl:5, Fest, Atommasse: 10,81u")

ElseIf $EA1 = $C Then
MsgBox (1, "Kohlenstoff", "Kohlenstoff: Ordnungszahl:6, Fest, Atommasse: 12,01u")

ElseIf $EA1 = $CGanz Then
MsgBox (1, "Kohlenstoff", "Kohlenstoff(C): Ordnungszahl:6, Fest, Atommasse: 12,01u")

ElseIf $EA1 = $N Then
MsgBox (1, "Stickstoff", "Stickstoff: Ordnungszahl:7, Gasförmig, Atommasse: 14,01u")

ElseIf $EA1 = $NGanz Then
MsgBox (1, "Stickstoff", "Stickstoff(N): Ordnungszahl:7, Gasförmig, Atommasse: 14,01u")

ElseIf $EA1 = $O Then
MsgBox (1, "Sauerstoff", "Sauerstoff: Ordnungszahl:8, Gasförmig, Atommasse: 15,999u")

ElseIf $EA1 = $OGanz Then
MsgBox (1, "Sauerstoff", "Sauerstoff(O): Ordnungszahl:8, Gasförmig, Atommasse: 15,999u")

ElseIf $EA1 = $F Then
MsgBox (1, "Fluor", "Flour: Ordnungszahl:9, Gasförmig, Atommasse: 18,998u")

ElseIf $EA1 = $FGanz Then
MsgBox (1, "Fluor", "Flour(F): Ordnungszahl:9, Gasförmig, Atommasse: 18,998u")

ElseIf $EA1 = $Ne Then
MsgBox (1, "Neon", "Neon: Ordnungszahl:10, Gasförmig, Atommasse: 20,18u")

ElseIf $EA1 = $NeGanz Then
MsgBox (1, "Neon", "Neon(Ne): Ordnungszahl:10, Gasförmig, Atommasse: 20,18u")

ElseIf $EA1 = $Na Then
MsgBox (1, "Natrium", "Natrium: Ordnungszahl:11, Fest, Atommasse: 22,99u")

ElseIf $EA1 = $NaGanz Then
MsgBox (1, "Natrium", "Natrium(Na): Ordnungszahl:11, Fest, Atommasse: 22,99u")

ElseIf $EA1 = $Mg Then
MsgBox (1, "Magnesium", "Magnesium: Ordnungszahl:12, Fest, Atommasse: 24,31u")

ElseIf $EA1 = $MgGanz Then
MsgBox (1, "Magnesium", "Magnesium(Mg): Ordnungszahl:12, Fest, Atommasse: 24,31u")

ElseIf $EA1 = $Al Then
MsgBox (1, "Aluminium", "Aluminium: Ordnungszahl:13, Fest, Atommasse: 26,98u")

ElseIf $EA1 = $AlGanz Then
MsgBox (1, "Aluminium", "Aluminium(Al): Ordnungszahl:13, Fest, Atommasse: 26,98u")

ElseIf $EA1 = $Si Then
MsgBox (1, "Silicium", "Silicium: Ordnungszahl:14, Fest, Atommasse: 28,09u")

ElseIf $EA1 = $SiGanz Then
MsgBox (1, "Silicium", "Silicium(Si): Ordnungszahl:14, Fest, Atommasse: 28,09u")

ElseIf $EA1 = $P Then
MsgBox (1, "Phosphor", "Phosphor: Ordnungszahl:15, Fest, Atommasse: 30,97u")

ElseIf $EA1 = $PGanz Then
MsgBox (1, "Phosphor", "Phosphor(P): Ordnungszahl:15, Fest, Atommasse: 30,97u")

ElseIf $EA1 = $S Then
MsgBox (1, "Schwefel", "Schwefel: Ordnungszahl:16, Fest, Atommasse: 32,07u")

ElseIf $EA1 = $SGanz Then
MsgBox (1, "Schwefel", "Schwefel(S): Ordnungszahl:16, Fest, Atommasse: 32,07u")

ElseIf $EA1 = $Cl Then
MsgBox (1, "Chlor", "Chlor: Ordnungszahl:17, Gasförmig, Atommasse: 35,45u")

ElseIf $EA1 = $ClGanz Then
MsgBox (1, "Chlor", "Chlor(Cl): Ordnungszahl:17, Gasförmig, Atommasse: 35,45u")

ElseIf $EA1 = $Ar Then
MsgBox (1, "Argon", "Argon: Ordnungszahl:18, Gasförmig, Atommasse: 39,95u")

ElseIf $EA1 = $ArGanz Then
MsgBox (1, "Argon", "Argon(Ar): Ordnungszahl:18, Gasförmig, Atommasse: 39,95u")

ElseIf $EA1 = $K Then
MsgBox (1, "Kalium", "Kalium: Ordnungszahl:19, Fest, Atommasse: 39,10u")

ElseIf $EA1 = $KGanz Then
MsgBox (1, "Kalium", "Kalium(K): Ordnungszahl:19, Fest, Atommasse: 39,10u")

ElseIf $EA1 = $Ca Then
MsgBox (1, "Calcium", "Calcium: Ordnungszahl:20, Fest, Atommasse: 40,08u")

ElseIf $EA1 = $CaGanz Then
MsgBox (1, "Calcium", "Calcium(Ca): Ordnungszahl:20, Fest, Atommasse: 40,08u")

ElseIf $EA1 = $Sc Then
MsgBox (1, "Scandium", "Scandium: Ordnungszahl:21, Fest(unter Normalbedingungen), Atommasse: 44,96u")

ElseIf $EA1 = $ScGanz Then
MsgBox (1, "Scandium", "Scandium(Sc): Ordnungszahl:21, Fest(unter Normalbedingungen), Atommasse: 44,96u")

ElseIf $EA1 = $Ti Then
MsgBox (1, "Titan", "Titan: Ordnungszahl:22, Fest(unter Normalbedingungen), Atommasse: 47,88u")

ElseIf $EA1 = $TiGanz Then
MsgBox (1, "Titan", "Titan(Ti): Ordnungszahl:22, Fest(unter Normalbedingungen), Atommasse: 47,88u")

ElseIf $EA1 = $V Then
MsgBox (1, "Vanadium", "Vanadium: Ordnungszahl:23, Fest(unter Normalbedingungen), Atommasse: 50,94u")

ElseIf $EA1 = $VGanz Then
MsgBox (1, "Vanadium", "Vanadium(V): Ordnungszahl:23, Fest(unter Normalbedingungen), Atommasse: 50,94u")

ElseIf $EA1 = $Cr Then
MsgBox (1, "Chrom", "Chrom: Ordnungszahl:24, Fest(unter Normalbedingungen), Atommasse: 52,0u")

ElseIf $EA1 = $CrGanz Then
MsgBox (1, "Chrom", "Chrom(Cr): Ordnungszahl:24, Fest(unter Normalbedingungen), Atommasse: 52,0u")

ElseIf $EA1 = $Mn Then
MsgBox (1, "Mangan", "Mangan: Ordnungszahl:25, Fest(unter Normalbedingungen), Atommasse: 54,94u")

ElseIf $EA1 = $MnGanz Then
MsgBox (1, "Mangan", "Mangan(Mn): Ordnungszahl:25, Fest(unter Normalbedingungen), Atommasse: 54,94u")

ElseIf $EA1 = $Fe Then
MsgBox (1, "Eisen", "Eisen: Ordnungszahl:26, Fest(unter Normalbedingungen), Atommasse: 55,85u")

ElseIf $EA1 = $FeGanz Then
MsgBox (1, "Eisen", "Eisen(Fe): Ordnungszahl:26, Fest(unter Normalbedingungen), Atommasse: 55,85u")

ElseIf $EA1 = $Co Then
MsgBox (1, "Cobalt", "Cobalt: Ordnungszahl:27, Fest(unter Normalbedingungen), Atommasse: 58,93")

ElseIf $EA1 = $CoGanz Then
MsgBox (1, "Cobalt", "Cobalt(Co): Ordnungszahl:27, Fest(unter Normalbedingungen), Atommasse: 58,93")

ElseIf $EA1 = $Ni Then
MsgBox (1, "Nickel", "Nickel: Ordnungszahl:28, Fest(unter Normalbedingungen), Atommasse: 58,7u")

[/autoit] [autoit][/autoit] [autoit]

ElseIf $EA1 = $NiGanz Then
MsgBox (1, "Nickel", "Nickel(Ni): Ordnungszahl:28, Fest(unter Normalbedingungen), Atommasse: 58,7u")

ElseIf $EA1 = $Cu Then
MsgBox (1, "Kupfer", "Kupfer: Ordnungszahl:29, Fest(unter Normalbedingungen), Atommasse: 63,55u")

ElseIf $EA1 = $CuGanz Then
MsgBox (1, "Kupfer", "Kupfer(Cu): Ordnungszahl:29, Fest(unter Normalbedingungen), Atommasse: 63,55u")

ElseIf $EA1 = $Zn Then
MsgBox (1, "Zink", "Zink: Ordnungszahl:30, Fest(unter Normalbedingungen), Atommasse: 65,38u")

ElseIf $EA1 = $ZnGanz Then
MsgBox (1, "Zink", "Zink(Zn): Ordnungszahl:30, Fest(unter Normalbedingungen), Atommasse: 65,38u")

ElseIf $EA1 = $Ga Then
MsgBox (1, "Gallium", "Gallium: Ordnungszahl:31, Fest, Atommasse: 69,72u")

ElseIf $EA1 = $GaGanz Then
MsgBox (1, "Gallium", "Gallium(Ga): Ordnungszahl:31, Fest, Atommasse: 69,72u")

ElseIf $EA1 = $Ge Then
MsgBox (1, "Germanium", "Germanium: Ordnungszahl:32, Fest, Atommasse: 72,61")

ElseIf $EA1 = $GeGanz Then
MsgBox (1, "Germanium", "Germanium(Ge): Ordnungszahl:32, Fest, Atommasse: 72,61")

ElseIf $EA1 = $As Then
MsgBox (1, "Arsen", "Arsen: Ordnungszahl:33, Fest, Atommasse: 74,92")

ElseIf $EA1 = $AsGanz Then
MsgBox (1, "Arsen", "Arsen(As): Ordnungszahl:33, Fest, Atommasse: 74,92")

ElseIf $EA1 = $Se Then
MsgBox (1, "Selen", "Selen: Ordnungszahl:34, Fest, Atommasse: 78,96")

ElseIf $EA1 = $SeGanz Then
MsgBox (1, "Selen", "Selen(Se): Ordnungszahl:34, Fest, Atommasse: 78,96")

ElseIf $EA1 = $Br Then
MsgBox (1, "Brom", "Brom: Ordnungszahl:35, Flüssig, Atommasse: 79,90u")

ElseIf $EA1 = $BrGanz Then
MsgBox (1, "Brom", "Brom(Br): Ordnungszahl:35, Flüssig, Atommasse: 79,90u")

ElseIf $EA1 = $Kr Then
MsgBox (1, "Krypton", "Krypton: Ordnungszahl:36, Gasförmig, Atommasse: 83,80u")

ElseIf $EA1 = $KrGanz Then
MsgBox (1, "Krypton", "Krypton(Kr): Ordnungszahl:36, Gasförmig, Atommasse: 83,80u")

ElseIf $EA1 = $Rb Then
MsgBox (1, "Rubidium", "Rubidium: Ordnungszahl:37, Fest, Atommasse: 85,47u")

ElseIf $EA1 = $RbGanz Then
MsgBox (1, "Rubidium", "Rubidium(Rb): Ordnungszahl:37, Fest, Atommasse: 85,47u")

ElseIf $EA1 = $Sr Then
MsgBox (1, "Strontium", "Strontium: Ordnungszahl:38, Fest, Atommasse: 87,52u")

ElseIf $EA1 = $SrGanz Then
MsgBox (1, "Strontium", "Strontium(Sr): Ordnungszahl:38, Fest, Atommasse: 87,52u")

ElseIf $EA1 = $Y Then
MsgBox (1, "Yttrium", "Yttrium: Ordnungszahl:39, Fest(unter Normalbedingungen), Atommasse: 88,91u")

ElseIf $EA1 = $YGanz Then
MsgBox (1, "Yttrium", "Yttrium(Y): Ordnungszahl:39, Fest(unter Normalbedingungen), Atommasse: 88,91u")

ElseIf $EA1 = $Zr Then
MsgBox (1, "Zirconium", "Zirconium: Ordnungszahl:40, Fest(unter Normalbedingungen), Atommasse: 91,22u")

ElseIf $EA1 = $ZrGanz Then
MsgBox (1, "Zirconium", "Zirconium(Zr): Ordnungszahl:40, Fest(unter Normalbedingungen), Atommasse: 91,22u")

ElseIf $EA1 = $Nb Then
MsgBox (1, "Niob", "Niob: Ordnungszahl:41, Fest(unter Normalbedingungen), Atommasse: 92,91u")

ElseIf $EA1 = $NbGanz Then
MsgBox (1, "Niob", "Niob(Nb): Ordnungszahl:41, Fest(unter Normalbedingungen), Atommasse: 92,91u")

ElseIf $EA1 = $Mo Then
MsgBox (1, "Molybdän", "Molybdän: Ordnungszahl:42, Fest(unter Normalbedingungen), Atommasse: 95,94u")

ElseIf $EA1 = $MoGanz Then
MsgBox (1, "Molybdän", "Molybdän(Mo): Ordnungszahl:42, Fest(unter Normalbedingungen), Atommasse: 95,94u")

ElseIf $EA1 = $Tc Then
MsgBox (1, "Technetium", "Technetium: Ordnungszahl:43, Fest(unter Normalbedingungen), Atommasse: (98)u, ACHTUNG:Radioaktiv!!")

ElseIf $EA1 = $TcGanz Then
MsgBox (1, "Technetium", "Technetium(Tc): Ordnungszahl:43, Fest(unter Normalbedingungen), Atommasse: (98)u, ACHTUNG:Radioaktiv!!")

ElseIf $EA1 = $Ru Then
MsgBox (1, "Ruthenium", "Ruthenium: Ordnungszahl:44, Fest(unter Normalbedingungen), Atommasse: 101,07u")

ElseIf $EA1 = $RuGanz Then
MsgBox (1, "Ruthenium", "Ruthenium(Ru): Ordnungszahl:44, Fest(unter Normalbedingungen), Atommasse: 101,07u")

ElseIf $EA1 = $Rh Then
MsgBox (1, "Rohdium", "Rohdium: Ordnungszahl:45, Fest(unter Normalbedingungen), Atommasse: 102,91u")

ElseIf $EA1 = $RhGanz Then
MsgBox (1, "Rohdium", "Rohdium(Rh): Ordnungszahl:45, Fest(unter Normalbedingungen), Atommasse: 102,91u")

ElseIf $EA1 = $Pd Then
MsgBox (1, "Palladium", "Palladium: Ordnungszahl:46, Fest(unter Normalbedingungen), Atommasse: 106,42u")

ElseIf $EA1 = $PdGanz Then
MsgBox (1, "Palladium", "Palladium(Pd): Ordnungszahl:46, Fest(unter Normalbedingungen), Atommasse: 106,42u")

ElseIf $EA1 = $Ag Then
MsgBox (1, "Silber", "Silber: Ordnungszahl:47, Fest(unter Normalbedingungen), Atommasse: 107,87u")

ElseIf $EA1 = $AgGanz Then
MsgBox (1, "Silber", "Silber(Ag): Ordnungszahl:47, Fest(unter Normalbedingungen), Atommasse: 107,87u")

ElseIf $EA1 = $Cd Then
MsgBox (1, "Cadmium", "Cadmium: Ordnungszahl:48, Fest(unter Normalbedingungen), Atommasse: 112,41u")

ElseIf $EA1 = $CdGanz Then
MsgBox (1, "Cadmium", "Cadmium(Cd): Ordnungszahl:48, Fest(unter Normalbedingungen), Atommasse: 112,41u")

ElseIf $EA1 = $In Then
MsgBox (1, "Indium", "Indium: Ordnungszahl:49, Fest, Atommasse: 114,82u")

ElseIf $EA1 = $InGanz Then
MsgBox (1, "Indium", "Indium(In): Ordnungszahl:49, Fest, Atommasse: 114,82u")

ElseIf $EA1 = $Sn Then
MsgBox (1, "Zinn", "Zinn: Ordnungszahl:50, Fest, Atommasse: 118,71u")

ElseIf $EA1 = $SnGanz Then
MsgBox (1, "Zinn", "Zinn(Sn): Ordnungszahl:50, Fest, Atommasse: 118,71u")

ElseIf $EA1 = $Sb Then
MsgBox (1, "Antimon", "Antimon: Ordnungszahl:51, Fest, Atommasse: 121,76u")

ElseIf $EA1 = $SbGanz Then
MsgBox (1, "Antimon", "Antimon(Sb): Ordnungszahl:51, Fest, Atommasse: 121,76u")

ElseIf $EA1 = $Te Then
MsgBox (1, "Tellur", "Tellur: Ordnungszahl:52, Fest, Atommasse: 127,60u")

ElseIf $EA1 = $TeGanz Then
MsgBox (1, "Tellur", "Tellur(Te): Ordnungszahl:52, Fest, Atommasse: 127,60u")

ElseIf $EA1 = $I Then
MsgBox (1, "Iod", "Iod: Ordnungszahl:53, Fest, Atommasse: 126,90u")

ElseIf $EA1 = $IGanz Then
MsgBox (1, "Iod", "Iod(I): Ordnungszahl:53, Fest, Atommasse: 126,90u")

ElseIf $EA1 = $Xe Then
MsgBox (1, "Xenon", "Xenon: Ordnungszahl:54, Gasförmig, Atommasse: 131,29u")

ElseIf $EA1 = $XeGanz Then
MsgBox (1, "Xenon", "Xenon(Xe): Ordnungszahl:54, Gasförmig, Atommasse: 131,29u")

ElseIf $EA1 = $Cs Then
MsgBox (1, "Cäsium", "Cäsium: Ordnungszahl:55, Fest, Atommasse: 132,91u")

ElseIf $EA1 = $CsGanz Then
MsgBox (1, "Cäsium", "Cäsium(Cs): Ordnungszahl:55, Fest, Atommasse: 132,91u")

ElseIf $EA1 = $Ba Then
MsgBox (1, "Barium", "Barium: Ordnungszahl:56, Fest, Atommasse: 137,33u")

ElseIf $EA1 = $BaGanz Then
MsgBox (1, "Barium", "Barium(Ba): Ordnungszahl:56, Fest, Atommasse: 137,33u")

ElseIf $EA1 = $La Then
MsgBox (1, "Lanthan", "Lanthan: Ordnungszahl:57, Fest, Atommasse: 138,91u")

ElseIf $EA1 = $LaGanz Then
MsgBox (1, "Lanthan", "Lanthan(La): Ordnungszahl:57, Fest, Atommasse: 138,91u")

ElseIf $EA1 = $Ce Then
MsgBox (1, "Cer", "Cer: Ordnungszahl:58, Fest, Atommasse: 140,12u")

ElseIf $EA1 = $CeGanz Then
MsgBox (1, "Cer", "Cer(Ce): Ordnungszahl:58, Fest, Atommasse: 140,12u")

ElseIf $EA1 = $Pr Then
MsgBox (1, "Praseodym", "Praseodym: Ordnungszahl:59, Fest, Atommasse: 144,24u")

ElseIf $EA1 = $PrGanz Then
MsgBox (1, "Praseodym", "Praseodym(Pr): Ordnungszahl:59, Fest, Atommasse: 144,24u")

ElseIf $EA1 = $Nd Then
MsgBox (1, "Neodym", "Neodym: Ordnungszahl:60, Fest, Atommasse: 144,24u")

ElseIf $EA1 = $NdGanz Then
MsgBox (1, "Neodym", "Neodym(Nd): Ordnungszahl:60, Fest, Atommasse: 144,24u")

ElseIf $EA1 = $Pm Then
MsgBox (1, "Promethium", "Promethium: Ordnungszahl:61, Fest(unter Normalbedingungen), Atommasse: (145)u, ACHTUNG:Radioaktiv!!")

ElseIf $EA1 = $PmGanz Then
MsgBox (1, "Promethium", "Promethium(Pm): Ordnungszahl:61, Fest(unter Normalbedingungen), Atommasse: (145)u, ACHTUNG:Radioaktiv!!")

ElseIf $EA1 = $Sm Then
MsgBox (1, "Samarium", "Samarium: Ordnungszahl:62, Fest, Atommasse: 150,36u")

ElseIf $EA1 = $SmGanz Then
MsgBox (1, "Samarium", "Samarium(Sm): Ordnungszahl:62, Fest, Atommasse: 150,36u")

ElseIf $EA1 = $Eu Then
MsgBox (1, "Europium", "Europium: Ordnungszahl:63, Fest, Atommasse: 151,97u")

ElseIf $EA1 = $EuGanz Then
MsgBox (1, "Europium", "Europium(Eu): Ordnungszahl:63, Fest, Atommasse: 151,97u")

ElseIf $EA1 = $Gd Then
MsgBox (1, "Gadolinium", "Gadolinium: Ordnungszahl:64, Fest, Atommasse: 157,97u")

ElseIf $EA1 = $GdGanz Then
MsgBox (1, "Gadolinium", "Gadolinium(Gd): Ordnungszahl:64, Fest, Atommasse: 157,97u")

ElseIf $EA1 = $Tb Then
MsgBox (1, "Terbium", "Terbium: Ordnungszahl:65, Fest, Atommasse: 158,93u")

ElseIf $EA1 = $TbGanz Then
MsgBox (1, "Terbium", "Terbium(Tb): Ordnungszahl:65, Fest, Atommasse: 158,93u")

ElseIf $EA1 = $Dy Then
MsgBox (1, "Dysprosium", "Dysprosium: Ordnungszahl:66, Fest, Atommasse: 162,50u")

ElseIf $EA1 = $DyGanz Then
MsgBox (1, "Dysprosium", "Dysprosium(Dy): Ordnungszahl:66, Fest, Atommasse: 162,50u")

ElseIf $EA1 = $Ho Then
MsgBox (1, "Holmium", "Holmium: Ordnungszahl:67, Fest, Atommasse: 164,93u")

ElseIf $EA1 = $HoGanz Then
MsgBox (1, "Holmium", "Holmium(Ho): Ordnungszahl:67, Fest, Atommasse: 164,93u")

ElseIf $EA1 = $Er Then
MsgBox (1, "Erbium", "Erbium: Ordnungszahl:68, Fest, Atommasse: 167,26u")

ElseIf $EA1 = $ErGanz Then
MsgBox (1, "Erbium", "Erbium(Er): Ordnungszahl:68, Fest, Atommasse: 167,26u")

ElseIf $EA1 = $Tm Then
MsgBox (1, "Thulium", "Thulium: Ordnungszahl:69, Fest, Atommasse: 168,93u")

ElseIf $EA1 = $TmGanz Then
MsgBox (1, "Thulium", "Thulium(Tm): Ordnungszahl:69, Fest, Atommasse: 168,93u")

ElseIf $EA1 = $Yb Then
MsgBox (1, "Ytterbium", "Ytterbium: Ordnungszahl:70, Fest, Atommasse: 173,04u")

ElseIf $EA1 = $YbGanz Then
MsgBox (1, "Ytterbium", "Ytterbium(Yb): Ordnungszahl:70, Fest, Atommasse: 173,04u")

ElseIf $EA1 = $Lu Then
MsgBox (1, "Lutetium", "Lutetium: Ordnungszahl:71, Fest, Atommasse: 174,97")

ElseIf $EA1 = $LuGanz Then
MsgBox (1, "Lutetium", "Lutetium(Lu): Ordnungszahl:71, Fest, Atommasse: 174,97")

ElseIf $EA1 = $Hf Then
MsgBox (1, "Hafnium", "Hafnium: Ordnungszahl:72, Fest, Atommasse: 178,49")

ElseIf $EA1 = $HfGanz Then
MsgBox (1, "Hafnium", "Hafnium(Hf): Ordnungszahl:72, Fest, Atommasse: 178,49")

ElseIf $EA1 = $Ta Then
MsgBox (1, "Tantal", "Tantal: Ordnungszahl:73, Fest, Atommasse: 180,95u")

ElseIf $EA1 = $TaGanz Then
MsgBox (1, "Tantal", "Tantal(Ta): Ordnungszahl:73, Fest, Atommasse: 180,95u")

ElseIf $EA1 = $W Then
MsgBox (1, "Wolfram", "Wolfram: Ordnungszahl:74, Fest, Atommasse: 183,84u")

ElseIf $EA1 = $WGanz Then
MsgBox (1, "Wolfram", "Wolfram(W): Ordnungszahl:74, Fest, Atommasse: 183,84u")

ElseIf $EA1 = $Re Then
MsgBox (1, "Rhenium", "Rhenium: Ordnungszahl:75, Fest, Atommasse: 186,21u")

ElseIf $EA1 = $ReGanz Then
MsgBox (1, "Rhenium", "Rhenium(Re): Ordnungszahl:75, Fest, Atommasse: 186,21u")

ElseIf $EA1 = $Os Then
MsgBox (1, "Osmium", "Osmium: Ordnungszahl:76, Fest, Atommasse: 190,23u")

ElseIf $EA1 = $OsGanz Then
MsgBox (1, "Osmium", "Osmium(Os): Ordnungszahl:76, Fest, Atommasse: 190,23u")

ElseIf $EA1 = $Ir Then
MsgBox (1, "Iridium", "Iridium: Ordnungszahl:77, Fest, Atommasse: 192,22u")

ElseIf $EA1 = $IrGanz Then
MsgBox (1, "Iridium", "Iridium(Ir): Ordnungszahl:77, Fest, Atommasse: 192,22u")

ElseIf $EA1 = $Pt Then
MsgBox (1, "Platin", "Platin: Ordnungszahl:78, Fest, Atommasse: 195,08u")

ElseIf $EA1 = $PtGanz Then
MsgBox (1, "Platin", "Platin(Pt): Ordnungszahl:78, Fest, Atommasse: 195,08u")

ElseIf $EA1 = $Au Then
MsgBox (1, "Gold", "Gold: Ordnungszahl:79, Fest, Atommasse: 196,97u")

ElseIf $EA1 = $AuGanz Then
MsgBox (1, "Gold", "Gold(Au): Ordnungszahl:79, Fest, Atommasse: 196,97u")

ElseIf $EA1 = $Hg Then
MsgBox (1, "Quecksilber", "Quecksilber: Ordnungszahl:80, Flüssig, Atommasse: 200,59u")

ElseIf $EA1 = $HgGanz Then
MsgBox (1, "Quecksilber", "Quecksilber(Hg): Ordnungszahl:80, Flüssig, Atommasse: 200,59u")

ElseIf $EA1 = $Tl Then
MsgBox (1, "Thallium", "Thallium: Ordnungszahl:81, Fest, Atommasse: 204,38u")

ElseIf $EA1 = $TlGanz Then
MsgBox (1, "Thallium", "Thallium(Tl): Ordnungszahl:81, Fest, Atommasse: 204,38u")

ElseIf $EA1 = $Pb Then
MsgBox (1, "Blei", "Blei: Ordnungszahl:82, Fest, Atommasse: 207,20u")

ElseIf $EA1 = $PbGanz Then
MsgBox (1, "Blei", "Blei(Pb): Ordnungszahl:82, Fest, Atommasse: 207,20u")

ElseIf $EA1 = $Bi Then
MsgBox (1, "Bismut", "Bismut: Ordnungszahl:83, Fest, Atommasse: 208,98u")

ElseIf $EA1 = $BiGanz Then
MsgBox (1, "Bismut", "Bismut(Bi): Ordnungszahl:83, Fest, Atommasse: 208,98u")

ElseIf $EA1 = $Po Then
MsgBox (1, "Polonium", "Polonium: Ordnungszahl:84, Fest, Atommasse: (209)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $PoGanz Then
MsgBox (1, "Polonium", "Polonium(Po): Ordnungszahl:84, Fest, Atommasse: (209)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $AT Then
MsgBox (1, "Astat", "Astat: Ordnungszahl:85, Fest, Atommasse: (210)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $ATGanz Then
MsgBox (1, "Astat", "Astat(At): Ordnungszahl:85, Fest, Atommasse: (210)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Rn Then
MsgBox (1, "Radon", "Radon: Ordnungszahl:86, Fest, Atommasse: (222)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Rn Then
MsgBox (1, "Radon", "Radon(Rn): Ordnungszahl:86, Fest, Atommasse: (222)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Fr Then
MsgBox (1, "Francium", "Francium: Ordnungszahl:87, Fest, Atommasse: (223)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $FrGanz Then
MsgBox (1, "Francium", "Francium(Fr): Ordnungszahl:87, Fest, Atommasse: (223)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Ra Then
MsgBox (1, "Radium", "Radium: Ordnungszahl:88, Fest, Atommasse: (226)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $RaGanz Then
MsgBox (1, "Radium", "Radium(Ra): Ordnungszahl:88, Fest, Atommasse: (226)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Ac Then
MsgBox (1, "Actinium", "Actinium: Ordnungszahl:89, Fest, Atommasse: 227,03u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $AcGanz Then
MsgBox (1, "Actinium", "Actinium(Ac): Ordnungszahl:89, Fest, Atommasse: 227,03u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Th Then
MsgBox (1, "Thorium", "Thorium: Ordnungszahl:90, Fest, Atommasse: 232,04u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $ThGanz Then
MsgBox (1, "Thorium", "Thorium(Th): Ordnungszahl:90, Fest, Atommasse: 232,04u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Pa Then
MsgBox (1, "Protactinium", "Protactinium: Ordnungszahl:91, Fest, Atommasse: 231,03, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $PaGanz Then
MsgBox (1, "Protactinium", "Protactinium(Pa): Ordnungszahl:91, Fest, Atommasse: 231,03, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $U Then
MsgBox (1, "Uran", "Uran: Ordnungszahl:92, Fest, Atommasse: 238,03u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $UGanz Then
MsgBox (1, "Uran", "Uran(U): Ordnungszahl:92, Fest, Atommasse: 238,03u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Np Then
MsgBox (1, "Neptunium", "Neptunium: Ordnungszahl:93, Fest, Atommasse: (237), ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $NpGanz Then
MsgBox (1, "Neptunium", "Neptunium(Np): Ordnungszahl:93, Fest, Atommasse: (237), ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Pu Then
MsgBox (1, "Plutonium", "Plutonium: Ordnungszahl:94, Fest, Atommasse: (244)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $PuGanz Then
MsgBox (1, "Plutonium", "Plutonium(Pu): Ordnungszahl:94, Fest, Atommasse: (244)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Am Then
MsgBox (1, "Americum", "Americum: Ordnungszahl:95, Fest, Atommasse: (243)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $AmGanz Then
MsgBox (1, "Americum", "Americum(Am): Ordnungszahl:95, Fest, Atommasse: (243)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Cm Then
MsgBox (1, "Curium", "Curium: Ordnungszahl:96, Fest, Atommasse: (247)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $CmGanz Then
MsgBox (1, "Curium", "Curium(Cm): Ordnungszahl:96, Fest, Atommasse: (247)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Bk Then
MsgBox (1, "Berkelium", "Berkelium: Ordnungszahl:97, Fest, Atommasse: (247)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $BkGanz Then
MsgBox (1, "Berkelium", "Berkelium(Bk): Ordnungszahl:97, Fest, Atommasse: (247)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Cf Then
MsgBox (1, "Californium", "Californium: Ordnungszahl:98, Fest, Atommasse: (251)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $CfGanz Then
MsgBox (1, "Californium", "Californium(Cf): Ordnungszahl:98, Fest, Atommasse: (251)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Es Then
MsgBox (1, "Einsteinium", "Einsteinium: Ordnungszahl:99, Fest, Atommasse: (252)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $EsGanz Then
MsgBox (1, "Einsteinium", "Einsteinium(Es): Ordnungszahl:99, Fest, Atommasse: (252)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Fm Then
MsgBox (1, "Fermium", "Fermium: Ordnungszahl:100, Fest, Atommasse: (257)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $FmGanz Then
MsgBox (1, "Fermium", "Fermium(Fm): Ordnungszahl:100, Fest, Atommasse: (257)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Md Then
MsgBox (1, "Mendelevium", "Mendelevium: Ordnungszahl:101, Fest, Atommasse: (258)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $MdGanz Then
MsgBox (1, "Mendelevium", "Mendelevium(Md): Ordnungszahl:101, Fest, Atommasse: (258)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $No Then
MsgBox (1, "Nobelium", "Nobelium: Ordnungszahl:102, Fest, Atommasse: (259)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $NoGanz Then
MsgBox (1, "Nobelium", "Nobelium(No): Ordnungszahl:102, Fest, Atommasse: (259)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Lr Then
MsgBox (1, "Lawrencium", "Lawrencium: Ordnungszahl:103, Fest, Atommasse: (260)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $LrGanz Then
MsgBox (1, "Lawrencium", "Lawrencium(Lr): Ordnungszahl:103, Fest, Atommasse: (260)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Rf Then
MsgBox (1, "Rutherfordium", "Rutherfordium: Ordnungszahl:104, Fest, Atommasse: (261)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $RfGanz Then
MsgBox (1, "Rutherfordium", "Rutherfordium(Rf): Ordnungszahl:104, Fest, Atommasse: (261)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Db Then
MsgBox (1, "Dubnium", "Dubnium: Ordnungszahl:105, Fest, Atommasse: (262)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $DbGanz Then
MsgBox (1, "Dubnium", "Dubnium(Db): Ordnungszahl:105, Fest, Atommasse: (262)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Sg Then
MsgBox (1, "Seaborgium", "Seaborgium: Ordnungszahl:106, Fest, Atommasse: (263)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $SgGanz Then
MsgBox (1, "Seaborgium", "Seaborgium(Sg): Ordnungszahl:106, Fest, Atommasse: (263)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Bh Then
MsgBox (1, "Bohrium", "Bohrium: Ordnungszahl:107, Fest, Atommasse: (262)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $BhGanz Then
MsgBox (1, "Bohrium", "Bohrium(Bh): Ordnungszahl:107, Fest, Atommasse: (262)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Hs Then
MsgBox (1, "Hassium", "Hassium: Ordnungszahl:108, Fest, Atommasse: (265)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $HsGanz Then
MsgBox (1, "Hassium", "Hassium(Hs): Ordnungszahl:108, Fest, Atommasse: (265)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Mt Then
MsgBox (1, "Meitnerium", "Meitnerium: Ordnungszahl:109, Fest, Atommasse: (266)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $MtGanz Then
MsgBox (1, "Meitnerium", "Meitnerium(Mt): Ordnungszahl:109, Fest, Atommasse: (266)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Ds Then
MsgBox (1, "Darmstadtium", "Darmstadtium: Ordnungszahl:110, Fest, Atommasse: (269)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $DsGanz Then
MsgBox (1, "Darmstadtium", "Darmstadtium(Ds): Ordnungszahl:110, Fest, Atommasse: (269)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Rg Then
MsgBox (1, "Roentgenium", "Roentgenium: Ordnungszahl:111, Fest, Atommasse: (272)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $RgGanz Then
MsgBox (1, "Roentgenium", "Roentgenium(Rg): Ordnungszahl:111, Fest, Atommasse: (272)u, ACHTUNG: Radioaktiv!!!")

[/autoit] [autoit][/autoit] [autoit]

ElseIf $EA1 = $Uub Then
MsgBox (1, "Ununbium", "Ununbium: Ordnungszahl:112, Fest, Atommasse: (285)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $UubGanz Then
MsgBox (1, "Ununbium", "Ununbium(Uub): Ordnungszahl:112, Fest, Atommasse: (285)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Uut Then
MsgBox (1, "Ununtrium", "Ununtrium: Ordnungszahl:113, Fest, Atommasse: (284)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $UutGanz Then
MsgBox (1, "Ununtrium", "Ununtrium(Uut): Ordnungszahl:113, Fest, Atommasse: (284)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Uuq Then
MsgBox (1, "Ununquadium", "Ununquadium: Ordnungszahl:114, Fest, Atommasse: (289)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $UuqGanz Then
MsgBox (1, "Ununquadium", "Ununquadium(Uuq): Ordnungszahl:114, Fest, Atommasse: (289)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Uup Then
MsgBox (1, "Ununpentium", "Ununpentium: Ordnungszahl:115, Fest, Atommasse: (288)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $UupGanz Then
MsgBox (1, "Ununpentium", "Ununpentium(Uup): Ordnungszahl:115, Fest, Atommasse: (288)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Uuh Then
MsgBox (1, "Ununhexium", "Ununhexium: Ordnungszahl:116, Fest, Atommasse: (292)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $UuhGanz Then
MsgBox (1, "Ununhexium", "Ununhexium(Uuh): Ordnungszahl:116, Fest, Atommasse: (292)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Uus Then
MsgBox (1, "Ununseptium", "Ununseptium: Ordnungszahl:117, Fest, Atommasse: (292)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $UusGanz Then
MsgBox (1, "Ununseptium", "Ununseptium(Uus): Ordnungszahl:117, Fest, Atommasse: (292)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $Uuo Then
MsgBox (1, "Ununoctium", "Ununoctium: Ordnungszahl:118, Fest, Atommasse: (294)u, ACHTUNG: Radioaktiv!!!")

ElseIf $EA1 = $UuoGanz Then
MsgBox (1, "Ununoctium", "Ununoctium(Uuo): Ordnungszahl:118, Fest, Atommasse: (294)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 <- Von hier!

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

EndIf

[/autoit] [autoit][/autoit] [autoit]

WEnd
Func Exit1 ()
Exit
EndFunc

[/autoit]

P.S.: Habe auch mal die au3 angehängt.
autoit.de/wcf/attachment/3195/