求助：VB程序下的电脑死机问题-专业自动化论坛-中国工控网论坛

求助：VB程序下的电脑死机问题点击：3462 | 回复：23

精华：0帖
求助：1帖
帖子：9帖 | 72回
年度积分：0
历史总积分：66
注册：2003年6月18日

发表于：2007-11-06 11:55:00

楼主

我用VB编了一个数据采集程序，在运行过程中，发现有时出现电脑假死机现象：VB编制的程序停止进程，查看Windows任务管理器，发现其中的“系统空闲进程”占用CPU达到90%以上，其它进程全部停止，直到该进程占用CPU低于90%后，VB的程序开始正常运行，是我的程序有问题还是电脑系统的设置有问题？请高手指点一二

分享到：

邀请回答

回复楼主

ranranplay

精华：1帖
求助：0帖
帖子：18帖 | 382回
年度积分：0
历史总积分：773
注册：2005年9月27日

发表于：2007-11-06 14:13:00

1楼

程序问题,贴个图上来看看

回复引用举报

FanRan630

精华：0帖
求助：1帖
帖子：9帖 | 72回
年度积分：0
历史总积分：66
注册：2003年6月18日

发表于：2007-11-06 15:01:00

2楼

先谢谢您了，请问贴哪一部分的图？

回复引用举报

FanRan630

精华：0帖
求助：1帖
帖子：9帖 | 72回
年度积分：0
历史总积分：66
注册：2003年6月18日

发表于：2007-11-06 15:07:00

3楼

对了，占用系统资源的进程是System Idle Process
这套在别的机器上运行时程序非常稳定，但安装在工控机（联想产品）上后就出现这个问题，到底是为什么？

回复引用举报

昆仑摩勒

精华：1帖
求助：1帖
帖子：32帖 | 446回
年度积分：0
历史总积分：1058
注册：2004年11月22日

发表于：2007-11-07 08:53:00

4楼

估计是系统问题啦重装一个试试看

回复引用举报

名笔

精华：0帖
求助：0帖
帖子：1帖 | 190回
年度积分：0
历史总积分：270
注册：2004年11月24日

发表于：2007-11-07 09:06:00

5楼

System Idle Process,是Windows管理进程的，他的占有率总是很高的，而且不会在任务管理其中反映出来。你可以找个CPU占用很低的机器看看，改进程占用不会低于90％。

回复引用举报

FanRan630

精华：0帖
求助：1帖
帖子：9帖 | 72回
年度积分：0
历史总积分：66
注册：2003年6月18日

发表于：2007-11-07 11:52:00

6楼

谢谢各位的帮助！按照各位的指导，我查找了一下出错的地方，发现是在发送串口数据的时候，该段的代码如下

我的数据采集间隔是200ms，在别的机子上工作完全正常，就是在工控机上出现“死机”现象，是硬件问题还是WindowsXP系统的问题呢？注：工控机是天工工控全长P4 CPU主板，845GV芯片组，512M内存，操作系统为WindowsXP+SP2（番茄花园版本）

回复引用举报

FanRan630

精华：0帖
求助：1帖
帖子：9帖 | 72回
年度积分：0
历史总积分：66
注册：2003年6月18日

发表于：2007-11-07 12:00:00

7楼

对不起，图片贴不上去，复制代码段如下：
'==========================================================
'              SERIAL PORT SETTING & DATA SEND
'==========================================================Private Sub SendStrData(strData As String)

   With MSComm1
      If .PortOpen Then .PortOpen = False                   'Close Port
      .CommPort = 1                                         'Select Serial Port
      .OutBufferCount = 0                                   'Empty Out buffer
      .InBufferCount = 0                                    'Empty Input buffer
      .Settings = "9600,n,8,1"                              'Port Setting
      .RThreshold = 0                                       'stop receive data rspounding
      .RTSEnable = False                                    'RTS check enabled
      .DTREnable = False                                    'DTR check enabled
      .Handshaking = comNone                                'Forbid Hand shaking
      .InputLen = 0                                         'Receive all data in input buffer
      .InputMode = comInputModeText                         'Receive Mode: Text
      .PortOpen = True
      .Output = strData
   End With

End Sub

'========================================================
'========================================================

回复引用举报

FanRan630