define.bas

一个股票分析的源码,vb实现

Attribute VB_Name = "Define"
Public RetVal As Integer
Public Const MainDir = "f:\sharecode\"
Public Const DayDir = "f:\sharecode\day\"

Public Type Ml30DayStruct              '
     Ml30Date As Long
     OpenPrice As Long
     TopPrice As Long
     LowPrice As Long
     ClosePrice As Long
     TotalData As Long
     ChangeData As Long
     NullData1 As Long
     NullData2 As Long
     NullData3 As Long
End Type

Public Type SCStockDayStruct              '
     myDate As Long
     OpenPrice As Long
     TopPrice As Long
     LowPrice As Long
     ClosePrice As Long
     TotalChange As Long ' ?
     Vol As Long ' 总手
     YestodayColsePrice As Long
End Type
Public DFS As SCStockDayStruct

Public StartDate, EndDate As Long
Public LowPrice, TopPrice As Long
Public OneStockFileName As String

Public Type SH999999DayFileStruct
       myDate As Long
       OpenPoint As Long
       TopPoint As Long
       LowPoint As Long
       ClosePoint As Long
       NoUnderstand As Long
       Vol As Long
       TotalPrice As Long
End Type
Public SHDP As SH999999DayFileStruct