Danke Oscar
Verstehe auch net warum es nicht bei mir klappt. 
Ich denke das ich die Beschreibung schon machen kann 
. Wirst du ja bald sehen.
Beiträge von Conan10
-
-
Happy Birthday autoit.de!!!!
Hoffe es geht noch lange so weiter.
Das Forum besticht durch ihre Mitglieder, die besonders freundlich und hilfsbereit sind. Auch die Moderatoren sind erstklassig! Es würde selbst bei den Giga Hompageaward wahrscheinlich gewinnen, da es einfach nur erstklassig ist. -
Von mir auch alles Gute!!!!
-
Also hab angefangen mit dem Vorschlag von Oscar zu arbeiten , aber mal ne frage an euch ich bekommen im Window Info tool als Koordinaten nur ???? Was mache ich falsch?
-
Hi schönes Programm
Nur eine kleine Anmerkung, mach die Icons und die config in einen extra Ordner sieht einfach besser aus.
Sonst wie gesagt SUPER -
Danke Oscar werde mir das mal angucken. Mal sehen vielleicht findest du das ja schon in der nächsten oder übernächsten Version wieder.
-
Ja man sollte selbst helfen, so wiet man kann, sonst wird einem selbst nicht mehr geholfen.
-
Jo mach ich (bis jetzt hat ja das komplette Forum sehr geholfen wenn ich irgendwie probleme habe).Lob an euch!!!!
-
Ja muss mal schauen die Idee is aber net schlecht.
-
Update
Neuste Version: 1.4
Neues:Spoiler anzeigen
Update und Changelog wurden hinzugefügt
TrayMenü wurde hinzugefügt
Versteckenfunktion wurde hinzugefügt
Bild zur Orientierung wurde hinzugefügt -
So mach ich das immer:
(Habe jetzt mal drei Sachen bei dem Menü genommen um es besser zu zeigen, was man da noch so machen kann. Wie du das mit dem linksklick hinkriegst weiß ich aber leider net.)Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Opt("TrayOnEventMode",1)
Opt("TrayMenuMode",1)
$update = TrayCreateMenu("Update")
TrayItemSetOnEvent(-1,"Update")
TrayCreateItem("Update",$update)
TrayItemSetOnEvent(-1,"Update")
TrayCreateItem("")
$verstecken = TrayCreateItem("Verstecken")
TrayItemSetOnEvent(-1,"Verstecken")
$zeigen = TrayCreateItem("Zeigen")
TrayItemSetOnEvent(-1,"Zeigen")
TrayCreateItem("")Func Verstecken ()
[/autoit]
Do
$i = $i+1
WinSetState($Hauptfenster,"",@SW_HIDE)
ExitLoop
Until $i = 10
EndFunc
Func Zeigen ()
Do
$i = $i+1
WinSetState($Hauptfenster,"", @SW_SHOW)
ExitLoop
Until $i = 10
EndFunc
$exititem = TrayCreateItem("Beenden")
TrayItemSetOnEvent(-1,"ExitScript") -
Hab es jetzt nochmal untergeladen. ist zwar jetzt nichts gegen dich, aber in der Liste ist glaub ich noch irgendwo ein Fehler.(Ich muss mal schauen ob ich ihn finde)
P.S.: Die exe funktioniert bei mir.
P.S.S: Ganz schön viele Fehler
-
Du hast übrigends alle Variablen vergessen(Außer die Version).Es fehlen Variablen für die .ini(Namen),für die Patientennummer)
-
Also alles in eine .ini-datei schreiben kannste so machen:
Spoiler anzeigen
[autoit]IniWriteSection ("Daten","Name","Die Daten die du schreiben möchtest")
[/autoit]
IniWriteSection ("Daten","News","Die Daten die du schreiben möchtest")
IniWriteSection ("Daten","Status","Die Daten die du schreiben möchtest")
IniWriteSection ("Daten","Register","Die Daten die du schreiben möchtest")Und lesen kannste das dann mit:
Spoiler anzeigen
[autoit]IniReadSection ("Daten","Name")
[/autoit]
IniReadSection ("Daten","News")
IniReadSection ("Daten","Status")
IniReadSection ("Daten","Register")Hoffe es hilft dir
-
UPDATE auf Version 1.3
Es gibt viele Neuerungen wie z.b. die Info oder die Hilfe.
Hoffe es gefällt euch leider hab ich das noch nicht eingefügt, dass sich das Programm bei einer falschem Eingabe beendet.
Werde bald noch mehr einfügenConan10
-
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")
[/autoit] [autoit][/autoit] [autoit]
;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"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)
[/autoit] [autoit][/autoit] [autoit]
<- 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", "","")If $EA1 = $H Then
[/autoit] [autoit][/autoit] [autoit]
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")ElseIf $EA1 = $NiGanz Then
[/autoit] [autoit][/autoit] [autoit]
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!!!")ElseIf $EA1 = $Uub Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
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!EndIf
[/autoit] [autoit][/autoit] [autoit]WEnd
[/autoit]
Func Exit1 ()
Exit
EndFuncP.S.: Habe auch mal die au3 angehängt.
Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. -
Könnte mir denn niemand eine Beschreibung wenigstens geben wo ich was wo eintragen kann??
-
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")
[/autoit] [autoit][/autoit] [autoit]
;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"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)
[/autoit] [autoit][/autoit] [autoit]
$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", "","")If $EA1 = $H Then
[/autoit] [autoit][/autoit] [autoit]
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")ElseIf $EA1 = $NiGanz Then
[/autoit] [autoit][/autoit] [autoit]
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!!!")ElseIf $EA1 = $Uub Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
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")
ExitEndIf
[/autoit] [autoit][/autoit] [autoit]WEnd
[/autoit]
Func Exit1 ()
Exit
EndFuncBitte kann mir bitte jemand helfen
-
Danke für eure Hilfe. Hoffe ich werde es so umsetzen können.
-
Danke erstmal für deine schnelle Antwort werde es mal ausprobieren