VB6.0串口通信问题

绝世酱油瓶 2012-12-28 06:27:12 
Private Sub Command8_Click()

Dim cmd(0 To 2) As Byte

cmd(0) = &H2

cmd(1) = &H8

cmd(2) = &H1

MSComm1.Output = cmd

End Sub


如上。我往串口写命令的时候。画面会卡住几秒。之后正常。写入也成功、
我接收数据的代码写在定时器在。这个是什么原因？
如图。红色部分是有一个label。被卡没了。写命令反应很慢。但是有得命令又很快
...全文
909 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
绝世酱油瓶 2012-12-31
  • 打赏
  • 举报
 回复
引用 4 楼 Java_Devil 的回复:
引用 2 楼 Veron_04 的回复:无代码，无真相，上更多的代码我以前都是用的自己公司的动态库写的串口通信。这次是直接用的VB的控件。不知道是不是有什么必要的参数没有设置引起的。老板说是我没有设置什么发送数据的长度什么的。试过很多属性都没用。
解决了。不应该用定时器。
绝世酱油瓶 2012-12-30
  • 打赏
  • 举报
 回复
引用 2 楼 Veron_04 的回复:
无代码，无真相，上更多的代码
我以前都是用的自己公司的动态库写的串口通信。这次是直接用的VB的控件。不知道是不是有什么必要的参数没有设置引起的。老板说是我没有设置什么发送数据的长度什么的。试过很多属性都没用。
绝世酱油瓶 2012-12-30
  • 打赏
  • 举报
 回复
引用 2 楼 Veron_04 的回复:
无代码，无真相，上更多的代码
Dim comFlag As Long '打开关闭串口按钮标记
Dim flag As Long
Dim result As String

'屏蔽窗口的关闭按钮
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Const MF_REMOVE = &H1000
Private Const SC_CLOSE = &HF060
'打开串口函数
Private Declare Function InitDev Lib "Lib980.dll" (ByVal comport As Byte, ByVal baudrate As Long) As Byte
'关闭串口函数
Private Declare Sub DelDev Lib "Lib980.dll" ()
'发送命令函数
Private Declare Function SerSend Lib "Lib980.dll" (ByVal portNo As Long, ByVal cmd As Byte) As Long
'接收命令函数
Private Declare Function SerRecv Lib "Lib980.dll" (ByVal portNo As Long, ByVal data As Long, ByVal timeout As Long) As Long
Private Sub Command1_Click()
Dim comport As Byte
Dim baudrate As Long
Dim mark As Byte
Dim status As Long
'Dim cmd As Byte
'Dim data(0 To 300) As Byte
'Dim timeout As Long
'Dim portNo As Long
'portNo = 0
'timeout = 5000
'cmd = CByte("0105")
comFlag = comFlag + 1
comport = CByte(Combo1.Text)
baudrate = CLng(Combo2.Text)
If (comFlag Mod 2 = 0) Then
Command1.Caption = "打开串口"
'DelDev
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command10.Enabled = False
Command11.Enabled = False
Command12.Enabled = False
  Timer1.Enabled = False
  MSComm1.PortOpen = False
  Shape1.FillColor = &H808080
  Label5.Caption = ""
