# -*- coding: utf-8 -*-
import os
import win32com.client
import time
import serial
dm = win32com.client.Dispatch('dm.dmsoft')
#current version
dm.SetPath("E:\dm\haha")
dm.SetDict(0,"E:\dm\haha\dm_soft.txt")
dm.useDict(0)com3=serial.Serial('com3',57600)
string='[MM11]'
#转成16进制
i=1000
while (i!=0):
i=i-1
com3.write(string.encode("utf8"))转载于:https://www.cnblogs.com/sunjian0564/p/9432142.html
VB写一个串口发送代码，遇到一个问题，如何将文本中的字符串转化成16进制数据发送。
Dim bindate(200) As String
Dim senddata As String ‘定义输入字符串变
senddata = Replace(TxtSend.Text, ” “, “”) ‘已经将字符中间的空格都已经去掉了
Dim hexdate() As Byte
Dim I As IntegerReDim hexdate(0 To (Len(senddata) / 2 - 1)) For I = 1 To (Len(senddata)) Step 2 hexdate((I - 1) / 2) = Val("&H" + Mid(senddata, I, 2)) Next I转化后，hexdate数据如下图所示
转化成功。
源码：https://download.csdn.net/download/sequh/13709444
摘要：1）VB6如何通过串口发送和接收二进制数据
2）如何一次获取一组串口数据
正文如下：
1）二进制收发
MSComm1.InBufferCount = 0 '清空接收缓冲区
MSComm1.RThreshold = 1 '收到RThreshold个字符数时触发事件MSComm1_OnComm
MSComm1.InputMode = comInputModeBinary '设置接受数据的类型是二进制类型数据
MSComm1.InputLen = 8 '一次性从接收缓冲区中读取所有数据(8个字节为一组！！)
2）发送二进制数据
' 发送时，要把二进制数据存储在byte数组中：'二进制模式发送:BB 00 22 00 00 22 7E
Dim v(6) As Byte
v(0) = &HBB
v(1) = &H0
v(2) = &H22
v(3) = &H0
v(4) = &H0
v(5) = &H22
v(6) = &H7E
On Error Resume Next
MSComm1.Output = v
3）接收二进制数据
'思路是这样的：
这里的关键是调用sleep(20)，把调用线程从线程调度器的可运行队列中移除20ms，这样程序在这20ms中是不再接收串口数据的。
然后从接收缓冲区中把数据每次按8个为一组，一组一组地进行取出，直到缓冲区数据全部取完为止。
这里有个知识点是：每MSComm1.Input一次就MSComm1.InBufferCount减小，减小的正是MSComm1.InputLen = 8
'MSComm1.InBufferCount属性:当前接收缓冲区接收到的数据的长度，Private Sub MSComm1_OnComm()
Dim UB1%, UB2%, TM As Integer, i As Integer
Dim strData As String
Select Case MSComm1.CommEvent
Case comEvReceive
Sleep (20) '相隔20ms就可以正确接收到24个字节的数据
Do While MSComm1.InBufferCount > 0
TM = TM + 1
If TM = 1 Then
Rv_data = MSComm1.Input
Else
tmpRV = MSComm1.Input
UB1 = UBound(Rv_data)
UB2 = UBound(tmpRV) + 1 '元素比下标大1
ReDim Preserve Rv_data(UB1 + UB2)
For i = UB1 + 1 To UB1 + UB2
Rv_data(i) = tmpRV(i - UB1 - 1)
Next i
End If
LoopIf UBound(Rv_data) = 7 Then '没接收到EPC
'lblTID.Caption = "空"
Else
For i = 8 To 19
If Len(Hex(Rv_data(i))) = 1 Then
strData = strData & "0" & Hex(Rv_data(i)) & " " '如果只有一个字符，则前补0，如F显示0F，最后补空格
Else '方便显示观察如： 00 0F FE
strData = strData & Hex(Rv_data(i)) & " "
End If
Next
strData = strData & "-" & Hex(Rv_data(5))lblTID.Caption = strData
lblBg.BackColor = vbGreen
lblTID.ForeColor = &H80000012
strData = ""
newCount = 0
Erase tmpRV
Erase Rv_data
End If
End Select
End Sub
Viscual Basic 下可以利用 MSCOMM 控件来访问串口，方便快捷。但是有的机器没有 MSCOMM 控件，需要下载 MSCOMM32.OCX 到 system32 目录下然后通过VB加载。除了要在代码中体现MSCOMM对象，还要在窗体中创建对应的对象，就是那个电话图标。
如果你没有硬件条件来做串口调试，请看前文 《串口编程之：虚拟串口VSPM解决串口编程问题》http://blog.csdn.net/zh405123507/article/details/7424877
首先检查自己系统是否有MsComm控件：VB下打开 工程 -> 部件 ，如果在控件列表中能看到 “Microsoft Comm Control 6.0” 那恭喜你，直接勾选后添加到常用控件栏即可。然后在自己的窗体中拖出一个小 “电话” 。
如果你找不到这个选项，那么去下载 MSCOMM32.OCX 这个文件吧。下载后解压到 C:\Windows\system32 目录，然后在VB下打开 工程 -> 部件，点击“浏览”并打开MSCOMM32.OCX ，一般就可以了。如果出现提示“控件许可证错误”，则需要再下载一个补丁覆盖在VB的目录下。
MSCOMM32.OCX 下载：http://adf.ly/By9Wn
控件许可证错误补丁 下载：http://adf.ly/By9Yt
下面就可以开始做一个测试代码：
如图，在form上创建一个 MSCOMM 控件，一个COMMAND控件。
输入代码：（参考自 http://topic.csdn.net/u/20080311/13/97ed338f-0e79-404d-b629-d14af104e70f.html）
Option Explicit Private Sub Command1_Click() Dim a(0 To 20) As Byte Dim s As String a(0) = &H48 a(1) = &H45 a(2) = &H4C a(3) = &H4C a(4) = &H4F MSComm1.Output = a End Sub Private Sub Form_Load() MSComm1.CommPort = 3 '"选用com3串行口 MSComm1.Settings = "115200,n,8,1" '"波特率9600，无奇偶校验位，8位数据位1位停止位 MSComm1.InputLen = 1 '"读取input接收缓冲区全部字节 MSComm1.InBufferSize = 1024 '"设置接收缓冲区的字节长度 MSComm1.InBufferCount = 0 '"清除发送缓冲区数据 MSComm1.OutBufferCount = 0 '"清除接收缓冲区数据 MSComm1.InputMode = 1 '"输入模式为binary MSComm1.RThreshold = 1 '"控件收到数据时将触发OnComm事件 MSComm1.Handshaking = 2 MSComm1.PortOpen = True End Sub Private Sub MSComm1_OnComm() Dim a() As Byte a = MSComm1.Input Dim i As Long Debug.Print UBound(a) 'For i = 0 To UBound(a) ' Debug.Print Hex$(a(i)) & " "; 'Next i End Sub
现在到 Form_Load() 中修改 CommPort = 3， Settins 调整为相应参数。并打开配置好的VSPM（这里的VSPM将虚拟出来的COM3与COM4相连），然后将串口调试助手设置监听COM4，运行程序、点击COMMAND1就可以在串口调试助手上看到发送的结果。a(0) = &H48
a(1) = &H45
a(2) = &H4C
a(3) = &H4C
a(4) = &H4F这样设置，数组a就代表字符串“HELLO”。
通过对控件MSCOMM的应用，就可以用VB写出对应的串口通信程序。
===================================
本文来自：http://blog.csdn.net/zh405123507
tags:串口 串口编程 VB MSCOMM VSPM
