VB串口通信示例 点击：7576 | 回复：13
发表于：2005-12-19 23:01:00
楼主
源码下载地址：http://blog.csdn.net/yefanqiu 【叶帆源码】[009]串口通信示例
'*************************************************************************
'** 叶帆源码 CSDN：yefanqiu
'**-----------------------------------------------------------------------
'**叶帆源码：http://blog.csdn.net/yefanqiu -->[叶帆源码]
'** XP窗体界面
'** 串口通信示例
'** 任意透明窗体
'** ...
'**叶帆软件：http://blog.csdn.net/yefanqiu -->[叶帆软件]
'** API 浏览器
'** VB源码之友
'**
'**更多软件，更多源码 请关注【叶帆Blog】
'**叶帆Blog：http://blog.csdn.net/yefanqiu
'*************************************************************************
'*************************************************************************
'**模 块 名：frmMain
'**说 明：YFHome 版权所有2004 - 2005(C)
'**创 建 人：叶帆
'**日 期：2004-09-19
'**修 改 人：
'**日 期：
'**描 述：串口通信示例（CSDN 开源）
'** ：-------------------------------------------------------
'** ：示例说明
'** ：
'** ：该示例程序模拟PC机与一终端（下位机）串口通信，PC机先向下位机发送五个字节，下位机
'** ：收到数据后也返回送五个字节的确认命令
'** ：
'** ： 字头 站号 副本 命令 副本
'** ：帧 结 构：AC 01 01 0A 0A 正副本校验方式
'** ：
'** ：返 回 帧：AC 01 01 AA AA 响应命令，表示终端接收到数据
'** ：-------------------------------------------------------
'**版 本：V1.0.0
'*************************************************************************
Option Explicit
Private Declare Function GetCurrentTime Lib "kernel32" Alias "GetTickCount" () As Long
'*************************************************************************
'**函 数 名：cmdSend_Click
'**输 入：无
'**输 出：无
'**功能描述：发送命令
'**全局变量：
'**调用模块：
'**作 者：叶帆
'**日 期：2004-09-19
'**修 改 人：
'**日 期：
'**版 本：V1.0.0
'*************************************************************************
Private Sub cmdSend_Click()
Dim bytData(10) As Byte
bytData(0) = &HA
'*************************************************************************
'** 叶帆源码 CSDN：yefanqiu
'**-----------------------------------------------------------------------
'**叶帆源码：http://blog.csdn.net/yefanqiu -->[叶帆源码]
'** XP窗体界面
'** 串口通信示例
'** 任意透明窗体
'** ...
'**叶帆软件：http://blog.csdn.net/yefanqiu -->[叶帆软件]
'** API 浏览器
'** VB源码之友
'**
'**更多软件，更多源码 请关注【叶帆Blog】
'**叶帆Blog：http://blog.csdn.net/yefanqiu
'*************************************************************************
'*************************************************************************
'**模 块 名：frmMain
'**说 明：YFHome 版权所有2004 - 2005(C)
'**创 建 人：叶帆
'**日 期：2004-09-19
'**修 改 人：
'**日 期：
'**描 述：串口通信示例（CSDN 开源）
'** ：-------------------------------------------------------
'** ：示例说明
'** ：
'** ：该示例程序模拟PC机与一终端（下位机）串口通信，PC机先向下位机发送五个字节，下位机
'** ：收到数据后也返回送五个字节的确认命令
'** ：
'** ： 字头 站号 副本 命令 副本
'** ：帧 结 构：AC 01 01 0A 0A 正副本校验方式
'** ：
'** ：返 回 帧：AC 01 01 AA AA 响应命令，表示终端接收到数据
'** ：-------------------------------------------------------
'**版 本：V1.0.0
'*************************************************************************
Option Explicit
Private Declare Function GetCurrentTime Lib "kernel32" Alias "GetTickCount" () As Long
'*************************************************************************
'**函 数 名：cmdSend_Click
'**输 入：无
'**输 出：无
'**功能描述：发送命令
'**全局变量：
'**调用模块：
'**作 者：叶帆
'**日 期：2004-09-19
'**修 改 人：
'**日 期：
'**版 本：V1.0.0
'*************************************************************************
Private Sub cmdSend_Click()
Dim bytData(10) As Byte
bytData(0) = &HA
发表于：2011-12-27 10:19:46
13楼
监控软件源码集
1.vb6开发的锅炉监控软件完整源码，有登陆界面、操作界面、历史数据记录和查询界面、报警数据记录
和查询界面及相关报表功能，历史曲线查询。(下位机是西门子S7-200，以太网通讯)
2.delphi7开发的回转窑监控软件完整源码，有登陆界面、操作界面、历史数据记录和查询界面、报警数
据记录和查询界面及相关报表功能。(下位机是OMRON CJ1G，以太网通讯)
3.VC++6.0开发的石灰窑监控软件完整源码，有登陆界面、操作界面、历史数据记录和查询界面、报警数
据记录和查询界面及相关报表功能，历史曲线查询。（数据源是OPC Server,报表纯手工编写，具有很大
的灵活性）。
目前都已经稳定运行在自控项目上了。这些源码稍作修改就可以应用在其他项目上。
有需要的请联系QQ:790013363
EMAIL:lgr980423@126.com 可以先运行打包安装文件，查看效果。有偿服务，非诚勿扰！
热门招聘
相关主题
- TRACE MODE 6 – 管控一体化整...
[2041] - “ChatGPT”能回答工控问题吗？...[2608]
- OPC简介 [5098]
- 请问组态软件中的一个点是什...[2288]
- CIMPLICITY HMI是一个很“臭”...[13940]
- 在WINCC中怎么样制作一个开关...[13906]
- 寻求max232烧坏的原因[2694]
- 只要你是三菱忠实用户,三菱软...[4196]
- TRACE MODE推出WinCE.Net环境...[4365]
- 求助施耐德公司的 MP7与CON...[6164]
官方公众号
智造工程师
-
客服
-
小程序
-
公众号
工控网智造工程师好文精选
