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

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#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


Func _aktuallisieren()
	
	;Aktien einlesen
	$sAktie_1 = StringSplit(guictrlread($Combo), ";")
	$sAktie_2 = StringSplit(guictrlread($Combo2), ";")
	$sAktie_3 = StringSplit(guictrlread($Combo3), ";")
	$sAktie_4 = StringSplit(guictrlread($Combo4), ";")
	$sAktie_5 = StringSplit(guictrlread($Combo5), ";")
	$sAktie_6 = StringSplit(guictrlread($Combo6), ";")
	
	;Werte bei Yahoo abfragen
	
	$iWert_roh_1 = InetRead("http://finance.yahoo.com/d/quotes.csv?s=" & $sAktie_1[2] & "&f=a")
	$iWert_roh_2 = InetRead("http://finance.yahoo.com/d/quotes.csv?s=" & $sAktie_2[2] & "&f=a")
	$iWert_roh_3 = InetRead("http://finance.yahoo.com/d/quotes.csv?s=" & $sAktie_3[2] & "&f=a")
	$iWert_roh_4 = InetRead("http://finance.yahoo.com/d/quotes.csv?s=" & $sAktie_4[2] & "&f=a")
	$iWert_roh_5 = InetRead("http://finance.yahoo.com/d/quotes.csv?s=" & $sAktie_5[2] & "&f=a")
	$iWert_roh_6 = InetRead("http://finance.yahoo.com/d/quotes.csv?s=" & $sAktie_6[2] & "&f=a")
	
	;Erhalten Werte einsetzen
	
	GUICtrlSetData($Label1, BinaryToString($iWert_roh_1))
	GUICtrlSetData($Label2, BinaryToString($iWert_roh_2))
	GUICtrlSetData($Label3, BinaryToString($iWert_roh_3))
	GUICtrlSetData($Label4, BinaryToString($iWert_roh_4))
	GUICtrlSetData($Label5, BinaryToString($iWert_roh_5))
	GUICtrlSetData($Label6, BinaryToString($iWert_roh_6))
	
	EndFunc