找回密码
 注册
搜索
热搜: 回贴
  • 前程无忧官网首页 有什么好的平台可以
  • 最新的销售平台 互联网营销的平台有哪
  • 制作网页的基本流程 网页制作和网页设
  • 【帝国CMS】输出带序号的列表(数字排
  • 网站建设公司 三一,中联,极东泵车的
  • 织梦 建站 织梦网站模版后台怎么更改
  • 云服务官网 哪些网站有免费的简历模板
  • 如何建网站要什么条件 建网站要用什么
  • 吉林市移动公司电话 吉林省退休人员网
  • 设计类毕业论文 网站设计与实现毕业论
查看: 678|回复: 3

[求助]串口通讯总是有问题?

[复制链接]
发表于 2009-11-20 02:01:02 | 显示全部楼层 |阅读模式 IP:江苏扬州
下面是我的上位机与单片机串口通信的程序,但是在每次刚给下位机上电的时候,串口通信的程序总是会溢出,要执行好多次以后,上位机与单片机才能正常通信,这是为什么呢?
Public Function sample() As Boolean
Dim delay As Integer
Dim TMP As Integer
Dim T As Integer
'Dim Abuf As String
Dim Num As Integer
Dim WTim As Integer
Dim ErrF As Boolean
Dim RecBuf() As Byte
Dim dat1(1000) As Byte
WTim = 0 '重发次数为0
resend:
If Form1.COM.PortOpen = True Then
Form1.COM.Output = "255" '发“传输数据的命令”给单片机
End If
ErrF = False
For TMP = 0 To 9 '延时,以保证单片机正确接受
Call Form1.delay
Next TMP
If Form1.COM.InBufferCount > 0 Then
RecBuf = Form1.COM.Input '取接收缓冲区数据
ElseIf Form1.COM.InBufferCount < 1 Then
Do While Form1.COM.InBufferCount < 1
delay = delay + 1
If (delay = 30000) Then
Form1.ComF.BackColor = RGB(255, 50, 125)
WTim = WTim + 1 '计重发次数
If (WTim < 100) Then
For TMP = 0 To 9
Call Form1.delay
Next TMP
GoTo resend:
Else: GoTo Err:
End If
End If
Loop
End If
发表于 2009-11-20 02:01:03 | 显示全部楼层 IP:江苏扬州
在前面加一句On Error Resume Next
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|小黑屋|最新主题|手机版|微赢网络技术论坛 ( 苏ICP备08020429号 )

GMT+8, 2024-9-29 11:32 , Processed in 0.202321 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.5

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表