大家好，我是做工控行业的，想求一段实现延时2秒种的代码？？用来给现场的控制器发脉冲。在求一段实现语音报警的代码！ 谢谢大家了。

我是做工控行业的，现在在做一家电解铝厂的项目。我负责上位机RsView32,比方说开启1号电机，首先让Motor＝1；然后延时2秒钟，在置Motor＝0；这样一个脉冲就发送了。电机就启动了，但是就是这个延时我不会写。

还有一个就是现场的仪表测量现场的辐射系数，设计院标定的值在0－10当量之间，当变送器送回来的值高于10的时候，自动语音报警，就用一个事件触发机制，大家给给段代码吧。

谢谢了。

QQ:506489854 --------------------编程问答-------------------- RsView32 用的AB公司的产品啊,哪个可以嵌入VBA. --------------------编程问答-------------------- 两者都可使用TIMER控件来实现。
前者当改变控制命令，通过计时器的TIMER事件缓冲后发送。
后者在计时器TIMER事件中使用I
IF 条件 THEN
'执行报警语句
ENDIF --------------------编程问答-------------------- RsView32可以嵌入VBA啊

--------------------编程问答-------------------- 报警这个问题我是这么想的。

编写一个函数

BOOL function alarm（str1 as string）

{
具体的执行代码
}

然后我可以在我要调用的时候，调用这个函数，传递.wav声音文件的详细路径和文件名称。

然后扬声器就听到声音了，我感觉这个程序的重复利用挺好的。 --------------------编程问答-------------------- 谢谢大家的支持，问题已经得到解决。

补充：VB ,  基础类