VB编写的上位机与STC单片机通信
Private Sub Form_Load()MSComm1.Settings = "9600,n,8,1"
= 1
MSComm1.InputLen = 0
MSComm1.InBufferSize = 1024
MSComm1.InBufferCount = 0
MSComm1.OutBufferSize = 1024
MSComm1.OutBufferCount = 0
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
MSComm1.PortOpen = True
End Sub
Private Sub Text1_Click()
Text1.Text = ""
End Sub
Private Sub Command1_Click()
Dim outputLen As Integer
Dim outData As String
Dim SendData() As Byte
Dim DataSave As String
Dim datacount As Integer
Dim i, x As Integer
outData = UCase(Replace(Text1.Text, Space(1), Space(0)))
outData = UCase(outData)
outputLen = Len(outData)
For i = 0 To outputLen Step 1
DataSave = Mid(outData, i + 1, 1)
If (Asc(DataSave) >= 48 And Asc(DataSave) <= 57) Or (Asc(DataSave) >= 65 And Asc(DataSave) <= 70) Then
datacount = datacount + 1
Else
Exit For
Exit Sub
End If
Next i
If datacount Mod 2 <> 0 Then
datacount = datacount - 1
End If
outData = Left(outData, datacount)
ReDim SendData(datacount / 2 - 1)
For x = 0 To datacount / 2 - 1
SendData(x) = Val("&H" + Mid(outData, i * 2 + 1, 2))
Next x
MSComm.Output = SendData
End Sub
Private Sub MSComm1_OnComm()
Select Case
Case comEvReceive
Dim receive() As Byte
Dim receivedata As String
Dim counter As Integer
Dim i As Integer
If (MSComm1.InBufferCount > 0) Then
counter = MSComm1.InBufferCount
receivedata = ""
receive = MSComm1.Input
For i = 0 To (counter - 1) Step 1
If (receive < 16) Then
receivedata = receivedata & "0" + Hex(receive(i)) & Space(1)
Else
receivedata = receivedata & Hex(receive(i)) & Space(1)
End If
Next i
Text2.Text = Text2.Text + receivedata
Case Else
End Select
End Sub
Private Sub Command2_Click()
MSComm1.PortOpen = False
Unload Me
End Sub
麻烦大神帮我看看，现在我调试到If (Asc(DataSave) >= 48 And Asc(DataSave) <= 57) Or (Asc(DataSave) >= 65 And Asc(DataSave) <= 70) Then时提示说实时错误5无效的过程调用或参数，请问这是怎么回事？
