高分请教一个简单的vb编程

来源：百度知道 编辑：UC知道 时间：2024/06/17 02:09:25
上边要求是做一个程序（必须用vb）能接受并显示从电脑串口（rs232）发出来的16进制数据。达人们帮我一下啊，我一点都不懂vb~代码最好解释一下，我很菜~~~

用MSComm

Private Sub Command1_Click()
Dim OutBuffer() As Byte
Dim tem As Variant
Dim e As Integer
Dim q As Integer
Dim LenOfText As Integer
LenOfText = Len(txtSum.Text) \ 2 - 1
ReDim OutBuffer(LenOfText)

If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If

q = 0
For e = 1 To Len(txtSum.Text) Step 2
tem = Mid(txtSum.Text, e, 2)
OutBuffer(q) = Val("&H" & tem)
Debug.Print Val("&H" & tem)
q = q + 1
Next

MSComm1.Output = OutBuffer

End Sub

Private Sub Form_Load()

MSComm1.CommPort = 1
MSComm1.Settings = "19200,N,8,1"
MSComm1