在线时间6 小时
UID101663
ST金币0
蝴蝶豆0
注册时间2008-6-28
初级会员
- 最后登录
- 1970-1-1
|
a0a.1 0b0c
上位机通讯结果图:
代码部分
Private Sub Form_Load()
Dim index As Double
Pic.ScaleMode = 0
Pic.Scale (-500, 5500)-(8000, -500)
'画横轴和纵轴
Pic.Line (0, 0)-(7400, 0) '横轴
Pic.Line (7200, 95)-(7400, 0)
Pic.Line (7200, -95)-(7400, 0)
Pic.Line (0, 0)-(0, 5400) '纵轴
Pic.Line (-80, 5200)-(0, 5400)
Pic.Line (80, 5200)-(0, 5400)
'刻度值 以1000位一个横轴单位,50位刻度高度
Pic.Line (1000, 0)-(1000, 50)
'Pic.CurrentX = 1000
'Pic.CurrentY = -20
'Pic.Print Format(Now(), "hh:mm:ss") '需要设置属性
Pic.Line (2000, 0)-(2000, 50)
'Pic.CurrentX = 2000
'Pic.CurrentY = -20
'Pic.Print Format(Now(), "hh:mm:ss") '需要设置属性
Pic.Line (3000, 0)-(3000, 50)
'Pic.CurrentX = 3000
'Pic.CurrentY = -20
'Pic.Print Format(Now(), "hh:mm:ss") '需要设置属性
Pic.Line (4000, 0)-(4000, 50)
'Pic.CurrentX = 4000
'Pic.CurrentY = -10
'Pic.Print Format(Now(), "hh:mm:ss") '需要设置属性
Pic.Line (5000, 0)-(5000, 50)
'Pic.CurrentX = 5000
'Pic.CurrentY = -20
'Pic.Print Format(Now(), "hh:mm:ss") '需要设置属性
Pic.Line (6000, 0)-(6000, 50)
'Pic.CurrentX = 6000
'Pic.CurrentY = -20
'Pic.Print Format(Now(), "hh:mm:ss") '需要设置属性
Pic.Line (7000, 0)-(7000, 50)
For index = 0 To 8
Pic.Line (0, index * 626)-(50, index * 626)
Pic.CurrentX = -260
Pic.CurrentY = index * 626 + 100
Pic.Print Format(Str(index * 0.5), "0.0") '需要设置属性
Next index
'初始化
Timer_Count = 0
Scale_Position = 0
RecieveStatus = 0 '解包状态
DataIndex = 0
RMark = False
Timer_Scale = 0
End Sub
--------------------------------------------------------------------------------------------------------------------------
'VB定时器是1分钟才是18个时钟因此其最小的时间刻度位55ms所以设置间隔为100ms
Private Sub Timer1_Timer()
Timer_Scale = Timer_Scale + 2
If (Timer_Scale > 7000) Then
Timer_Scale = 2
Pic.Line (1, 1)-(7000, 5000), Pic.BackColor, BF
'画横轴和纵轴
Pic.Line (0, 0)-(7400, 0) '横轴
Pic.Line (7200, 95)-(7400, 0)
Pic.Line (7200, -95)-(7400, 0)
Pic.Line (0, 0)-(0, 5400) '纵轴
Pic.Line (-80, 5200)-(0, 5400)
Pic.Line (80, 5200)-(0, 5400)
最后来个硬件原理图部分
欢迎大家提出宝贵的意见! |
|