Option Explicit
Public TheDate As Long
Public kp As Long
Public sp As Long
Public hi As Long
Public lo As Long
Public amt As Long
Public num As Long
--------------------------以上為數據定義部門
Friend Property Get AllProperties() As Byte()
Dim PropBag As New PropertyBag
PropBag.WriteProperty "TheDate", TheDate, 0
PropBag.WriteProperty "kp", kp, 0
PropBag.WriteProperty "sp", sp, 0
PropBag.WriteProperty "hi", hi, 0
PropBag.WriteProperty "lo", lo, 0
PropBag.WriteProperty "amt", amt, 0
PropBag.WriteProperty "num", num, 0
AllProperties = PropBag.Contents
End Property
----------------------------------以上為寫如數據部門
Friend Property Let AllProperties(value() As Byte)
Dim PropBag As New PropertyBag
PropBag.Contents = value()
TheDate = PropBag.ReadProperty("TheDate", 0)
kp = PropBag.ReadProperty("kp", 0)
sp = PropBag.ReadProperty("sp", 0)
hi = PropBag.ReadProperty("hi", 0)
lo = PropBag.ReadProperty("lo", 0)
amt = PropBag.ReadProperty("amt", 0)
num = PropBag.ReadProperty("num", 0)
End Property
---------------------------------以上為取數據的部門
Private Sub Class_Initialize()
End Sub
----------------------------------初始化,但什麽都沒做
模塊2
MdlAlgorithm
Public Sub merge_sort(ByRef pp() As Double, h As Double, u As Double)
Dim m As Double
If h >= u Then
Exit Sub
Else
m = Int((h + u) / 2)
merge_sort pp, h, m
merge_sort pp, m + 1, u
merge pp, h, m, u
End If
End Sub
----------------------------------------------進行排序
Public Sub merge(ByRef pp() As Double, h As Double, m As Double, u As Double)
Dim a(1 To 300) As Double
i = h
k = 1
j = m + 1
While i <= m And j <= u
If pp(i) <= pp(j) Then
a(k) = pp(i)
i = i + 1
Else
a(k) = pp(j)
j = j + 1
End If
k = k + 1
Wend
If i > m Then
For l = j To u
a(k) = pp(l)
k = k + 1
Next l
Else
For l = i To m
a(k) = pp(l)
k = k + 1
Next l
End If
For i = h To u
pp(i) = a(i - h + 1)
Next i
End Sub
---------------------------------------數據統計
模塊3
Mdldayk
Public Type TypeDayData
this_date As Long '日期
kp As Long ' 開盤
hi As Long '最高
lo As Long '最低
sp As Long '收盤
e As Long ' 成交額
l As Long '成交量
num1x As Long
num2x As Long
num3x As Long
End Type
------------------------------------變量定義,以及解釋
大哥,看來妳不太懂VB了,也沒關系
這個主要是進行數據的統計功能,有讀 和 寫的功能.難道妳喜歡炒股
呵呵.加油吧/
謝謝啊~