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
;Programm zum beobachten von Kursdaten
;Von FrithjofP
;Basierend auf YahooFinances
#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")
$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 ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_aktuallisieren()
EndSwitch
WEnd
#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
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