怎么写一个程序,点一下按钮,就向串口发送一个字符,我需要示例和代码
没有最佳答案
给你写一个最简单的串口通信
在窗口设计一个 文本框 一个按钮 一个mscomm控件
Private Sub Command1_Click()
MSComm1.Output = Trim(Text1.Text)
End Sub
Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub
在text1上面写上信息 点击按钮 就通过串口发送出去,默认是com1 可以直接修改,用调试精灵测试通过
mscomm控件..初始化时可以这样写:
With Mscomm1
.CommPort=1'这是COM口编办公用品号
If .PortOpen=True Then .PortOpen=False
.Settings="9600, N, 8, 1"
'传输格式..波特率,奇偶校验,数据位,停止位
.TRhreshold=1'收到引发OnComm事件
.PortOpen=True'打开串口
.InBufferCount=0
.OutBufferCount=0'清空缓冲区
End With
接收到数据时调用函数OnComm().如下:
Sub MSComm1_OnComm()
If MSComm1.CommEvent=comEvReceive Then
'在这里写接收到数据时的处理函数.
'用MSComm.Input取得接收到的数据,将其存放到一个Byte型数组中
'
End If
End Sub
发送字符时是按Byte型发送
Dim sData() as Byte
MSComm.Output=sData
关闭串口时这样写:
If MSComm.PortOpen=True Then MSComm.PortOpen=False
在打开串口后不要再修改MSComm1.CommPort的值..不然会发生错误..
刚刚
