回复 2楼 风吹过b
多谢版主老师，你的程序我试过了，测试运行的很好，我试着添加另外一条曲线来对比观察，可没有数据能读出来，不知什么原因？能否帮我看看。
两个文件数据格式一样，数值差别不大,可以画在同一图中，其中一个数据变化较快，另一个滞后。两文件都是通过其他设备实时写入的。
另外，如TIMER的INTERVAL设置的太小，比如10以下，会否程序还没运行完，下一个TIMER事件被触发，从而影响数据的读取？
Option Explicit
Private Type 数据结构类型
时间 As Date
值
As Double
X As Double
'屏幕提示用的
Y As Double
End Type
Dim 数据(1 To 50) As 数据结构类型
Dim data8(1 To 50) As 数据结构类型
'自己添加的
Dim Max值 As Double
Dim Min值 As Double
Dim interdata0 As Double
'自己添加的存储新数据
Dim interdata8 As Double
'自己添加的存储新数据
Dim datagate0 As Boolean
'自己添加的用于判断数据更新
Dim datagate8 As Boolean
'自己添加的用于判断数据更新
Dim 高间格 As Double, 宽间格 As Double 'Long
Public Sub ADD数据(cs1 As String, cs2 As String)
’我的程序没用这个过程
Dim i As Integer
If IsDate(cs1) And IsNumeric(cs2) Then
For i = 2 To 50
' 数据(i - 1).时间 = 数据(i).时间
数据(i - 1).值 = 数据(i).值
'数据(i - 1).X = 数据(i).X
'数据(i - 1).Y = 数据(i).Y
Next i
'数据(50).时间 = cs1
数据(50).值 = cs2
End If
'X Y需要重新计算,所以不需要移动
End Sub
Public Sub ADDdata()
'自己添加的过程用于将两组数据同步更新
Dim i As Integer
If datagate0 = True or datagate8=true Then
'有任一组数据更新则全部重算，无更新的那一组前推，如都没更新，则本过程无实际代码执行
If datagate0 = True Then
For i = 2 To 50
数据(i - 1).值 = 数据(i).值
Next i
数据(50).值 = interdata0
else
For i = 2 To 50
数据(i - 1).值 = 数据(i).值
Next i
数据(50).值 = 数据(50).值
End If
If datagate8 = True Then
For i = 2 To 50
data8(i - 1).值 = data8(i).值
Next i
data8(50).值 = interdata8
Else
For i = 2 To 50
data8(i - 1).值 = data8(i).值
Next i
data8(50).值 = data8(50).值
End If
End If
datagate0 = False
datagate8 = False
End Sub
Public Sub MaxMin值()
'找出最大值,最小值，添加在两组数中找
Dim i As Integer
Max值 = 1.5 '数据(1).值
Min值 = 1.1
'数据(1).值
For i = 2 To 50
If Max值 < 数据(i).值 Then
Max值 = 数据(i).值
End If
If Min值 > 数据(i).值 Then
Min值 = 数据(i).值
End If
Next i
For i = 2 To 50
If Max值 < data8(i).值 Then
Max值 = data8(i).值
End If
If Min值 > data8(i).值 Then
Min值 = data8(i).值
End If
Next i
End Sub
Public Sub Cls数据()
Dim i As Integer
For i = 1 To 50
数据(i).值 = 0
数据(i).时间 = #12:00:00 AM#
data8(i).值 = 0
data8(i).时间 = #12:00:00 AM#
Next i
End Sub
Public Sub 读数据(cs As String)
Dim fr As Integer
fr = FreeFile
Dim d As String
Dim dd As String
'自己添加的
Dim fj() As String
Dim j As String
Open cs For Input Access Read As #fr
Do While Not EOF(fr)
Line Input #fr, j
If InStr(1, j, ";") > 0 Then
fj = Split(j, ";")
If d <> fj(0)
Or dd <> fj(1) then
'自己添加一个条件
d = fj(0)
dd = fj(1)
interdata0 = fj(1)
datagate0 = True
'Call ADD数据(fj(0), fj(1))
End If
End If
Loop
Close fr
End Sub
Public Sub readdata8(cs8 As String)
'自己添加的读取另一文件数据
Dim fr8 As Integer
fr8 = FreeFile
Dim d8 As String
Dim dd8 As String
Dim fj8() As String
Dim j8 As String
Open cs8 For Input Access Read As #fr8
Do While Not EOF(fr8)
Line Input #fr8, j8
If InStr(1, j8, ";") > 0 Then
fj8 = Split(j8, ";")
If d8 <> fj8(0) Or dd8 <> fj8(1) then
d8 = fj8(0)
dd8 = fj8(1)
interdata8 = fj8(1)
datagate8 = True
'Call ADD数据(fj(0), fj(1))
End If
End If
Loop
Close fr8
End Sub
Public Sub 绘折线图(cs As PictureBox)
Dim i As Integer, 间格 As Double
Dim 总高 As Long
Dim 最低格 As Double
With cs
Call MaxMin值
'找出最大值,最小值
If Min值 = 0 Then
间格 = (Max值) / 11
'分为10格,上下各空一格11
最低格 = 0
Else
间格 = (Max值 - Min值) / 10
'分为10格10
最低格 = Min值 - 间格
End If
总高 = .ScaleHeight - 200
高间格 = (总高) / 12
'上下各留一格
宽间格 = (.ScaleWidth - 600) / 51
'右边留一格
.Cls
'清屏
'画坐标
Dim x1 As Long, X2 As Long, y1 As Long, y2 As Long
y1 = .ScaleHeight - 200
x1 = .ScaleWidth - 200
cs.Line (600, 0)-(600, y1), vbRed
cs.Line (600, y1)-(.ScaleWidth, y1), vbRed
'画坐标网络
.ForeColor = RGB(100, 200, 150)
.CurrentX = 0
.CurrentY = y1 - 90
cs.Print Round(最低格, 5)
For i = 1 To 11
cs.Line (600, y1 - i * 高间格)-(.ScaleWidth, y1 - i * 高间格), vbGreen
.CurrentX = 0
.CurrentY = y1 - i * 高间格 - 90
cs.Print Round(Min值 + i * 间格, 5)
Next i
For i = 1 To 50
cs.Line (600 + i * 宽间格, 0)-(600 + i * 宽间格, y1), vbGreen
.CurrentX = 600 + i * 宽间格 - 150
.CurrentY = y1 + 30
cs.Print i
Next i
'画折线图
数据(1).Y = y1 - ((数据(1).值 - 最低格) / (Max值 - 最低格)) * 总高
数据(1).X = 600 + 宽间格
cs.Circle (数据(1).X, 数据(1).Y), 30, vbBlue
data8(1).Y = y1 - ((data8(1).值 - 最低格) / (Max值 - 最低格)) * 总高
data8(1).X = 600 + 宽间格
cs.Circle (data8(1).X, data8(1).Y), 30, vbGreen
For i = 2 To 50
数据(i).Y = y1 - ((数据(i).值 - 最低格) / (Max值 - 最低格)) * 总高
数据(i).X = 600 + (i) * 宽间格
cs.Circle (数据(i).X, 数据(i).Y), 30, vbBlue
cs.Line (数据(i - 1).X, 数据(i - 1).Y)-(数据(i).X, 数据(i).Y)
data8(i).Y = y1 - ((data8(i).值 - 最低格) / (Max值 - 最低格)) * 总高
data8(i).X = 600 + (i) * 宽间格
cs.Circle (data8(i).X, data8(i).Y), 30, vbGreen
cs.Line (data8(i - 1).X, data8(i - 1).Y)-(data8(i).X, data8(i).Y)
Next i
End With
End Sub
Private Sub Timer1_Timer()
Call Cls数据
'清掉前面的代码
Call 读数据("E:\333.CSV")
'打开第一个文件,读数据
Call readdata8("E:\888.CSV")
'打开第二个文件,读数据
Call ADDdata
Call 绘折线图(Picture1)
'绘制折线图
'
Stop
End Sub
