'全局變量，計算觸發(fā)的個數(shù)
Dim StockCount
StockCount = 0

'獲取股票池觸發(fā)事件
Sub MARKETDATA_StockPoolNotifyIng(StockPool, StatusPool, Code, Market)
 
 '觸發(fā)的股票池數(shù)據(jù)記錄到文本文件中
 Document.DebugFile "C:\GPCLog.txt",Market&Code,1
  
 '判斷股票池有多少品種
 If StockPool = "股票池" And StatusPool = "狀態(tài)池1" Then
  StockCount = StockCount + 1
 End If
 
 CalcCash = 0 '計算該使用多少資金
 
 '計算下單價格，防止出現(xiàn)漲停板
 PleacePrice = 0
 Set MyReport = marketdata.GetReportData(Code,Market)
 If MyReport.SellPrice1 > 0 Then
  PleacePrice =  MyReport.SellPrice1
 Else
  PleacePrice = MyReport.NewPrice '如果賣1價格為0表示已經(jīng)漲停板，取最新價計算
 End If
  
 '調(diào)試代碼
 'Application.MsgOut StockCount
 
 If StockCount = 1 Then '第一個觸發(fā)品種
     CalcCash = 500000
 ElseIf StockCount = 2 Then
  CalcCash = 300000
 ElseIf StockCount = 3 Then
  CalcCash = 200000
 End If
 
 If PleacePrice > 0 And CalcCash > 0 Then
  CalcVol = CalcCash / PleacePrice
  call Order.Buy(0,CalcVol,PleacePrice,0,Code,Market,"",0)
  Application.MsgOut "已觸發(fā)股票池下單,代碼:"&Code&" - 價格:"&PleacePrice&" - 數(shù)量:"&CalcVol
 End If
   
End Sub