receive.bas

通过PC机的串口和单片机等嵌入式下位机通信

Attribute VB_Name = "Receive"
'检测接收的是否是connected
Public Sub Checkconnected(mystr As String)
If mystr = "connected" Then
  Main.Status.Caption = "通信已连接"
  Main.Timer3.Enabled = False
  Main.Timer2.Enabled = True
Else
  k = MsgBox("通信连接失败,请重新连接.", vbInformation, "提示")
  Main.Status.Caption = "通信未连接"
  Main.Connected.Enabled = True
  Main.MSComm.PortOpen = False
  Main.Timer3.Enabled = False
  Main.Timer2.Enabled = False
End If
SendMode = 0                   '恢复接收模式
End Sub

'检测接收到的是否是iamok
Public Sub Checkiamok(mystr As String)
Dim byt(0 To 3) As Byte
For i = 0 To 2
  byt(i) = &HFD
Next i
byt(3) = &H7C

If mystr = "iamok" Then
  If SendMode = 2 Then
      Call SendTimeP
      Exit Sub
  ElseIf SendMode = 4 Then
      Call Anlysis
      Main.MSComm.InputMode = comInputModeBinary
      Main.MSComm.Output = byt()
      SendMode = 5
      Exit Sub
  End If
Else
  k = MsgBox("握手失败,请重新连接", vbInformation, "提示")
  Main.Connected.Enabled = True
End If
End Sub
'检测接收到的是否是FE
Public Sub CheckFE(mybyte() As Byte)
If mybyte(0) = &HFE Then
   Call SendTimeTo                     '正确则发送时间
Else
  k = MsgBox("发送或接收有误,请重新发送.", vbInformation, "发送失败")
  Main.Status.Caption = "时间发送失败!"
  Main.Sendtime.Enabled = True
End If
End Sub
'检测接收到的是否是FD
Public Sub CheckFD(mybyte() As Byte)
If mybyte(0) = &HFD Then
  Call Sendinf
Else
  k = MsgBox("发送或接收有误,请重新发送.", vbInformation, "发送失败")
  Main.Status.Caption = "信息发送失败!"
  Main.Sendinf.Enabled = True
  SendMode = 0
End If
End Sub
'接收下位机传来的数量
Public Sub CheckCount(mybyte() As Byte)
If mybyte(0) = &H2 Then
  TimeCount = mybyte(1)
  ThingCount = mybyte(2)
  Main.MSComm.Output = &HFC
Else
  k = MsgBox("数据上传有误!", vbInformation, "错误")
End If
End Sub