usb-rs232 串囗 监控
甚本的输入输出都可以监控,只欠 振铃指示(ring indicator) 的即时电平不能显示,有请大大指教。Private Sub Com1_Click()
If Com1.Value = 1 Then
MSComm1.CommPort = 1
MSComm1.PortOpen = True
Else
MSComm1.PortOpen = False
End If
End Sub
Private Sub Dtr1_Click()
If Dtr1.Value = 1 Then
MSComm1.DTREnable = True
Else
MSComm1.DTREnable = False
End If
End Sub
Private Sub Rts1_Click()
If Rts1.Value = 1 Then
MSComm1.RTSEnable = True
Else
MSComm1.RTSEnable = False
End If
End Sub
Private Sub Command1_Click()
MSComm1.Output = Text1.Text & vbCrLf
End Sub
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
Text2.SelText = MSComm1.Input
Case comEvSend
Case comEvCTS
If MSComm1.CTSHolding = True Then
Cts1.FillColor = vbRed
Else
Cts1.FillColor = vbWhite
End If
Case comEvDSR
If MSComm1.DSRHolding = True Then
Dsr1.FillColor = vbRed
Else
Dsr1.FillColor = vbWhite
End If
Case comEvCD
If MSComm1.CDHolding = True Then
Dcd1.FillColor = vbRed
Else
Dcd1.FillColor = vbWhite
End If
Case comEvRing
Case comEvEOF
Case comBreak
Case comCDTO
Case comCTSTO
Case comDCB
Case comDSRTO
Case comFrame
Case comOverrun
Case comRxOver
Case comRxParity
Case comTxFull
End Select
End Sub --------------------编程问答-------------------- 这应该与USB转RS232有关。
实际物理的RS232口是9个脚。而USB最终是4引线,我认为USB转RS232的驱动不支持你的需求。 --------------------编程问答-------------------- 我的程序是对串囗访问,可以监控传统的串囗,或经USB转RS232的串囗。
现在已经可以用RXD,TXD收发数据,即时控制DTR,RTS的输出电平,
即时显示DCD,DSR,CTS的输入电平,
只欠 振铃指示(ring indicator) 的输入电平不能显示
;1 DCD Data Carrier Detect 用 CDHolding
;2 RxD Receive Data 用 Input
;3 TxD Transmit Data 用 Output
;4 DTR Data Terminal Ready 用 DTREnable
;5 SG Signal Ground
;6 DSR Data Set Ready 用 DSRHolding
;7 RTS Request To Send 用 RTSEnable
;8 CTS Clear To Send 用 CTSHolding
;9 RI Ring Indicator 未知 --------------------编程问答--------------------
支持你的说法
补充:VB , 基础类