VB串口通信程序代码

来源：用户分享时间：2025/11/19 8:41:05 本文由

loading 分享下载这篇文档手机版

说明：文章内容仅供预览，部分内容可能不全，需要完整文档或者需要复制内容，请下载word后使用。下载word有问题请添加微信号:xxxxxxx或QQ：xxxxxx 处理（尽可能给您提供完整文档），感谢您的支持与谅解。

strBuff = TextSend End If

If MSComm1.PortOpen = False Then MsgBox \请打开串口\End If

On Error GoTo uerror MSComm1.Output = strBuff

Label11.Caption = Label11.Caption + Len(strBuff) '发送计数 uerror: End Sub

Private Sub ComSend2_Click()

If ComSend2.Caption = \自动发送\ ComSend2.Caption = \关闭自动发送\ Timer1.Interval = TextTime.Text Timer1.Enabled = True Else

ComSend2.Caption = \自动发送\ Timer1.Enabled = False End If End Sub

Private Sub ComClean1_Click()

TextSend.Text = \'清空发送窗口 End Sub

Private Sub Option3_Click()

MSComm1.InputMode = comInputModeBinary '选择接收方式 End Sub

Private Sub Option4_Click()

MSComm1.InputMode = comInputModeText '选择接收方式 End Sub

Private Sub Timer1_Timer()

Call ComSend1_Click '定时调用手动发送 End Sub

Private Sub Timer2_Timer() If Combo3 = \无None\

MSComm1.Settings = Str(Combo2) + \ElseIf Combo3 = \奇Odd\

MSComm1.Settings = Str(Combo2) + \ElseIf Combo3 = \偶Even\

MSComm1.Settings = Str(Combo2) + \End If End Sub

Private Sub Combo1_Click()

If MSComm1.PortOpen = True Then '如果串口打开先关闭后再进行其他操作 MSComm1.PortOpen = False

End If MSComm1.CommPort = Combo1.ListIndex + 1 '读取com口号 End Sub Private Sub ComClean3_Click() Label10.Caption = 0 Label11.Caption = 0 End Sub Private Sub ComClean2_Click() TextReceive.Text = \'接收窗口 End Sub 功能上：实现了字符串的发送和接收，8位数据的十六进制发送和接收，有端口，波特率等设置。缺点： 1：只可以发送两位十六进制数。 2：接收和发送的显示数据上有点不同步，十六进制的没有算进去。 3：没有TXT的文件发送和接收的功能。需要源程序的，可下载本文的图片，下载后把图片的.jpg格式改为.rar格式就可以解压出来了。附：MSComm控件的属性：属性 (Name) (自定义) CommPort 说明 MSComm控件的名称打开属性页获得或设置通讯端口号决定在通讯过程中是否使数据终端机状态线有效。取值为： DTREnable True False 获得或设置是否搜索EOF字符。取值为： EOFEnable True False 获得或设置软件的握手协议。取值为： 0 comNone Handshaking 1 comXOnXoff 2 comRTS 3 comRTSXOnXOff InBufferSize Index InputLen 获得或设置接收缓冲区的大小，以字节数为单位。在对象数组中的编号获得或设置输入属性从接收缓冲区读出的字符数。获得或设置输入属性检索的数据类型。取值为： InputMode 0 comInputModeText 1 comInputModeBinary Left NullDiscard 距离容器左边框的距离决定是否将空字符串从端口传送到接收缓冲区。取值为： True False OutBufferSize ParityReplace RThreshold 获得或设置传输缓冲区中的字符数获得或设置当出现奇偶校验错误时，用来替换数据流中无效字符的字符。获得或设置要接受的字符数。决定能否使行有效。取值为： RTSEnable True False Settings SThreshold Tag Top 获得或设置波特率、奇偶校验、数据位和停止位参数。获得或设置传输中所能允许的最小字符数存储程序所需的附加数据距容器顶部边界的距离

