”m01ボタン制御 標準モジュールのソース
”定数
Public Const wcパスワード As String = “testpass” ”パスワード
Public Const wc新規 As String = “1” ”新規
Public Const wc決済 As String = “2” ”決済
Public Const wc買い As String = “3” ”買い
Public Const wc売り As String = “1” ”売り
””””””””””””””””””””””””””””””””
‘ 成行 新規・買い
””””””””””””””””””””””””””””””””
Sub s01成行新規買い()
Call sc成行注文(wc新規, wc買い, Cells(3, 5))
End Sub
””””””””””””””””””””””””””””””””
‘ 成行 決済・売り
””””””””””””””””””””””””””””””””
Sub s02成行決済売り()
Call sc成行注文(wc決済, wc売り, Cells(3, 5))
End Sub
””””””””””””””””””””””””””””””””
‘ 成行 新規・売り
””””””””””””””””””””””””””””””””
Sub s03成行新規売り()
Call sc成行注文(wc新規, wc売り, Cells(3, 5))
End Sub
””””””””””””””””””””””””””””””””
‘ 成行 決済・買い
””””””””””””””””””””””””””””””””
Sub s04成行決済買い()
Call sc成行注文(wc決済, wc買い, Cells(3, 5))
End Sub
””””””””””””””””””””””””””””””””
‘ 指値 新規・買い
””””””””””””””””””””””””””””””””
Sub s11指値新規買い()
Call sc指値注文(wc新規, wc買い, Cells(11, 5), Cells(12, 5))
End Sub
””””””””””””””””””””””””””””””””
‘ 指値 決済・売り
”””””””””””””””””””””””””””””””’
Sub s12指値決済売り()
Call sc指値注文(wc決済, wc売り, Cells(11, 5), Cells(12, 5))
End Sub
””””””””””””””””””””””””””””””””
‘ 指値 新規・売り
””””””””””””””””””””””””””””””””
Sub s13指値新規売り()
Call sc指値注文(wc新規, wc売り, Cells(11, 5), Cells(12, 5))
End Sub
””””””””””””””””””””””””””””””””
‘ 指値 決済・買い
””””””””””””””””””””””””””””””””
Sub s14指値決済買い()
Call sc指値注文(wc決済, wc買い, Cells(11, 5), Cells(12, 5))
End Sub
””””””””””””””””””””””””””””””””
‘ 逆指し 新規・買い
””””””””””””””””””””””””””””””””
Sub s21逆指し新規買い()
Call sc逆指し注文(wc新規, wc買い, Cells(18, 5), Cells(19, 5))
End Sub
””””””””””””””””””””””””””””””””
‘ 逆指し 決済・売り
”””””””””””””””””””””””””””””””’
Sub s22逆指し決済売り()
Call sc逆指し注文(wc決済, wc売り, Cells(18, 5), Cells(19, 5))
End Sub
””””””””””””””””””””””””””””””””
‘ 逆指し 新規・売り
””””””””””””””””””””””””””””””””
Sub s23逆指し新規売り()
Call sc逆指し注文(wc新規, wc売り, Cells(18, 5), Cells(19, 5))
End Sub
””””””””””””””””””””””””””””””””
‘ 逆指し 決済・買い
””””””””””””””””””””””””””””””””
Sub s24逆指し決済買い()
Call sc逆指し注文(wc決済, wc買い, Cells(18, 5), Cells(19, 5))
End Sub
”m02岡三注文 標準モジュールのソース
””””””””””””””””””””””””””””””””
‘ 成行注文(共通関数)
””””””””””””””””””””””””””””””””
Sub sc成行注文(wa新規決済 As String, wa売買 As String, wa枚数 As String)
Dim w発注Id As String ”発注ID
w発注Id = “NR” & Format(Date, “yyyymmdd”) & Format(Time, “hhmmss”)
Call FNEWORDER(“N225mini”, 0, wa新規決済, “A”, “1”, wa売買, 13, 0, wa枚数, 1, 1, “1”, wcパスワード, w発注Id, “1”, “”, 13, 0)
End Sub
””””””””””””””””””””””””””””””””
‘ 指値注文(共通関数)
””””””””””””””””””””””””””””””””
Sub sc指値注文(wa新規決済 As String, wa売買 As String, wa枚数 As String, wa株価 As String)
Dim w発注Id As String ”発注ID
w発注Id = “SS” & Format(Date, “yyyymmdd”) & Format(Time, “hhmmss”)
Call FNEWORDER(“N225mini”, 0, wa新規決済, “A”, “1”, wa売買, 1, wa株価, wa枚数, 1, 1, “1”, wcパスワード, w発注Id, “1”, “”, 13, 0)
End Sub
””””””””””””””””””””””””””””””””
‘ 逆指し注文(共通関数)
””””””””””””””””””””””””””””””””
Sub sc逆指し注文(wa新規決済 As String, wa売買 As String, wa枚数 As String, wa株価 As String)
Dim w発注Id As String ”発注ID
w発注Id = “GS” & Format(Date, “yyyymmdd”) & Format(Time, “hhmmss”)
Call FNEWORDER(“N225mini”, 0, wa新規決済, “A”, “1”, wa売買, 8, wa株価, wa枚数, 1, 1, “1”, wcパスワード, w発注Id, “1”, “”, 13, 0)
End Sub