VB6串口编程ASCII码转16进制及完整源码下载

在工业自动化、嵌入式系统、物联网等行业中，串口编程非常重要。串口编程，重点在于串口数据通信和数据处理，经常要用到ASCII码转16进制的转换。VB6己经集成了串口控件，只需将控件导入，然后简单的设置一下就可以实现串口的收发数据。

1.添加串口控件MSComm到界面及绘制界面

如果控件区没有串口控件MSComm，选择工程→部件→Micosoft comm Control6.0选项, 点击应用, 即可添加串口控件

2.设置串口控件的波特率、数据位、停止位等参数，例：9600,n,8,1

3.用控件的ctrMSComm.PortOpen方法，打开串口

4.数据发送，只需将发送内容赋给ctrMSComm.Output

例：

Private Sub Command1_ Click()

MSComm1.Output = Text1.Text‘发送数据

End Sub

串口向硬件发送数据时，经常要将ASCII码字符转为16进制数的byte数组进行发送，可以用该源码中的StrHexToBin方法

5.数据到达后会触发Private Sub ctrMSComm_OnComm()函数

例：

Private Sub ctrMSComm_OnComm ()

Dim str As String

If ctrMSComm.CommEvent = comEvReceive Then '监听事件

str = ctrMSComm.Input

Text2.Text = str

End If

完整VB6串口源码下载链接http://xzios.cn:86/WJGL/DownLoadDetial?Id=26

串口调试助手下载链接 http://xzios.cn:86/WJGL/DownLoadDetial?Id=23

希望文中知识及源代码对大家有所帮助