Option Explicit
Dim inputdata As String
Dim DataFromCom As Integer
Dim DataFromComLast As Integer
Dim TimeCount As Integer


Private Sub Check1_Click()
If Check1.Value = 1 Then
MSComm1.InBufferSize = 1024
MSComm1.InBufferCount = 0
MSComm1.InputMode = 1
= 3
MSComm1.Settings = "9600,N,8,1"

Check2.Enabled = False

End If
If Check1.Value = 0 Then
Timer1.Enabled = False
Check2.Enabled = True

End If
End Sub

Private Sub Check2_Click()

If Check2.Value = 1 Then
MSComm1.InBufferSize = 1
MSComm1.InBufferCount = 0
MSComm1.InputMode = comInputModeText
= 2
MSComm1.Settings = "9600,N,8,1"

Check1.Enabled = False

End If
If Check2.Value = 0 Then
Timer1.Enabled = False
Check1.Enabled = True

End If
End Sub

Private Sub Command1_Click(Index As Integer)
'Timer1.Enabled = True
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
End Sub

Private Sub Command2_Click(Index As Integer)
Timer1.Enabled = False
MSComm1.PortOpen = False

End Sub

Private Sub Command3_Click()
Unload Form1
End Sub
Private Sub Form_Unload(Cancel As Integer)
    If MSComm1.PortOpen = True Then
    MSComm1.PortOpen = False
    End If
End Sub

Private Sub Form_Load()
Timer1.Interval = 1
Timer1.Enabled = False
PicScale pic
End Sub
Private Sub PicScale(picX As PictureBox)
picX.Scale (0, 8750)-(picX.ScaleWidth, -1400)
End Sub

Private Sub DrawRealLine(picX As PictureBox, TimeCountX As Integer, DataFromComX As Integer, DataFromComLastX As Integer)

If TimeCountX - 1 > 0 And (TimeCountX - 1) * 15 < pic.Width Then
picX.Line ((TimeCountX - 1) * 15, DataFromComLastX)-(TimeCountX * 15, DataFromComX), vbBlue
End If
If (TimeCountX - 1) * 15 > pic.Width Then
TimeCount = 0
pic.Cls
End If

End Sub

Private Sub MSComm1_OnComm()
Dim byte1() As Byte
Dim i As Integer
If MSComm1.InBufferCount > 0 Then
byte1 = MSComm1.Input
 For i = 0 To UBound(byte1)
  inputdata = inputdata & Str(byte1(i)) & " "
  Text1.Text = Val(byte1(i))
  
 Next i
 Text2.Text = inputdata

  DataFromCom = Text1
  DataFromComLast = DataFromCom
  TimeCount = TimeCount + 1
  DrawRealLine pic, TimeCount, DataFromCom, DataFromComLast
'Text1.Text = Asc(MSComm1.Input)
'Text2.Text = Text2.Text & " " & Str(byte1(0)) & Str(byte1(1))
'DataFromCom = Text1
'Debug.Print DataFromCom


End If
End Sub

我原来INPUTMODE选的是文本形式，现在改成二进制形式，就怎么也用不了drawrealline这个函数了  ，请问大神们，ONCOMM这里哪里错了 还是其他什么地方错了？

比较怀疑用在此用文本接收方式时能画出正确的曲线。假设下位机传来的是数字8，看看经过上述代码处理过程：
byte1(0)=8
byte1(1)=0
inputdata=" 8  0 "  注意空格
text1.text="0"
text2.text=" 8  0 "
datafromcom="0"
...
这能画正确的点？
建议画实时点用二进制接收方式。
参考：https://bbs.bccn.net/thread-444236-1-1.html

[ 本帖最后由 lianyicq 于 2015-4-22 13:41 编辑 ]

我有点不理解，为什么text1.text是=0啊？
那个帖子看过了，但是没看到关键的绘图程序，说实话，二进制的绘图基本不懂，求一段实例

[ 本帖最后由 wxe0510 于 2015-4-23 19:06 编辑 ]

如果下位机传来8
If MSComm1.InBufferCount > 0 Then
byte1 = MSComm1.Input
For i = 0 To UBound(byte1)
  inputdata = inputdata & Str(byte1(i)) & " "
  Text1.Text = Val(byte1(i))
Next i
Text2.Text = inputdata
DataFromCom = Text1
DataFromComLast = DataFromCom
TimeCount = TimeCount + 1
DrawRealLine pic, TimeCount, DataFromCom, DataFromComLast
按文本方式接受，byte1(0)为低八位，byte1(1)为高八位.
text1.text 经过i=0时为“8”，i=1时为“0”。
退出循环时当然为0。
即然文本数据能画图，按二进制接收的数据不能画？那是直接参与运算的数据
取到了数据，画图就方便了。在picturebox中设定坐标系，设定纵、横坐标比例。
用pset方法画点。看你原来的代码是画的线，用line方法画线也可以，起始坐标是前一个幅度，终止坐标是当前幅度。你代码中已经这样做了。
按字节取点，一个字节最多可表示纵轴上256个刻度之一，如果精度不够，下位机传两个字节或多个字节表示一点也可以。
在VB下画函数曲线会吧。

[ 本帖最后由 lianyicq 于 2015-4-24 09:49 编辑 ]

我已经将两个字节转换成了十进制数，但画线的时候出来的不是线，而是一个个点，这是怎么回事呢？PIC.LINE 明明是画线函数啊