PSI

1. offizieller Beitrag

    Wollte euch mal mein erstes komplett von mir geschriebenes AutoIt Programm vorstellen. Es heißt voll ausgeschrieben Periodensysteminformationsprogramm(Kurzschreibung: PSI). Es soll vorallem Schüler und Leuten helfen die das Periodensystem der Element in Chemie nicht auswendig lernen wollen(Atommasse,Ordnungszahl, u.s.w.). Es zeigt im Moment zwar nur den Namen, Aggragatzustand, Atommasse und Radioaktivität (falls vorhanden) an, aber ich werde es bestimmt noch mit mehr Informationen versorgen. ;) Ein kleines Problem besteht zwar(Man kann im Moment nur Abkürzungen von Elementen verwenden) ^^ , aber das werde ich auch hinkriegen.

    Geplant sind im moment die Ordnungszahlen und die Eingabe vom kompletten Namen.

    Der Link zum Programm:

    http://cid-4b3c5f417a0b793b.skydrive.live.com/self.aspx/Tools/PSI|_1.0.exe

    Bitte um eure Meinung ;)


    EDIT: Hier dann der Skript. Er ist zwar sehr umständlich aber funktioniert. ^^

    Spoiler anzeigen
    [autoit]

    HotKeySet ("F12","Exit1")

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

    Global $Exit1 = "Exit"
    Global $H = "H"
    Global $He = "He"
    Global $Li = "Li"
    Global $Be = "Be"
    Global $B = "B"
    Global $C = "C"
    Global $N = "N"
    Global $O = "O"
    Global $F = "F"
    Global $Ne = "Ne"
    Global $Na = "Na"
    Global $Mg = "Mg"
    Global $Al = "Al"
    Global $Si = "Si"
    Global $P = "P"
    Global $S = "S"
    Global $Cl = "Cl"
    Global $Ar = "Ar"
    Global $K = "K"
    Global $Ca = "Ca"
    Global $Sc = "Sc"
    Global $Ti = "Ti"
    Global $V = "V"
    Global $Cr = "Cr"
    Global $Mn = "Mn"
    Global $Fe = "Fe"
    Global $Co = "Co"
    Global $Ni = "Ni"
    Global $Cu = "Cu"
    Global $Zn = "Zn"
    Global $Ga = "Ga"
    Global $Ge = "Ge"
    Global $As = "As"
    Global $Se = "Se"
    Global $Br = "Br"
    Global $Kr = "Kr"
    Global $Rb = "Rb"
    Global $Sr = "Sr"
    Global $Y = "Y"
    Global $Zr = "Zr"
    Global $Nb = "Nb"
    Global $Mo = "Mo"
    Global $Tc = "Tc"
    Global $Ru = "Ru"
    Global $Rh = "Rh"
    Global $Pd = "Pd"
    Global $Ag = "Ag"
    Global $Cd = "Cd"
    Global $In = "In"
    Global $Sn = "Sn"
    Global $Sb = "Sb"
    Global $Te = "Te"
    Global $I = "I"
    Global $Xe = "Xe"
    Global $Cs = "Cs"
    Global $Ba = "Ba"
    Global $La = "La"
    Global $Ce = "Ce"
    Global $Pr = "Pr"
    Global $Nd = "Nd"
    Global $Pm = "Pm"
    Global $Sm = "Sm"
    Global $Eu = "Eu"
    Global $Gd = "Gd"
    Global $Tb = "Tb"
    Global $Dy = "Dy"
    Global $Ho = "Ho"
    Global $Er = "Er"
    Global $Tm = "Tm"
    Global $Yb = "Yb"
    Global $Lu = "Lu"
    Global $Hf = "Hf"
    Global $Ta = "Ta"
    Global $W = "W"
    Global $Re = "Re"
    Global $Os = "Os"
    Global $Ir = "Ir"
    Global $Pt = "Pt"
    Global $Au = "Au"
    Global $Hg = "Hg"
    Global $Tl = "Tl"
    Global $Pb = "Pb"
    Global $Bi = "Bi"
    Global $Po = "Po"
    Global $At = "At"
    Global $Rn = "Rn"
    Global $Fr = "Fr"
    Global $Ra = "Ra"
    Global $Ac = "Ac"
    Global $Th = "Th"
    Global $Pa = "Pa"
    Global $U = "U"
    Global $Np = "Np"
    Global $Pu = "Pu"
    Global $Am = "Am"
    Global $Cm = "Cm"
    Global $Bk = "Bk"
    Global $Cf = "Cf"
    Global $Es = "Es"
    Global $Fm = "Fm"
    Global $Md = "Md"
    Global $No = "No"
    Global $Lr = "Lr"
    Global $Rf = "Rf"
    Global $Db = "Db"
    Global $Sg = "Sg"
    Global $Bh = "Bh"
    Global $Hs = "Hs"
    Global $Mt = "Mt"
    Global $Ds = "Ds"

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

    WinMinimizeAll ()
    MsgBox (1, "Willkommen", "Willkommen und vielen Dank das sie mein Periodensysteminformationsprogramm benutzen. Für Bewertungen (egal ob negativ, positiv oder sonstiges) bitte eine E-Mail an Conan10@live.de")
    While (2)

    $EA1 = InputBox ("Periodensysteminformation","Bitte geben sie die Abkürzung eines Elements ein, z.B. Cl für Chlor. Exit zum Beenden. Hinweis: Angaben in Klammern bei Atommasse = Kein zuverlässiger Messwert verfügbar", "","")
    If $EA1 = $H Then
    MsgBox (1, "Wasserstoff", "Wasserstoff: Gasförmig, Atommasse: 1,01u")

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    Else
    $EA1= $Exit1
    MsgBox (1, "Vielen Dank!!","Vielen Dank das sie mein Programm benutzt haben. Ursachen für das Beenden des Programmes könnten sein: -Falsche Eingabe -Manuelles Beenden")
    Exit

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

    EndIf
    WEnd
    Func Exit1 ()
    Exit
    EndFunc

    [/autoit]


    P.S.: Geplant werden auch noch mehr Informationen, die auch durch das Periodensystem nicht erkennbar sind. :D

    MfG
    Conan (Nur Mitlesend)
    Schon lange dabei

    Einmal editiert, zuletzt von Conan10 (19. Oktober 2008 um 14:14)

    aufgrund des screenshot habe ich etwas mehr erwartet. Naja aber macht genau das was angepriesen. Ein Blick ins Periodensystem ist vermutlich trotzdem schneller.

    Grüße
    Franz

    ---
    In "Independence Day" konnten die Windows-Erdcomputer problemlos mit denen der Außerirdischen kommunizieren. Was sagt uns das über unseren lieben Bill Gates? :D
    ---

    So hab den Script nochmal hinzugefügt. Auch wollte ich nochmal darauf hinweisen das das bild eigentlich nur als hilfe für diejenigen sein sollte die die Abkürzungen nicht mehr wußten.Hab ausversehen vergessen das dazu zu schreiben *sorry*

    MfG
    Conan (Nur Mitlesend)
    Schon lange dabei

    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ügen

    Conan10

    MfG
    Conan (Nur Mitlesend)
    Schon lange dabei

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

    MfG
    Conan (Nur Mitlesend)
    Schon lange dabei

    Nettes Programm.Könntest ja das Bild in die einzelnen Perioden auseinanderschneiden und dann das Bild in der GUi wieder "zusammenstellen" dann könnte man auf das Bild klicken und die MsgBox erscheint. Spart eine Eingabe und ist wesentlich Nutzerfreundlicher.

    Ja , das habe ich auch schon gemerkt.
    Ich helfe immer gerne und so schnell/gut wie möglich , da ich finde wenn man Fragen stellt ( stelle öfter Fragen ) muss man auch hilfsbereit sein und zeigen das man nicht nur Fragen stellen will.

    • Offizieller Beitrag

    Damit Du Dir nicht die Mühe machen musst, das Bild zu zerschneiden und dann mühsam wieder mit einzelnen Pics zusammenzusetzen habe ich Dir mal ein Beispiel erstellt, wie man es stattdessen machen kann:

    Spoiler anzeigen
    [autoit]


    #include<GUIConstantsEx.au3>
    Opt('MouseCoordMode', 0)
    Global $aCoord[5][4] = [ _
    [016,019,050,064], _
    [016,065,050,108], _
    [016,109,050,152], _
    [016,153,050,196], _
    [016,197,050,240] _
    ]
    Global $aElements[5] = [ _
    'Wasserstoff', _
    'Lithium', _
    'Natrium', _
    'Kalium', _
    'Rubidium' _
    ]
    $iLeft = 80
    $iTop = 30
    $hGui = GUICreate('PSE', 800, 600)
    GUISetBkColor(0xffffff)
    $hPic = GUICtrlCreatePic('pse-gross.gif', $iLeft, $iTop, 650, 442)
    GUISetState()
    While True
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    Exit
    Case $hPic
    $aInfo = GUIGetCursorInfo($hGui)
    $aInfo[0] -= $iLeft
    $aInfo[1] -= $iTop
    For $i = 0 To UBound($aCoord) - 1
    If $aInfo[0] > $aCoord[$i][0] And $aInfo[0] < $aCoord[$i][2] And $aInfo[1] > $aCoord[$i][1] And $aInfo[1] < $aCoord[$i][3] Then ExitLoop
    Next
    If $i <= UBound($aCoord) -1 Then
    ToolTip($aElements[$i])
    Else
    ToolTip('')
    EndIf
    EndSwitch
    WEnd

    [/autoit]

    Ist jetzt nur für die ersten 5 Elemente (hatte keine Lust alle Koordinaten rauszusuchen), aber ich denke, dass es das Prinzip verdeutlicht. Zum Ausbau also das Array erweitern und die übrigen Koordinatenwerte eintragen.

    Danke Oscar werde mir das mal angucken. Mal sehen vielleicht findest du das ja schon in der nächsten oder übernächsten Version wieder. :D

    MfG
    Conan (Nur Mitlesend)
    Schon lange dabei

    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?

    MfG
    Conan (Nur Mitlesend)
    Schon lange dabei