Börsendaten

  • Ein kleines Programm, welches halbwegs aktuelle Börsenkurse zu auswählbaren Aktien liefert. Die Aktienliste kann leicht erweitert werden.


    [Blockierte Grafik: http://img715.imageshack.us/img715/4336/brsendaten.jpg]


    Quellcode:

    Spoiler anzeigen
    [autoit]

    ;Programm zum beobachten von Kursdaten
    ;Von FrithjofP
    ;Basierend auf YahooFinances

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

    #include
    #include
    #include
    #include
    #include
    #Region ### START Koda GUI section ### Form=C:\Users\Frithjof\Desktop\AutoitProjekte\KODA\Forms\Börsendaten.kxf
    $Form1 = GUICreate("Börsendaten", 741, 174, 223, 522)
    $Combo = GUICtrlCreateCombo("Apple $ ; AAPL", 16, 16, 105, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    GUICtrlSetData($Combo, "Adidas € ; ADS.DE|Allianz € ; ALV.DE|Bilfinger € ; GBF.DE|Daimler € ; DAI.DE|D. Bank € ; DBK.DE|Infineon € ; IFX.DE|Google $ ; GOOG|Gold $ ; GOLD|Microsoft $ ; MSFT|Oil $ ; OIL|Porsche € ; PAH3.DE|Rheinmetall € ; RHM.DE|RWE € ; RWE.DE|Silber $ ; SSRI|VW € ; VOW3.DE")
    $Combo2 = GUICtrlCreateCombo("Apple $ ; AAPL", 137, 16, 105, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    GUICtrlSetData($Combo2, "Adidas € ; ADS.DE|Allianz € ; ALV.DE|Bilfinger € ; GBF.DE|Daimler € ; DAI.DE|D. Bank € ; DBK.DE|Infineon € ; IFX.DE|Google $ ; GOOG|Gold $ ; GOLD|Microsoft $ ; MSFT|Oil $ ; OIL|Porsche € ; PAH3.DE|Rheinmetall € ; RHM.DE|RWE € ; RWE.DE|Silber $ ; SSRI|VW € ; VOW3.DE")
    $Combo3 = GUICtrlCreateCombo("Apple $ ; AAPL", 258, 15, 105, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    GUICtrlSetData($Combo3, "Adidas € ; ADS.DE|Allianz € ; ALV.DE|Bilfinger € ; GBF.DE|Daimler € ; DAI.DE|D. Bank € ; DBK.DE|Infineon € ; IFX.DE|Google $ ; GOOG|Gold $ ; GOLD|Microsoft $ ; MSFT|Oil $ ; OIL|Porsche € ; PAH3.DE|Rheinmetall € ; RHM.DE|RWE € ; RWE.DE|Silber $ ; SSRI|VW € ; VOW3.DE")
    $Combo4 = GUICtrlCreateCombo("Apple $ ; AAPL", 379, 15, 105, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    GUICtrlSetData($Combo4, "Adidas € ; ADS.DE|Allianz € ; ALV.DE|Bilfinger € ; GBF.DE|Daimler € ; DAI.DE|D. Bank € ; DBK.DE|Infineon € ; IFX.DE|Google $ ; GOOG|Gold $ ; GOLD|Microsoft $ ; MSFT|Oil $ ; OIL|Porsche € ; PAH3.DE|Rheinmetall € ; RHM.DE|RWE € ; RWE.DE|Silber $ ; SSRI|VW € ; VOW3.DE")
    $Combo5 = GUICtrlCreateCombo("Apple $ ; AAPL", 499, 16, 105, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    GUICtrlSetData($Combo5, "Adidas € ; ADS.DE|Allianz € ; ALV.DE|Bilfinger € ; GBF.DE|Daimler € ; DAI.DE|D. Bank € ; DBK.DE|Infineon € ; IFX.DE|Google $ ; GOOG|Gold $ ; GOLD|Microsoft $ ; MSFT|Oil $ ; OIL|Porsche € ; PAH3.DE|Rheinmetall € ; RHM.DE|RWE € ; RWE.DE|Silber $ ; SSRI|VW € ; VOW3.DE")
    $Combo6 = GUICtrlCreateCombo("Apple $ ; AAPL", 620, 16, 105, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    GUICtrlSetData($Combo6, "Adidas € ; ADS.DE|Allianz € ; ALV.DE|Bilfinger € ; GBF.DE|Daimler € ; DAI.DE|D. Bank € ; DBK.DE|Infineon € ; IFX.DE|Google $ ; GOOG|Gold $ ; GOLD|Microsoft $ ; MSFT|Oil $ ; OIL|Porsche € ; PAH3.DE|Rheinmetall € ; RHM.DE|RWE € ; RWE.DE|Silber $ ; SSRI|VW € ; VOW3.DE")

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

    $Label1 = GUICtrlCreateLabel("N/A", 16, 48, 105, 89, BitOR($SS_CENTER,$SS_CENTERIMAGE))
    GUICtrlSetFont(-1, 24, 400, 0, "Calligraphic")
    GUICtrlSetBkColor(-1, 0xA6CAF0)
    $Label2 = GUICtrlCreateLabel("N/A", 137, 48, 105, 89, BitOR($SS_CENTER,$SS_CENTERIMAGE))
    GUICtrlSetFont(-1, 24, 400, 0, "Calligraphic")
    GUICtrlSetBkColor(-1, 0xA6CAF0)
    $Label3 = GUICtrlCreateLabel("N/A", 257, 48, 105, 89, BitOR($SS_CENTER,$SS_CENTERIMAGE))
    GUICtrlSetFont(-1, 24, 400, 0, "Calligraphic")
    GUICtrlSetBkColor(-1, 0xA6CAF0)
    $Label4 = GUICtrlCreateLabel("N/A", 380, 48, 105, 89, BitOR($SS_CENTER,$SS_CENTERIMAGE))
    GUICtrlSetFont(-1, 24, 400, 0, "Calligraphic")
    GUICtrlSetBkColor(-1, 0xA6CAF0)
    $Label5 = GUICtrlCreateLabel("N/A", 501, 48, 105, 89, BitOR($SS_CENTER,$SS_CENTERIMAGE))
    GUICtrlSetFont(-1, 24, 400, 0, "Calligraphic")
    GUICtrlSetBkColor(-1, 0xA6CAF0)
    $Label6 = GUICtrlCreateLabel("N/A", 621, 48, 105, 89, BitOR($SS_CENTER,$SS_CENTERIMAGE))
    GUICtrlSetFont(-1, 24, 400, 0, "Calligraphic")
    GUICtrlSetBkColor(-1, 0xA6CAF0)
    $Button1 = GUICtrlCreateButton("Aktuallisieren", 16, 144, 711, 25)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    _aktuallisieren()

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

    EndSwitch
    WEnd

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

    #cs
    Wichtiger Hinweis:
    Kurse werden mit einer zeitlichen Verzögerung angezeigt, sofern nicht anders angegeben. Für NASDAQ, NYSE und Amex beläuft sich die zeitliche Verzögerung auf 15 Minuten. Siehe auch Verzögerungszeiten anderer Börsenplätze. Kurse und andere Informationen werden von verschiedenen unabhängigen Anbietern geliefert. Diese können Sie auf der Partnerseite von Yahoo! Finanzen einsehen. Kurse werden automatisch aktualisiert. Diese Funktion wird jedoch nach 25 Minuten Inaktivität deaktiviert. Kurse werden mit einer zeitlichen Verzögerung von mindestens 15 Minuten angezeigt. Alle Daten werden ohne Gewähr bereitgestellt und dienen lediglich der Information, sie sind weder für Handelszwecke vorgesehen noch als Empfehlung zu verstehen. Yahoo! und die unabhängigen Anbieter haften weder für fehlerhafte, unvollständige oder verzögerte Informationen noch für Maßnahmen, die auf Grundlage der hierin enthaltenen Informationen ergriffen werden. Durch den Zugriff auf die Yahoo! Website verpflichten Sie sich, die hierin gefundenen Informationen nicht an Dritte weiterzugeben. #ce

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

    Hinweis!

    Spoiler anzeigen

    Kurse werden mit einer zeitlichen Verzögerung angezeigt, sofern nicht anders angegeben. Für NASDAQ, NYSE und Amex beläuft sich die zeitliche Verzögerung auf 15 Minuten. Siehe auch Verzögerungszeiten anderer Börsenplätze. Kurse und andere Informationen werden von verschiedenen unabhängigen Anbietern geliefert. Diese können Sie auf der Partnerseite von Yahoo! Finanzen einsehen. Kurse werden automatisch aktualisiert. Diese Funktion wird jedoch nach 25 Minuten Inaktivität deaktiviert. Kurse werden mit einer zeitlichen Verzögerung von mindestens 15 Minuten angezeigt. Alle Daten werden ohne Gewähr bereitgestellt und dienen lediglich der Information, sie sind weder für Handelszwecke vorgesehen noch als Empfehlung zu verstehen. Yahoo! und die unabhängigen Anbieter haften weder für fehlerhafte, unvollständige oder verzögerte Informationen noch für Maßnahmen, die auf Grundlage der hierin enthaltenen Informationen ergriffen werden. Durch den Zugriff auf die Yahoo! Website verpflichten Sie sich, die hierin gefundenen Informationen nicht an Dritte weiterzugeben.


    Ich freue mich auf eure Kommentare :)

    Dateien

    2 Mal editiert, zuletzt von FrithjofP (19. Juni 2011 um 23:07) aus folgendem Grund: Rechtlicher Hinweis auf Empfehlung von autoBert

  • Bin der Meinung, dass du aus rechtlichen Gründen diese Info in deinem Skript einblenden solltest:

    Zitat

    Kurse werden mit einer zeitlichen Verzögerung angezeigt, sofern nicht anders angegeben. Für NASDAQ, NYSE und Amex beläuft sich die zeitliche Verzögerung auf 15 Minuten. Siehe auch Verzögerungszeiten anderer Börsenplätze. Kurse und andere Informationen werden von verschiedenen unabhängigen Anbietern geliefert. Diese können Sie auf der Partnerseite von Yahoo! Finanzen einsehen. Kurse werden automatisch aktualisiert. Diese Funktion wird jedoch nach 25 Minuten Inaktivität deaktiviert. Kurse werden mit einer zeitlichen Verzögerung von mindestens 15 Minuten angezeigt. Alle Daten werden ohne Gewähr bereitgestellt und dienen lediglich der Information, sie sind weder für Handelszwecke vorgesehen noch als Empfehlung zu verstehen. Yahoo! und die unabhängigen Anbieter haften weder für fehlerhafte, unvollständige oder verzögerte Informationen noch für Maßnahmen, die auf Grundlage der hierin enthaltenen Informationen ergriffen werden. Durch den Zugriff auf die Yahoo! Website verpflichten Sie sich, die hierin gefundenen Informationen nicht an Dritte weiterzugeben.


    Quelle: http://de.finance.yahoo.com/;_ylt=A0wNc8.7…2xrA2dlcm1hbnk-

    Besonders der letzte Satz ist wichtig.

    mfg autoBert