vb新手请教,想做一个串口通讯程序

vb新手请教,想做一个串口通讯程序,第1张

再VB中部件里面找到 Microsoft Comm Control 60,然后工具箱里面会出现一个电话图标,画到工程里面就行了,和时间控件很像

剩下的自己去网上找串口通讯的资料吧,最简单最多的是和单片机用RS232串口连接的,百度文库里面就有很多!

VB的控件箱里mscom串口通信这个控件,添加后就 是对串口事件编程

界面上主要是设置波特率和打开串口,下图是我设计 的界面,程序比较长,没法贴出来,但比较简单

第一步作到能 显示收到的原始数据,进一步要会转换格式和保存

Dim T_byte() As Byte

Dim T_str As String

Dim S_byte() As Byte

Dim S_str As String

Private Sub Command4_Click()

Call T_sub(Text1Text) 'COMMAND4是个按钮,按下它则将文本框TEXT1中的内容通过串口发送出去

End Sub

Private Sub Form_Load()

MSComm1CommPort = 1

MSComm1Settings = "9600,N,8,1"

MSComm1PortOpen = True

MSComm1InputLen = 0 '待定

MSComm1RThreshold = 1

End Sub

Private Sub MSComm1_OnComm()

Select Case MSComm1CommEvent

Case comEvReceive

Call R_sub

End Select

End Sub

Sub T_sub(T_str)

T_byte = StrConv(T_str, vbFromUnicode)

MSComm1Output = T_byte

End Sub

Sub R_sub()

R_byte = MSComm1Input

R_str = StrConv(R_byte, vbUnicode)

Text2Text = Text2Text & R_str 'TEXT2是个文本框,用来显示串口接收到的内容

End Sub

该程序很简单,没有设置校验位,你可以自己加上,我在两台电脑之间用串口连接上然后运行程序,可以互相通信,聊天

VB用MSCOMM控件与单片机经RS232串口实现通讯。一方为主发,一方为应答。规定好通讯格式。VB程序利用MSCOMM的ONCOMM事件进行接收。

Output

属性示例

下面的例子说明如何将用户键入的每一个字符送到串行端口:

Private

Sub

Form_KeyPress

(KeyAscii

As

Integer)

Dim

Buffer

as

Variant

'

设置并打开串口

MSComm1CommPort

=

1

MSComm1PortOpen

=

True

Buffer

=

Chr$(KeyAscii)

MSComm1Output

=

Buffer

End

Sub

同样在串口打开时,给MSCOMM的属性Output赋值,就向串口写入数据

串口传送数据实质是传送ASCII码,对于数值数据的处理:通常以16位二进制数字传递,而小数点不传递,仅乘一定倍率来实现同时16位二进制数字按两个8位(ASCII码值)输送,上位机通过程序代码处理成10进制数

串口通信中数制转换必须相当重视。

详细请参阅MSDN和人民邮电出版社的"UISUAL

BASIC

串口通讯工程开发实例导航"一书其中有详细介绍重点第一章“串口调试精灵”。其代码修改后可用作通讯模块。

以上就是关于vb新手请教,想做一个串口通讯程序全部的内容,包括:vb新手请教,想做一个串口通讯程序、怎样用vb的mscom控件编写串行口程序、哪位高手赐教下,VB做串口通信时候COM设定的程序怎么写啊,就是一个下拉列框的那种.等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/zz/9313439.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-04-27
下一篇 2023-04-27

发表评论

登录后才能评论

评论列表(0条)

保存