VB 数据库采集

来源：百度知道 编辑：UC知道 时间：2024/06/27 20:26:19
假如下位机给我发送了数据是 88 00 12345678 66 EE 我这边判断66是正常 然后在datagrid 控件上面显示

通道号 电话号码 状态
00 12345678 正常
如果收到 88 00 12345678 99 EE 则显示
通道号 电话号码 状态
00 12345678 异常 （如果超过一段时间还没有收到下位机的信息 则显示）
通道号 电话号码 状态
00 12345678 延时

请高手解决

解决了我再加100分

Option Explicit
Dim sum As Integer
Dim strData As String

Private Sub Form_Load()
sum = 1
MSFlexGrid1.Cols = 3
MSFlexGrid1.Rows = sum
MSFlexGrid1.TextMatrix(0, 0) = "通道号" '通道号 电话号码 状态
MSFlexGrid1.TextMatrix(0, 1) = "电话号码"
MSFlexGrid1.TextMatrix(0, 2) = "状态"
MSComm1.Settings = "9600,N,8,1"
MSComm1.RThreshold = 16
MSComm1.InputMode = comInputModeText
MSComm1.PortOpen = True
End Sub

Private Sub mscomm1_OnComm()
Dim intInputLen As Integer
Select Case Me.MSComm1.CommEvent
Case comEvReceive
'此处添加处理接收的代码
strData = Me.MSComm1.Input
If Mid(strData, 1, 2) = "88" And Len(strData) = 16 And Mid(strData, 15, 2) = "EE" Then
sum = sum + 1
MSFlexGrid1.Rows = sum