![2.vb串口通信技术文章160rs232串行digitalout的实例_第1页](http://file4.renrendoc.com/view/7444240a510ba14dac5a7c482251d685/7444240a510ba14dac5a7c482251d6851.gif)
![2.vb串口通信技术文章160rs232串行digitalout的实例_第2页](http://file4.renrendoc.com/view/7444240a510ba14dac5a7c482251d685/7444240a510ba14dac5a7c482251d6852.gif)
下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、代码如下:Imports System.IO.PortsPublic Class Form1 * 表单的Load事件中先将所有的通讯埠先列出来 将通讯埠排序,并将第一个通讯埠设为预设值 * Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load For Each sp As String In SerialPort.GetPortNames() cmbCOM.Items.Add(sp) Next cmbCOM.Sorted = True 排序 c
2、mbCOM.SelectedIndex = 0 第一个是预设选项 btnDTR.Enabled = False btnRTS.Enabled = False End Sub * 开启通讯埠按钮的Click事件 此事件将设定通讯埠参数,并开启通讯埠 * Private Sub btnOpenPort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpenPort.Click Dim mPortName As String mPortName = cmbCOM.SelectedItem.To
3、String 欲开启的通讯埠 RS232.PortName = mPortName 指定通讯埠 If Not RS232.IsOpen Then 尚未开启 RS232.Open() 开启通讯埠 RS232.DtrEnable = False RS232.RtsEnable = False picDTR.Image = picOFF.Image picRTS.Image = picOFF.Image btnDTR.Enabled = True btnRTS.Enabled = True Else MsgBox(通讯埠开启错误(通讯埠已被开启), MsgBoxStyle.Critical Or M
4、sgBoxStyle.OkCancel) End End If End Sub * 关闭通讯埠按钮的Click事件 以Cose方法关闭通讯端口,并释放对象所占用的资源 * Private Sub btnClosePort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClosePort.Click If RS232 Is Nothing OrElse Not RS232.IsOpen Then 尚未开启 MsgBox(通讯埠尚未开启, MsgBoxStyle.Critical Or Ms
5、gBoxStyle.OkCancel) Else RS232.Close() btnDTR.Enabled = False btnRTS.Enabled = False End If End Sub * 结束程序按钮 的Click事件 此事件将设定通讯埠参数,并开启通讯埠 * Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnd.Click If Not RS232 Is Nothing Then 判断是否已建立通讯对象 If RS232.IsOpe
6、n Then RS232.Close() 若已开启,就将其关闭 End If End End Sub * DTR控制按钮 的Click事件 此事件将使得DTR线路状态发生改变 * Private Sub btnDTR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDTR.Click RS232.DtrEnable = Not RS232.DtrEnable 变更状态 If RS232.DtrEnable Then picDTR.Image = picON.Image 变更为白色图示 El
7、se picDTR.Image = picOFF.Image 变更为红色图示 End If End Sub 更多源码和实例,请关注 (乐 博 网) * RTS控制按钮 的Click事件 此事件将使得RTS线路状态发生改变 * Private Sub btnRTS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRTS.Click RS232.RtsEnable = Not RS232.RtsEnable 变更状态 If RS232.RtsEnable Then picRTS.Image = picON.Image 变更为白色图示 Else picRTS.Image = picOFF.Image 变更为红色图示 End If End Sub * 通讯埠的KeyPress事件,在此不让使用者输入资料 * Private Sub cmbCOM_KeyPress(ByVal sender As Object, ByVal e
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 部编版二年级语文上册识字4《田家四季歌》教学课件
- 电容器和电感器教案
- 露酒审查细则本
- 2023年贵州省高考理科综合试题与答案
- 订车提车注意事项
- 雷达、无线电导航及无线电遥控设备项目可行性报告
- 甘肃省平凉市庄浪县2022-2023学年六年级下学期期末英语试题
- 打桩机项目可行性报告
- 钢材:一级钢项目可行性报告
- 《认识水作业设计方案-2023-2024学年科学青岛版2001》
- 数据资产管理实践白皮书(4.0版)
- 初中地理人教七年级上册(2023年更新) 陆地和海洋 陆地和海洋
- 当代中国经济改革发展课件
- WJ2470-1997小量火药、炸药及其制品危险性建筑设计安全规范
- 2022版义务教育语文课程标准解读之PPT
- 石油建设安装工程预算定额说明及工程量计算规则
- 河南省地图含市县地图矢量分层地图行政区划市县概况ppt模板
- 建筑消防设施故障维修记录表
- 【Adams应用教程】ADAMS参数化建模及优化设计
- 数字电子技术基础课件:第7章 数模和模数转换
- 齐鲁工业大学2022年上期末大学英语3期末考试复习资料
评论
0/150
提交评论