作者cindygirl (so good)
看板Visual_Basic
标题Re: [VB6 ] RS-232超级终端机读的到，VB却读不到
时间Thu Dec 20 15:01:57 2007
程式码如下：
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