Re: [VB6 ] RS-232超級終端機讀的到，VB卻讀不到

[cindygirl (so good)]

程式碼如下：

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