Else
Command1.Caption = "关闭串口"
'mark = InitDev(comport, baudrate)
MSComm1.CommPort = comport
MSComm1.Settings = CStr(baudrate) + ",n,8,1"
MSComm1.PortOpen = True
Timer1.Enabled = True
Shape1.FillColor = &HC000&
Label5.Caption = "请刷卡       >>>"
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
Command8.Enabled = True
Command10.Enabled = True
Command11.Enabled = True
Command12.Enabled = True
'If (mark = 0) Then
'Text1.Text = "串口<" + CStr(Combo2.Text) + ">初始化成功!"
'status = SerSend(portNo, cmd)
'status = SerRecv(portNo, VarPtr(data(0)), timeout)
'Text1.Text = Hex(data(0))
'Else
'Text1.Text = "串口已被占用!"
'End If
End If
End Sub
Private Sub Command10_Click()
Timer1.Enabled = False
Dim cmd(0 To 2) As Byte
cmd(0) = &H2
cmd(1) = &H8
cmd(2) = &H2
MSComm1.Output = cmd
Timer1.Enabled = True
End Sub
Private Sub Command11_Click()
Timer1.Enabled = False
Dim cmd(0 To 2) As Byte
cmd(0) = &H2
cmd(1) = &H8
cmd(2) = &H3
MSComm1.Output = cmd
Timer1.Enabled = True
End Sub
Private Sub Command12_Click()
Timer1.Enabled = False
Dim cmd(0 To 1) As Byte
cmd(0) = &H1
cmd(1) = &H4
MSComm1.Output = cmd

Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Unload Form1
End Sub
Private Sub Command3_Click()
Timer1.Enabled = False
Dim cmd(0 To 1) As Byte
cmd(0) = &H1
cmd(1) = &H5
MSComm1.Output = cmd
Timer1.Enabled = True
End Sub
Private Sub Command4_Click()
Timer1.Enabled = False
Dim cmd(0 To 1) As Byte
cmd(0) = &H1
cmd(1) = &H1
MSComm1.Output = cmd
Timer1.Enabled = True
End Sub
Private Sub Command5_Click()
Timer1.Enabled = False
Dim cmd(0 To 1) As Byte
cmd(0) = &H1
cmd(1) = &H6
MSComm1.Output = cmd
Timer1.Enabled = True
End Sub
Private Sub Command6_Click()
Timer1.Enabled = False
Dim cmd(0 To 1) As Byte
cmd(0) = &H1
cmd(1) = &H3
MSComm1.Output = cmd
Timer1.Enabled = True
End Sub
Private Sub Command7_Click()
If (Text1.Text = "" Or Text1.Text = Null) Then
MsgBox ("请输入命令!")
Else
'Timer1.Enabled = False
Dim cmd(0 To 49) As Byte
'命令处理
Dim str() As String
Dim strLength As Integer
Dim flag As Boolean
 str = Split(Text1.Text, " ")
 strLength = UBound(str) - LBound(str) + 1
  For i = 0 To (strLength - 1)
     If (Len(str(i)) <> 2) Then
      Label4.ForeColor = &HFF&
    Label4.Caption = "命令格式错误、正确格式：xx xx xx......!"
     flag = True
     Exit For
     Else
     Label4.Caption = ""
     cmd(i) = str(i)
    End If
 Next i
'
If (flag = False) Then
MSComm1.Output = cmd
End If
'Timer1.Enabled = True
End If
End Sub
Private Sub Command8_Click()
Timer1.Enabled = False
Dim cmd(0 To 2) As Byte
cmd(0) = &H2
cmd(1) = &H8
cmd(2) = &H1
MSComm1.Output = cmd
Timer1.Enabled = True
End Sub
Private Sub Command9_Click()
Text2.Text = ""
result = ""
End Sub
Private Sub Form_Load()
Disabled Me.hwnd
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command10.Enabled = False
Command11.Enabled = False
Command12.Enabled = False
Option1.Value = True

Combo1.AddItem (1)
Combo1.AddItem (2)
Combo1.AddItem (3)
Combo1.AddItem (4)
Combo1.AddItem (5)
Combo1.AddItem (6)
Combo1.AddItem (9)
Combo1.ListIndex = 3
Combo2.AddItem (9600)
Combo2.AddItem (115200)
Combo2.ListIndex = 0
Command1.Caption = "打开串口"
Timer1.Enabled = False
Timer1.Interval = 1000
If (MSComm1.PortOpen = True) Then
MSComm1.PortOpen = False
MSComm1.InBufferCount = 0
Shape1.FillColor = &HC000&
End If
End Sub
Private Sub Option1_Click()
If (MSComm1.PortOpen = True) Then
MSComm1.InputMode = comInputModeText
Text2.Text = ""
result = ""
End If
End Sub
Private Sub Option2_Click()
If (MSComm1.PortOpen = True) Then
MSComm1.InputMode = comInputModeBinary
Text2.Text = ""
result = ""
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
       Case 8, 32, Asc("0") To Asc("9")
       Label4.Caption = ""
       Case Asc("a") To Asc("f")
       Label4.Caption = ""
       Case Asc("A") To Asc("F")
       Label4.Caption = ""
       Case Else
        KeyAscii = 0
        Label4.ForeColor = &HFF&
      Label4.Caption = "您输入了不属于十六进制的字符!"
