我用VB整了个软件，虚拟串口调试的时候无问题，但是真正控制仪器的时候整不了多久就死机！

[qiangshou2301]

我用VB整了个软件，用虚拟串口与调试助手看发送的数据完全正确，但是真正用UCB转串口来实际控制下位机的继电器（继电器控制电磁阀）时，老是工作段时间程序就死了，不知道是哪的问题？我的UCB转串口的芯片是PL2303。
想不转，直接9针对9针，电脑不知道怎么回事找不到COM口？

[qiangshou2301]

回ybh37：我的邮箱是[e-mail] 谢谢你了。
把时间控件那的核心代码改为用 zdingyun 给我的方案也试了，也是一样的问题，有时候运行没有问题，有时候VB程序就死掉了。
我今天去换个PCI的转串口卡，昨天买的50元太次了，驱动装不上，准备买了200元的，磨砂的。

[贝隆]

现在的PC一般都只有一个COM1

[zdingyun]

LZ的PC看来是没有COM口的.

[贝隆]

应该不会吧？

[qiangshou2301]

我的PC倒是有一个自带的COM1，但是那个不能用啊，没有任何反应。
今天又去换了个几十的PCI卡，还是不行，moxa的没有现货，明天去退了这个次的，不行先买个PL340的USB转串口的试试，要是还不行的话就该去考虑下moxa的了
我这个主要是控制继电器，进而控制电磁阀用的，还控制点步进电机运动。

[贝隆]

Moxa的才200？？不可能

[贝隆]

[Quote=引用 55 楼 xn1980216 的回复:]
我要疯了，你们竟然能用VB操作硬件，啊。。。。。。。。天啊！
[/Quote]

我也要疯了，串口通信，居然被你理解成这样。。。。

[of123]

如果底层也是自己做，如果控制命令只是输出（可以有少量的状态输入），可以用打印口。

[zdingyun]

[Quote=引用 70 楼 qiangshou2301 的回复:]
我的PC倒是有一个自带的COM1，但是那个不能用啊，没有任何反应。
今天又去换了个几十的PCI卡，还是不行，moxa的没有现货，明天去退了这个次的，不行先买个PL340的USB转串口的试试，要是还不行的话就该去考虑下moxa的了
我这个主要是控制继电器，进而控制电磁阀用的，还控制点步进电机运动。
[/Quote]
建议LZ先找台COM口好的电脑试下,排除硬件的毛病.我的感觉LZ你自己的代码Sleep这么用不好.

[zdingyun]

[Quote=引用 70 楼 qiangshou2301 的回复:]
我的PC倒是有一个自带的COM1，但是那个不能用啊，没有任何反应。
今天又去换了个几十的PCI卡，还是不行，moxa的没有现货，明天去退了这个次的，不行先买个PL340的USB转串口的试试，要是还不行的话就该去考虑下moxa的了

[/Quote]
一块新主板的价格看来远远低于moxa的串口扩展卡.

[qiangshou2301]

用打印机的口，那怎么设置呢，才能用呢？
zdingyun兄你写的那个我试了，时间不准，与设定的时间相差比较大，没有Sleep准，用Timer2.Interval一般时间都耗的长。
我找个刚配的电脑试下啊！看看怎么样

[qiangshou2301]

控制命令全是输出

[zdingyun]

[Quote=引用 74 楼 qiangshou2301 的回复:]
用打印机的口，那怎么设置呢，才能用呢？
zdingyun兄你写的那个我试了，时间不准，与设定的时间相差比较大，没有Sleep准，用Timer2.Interval一般时间都耗的长。
我找个刚配的电脑试下啊！看看怎么样
[/Quote]
使用Sleep时电脑处于停顿状态.
使用Timer计时器,计时器实际时间是Interval加上Timer事件其中代码的执行时间.
可以通过系统时间来校正.

[贝隆]

[Quote=引用 70 楼 qiangshou2301 的回复:]
我的PC倒是有一个自带的COM1，但是那个不能用啊，没有任何反应。
今天又去换了个几十的PCI卡，还是不行，moxa的没有现货，明天去退了这个次的，不行先买个PL340的USB转串口的试试，要是还不行的话就该去考虑下moxa的了
我这个主要是控制继电器，进而控制电磁阀用的，还控制点步进电机运动。
[/Quote]

看了楼主的用途，我有言要发：还是建议楼主买好一点的板卡，几十块的卡用在你这个场合下不合适！

[qiangshou2301]

怎么通过系统时间来校正呢？zdingyun兄

Private Sub Command5_Click()
    MSComm1.PortOpen = True
    Timer2.Enabled = True
    Timer2.Interval = t66 * 1000
End Sub

Private Sub Form_Load()
    MSComm1.CommPort = port
    MSComm1.Settings = setting
    Timer2.Enabled = False
End Sub

Private Sub Timer2_Timer()
    Static sum As Long
    If sum < 18 Then
        If sum Mod 2 = 0 Then
            Call DataSend(&H66, MSComm1)
            Timer2.Interval = t66 * 1000
        Else
            Call DataSend(&H7E, MSComm1)
            Timer2.Interval = t7e * 1000
        End If
    ElseIf sum >= 18 Then
        If sum = 18 Then
            Call DataSend(&H67, MSComm1)
            Timer2.Interval = t67 * 1000
        ElseIf sum = 19 Then
            Call DataSend(&H6A, MSComm1)
            Timer2.Interval = t6a * 1000
        ElseIf sum = 20 Then
            Call DataSend(&H6C, MSComm1)
            Timer2.Interval = t6c * 1000
        ElseIf sum = 21 Then
            Call DataSend(&H67, MSComm1)
            Timer2.Interval = t67 * 1000
        ElseIf sum > 21 Then
            Call DataSend(&H66, MSComm1)
            Timer2.Interval = t66 * 1000
            sum = sum - 22
        End If
    End If
    sum = sum + 1
End Sub

[咸清]

够忙活的~~~先把硬件问题搞定好了

[zdingyun]

LZ:串口发送是需要时间的.你每次发送9字节数据,按9600波特率,每字节占10位约需要9ms以上,所以你可在执行
Timer2.Interval = txx * 1000
时修改为:
Timer2.Interval = txx * 1000 - 10
来校正时间.

[qiangshou2301]

呵呵 刚才调试去了 用了电脑上的硬串口 程序似乎是不死了 没有用USB转串口
原来电脑上的COM1能用 我只是把9-9的线接错了 应该是2-2，3-3，我搞成2-3，3-2了
问题就到这了，该结贴啦！呵呵 。
谢谢ybh37兄、of123、阿根廷巫师、鼎云兄这3天来一直关注。
如果还有死机的情况发生，再请教你们吧！非常感谢！

[qiangshou2301]

谢谢阿根廷巫师，我直接用的电脑上的COM1，原来是我做的线接线方式做错了。
我只是把9-9的线接错了 应该是2-2，3-3，我搞成2-3，3-2了

[mingming666]

高手们，我现在想做一个刷卡器的程序，就是类似银行卡，在刷卡器上刷一下，然后程序这边将卡号接收过来显示在文本框中，谁有这样的代码啊，或者告诉我怎么做啊