将接到的数据赋值于全局变量,通过ADO数据控件连接数据库及表,用以下代码保存数据: Private Sub Timer1_Timer()

If Label1.Caption <> CStr(Time$) Then Label1.Caption = Time$ sum_zj = sum_zj + 1 Text3 = sum_zj '校准

If sum_zj >= 3 Then sum_zj1 = sum_zj1 + 1 sum_zj = sum_zj - 3 Text4 = sum_zj1

Adodc1.Recordset.AddNew '每3秒记录一组数据 Adodc1.Recordset(0) = shiYAnH

Adodc1.Recordset(1) = Mid(Time$, 1, 2) & Mid(Time$, 4, 2) & Mid(Time$, 7, 2) '记录time Adodc1.Recordset(2) = record_jm(0) '记录数据 Adodc1.Recordset(3) = record_jm(1) '记录数据 Adodc1.Recordset(4) = record_jm(2) '记录数据 Adodc1.Recordset(5) = record_jm(3) '记录数据 Adodc1.Recordset(6) = record_jm(4) '记录数据 Adodc1.Recordset(7) = record_jm(5) '记录数据 Adodc1.Recordset(8) = record_jm(6) '记录数据 Adodc1.Recordset(9) = record_jm(7) '记录数据 Adodc1.Recordset(10) = record_jm(8) '记录数据 Adodc1.Recordset(11) = record_jm(9) '记录数据 Adodc1.Recordset(12) = record_jm(10) '记录数据 Adodc1.Recordset(13) = record_jm(11) '记录数据 Adodc1.Recordset.Update End If End If End Sub

Private Sub Timer2_Timer()

Picture4.DrawStyle = 0

以下代码绘制实时曲线(6点): Picture4.DrawWidth = 3 ' = dash

Picture4.Line (sum_z1 * 18 + 500, record_jm(0) * -150 + 7900)-(sum_z1 * 18 + 500, record_jm(2) * -150 + 7900), vbRed ', BF Picture4.Line (sum_z1 * 18 + 500, record_jm(1) * -150 + 7900)-(sum_z1 * 18 + 500, record_jm(3) * -150 + 7900), vbCyan ', BF Picture4.Line (sum_z1 * 18 + 500, record_jm(2) * -150 + 7900)-(sum_z1 * 18 + 500, record_jm(4) * -150 + 7900), vbBlack ', BF

Picture4.Line (sum_z1 * 18 + 500, record_jm(3) * -150 + 7900)-(sum_z1 * 18 + 500, record_jm(5) * -150 + 7900), vbMagenta ', BF

Picture4.Line (sum_z1 * 18 + 500, record_jm(4) * -150 + 7900)-(sum_z1 * 18 + 500, record_jm(6) * -150 + 7900), vbGreen ', BF

Picture4.Line (sum_z1 * 18 + 500, record_jm(5) * -150 + 7900)-(sum_z1 * 18 + 500, record_jm(7) * -150 + 7900), vbBlue ', BF End Sub

Private Sub Timer3_Timer()

If Label32 <> CStr(Time$) Then 'Label1.Caption Label32.Caption = Time$ sum_z = sum_z + 1 Text31 = sum_z '校准

If sum_z >= 5 Then sum_z = sum_z - 5 sum_z1 = sum_z1 + 1 Text30 = sum_z1 End If End If End Sub

以下代码绘制曲线的坐标: Private Sub Form_Load() With Adodc1

Adodc1.ConnectionString = \Security Info=False\

Adodc1.RecordSource = \ End With Text1 = \

Text2 = \

Text5 = \ Text8 = \ Text13 = \ 'Load frmMain colvb = vbBlack xx = 100

搜索更多关于： VB串口通信程序代码的文档

VB串口通信程序代码.doc 将本文的Word文档下载到电脑，方便复制、编辑、收藏和打印

下载这篇word文档

本文链接：https://www.diyifanwen.net/c1g7zv244tk4x67j2puq9_8.html（转载请注明文章来源）