电子产品世界

接收数据
Do Until MSComm1.InBufferCount = 1
Loop
Buffer = MSComm1.Input
For i = LBound(Buffer) To UBound(Buffer)
d = Buffer(i)
Next i
'判是否第一屏12个数据,设标志量m
If m 12 Then
m = m + 1
End If
'12个数据放a 数组,a(0)是最新数据,原a(11)中的数移出
For i = 11 To 1 Step -1
a(i) = a(i - 1)
Next i
a(0) = d
'清零窗体界面、数据
Form1.Cls
'复原窗体界面
Line (0, 0)-(230, 0)
Line (0, 0)-(0, 250)
CurrentX = 200: CurrentY = 13: Print X(s)
CurrentX = 5: CurrentY = 245: Print Y(V)
For i = 0 To 220 Step 20
CurrentX = i: CurrentY = 3: Line -(i, 0)
If i = 200 Then CurrentX = i - 7 Else CurrentX = i - 12
CurrentY = 0: Print i Mod 19
Next i
For i = 0 To 210 Step 20
If i > 0 Then
CurrentX = -14: CurrentY = i: Print i / 10
CurrentX = 230: CurrentY = i: Line -(0, i)
End If
Next i
'连点成波形
For i = 0 To m - 2
Line (20 * i, 230 * a(i) / 20)-(20 * (i + 1), 230 * a(i + 1) / 20), RGB(240, 0, 0)
Next I
Loop
End Sub

参考书：龚沛曾等《Visual Basic程序设计简明教程》高等教育出版社 2002

关键词： 监测 数据 方法 实时 单片机 数字 示波 VB6.0