上位机通讯结果图：

代码部分
 
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)
 
 
最后来个硬件原理图部分
 

 

 

 

欢迎大家提出宝贵的意见！

楼主，。有这个电路图的详细版本吗

看不清原理图，CAN怎么和上位机连的呢