串口接收16进制数据后,再把接到的数据以16进制发送！
Dim str As String
Dim BytReceived() As Byte
Dim bytSendByte() As Byte
Private Sub MSComm1_OnComm()
Dim strBuff As String
Select Case MSComm1.CommEvent
Case 2
MSComm1.InputLen = 0
strBuff = MSComm1.Input
BytReceived() = strBuff
jieshou
End Select
Dim sj() As Byte
Dim sj_Txt As String
Dim q As Integer
sj_Txt = str
If Len(str) Mod 2 = 0 And Len(str) <> 0 Then
ReDim sj(Len(sj_Txt) / 2 - 1)
For q = 0 To Len(sj_Txt) - 1 Step 2
sj(q / 2) = Val("&H" & Mid(sj_Txt, q + 1, 2))
Next
MSComm1.Output = sj
str = ""
End If
end sub
Public Function jieshou()
Dim i As Integer
For i = 0 To UBound(BytReceived)
If Len(Hex(BytReceived(i))) = 1 Then
str = str & "0" & Hex(BytReceived(i))
Else
str = str & Hex(BytReceived(i))
End If
Next
Text1.Text = str
End Function
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputMode = comInputModeBinary
MSComm1.InBufferCount = 0
MSComm1.OutBufferCount = 0
MSComm1.RThreshold = 1
MSComm1.InBufferSize = 1024
MSComm1.PortOpen = True
end sub
接收的数据在text1.text中显示，发送好像错了...错在哪儿了...
[解决办法]
看看你的代码，不知道你来回折腾啥？
---------------------------------------------
你折腾半天与以代码有什么区别？
Private Sub MSComm1_OnComm() Dim strBuff() As byte Select Case MSComm1.CommEvent Case 2 MSComm1.InputLen = 0 strBuff = MSComm1.Input BytReceived() = strBuff jieshou End Select MSComm1.Output = strBuff End Ifend sub
[解决办法]
Option Explicit Dim str As String Dim BytReceived() As Byte Dim bytSendByte() As Byte Dim sj_Txt As StringPrivate Sub MSComm1_OnComm() Dim strBuff As String Select Case MSComm1.CommEvent Case 2 MSComm1.InputLen = 0 strBuff = MSComm1.Input BytReceived() = strBuff Dim i As Integer For i = 0 To UBound(BytReceived) If Len(Hex(BytReceived(i))) = 1 Then str = str & "0" & Hex(BytReceived(i)) Else str = str & Hex(BytReceived(i)) End If Next Text1.Text = str If Mid(str, 1, 2) = "AA" And Len(str) = 22 Then sj_Txt = str Timer1.Enabled = True str = "" End If End SelectEnd SubPrivate Sub Form_Load() MSComm1.CommPort = 1 MSComm1.Settings = "9600,n,8,1" MSComm1.InputMode = comInputModeBinary MSComm1.InBufferCount = 0 MSComm1.OutBufferCount = 0 MSComm1.RThreshold = 1 MSComm1.InBufferSize = 1024 MSComm1.PortOpen = True Timer1.Enabled = False Timer1.Interval = 3000End SubPrivate Sub Timer1_Timer() Dim sj() As Byte Dim q As Integer If Len(sj_Txt) Mod 2 = 0 And Len(sj_Txt) <> 0 Then ReDim sj(Len(sj_Txt) / 2 - 1) For q = 0 To Len(sj_Txt) - 1 Step 2 sj(q / 2) = Val("&H" & Mid(sj_Txt, q + 1, 2)) Next MSComm1.Output = sj str = "" End If Timer1.Enabled = FalseEnd Sub
[解决办法]