关于vb的串口通信问题

来源：百度知道 编辑：UC知道 时间：2024/05/14 11:37:34
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputMode = 0
End Sub

Private Sub Cmdsend_Click()
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
MSComm1.Output = Trim(Textsend.Text)
End Sub
Private Sub CmdReceive_Click()
Dim buf$
Timer1.Enabled = False
buf = Trim(MSComm1.Input)
If Len(buf) = 0 Then
TextReceive.Text = ""
Else
TextReceive.Text = buf
End If
End Sub

Private Sub Cmdauto_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If MSComm1.InBufferCount > 0 Then
TextReceive.Text = TextReceive.Text + MSComm1.Input
End If
End Sub

Private Sub Cmdquit_Click()
MSComm1.PortOpen = False
End
End Sub

上面是一个实现两台电脑之间串口通信的程序,怎样改动一下实现一

Option Explicit
Dim data As Variant
Dim Temp1 As String
Dim m As Integer
Dim strData As String
Dim bytInput() As Byte
Dim sj() As Byte
Dim i As Integer
Dim j As Integer
Dim sTemp As String
Dim yTemp() As Byte
Dim Hsum As Integer
Dim Ulen As Long
Dim Llen As Long
Dim for_Sum As Long
Dim Yu_sum As Integer

Private Sub zhuanhuan()
Dim yTemp() As Byte
ReDim yTemp(Len(strData) \ 2)
For i = 1 To Len(strData) - 4 Step 2
yTemp((i - 1) \ 2) = Val("&H" & Mid(strData, i, 2))
Next
sTemp = StrConv(yTemp, vbUnicode)
Text1 = sTemp
End Sub

Private Sub Command2_Click()
Dim Hsum As Integer
sTemp = sTemp & "%%"
yTemp = StrConv(sTemp, vbFromUnicode)
Hsum = UBound(yTemp)
Text2 = Hsum + 1
Ulen = 1