Re: [VB6 ] RS-232超級終端機讀的到，VB卻讀不到
程式碼如下：
Private Sub Form_Load()
MSComm1.CommPort = 1
目前的做法是直接將MSComm1.CommPort = 1改成
MSComm1.CommPort = 3
這樣想可能太單純~因為沒有考慮到透過PCI來控制的程式碼
所以~~希望大家可以幫幫我@@>"<@@ ...頭很大!!
MSComm1.Settings = "2400,N,8,1"
MSComm1.InputLen = 16
MSComm1.InputMode = MSCOMMLIB.InputModeConstants.comInputModeText
MSComm1.RThreshold = 16
If (MSComm1.PortOpen) Then MSComm1.PortOpen = False
MSComm1.DTREnable = True
MSComm1.NullDiscard = False
Timer1.Enabled = True
Timer2.Enabled = False
Timer1.Interval = 500
MSComm1.PortOpen = True
MSComm1.RTSEnable = True
End Sub
Private Sub MSComm1_OnComm()
Dim TempStr As String
If MSComm1.InBufferCount = 16 Then
TempStr = MSComm1.Input
Text1.Text = Mid(TempStr, 9, 8)
MSComm1.EOFEnable = False
End If
End Sub
Private Sub Timer2_Timer()
Timer2.Enabled = False
Timer1.Enabled = True
Timer1.Interval = 500
If (MSComm1.PortOpen) Then MSComm1.PortOpen = False
MSComm1.DTREnable = True
MSComm1.NullDiscard = False
Timer1.Enabled = True
MSComm1.PortOpen = True
MSComm1.RTSEnable = True
End Sub
※ 引述《cindygirl (so good)》之銘言：
: 請各位救救我吧~~~~
: 很棘手的問題~~
: 目前買了一個RS-232 PCI的擴充卡
: 要用VB6讀取磅秤傳到com3、com4的值
: 現在的問題是，超級終端機都收的到值，可是用程式控制的時侯就收不到了
: 因為VB開啟com3、com4的時侯，終端機會顯示已連線無法開啟
: 這樣應該就是代表com3、com4是通的吧??
: 可是為什麼VB就是讀不到呢??
: 先謝謝各位了~~~~
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.125.96.55
討論串 (同標題文章)