HSP程式交易論壇 >> 程式交易 >> 論壇主區 >> 下單機討論區 >> 如何將hsp策略轉成hts api可下單?
如何將hsp策略轉成hts api可下單?
bw5168,2009-04-21 13:03:45
如何將 以下hts的格式加入hsp的策略中,若策略是 (1,-1,0)
if date = lastcalcdate and time = LastCalcTime then
FileDelete("C:\blood.txt")
FileAppend("C:\blood.txt", "***" + NumToStr(CurrentContracts,0) + "***"+ "," + NumToStr(close,0))
end if
Hunta,2009-04-21 14:17:05
HSQL程式語法如下:
10 If 最後K線 = 是 Then
20 Va = 目前部位( 口數 )
30 Vb = 5分_收盤價
40 S1$ = '***' + Cstr( Va ) + '***' + ',' + Cstr( Vb )
50 輸出文字檔( c:\blood.txt , S1$ )
60 End If
bw5168,2009-06-23 11:18:55
假設要輸出 開盤價& 時間
該如何寫 謝謝!
Hunta,2009-06-23 11:59:18
Va = 5分_開盤價
S1$ = Cstr( Va )
GoSub date_time
Sub date_time
320 Vb = 目前時間( 西元年4碼 )
330 S1$ = S1$ + Cstr( Vb ) + '/'
340 Vb = 目前時間( 月 )
350 If Vb < 10 Then
360 S1$ = S1$ + '0' + Cstr( Vb ) + '/'
370 Else
380 S1$ = S1$ + Cstr( Vb ) + '/'
390 End If
400 Vb = 目前時間( 日 )
410 If Vb < 10 Then
420 S1$ = S1$ + '0' + Cstr( Vb ) + ' '
430 Else
440 S1$ = S1$ + Cstr( Vb ) + ' '
450 End If
460 Vb = 目前時間( 時 )
470 If Vb < 10 Then
480 S1$ = S1$ + '0' + Cstr( Vb ) + ':'
490 Else
500 S1$ = S1$ + Cstr( Vb ) + ':'
510 End If
520 Vb = 目前時間( 分 )
530 If Vb < 10 Then
540 S1$ = S1$ + '0' + Cstr( Vb ) + ' '
550 Else
560 S1$ = S1$ + Cstr( Vb ) + ' '
570 End If
580 End Sub
bw5168,2009-06-26 12:07:32
Va = 5分_開盤價
S1$ = Cstr( Va )
GoSub date_time
Vb = 目前時間( 分 )
530 If Vb < 10 Then
540 S1$ = S1$ + '0' + Cstr( Vb ) + ' '
550 Else
560 S1$ = S1$ + Cstr( Vb ) + ' '
570 End If
580 End Sub
1.請問 如果只要輸出分,程式對嗎?
2. ' ' 這是用文字那個按鍵 key冒號對嗎? 請問'按鍵在鍵盤哪邊?
謝謝
Hunta,2009-06-26 12:19:02
1.對的。
2.按F1鍵，輸入一個空格，再按Enter
bw5168,2009-07-06 17:08:47
[QUOTE][B]下面引用由[U]Hunta[/U]發表的內容：[/B]
1.對的。
2.按F1鍵，輸入一個空格，再按Enter[/QUOTE]
再請問
那輸出文字檔
檔案路徑:c:\auto.txt
寫入資料:0,S1$ ,請問對嗎
文字檔 看到 0, s1$ ,請問s1$為何沒抓到時間?
或是該如何?
Hunta,2009-07-06 17:40:19
輸出文字檔出現S1$代表你程式有錯，你可能用F1(輸入字串)方式打入S1$，你必須用+的方式把S1$串上。
97 1 8: 此主題共有8帖 此頁8帖 每頁12帖
[查看完整模式] LeadBBS 5.0 耗時62.5毫秒 請求2次
|