VB 实例源代码：获取计算机串口的数量下载_最火下载站
您的位置： >
> VB 实例源代码：获取计算机串口的数量下载
VB 实例源代码：获取计算机串口的数量
运行环境：windows/vb6.0
更新时间： 13:18:58
论坛转帖：
有无插件：无插件
分&享&到：
VB 实例源代码：获取计算机串口的数量，功能比较单一，但是对于学习VB开发系统底层比较有帮助，还是那句话，只给需要的人准备。
点击链接开始下载编一个串口发送接收的简单的程序，以下为接受段程序：
Private Sub Comm1_OnComm()
Dim Buf$
Select Case Comm1.CommEvent
Case comEvReceive
Do While (Comm1.InBuffer
编一个串口发送接收的简单的程序，以下为接受段程序：
Private Sub Comm1_OnComm()
Dim Buf$
Select Case Comm1.CommEvent
Case comEvReceive
Do While (Comm1.InBufferCount & 0)
Buf = Comm1.Input
Nn = Nn + 1
'用于统计收到的字符数
If Nn & 256 Then
Nn = 1
List1.Clear
'list1显示收到的文本
End If
Label5.Caption = Nn
'label5显示收到字符数
sj(Nn) = Val(Buf)
List1.AddItem Buf
Loop
End Select
Form1.Refresh
End Sub
运行结果只能收到每个字符串的第一个字符，强烈请求高手予以解疑！！！
答对有赏哦！！！！！！！
全部答案（共1个回答）
也行.
(维普数据库有送100元的活动,你可以注册一个用户用它查询和下载资料)具体网址是:
一定要用下面的网址注册：
激活只要用下面网址就行：
通过程序来完善和简化工作，说明你已经能够认识程序，相信你很快能进入程序这一行业。VBE VBA VB 大同小异，后者功能包含前面，根据工作来选择工具是最好不过了...
用VB，可以实现你的程序,而且界面能做的非常优美.当然VC++也能做到.详细可参阅"人民邮电出版社"的VISUAL BASIC或VISUAL C++串口通讯工程...
蓝屏的英文内容及解决办法
蓝屏的英文内容一般是：
A problem has been detected and windows has been shut d...
答: 我就拿我自己来举例吧，以前还没有用二师兄家的八戒引流脚本的时候，我都是用通常的引流方法去找客源，一天运气好的时候可以加到一百多个吧，而且大多都是无效的僵尸粉，之...
答: 应用层上的安全业务可以涉及认证、访问控制、机密性、数据完整性、不可否认性、Web安全性、EDI和网络支付等应用的安全性
答: 重新安装网络游戏，网络游戏的程序或者驱动出了问题。
如果安装后还是有问题，应该考虑操作系统的驱动：如DX 等。也可能是操作系统本身。
大家还关注
Copyright &
Corporation, All Rights Reserved
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区
相关问答：123456789101112131415欢迎加入我们，一同切磋技术 &
用户名： &&&
密　码： &
共有 3712 人关注过本帖
标题：求助VB如何读计算机串口数据
等　级：新手上路
帖　子：226
结帖率：94.12%
&&问题点数：0&&回复次数：4&&&
求助VB如何读计算机串口数据
各位高人：你们好！我用VB编成，在制做的VB窗口中有三个文本框，需要将某检测设备数据通过计算机串口读到vb窗口的文本框中。请帮忙解答！如能提供源代码更感谢！！谢谢！北京杨
搜索更多相关主题的帖子:
等　级：新手上路
帖　子：10
你是什么样的检测设备。你的检测设备应该是可编程的，它应该有它的编程模式。最好看它的编程手册。下面的这段代码不知你能不能用上。Public Function COMCommand(CommandData As String) As String
Dim strbuf As String
Dim i As Integer
Dim j As Integer
Dim l As String
Form1.MSComm4.Output = CommandData & Chr(&HD) & Chr(&HA)
strbuf = ""
For i = 0 To 10000
If Form1.MSComm4.InBufferCount & 0 Then
strbuf = strbuf & Form1.MSComm4.Input
If Asc(Right(strbuf, 1)) = &HA Then
COMCommand = ""
For j = 1 To Len(strbuf)
l = Mid(strbuf, j, 1)
If Asc(l) & 32 Then COMCommand = COMCommand & l
Exit Function
COMCommand = "COMERROR"
End Function
等　级：新手上路
帖　子：226
hjuanz兄弟谢谢你的回复！我用的检测设备是光谱仪，该设备是用来检测金属化学成分的，如：C, Si, Mn, P, S等等。光谱仪设备有其专用的计算机软件，我是为了工作方便打算用VB编成做一个窗口，并在窗口上建几个文本框，想利用光谱仪传送到计算机串口数据直接分别读到VB窗口的对应文本框中……。但本人从未接触过此种接口技术，水平又低，因此拜请兄弟您能否具体帮忙编写一下事例哪？另：由于该设备较老，也未查到编成手册。再次向兄弟表示感谢！谢谢杨
等　级：新手上路
等　级：贵宾
威　望：16
帖　子：1653
先读取端口连接后的内容,分析一下其中的内容,根据光谱仪读出的内容对程序做相应的调整,使VB能读出正确的信息.
VB提供了串行端口控制Mscomm来为应用程序提供串行通讯。该控件屏蔽了通信过程中的底层操作，程序员可以设置、监视Mscomm控件的属性和事件，结合Timer控件即可完成对串行口的初始化和数据的输入输出工作。Mscomm控件的主要属性如下：
（1）Commport设置并返回通讯端口号。端口号可以设置为1～16的任何数，如Mscomm.Commport=2表示设置当前通讯端口为COM2。
（2）Setting设置并返回波特率、奇偶校验、数据位、停止位。格式为Mscomm.Setting=String。String是一个包含四部分的字符串：第一部分为波特率；第二部分为奇偶校验，N表示不校验，M表示符号校验，E表示偶校验，O表示奇校验，S表示空格校验；第三部分为数据位数，其可选值为4，5，6，7，8；第四部分为停止位位数，其可选值为1，1.5，2。Setting属性的缺省值为“9600，N，8，1”。
（3）Portopen设置并返回通讯端口的状态，也可以打开和关闭端口。
（4）Input从接收缓冲区返回和删除字符。该属性在运行时为只读。
（5）InputLen设置并返回每次Input属性从接收缓冲区中读取的字符数。InputLen属性的缺省值为0。设置InputLen为0时，Input将读取接收缓冲区的全部字符。
（6）Output向传送缓冲区写数据。要传送的数据可是文本数据或二进制数据。
（7）CommEvent返回最近的通讯事件或错误。只要有通讯错误或事件发生错误时就会产生Oncomm事件。CommEvent属性中存有该错误或事件的数值代码。Timer控件的主要属性如下：
（1）Enabled返回或设置一个值，该值用来确定一个窗体或控件否能够对用户产生的事件作出反应。通过把Enabled设置为“Galse”来使Timer控件成为无效，将取消由控件的Interval属性所建立的倒计时数。
（2）Interval返回或设置对Timer控件的计时事件调用间的毫秒数。Timer控件的Enabled属性决定该控件是否对时间的推移作出响应。将Enabled设置为“False”会关闭Timer控件，设置为“True”则打开Timer控件。当Timer控件置为有效时，倒计时总是从其Interval属性设置值开始。创建Timer事件程序。可通知VB在每次Interval到时该做什么。Timer控件和Enabled属性设置为“True”时，VB将在Interval时间到后自动访问Timer_Timer过程。
为实现通讯程序，须在VB开发环境下设置一个用做控制通讯的窗体。窗体上主要有一个通讯控件Mscomml和两个Timer控件。VB的特点是事件驱动，定时器控件会定时触发相应事件的驱动程序。
[GLOW=255,DeepPink,3][/GLOW]
版权所有，并保留所有权利。
Powered by , Processed in 0.186517 second(s), 7 queries.
Copyright&, BCCN.NET, All Rights Reserved利用VB实现计算机串口通信实例_图文_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
利用VB实现计算机串口通信实例
&&介绍了VB6.0中通信控件MSComm的使用方法,并提供了两个串口通信实例, 一个实现两台PC机间通信, 另一个实现PC机与单片机间通信。
阅读已结束，下载本文需要
想免费下载本文？
定制HR最喜欢的简历
你可能喜欢VB 串口通信程序设计典型实例利用 VB 开发串口通信程序既可以使用 MSComm 控件也...② 添加两个 Label 控件 ③ 添加一个 Timer 控件,用于周期性 地读取串口数据......https://www.hnpwzs.com/zse4a24acbaed57c.html2 结论 利用 VB 中的 Mscomm 控件进行串口通信是一种方便和快捷的方式,主要利用该控件的 Input 方法从 串口中读取数据,利用 Output 方法向串口写数据。在自动化......https://www.hnpwzs.com/zs95a69c76fab069dc.htmlVB6 实时 串口通信 数据采集代码_工学_高等教育_教育专区。在vb中可以实现串口通信 VB6 实时 串口通信 数据采集代码 介绍 VB6.0 利用 MSComm 通信控件,开发微机......https://www.hnpwzs.com/zs2e5be7cd137dc.htmlVB 串口通信程序设计典型实例 利用 VB 开发串口通信程序既可以使用 MSComm 控件...② 添加两个 Label 控件 ③ 添加一个 Timer 控件,用于周期性 地读取串口数据......https://www.hnpwzs.com/zs49ddfc76fce030.html(0) As Byte '定义串口输出数据类型 On Error GoTo aa temp(0) = "&H" & a '把数据类型转化为十六进制 MSComm1.OutBufferCount = 0 '清空串口输出缓冲器......https://www.hnpwzs.com/zs8d0ce61af943.html
VB串口数据接收方式_工学_高等教育_教育专区。VB编写的串口数据接收方式介绍 ...https://www.hnpwzs.com/zs5af40.htmlvb串口数据采集及曲线动态显示_IT/计算机_专业资料。这个程序主要用到了串口通...https://www.hnpwzs.com/zsbf84bf3329483.html基于VB的串口实时数据采集_IT/计算机_专业资料。无机电工程技术 !&quot...https://www.hnpwzs.com/zsb9f0e5bff121dd36a32d82d1.html串口通讯及其在 VB 平台下的实现来源:网络收集 | 作者:未知 | 整理:多酷 | ...8 位数据位,1 位结束位 MSComm1.Settings = "9600,N,8,1" '读取全部的......https://www.hnpwzs.com/zs7be86e81b9d528ea81c779ac.htmlvb串口通讯_VM6360数据采集.doc VM6360与计算机进行串口通讯VM6360与计算机进行串口...获取下载券
登录百度文库,专享文档复制特权,财富值每天免费拿!现在就登录>>
......https://www.hnpwzs.com/zse46a9ec708a14510.htmlVB 串口通信程序设计典型实例_信息与通信_工程科技_专业资料。利用VB开发串口通信...② 添加两个 Label 控件 ③ 添加一个 Timer 控件,用于周期性 地读取串口数据......https://www.hnpwzs.com/zs09dedd202f60ddccda38a096.html利用VB 如何进行串口读写 今天说下利用 VB 如何进行串口读写。 首先需要的是...8 位数据位, 1 位结束位 Mcom.InputLen = 0 '读取全部的输入缓冲区 If M......https://www.hnpwzs.com/zs42e1d4fcbaed510.html
1234567891011
网友都在看}