刚接触mscomm控件,请问一下各位,mscomm控件能通过串口同时输出ASCII码和十六进制吗?

解决方案 »

  1.   

    就是让他同时输出,两个text同时显示,怎么实现呢
      

  2.   

    MsComm控件可以以2种方式(Byte数组或ASCII字符)发送数据.其实质是传递8位的ASCII码.
    Private Sub Command1_Click() '以Byte数组发送
        Dim sjSend(1 To 4) As Byte
        sjSend(1) = &HFF
        sjSend(2) = &HA
        sjSend(3) = &H7F
        sjSend(4) = &H31
        MSComm1.Output = sjSend
    End SubPrivate Sub Command2_Click() '以ASCII字符发送
        Dim strSj As String
        strSj = "mscomm控件能通过串口同时输出"
        MSComm1.Output = strSj
    End SubPrivate Sub Form_Load()
        MSComm1.CommPort = 1
        MSComm1.Settings = "9600,n,8,1"
        MSComm1.PortOpen = True
    End Sub