VB编程实现股票量化交易之K线图显示

 

最近在一个朋友的推荐下，开始研究股票的量化交易系统的开发，这里除了股票数据接口

要实现量化交易不难，基本点就是要有股票数据接口和股票交易接口，还有一些针对指标的策略算法。

 Private Function CursorInfo(x As Integer, y As Integer) As String
    Dim ssOutput As String, iX As Integer, ssInfo As String
    
    'get the info for the bar under the crosshairs
    On Error Resume Next
    iX = iUBaData - (rRightSideOffset - x) / iBarSpacing
'    If iMouseDataInfo = 1 Then
        ssInfo$ = " 日期:" & aData(iX).sDate & vbCrLf _
         & " 时间:" & aData(iX).sTime & vbCrLf _
        & "O开盘价: " & aData(iX).dOpen & vbCrLf _
        & "H最高价: " & aData(iX).dHigh & vbCrLf _
        & "L最低价: " & aData(iX).dLow & vbCrLf _
        & "C收盘价: " & aData(iX).dClose & vbCrLf _
        & "V交易量: " & aData(iX).iVol
'    End If
    
    'only get info if in the price plot panel
    If y < rSplit1 Then
        ssOutput$ = CStr(Format(Round(dMaxPrice - ((y - 4) * dRangePrice) / (rSplit1 - 8), 2), "0.00")) '价格
'        If iMouseDataInfo = 1 Then
            ssOutput$ = "价格:" & ssOutput$ & vbCrLf & ssInfo$
'        End If
    Else
        CursorInfo = ""
    End If
        
    CursorInfo$ = ssOutput$
End Function