Donnerstag, 18. April 2024, 10:05 UTC+2

Sie sind nicht angemeldet.

  • Anmelden
  • Registrieren

Exitbasis wird im Chart nicht gezeichnet. Warum?

Giuseppe Männlich

Meister

Registrierungsdatum: 31. März 2004

Beiträge: 556

Wohnort: Wien

1

Freitag, 4. März 2011, 21:09

Exitbasis wird im Chart nicht gezeichnet. Warum?

Hallo liebe Kollegen,

ich habe ein Problem mit einem einfachen VBS Code (übernommen von einem Beispiel - Hr. Knöpfel). Es soll einfach im Chart die Enter- und Exit-Basis dargestellt werden. Mit Enter-Basis klappt es auch gut, leider verstehe ich nicht warum es mit Exit-Basis nicht klappt. Wenn ich die Zahlen mit MsgBox ausschreiben lasse, wechseln die Werte "0" und die korrekte "exitBasis" ab. Woher kommt bitte die "0" her?

Danke für die Unterstützung

LG
giuseppe

Chart Import:

Quellcode

 
1
2
3
4

#_LoadDefs#
#_TradelisteEinbinden#

enter_exit()


Code (gespeichert under dem Namen: enter_exit):

Quellcode

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56

dim i	
dim aktTradeNr
dim startperiod
dim endperiod
dim wert
dim datum
dim TradeStartdatum
dim DatenOffset

if tradeanzahl>0 then

	'Zuerst ermitteln, welcher Offset in den Perioden von Tradeliste und Chartdaten besteht
	getdatum datum
	TradeStartdatum=tradeergebnis(1,"startdate")
	Startperiod=tradeergebnis(1,"startperiod")
	for i=1 to alleperioden
		if datum(i)>=TradeStartdatum then
			DatenOffset=i-Startperiod
			exit for
		end if			
	next 

	' Jetzt das gewünschte Ergebnis kopieren
	for aktTradeNr = 1 to tradeanzahl

		startperiod=tradeergebnis(akttradenr,"startperiod")
		endperiod=tradeergebnis(akttradenr,"endperiod")

		entBasis=tradeergebnis(akttradenr,"enterbasis")
		extBasis=tradeergebnis(akttradenr,"exitbasis")

		for i = startperiod to endperiod

			if i+datenoffset <= AllePerioden Then				
				
				ergebnis(i+datenoffset)=0

				if i = startperiod Then
					ergebnis(i+datenoffset)=entBasis
					'MsgBox("entBasis: " & entBasis)
				end if
				if i = endperiod Then
					ergebnis(i+datenoffset)=extBasis
					'MsgBox("extBasis: " & extBasis)
				end if

			end if

		next
	next
else
	'wenn keine Tradeliste vorhanden, dann alles auf 0 setzen
	for i=1 to alleperioden
		ergebnis(i)=0
	next
end if
keep going on...
Inv [7.6.7]

Investox

Administrator

Registrierungsdatum: 31. August 2002

Beiträge: 5 680

2

Sonntag, 6. März 2011, 19:33

Hallo,

Sie müssten noch die Out-Positionen von der Auswertung ausschließen, dann funktioniert es:


if tradeergebnis(akttradenr,"position")<>0 then
...
end if


Viele Grüße
Andreas Knöpfel

Giuseppe Männlich

Meister

Registrierungsdatum: 31. März 2004

Beiträge: 556

Wohnort: Wien

3

Sonntag, 6. März 2011, 20:12

Vielen Dank für di e Information. Habe es dann später herausgefunden und habe es auch dem entsprechend angepasst.

Ich habe dann aber ein anderes Problem realisiert. Ich habe Ihnen diesbezüglich eine Email gesendet.

LG Giuseppe
keep going on...
Inv [7.6.7]

Ähnliche Themen