串口通讯2.doc

Private Sub Form_Load() MSComm1.CommPort = 1 MSComm1.Settings = 9600,n,8,1 MSComm1.InputMode = 0 MSComm1.RThreshold = 1 MSComm1.PortOpen = True End Sub Private Sub cmdSend_Click() MSComm1.Output = Textsend.Text End Sub Private Sub MSComm1_OnComm() Dim input-num As Integer Select Case Me.MSComm1.CommEvent Case comEvReceive TextReceive.Text = TextReceive.Text + MSComm1.Input End Select End Sub Private Sub Cmdauto_Click() Timer1.Enabled = True End Sub Private Sub Timer1_Timer() MSComm1.Output = Textsend.Text TextReceive.Text = TextReceive.Text + MSComm1.Input End Sub Private Sub Cmdstop_Click() Timer1.Enabled = False End Sub Private Sub Cmdquit_Click() MSComm1.PortOpen = False End End Sub Private Sub CmdReceivecl_Click() TextReceive.Text = End Sub Private Sub Cmdsendcl_Click() Textsend.Text = End Sub 实现16进制接收实质就是按2进制接收 设置MSComm控件的属性InputMode = comInputModeBinary 二进制接收 接收后由HEX函数转为16进制字符串形式显示 Option Explicit Dim strData As String Dim TextReceive () As Byte Private Sub MsComm1_OnComm() Dim input-num As Integer Select Case Me.MSComm2.CommEvent ‘’‘’‘’‘’‘’‘’‘’‘’‘’ Case comEvReceive 此处添加处理接收的代码 MSComm1.InputMode = comInputModeBinary 二进制接收 input-num = MSComm1.InBufferCount ReDim TextReceive (input-num) TextReceive = MSComm1.Input jieshou End Select End Sub Public Function jieshou() 接收数据处理为16进制 Dim i As Integer For i = 0 To UBound(TextReceive) If Len(Hex TextReceive (i))) = 1 Then strData = strData 0 Hex(TextReceive (i)) Else strData = strData Hex(TextReceive (i)) End If Next Text1 = strData End Function Private Sub Form_Load() MSComm1.CommPort = 1 MSComm1.InBufferSize = 1024 MSComm1.OutBufferSize = 512 MSComm1.Settings = 9600,n,8,1 MSComm1.PortOpen = True Text1 = End Sub ?3 回答 ? 代码如下： ? Private Sub Form_Load() If MSComm1.PortOpen = True Then?? MSComm1.PortOpen = FalseEls