不用发那么多的问题贴。

把源程序写出来。

Private Sub Command1_Click()
Dim aaa(0) As Byte '定义一个字节型一维数组aaa,
aaa(0) = "&h" + Text1.Text   '组合16进制以便发送
MSComm1.OutBufferCount = 0 '清空输出寄存器
MSComm1.Output = aaa(0) '发送
End Sub

Private Sub Command2_Click()
Text2.Text = ""    '清除内容

End Sub

Private Sub Form_Load()
'MSComm1.CommPort = 1 '用Com1口
'MSComm1.Settings = "4800,n,8,1" '通讯参数 波特率 奇偶校验 数据位 停止位
'MSComm1.PortOpen = True '开串口


End Sub
Private Sub MSComm1_OnComm() '有数据传送时触发

Select Case MSComm1.CommEvent 'CommEvent属性：返回最近的通讯事件或错误。通过对它具体属性值的查询，我们就可以获得通讯事件和通 讯错误的完整信息。当其值是comEvReceive时表示接收到数据。
Case comEvReceive '有接收事件

 

Dim a As Variant '定义1个可变类型
Dim b(0) As Byte '字节数组

a = MSComm1.Input '接收到的数据存放到a里
b(0) = AscB(a) ' 返回a的值  asc()返回字符串第一个字母的值


Text2.Text = Text2.Text & " " & Hex(b(0)) '组合显示&   并且转换成16进制hex()

MSComm1.InBufferCount = 0 '...清空输入寄存器

End Select

End Sub

我也想研究一下，最近

波特率什么的跟外设能对上么？

程序写出来。.。。。。。。。。。