Private Sub Command1_Click()
Dim out1 As String
out1 = Chr(2) & "AB03" & Chr(3)
MSComm1.Output = out1
End Sub Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub Private Sub MSComm1_OnComm()
Dim mz As String
Dim pz As String
Dim jz As String
Dim i As Integer
Dim rfrom As Integer
Dim rend As Integer
Dim strtemp As String
Dim strend As String
If MSComm1.CommEvent = 2 Then
rc = MSComm1.Input
rc = Trim$(rc)
If Len(rc) > 12 Then
For i = 1 To Len(rc)
strtemp = Mid$(rc, i, 1)
If strtemp = Chr(2) Then
rfrom = i
End If
If strtemp = Chr(3) Then
rend = i
If rend > rfrom Then
strend = Mid$(rc, rfrom, rend - rfrom)
'rc = StrConv(rc, vbUnicode)
mz = Mid$(rc, 4, 4)
pz = Mid$(rc, 8, 3)
jz = mz & "." & pz
Label2.Caption = jz
End If
End If
Next i
End If
End If
End Sub
是一个采集地磅数据的程序,用232直接连接可以通讯,采用232转485就不行了,MSComm1.Output = out1执行后,就没反应了.请高手指教.....
Dim out1 As String
out1 = Chr(2) & "AB03" & Chr(3)
MSComm1.Output = out1
End Sub Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub Private Sub MSComm1_OnComm()
Dim mz As String
Dim pz As String
Dim jz As String
Dim i As Integer
Dim rfrom As Integer
Dim rend As Integer
Dim strtemp As String
Dim strend As String
If MSComm1.CommEvent = 2 Then
rc = MSComm1.Input
rc = Trim$(rc)
If Len(rc) > 12 Then
For i = 1 To Len(rc)
strtemp = Mid$(rc, i, 1)
If strtemp = Chr(2) Then
rfrom = i
End If
If strtemp = Chr(3) Then
rend = i
If rend > rfrom Then
strend = Mid$(rc, rfrom, rend - rfrom)
'rc = StrConv(rc, vbUnicode)
mz = Mid$(rc, 4, 4)
pz = Mid$(rc, 8, 3)
jz = mz & "." & pz
Label2.Caption = jz
End If
End If
Next i
End If
End If
End Sub
是一个采集地磅数据的程序,用232直接连接可以通讯,采用232转485就不行了,MSComm1.Output = out1执行后,就没反应了.请高手指教.....
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货