End Select
End Sub
Private Sub Timer1_Timer()
Dim strBuff As String
Dim BytReceived() As Byte
flag = flag + 1
If (flag Mod 3 = 0) Then
Label5.Caption = "请刷卡    >>>"
ElseIf (flag Mod 3 = 1) Then
Label5.Caption = "请刷卡  >>>"
Else
Label5.Caption = "请刷卡>>>"
End If
MSComm1.InputLen = 0
strBuff = MSComm1.Input
If (strBuff <> Null Or strBuff <> "") Then
MsgBox (strBuff)
  If (Option1.Value = True) Then
  result = strBuff
  Text2.Text = Text2.Text + result
  End If
  If (Option2.Value = True) Then
  BytReceived() = strBuff
      For i = 0 To UBound(BytReceived)
          If Len(Hex(BytReceived(i))) = 1 Then
          result = result & "0" & Hex(BytReceived(i)) & " " '如果只有一个字符，则前补0，如F显示0F，最后补空格
          Else
          result = result & Hex(BytReceived(i)) & " " '方便显示观察如： 00 0F FE
          End If
     Next
     Text2.Text = result
  End If
End If

End Sub
'屏蔽窗口的关闭按钮
Function Disabled(ChWnd As Long)
Dim hMenu, hendMenu As Long
Dim c As Long
hMenu = GetSystemMenu(ChWnd, 0)
RemoveMenu hMenu, SC_CLOSE, MF_REMOVE
End Function
代码全贴上了、奇怪的是只有部分命令卡、但不是硬件问题。因为我用STC串口工具。反应很快
贝隆 2012-12-29
  • 打赏
  • 举报
 回复
无代码，无真相，上更多的代码
palleexu 2012-12-28
  • 打赏
  • 举报
 回复
猜想；卡有可能是某些事件占用了你的CPU，比如说在你界面上，定时器程序中标签是否重绘了，我以前碰到过就是在发送或者接收的时候把数据发或者接一次就在textbox里面显示一次，导致一卡一卡的，后来改成在内存中处理完了再显示出来就好很多。
关于MSCOMM控件的一些说明
本文详细介绍了VB5.0/6.0中的MSComm控件，包括其在串口通信中的应用、属性、事件和错误处理等内容。同时，针对中文Win95/98环境下使用MSComm控件时可能出现的问题及其解决方法进行了深入探讨。
在 Wi ndows,MSComm控件在中文Wi的ndows下的通信问题与处理方法.doc
本文探讨了VB5.0/6.0的MSComm控件在中文Windows环境下进行串口通信时可能遇到的问题，如数据接收不全，并提出了解决方法。在设置好串口参数后，通过MSComm控件发送和接收数据，但在某些情况下，由于控件的Bug可能导致接收数据不足。解决这个问题需要理解COMMTIMEOUTS结构的WriteTotalTimeOutConstant设置，该设置可能默认限制了数据传输时间，导致数据丢失。
vb如何实现两台计算机数据包传送,VB学习网站！ - PLC论坛 工控网 工控论坛 http://bbs.gkong.com/...
本文详细介绍了VB5.0/6.0中的MSComm控件，包括其在串口通信中的应用、属性、事件和错误处理等内容。同时，针对中文Win95/98环境下使用MSComm控件时常见的问题，如数据丢失、发送特定字符等问题，提供了具体的解决方案。
关于MSCOMM控件的一些说明 作者[huxiangming]©[mgwmj]©
本文详细介绍了VB5.0/6.0中的MSComm控件，包括串口通信的基础知识、控件的属性与事件、常见错误处理以及编程技巧。特别针对中文Win95/98环境下通信时的问题给出了具体的解决方案。
关于MSCOMM控件的一些说明(转贴)
本文详细介绍了VB5.0/6.0中的MSComm控件，包括串口通信的基础知识、控件的属性与事件、常见问题及解决方法。特别针对中文Win95/98环境下的通信问题给出了具体的解决方案。
控件

1,453

社区成员

41,351

社区内容

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章