forex tester2のインディケーターを自作：売買シグナルを表示

オシレーターウィンドウに売買シグナルを表示してみます。

単純に1時と13時に買いシグナル、7時と19時に売りシグナルを表示してみます。

コードは以下です。

library SymbolTest;

uses
  SysUtils, Interfaces, DateUtils, graphics, IndicatorInterfaceUnit, TechnicalFunctions;

var
  BUY: TIndexBuffer;
  SELL: TIndexBuffer;

procedure Init; stdcall;
begin
  IndicatorShortName('Symbol Test');
  SetOutputWindow(ow_SeparateWindow);
  SetFixedMinMaxValues(-1, 24);
  SetEmptyValue(100);

  BUY := CreateIndexBuffer;
  SELL := CreateIndexBuffer;

  IndicatorBuffers(2);
  SetIndexBuffer(0, BUY);
  SetIndexStyle(0, ds_Symbol, psSolid, 1, clRed);
  SetIndexSymbol(0, 241, 0, 0);
  SetIndexBuffer(1, SELL);
  SetIndexStyle(1, ds_Symbol, psSolid, 1, clBlue);
  SetIndexSymbol(1, 242, 0, 0);
end;

procedure Calculate(index: integer); stdcall;
begin
     if (BUY[index] < 24) or (SELL[index] < 24) then exit;

     if HourOf(Time(index)) = 1  then BUY[index] := 1;
     if HourOf(Time(index)) = 13 then BUY[index] := 13;
     if HourOf(Time(index)) = 7  then SELL[index] := 7;
     if HourOf(Time(index)) = 19 then SELL[index] := 19;

end;

exports
Init, Calculate;

end.

SetIndexStyle関数でds_Symbolを指定して
SetIndexSymbol関数で文字を指定します。
シンボルを表示したい時だけバッファに値を設定します。
指定した値の位置にシンボルが表示されます。

実行結果です。

週の始めは7時のデータが無いので空白になっています。

SetIndexSymbol関数の第2引数ではWingdings の文字が指定可能です。

Wingdings シンボル一覧

32	! 33	" 34	# 35	$ 36	% 37	& 38	' 39
( 40	) 41	* 42	+ 43	, 44	- 45	. 46	/ 47
0 48	1 49	2 50	3 51	4 52	5 53	6 54	7 55
8 56	9 57	: 58	; 59	< 60	= 61	> 62	? 63
@ 64	A 65	B 66	C 67	D 68	E 69	F 70	G 71
H 72	I 73	J 74	K 75	L 76	M 77	N 78	O 79
P 80	Q 81	R 82	S 83	T 84	U 85	V 86	W 87
X 88	Y 89	Z 90	[ 91	\ 92	] 93	^ 94	_ 95
` 96	a 97	b 98	c 99	d 100	e 101	f 102	g 103
h 104	i 105	j 106	k 107	l 108	m 109	n 110	o 111
p 112	q 113	r 114	s 115	t 116	u 117	v 118	w 119
x 120	y 121	z 122	{ 123	\| 124	} 125	~ 126	127
€ 128	129	‚ 130	ƒ 131	„ 132	… 133	† 134	‡ 135
ˆ 136	‰ 137	Š 138	‹ 139	Œ 140	141	Ž 142	143
144	‘ 145	’ 146	“ 147	” 148	• 149	– 150	— 151
˜ 152	™ 153	š 154	› 155	œ 156	157	ž 158	Ÿ 159
160	¡ 161	¢ 162	£ 163	¤ 164	¥ 165	¦ 166	§ 167
¨ 168	© 169	ª 170	« 171	¬ 172	173	® 174	¯ 175
° 176	± 177	² 178	³ 179	´ 180	µ 181	¶ 182	· 183
¸ 184	¹ 185	º 186	» 187	¼ 188	½ 189	¾ 190	¿ 191
À 192	Á 193	Â 194	Ã 195	Ä 196	Å 197	Æ 198	Ç 199
È 200	É 201	Ê 202	Ë 203	Ì 204	Í 205	Î 206	Ï 207
Ð 208	Ñ 209	Ò 210	Ó 211	Ô 212	Õ 213	Ö 214	× 215
Ø 216	Ù 217	Ú 218	Û 219	Ü 220	Ý 221	Þ 222	ß 223
à 224	á 225	â 226	ã 227	ä 228	å 229	æ 230	ç 231
è 232	é 233	ê 234	ë 235	ì 236	í 237	î 238	ï 239
ð 240	ñ 241	ò 242	ó 243	ô 244	õ 245	ö 246	÷ 247
ø 248	ù 249	ú 250	û 251	ü 252	ý 253	þ 254	ÿ 255

SetIndexStyle関数で指定できるds_Sectionとds_Lineの違いを調べてみました。
先ほどのプログラムのds_Symbolをds_Sectionとds_Lineに変更してみました。
ds_Lineでは何も表示されませんでした。隣のバッファが空の時は線を引かないようです。

ds_Histogram では表示できました。

forex tester2のインディケーターを自作

[PR]

売買シグナルを表示

トラックバック

コメント

コメントを投稿する