MSComm1的 使用例子 ---vb Code

最新推荐文章于 2021-03-07 15:48:04 发布
最新推荐文章于 2021-03-07 15:48:04 发布
阅读量410 收藏
点赞数
文章标签： java
vb 用MSCOMM 与 功率计 通讯例子
12-25
Private Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorvalues As Long) As Long Private Sub Check1_Click() If Check1 Then csh = 100 Else csh = 200 End If End Sub Private Sub Command2_Click() On Error Resume Next If MSComm1.PortOpen = True Then MSComm1.PortOpen = False MSComm2.PortOpen = False Timer1.Enabled = False End If End End Sub Private Sub Command1_Click() If Command1.Caption = "开始" Then Command1.Caption = "停止" GoTo start1 Else If Command1.Caption = "继续测试" Then Command1.Caption = "停止" GoTo start2 End If On Error Resume Next MSComm1.PortOpen = False MSComm2.PortOpen = False Timer1.Enabled = False Command1.Caption = "继续测试" Exit Sub End If start1: If MSComm1.PortOpen = True Then MSComm1.PortOpen = False Timer1.Enabled = False End If MSComm1.Settings = "19200,n,8,1" MSComm1.CommPort = 1 MSComm1.InputMode = 1 MSComm1.InputLen = 0 MSComm1.OutBufferCount = 0 '清空发送缓冲区 MSComm1.InBufferCount = 0 MSComm1.RThreshold = 1 MSComm1.PortOpen = True Dim send(0) As Byte '打开串口 On Error Resume Next '--------------------- If csh <> 100 Then ' Call exlrd(indata) If fname = 1000 Then mulu = App.Path & "\inout.xls" Else mulu = fname End If Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类 xlApp.Visible = True '设置EXCEL可见 Set xlBook = xlApp.Workbooks.open(mulu) '打开EXCEL工作簿 Set xlSheet = xlBook.Worksheets(1) '打开EXCEL工作表 mline = xlSheet.Cells(1, 22) + 1 End If Timer1.Enabled = True Exit Sub start2: MSComm1.CommPort = 1 MSComm1.InputMode = comInputModeBinary MSComm1.InputLen = 0 MSComm1.OutBufferCount = 0 '清空发送缓冲区 MSComm1.InBufferCount = 0 MSComm1.RThreshold = 1 On Error Resume Next MSComm1.PortOpen = True flagbc = 22 ' 11 允许进入保存 ，22 不允许保存 mline = xlSheet.Cells(1, 22) - 1 Timer1.Enabled = True End Sub Private Sub Command3_Click() Form1.Hide singe.Show End Sub Private Sub Command5_Click() fmulu.Show flagbc = 10 End Sub Private Sub Exit_Click() End End Sub Private Sub Form_Load() fname = App.Path & "\inout.xls" SetSysColors 100, 7, vbRed '设置菜单字体红色（可选择 H0 ----- HFFFFFF 共16777216种颜色！） End Sub Private Sub in_Click() singe.Show Form1.Hide End Sub Private Sub inout_Click() Me.Hide Form1.Show End Sub Private Sub MSComm1_OnComm() Dim inlen As Integer Dim k As Integer Dim strbuff, glzhi As String Dim byt(0) As Byte 'MSComm1.RThreshold = 8 '======================================================= Dim intInputLen As Integer Select Case Me.MSComm1.CommEvent Case comEvReceive '此处添加处理接收的代码 MSComm1.InputMode = comInputModeBinary '二进制接收 intInputLen = MSComm1.InBufferCount ReDim bytInput(intInputLen) bytInput = MSComm1.Input indata = jieshou End Select If Right(indata, 2) = "0D" Then Call pdjs1 Call shuchuhs End If '=============================================================== If indata = "EE" Then redel1 'Exit Sub End If On Error Resume Next '========================================================= End Sub Private Sub Form_Activate() Form1.SetFocus Form1.Text5 = Date Form1.Label21 = fname csh = 200 flagbc = 0 End Sub Private Sub MSComm2_OnComm() Dim inlen As Integer Dim i As Integer Dim strbuff As String Dim byt(0) As Byte 'MSComm1.RThreshold = 32 '======================================================= Dim intInputLen As Integer Select Case Me.MSComm2.CommEvent Case comEvReceive '此处添加处理接收的代码 MSComm2.InputMode = comInputModeBinary '二进制接收 intInputLen = MSComm2.InBufferCount ReDim bytInput(intInputLen) bytInput = MSComm2.Input 'bytInput = MSComm2.Input odata = jieshou End Select '=============================================================== If odata = "ED" Then redel3 End If '========================================================= Call pdjs2 ' 判定是否保存 If shuchudy > 10 Then If shurugl > 2 Then If shuchudl > 0.01 Then If flagbc = 11 Then '11 上一次为没有功率 mline = mline + 1 End If Call exlrd flagbc = 22 End If End If Else If shurugl < 2 Then If shuchdy < 10 Then flagbc = 11 End If End If End If End Sub Private Sub pinban_Click() scan.Show Form1.Hide End Sub Private Sub saveset_Click() fmulu.Show flagbc = 10 End Sub Private Sub timer1_Timer() Call shuruhs End Sub
vb中mscomm控件的经典实例，有详细步骤，适用于学习vb中串口通信的学者！！！
10-27
本实例是实现电话通信的，步鄹详细，并且有说明。
vba 中引入mscomm控件
04-29
vba 中引入mscomm控件 vba 中引入mscomm控件 vba 中引入mscomm控件
vba quit此文件正由另一个应用程序或用户使用_VBA｜如何添加外部对象库（或控件）引用来扩展VBA功能...
weixin_39682560的博客
12-11 673
VBA是VB的宏语言，基于对象，有大量的内部对象及其属性和方法可以使用，此外，还可以添加外部对象库引用来扩展VBA功能。例如你在网上找了一个项目的文件，其中有对listview的使用，但你使用这个项目时，可能会提示“listview用户定义类型未定义”。解决的办法是需要下载、注册外部对象库并添加引用：1 下载、注册外部对象库下载一个适当版本的MSCOMCTL.OCX库并注册2 检查或添加对象库引用...
MSCOMM32插件X86-X64
最新发布
02-11
在编程中，MSComm32.ocx是MSComm控件的核心文件，它是一个ActiveX控件，可以在Visual Basic、Visual C++、Delphi等支持ActiveX的开发环境中使用。安装该插件通常包括注册控件，这可以通过运行包含`regsvr32`命令的...
MSComm-suer.rar_delphi mscomm_event_mscomm_vb MSComm_vb 串口收发
07-15
MSComm控件在串口编程时非常方便，程序员不必去花时间去了解较为复杂的API函数，而且在VC、VB、Delphi等语言中均可使用。 Microsoft Communications Control（以下简称MSComm）是Microsoft公司提供的简化Windows下...
VB1.rar_VB mscomm_mscomm_vb MSComm_vb mscomm发数据_十六进制
09-24
在这个特定的项目中，“VB1.rar”是一个包含VB代码示例的压缩包，主要关注通过MSComm控件发送和接收十六进制数据。 首先，我们要理解MSComm控件的基本使用。MSComm控件是VB的一个内置组件，它提供了串行端口通信的...
MScomm.zip_Labview-MSCOMM_float_mscomm LABVIEW_波形 串口助手_波形通讯
07-13
labview环境下串口通讯助手，可设置多种波特率和选择串口，具有波形显示功能，支持协议自定义，通讯数据类型自定义（char，short，int，float），拥有保存图像等功能。
VB控件Mscomm控件与PLC进行RS485(Modbus)通讯源码
03-28
VB控件Mscomm控件与PLC进行RS485(Modbus)通讯源码VB控件Mscomm控件与PLC进行RS485(Modbus)通讯源码
VB6的MSCOMM控件应用源码
10-25
VB6的MSCOMM控件应用源码，完成源程序，可以设置各种参数，好用
PLC与智能仪器通讯
09-01
行 206: 控件 MSComm1 的类 MSCommLib.MSComm 不是一个已加载的控件类。 行 238: 控件 Grid 的类 MSFlexGridLib.MSFlexGrid 不是一个已加载的控件类。 行 209: 属性名 _ExtentX 在 MSComm1 中是无效的。 行 210: 属性名 _ExtentY 在 MSComm1 中是无效的。 行 211: 属性名 _Version 在 MSComm1 中是无效的。 行 212: 属性名 DTREnable 在 MSComm1 中是无效的。 行 244: 属性名 _ExtentX 在 Grid 中是无效的。 行 245: 属性名 _ExtentY 在 Grid 中是无效的。 行 246: 属性名 _Version 在 Grid 中是无效的。 行 247: 属性名 Rows 在 Grid 中是无效的。 行 209: 属性名 _ExtentX 在 MSComm1 中是无效的。 行 210: 属性名 _ExtentY 在 MSComm1 中是无效的。 行 211: 属性名 _Version 在 MSComm1 中是无效的。 行 212: 属性名 DTREnable 在 MSComm1 中是无效的。 行 244: 属性名 _ExtentX 在 Grid 中是无效的。 行 245: 属性名 _ExtentY 在 Grid 中是无效的。 行 246: 属性名 _Version 在 Grid 中是无效的。
6-VB发送程序.rar_6-VB发送程序_vb 串口 程序
09-20
1. 添加MSComm控件：在VB的工具箱中找到MSComm控件，将其拖放到窗体上。 2. 设置控件属性：如设置串口号（ComPort）、波特率（ baudrate）、数据位（DataBits）、停止位（StopBits）和校验位（Parity）。 3. 打开...
mscomm用法
nextop88的专栏
07-09 440
procedure TForm1.FormCreate(Sender: TObject); begin with MSComm1 do begin CommPort:=3; //使用Com3 Settings:='9600,n,8,1'; //设置通信口参数 InputLen:=22; //设置Input一次从接受缓冲区读取全部字节 InBufferCount:=0; //清除接受缓
java 电子秤串口通信_js串口通信 调用MSCOMM32控件 链接电子秤(完整版实现方案)...
weixin_42218981的博客
03-07 1401
硬件环境：RS232转USB串口线*1电子秤*1(本人采用G&G E600Y-C型号称重仪)电子秤原装RS232数据线*1计算机*1软件环境：RS232转USB串口线驱动(这个可以在串口线生产厂商官网网站下载，我用的是UNITEK生产的)windows7 (32位)MSCOMM32控件(这个在网上可以找到)实现步骤：1，安装MSCOMM32控件2，安装RS232转USB串口线驱动3，链接硬...
VB中 MSComm控件使用详解
仿秀达人
11-27 1088
VB中 MSComm控件使用详解         MSComm       控件通过串行端口传输和接收数据，为应用程序提供串行通讯功能。MSComm控件在串口编程时非常方便，程序员不必去花时间去了解较为复杂的API函数，而且在VC、VB、Delphi等语言中均可使用。       Microsoft Communications       Control（以下简称MSComm）
VB与三菱FX PLC SC-09通信详解与MSComm控件应用
因此，作者决定利用VB6.0中的MSComm控件来设计一个定制的串行通信程序。 在三菱PLC的主从结构中，计算机作为上位机，负责控制和监控，而FX系列PLC作为下位机，执行现场任务。SC-09电缆作为连接两者的关键纽带，使得...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值