请问如何编制告警程序?(50分)

袁

袁卫华

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-12

• #1

我想用beep实现如果出现问题即发出告警声,直到
按键盘或点击鼠标才关闭声音.请问如何编制?

 

小

小天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-12

• #2

messagebeep(0);

 

W

weihang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-12

• #3

for循环
messagebeep(0)
中间加一个等待系统命令,break
具体是什么等我查查
手头没书

 

Z

ZhaoQi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-12

• #4

@@!

 

C

cytown

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-12

• #5

可以for一个循环, 然后判断一个变量是否改变.
在onkeypress, onclick中改变变量.

 

W

weihang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-12

• #6

cytown高明!

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-12

• #7

g

 

小

小天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-12

• #8

狡猾狡猾地,xixi

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-12

• #9

补充cytown: 在for循环中<font color=red>必需</font>加application.processmessage!

 

小

小天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-12

• #10

不过是错的，在做for循环时，系统是不会再响应其它事件的，xixi
我看还是加个线程beep吧，用事件中断线程

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-12

• #11

小天: 睡觉了吗?
你该不会想证明人类不睡觉可以活多久吧?

 

小

小天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-12

• #12

cAKK好凶也。。。。。。

 

A

amo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-12

• #13

这样也不好，
不如直接写端口，让它自己去响，不占用cpu时间。
再在mouse或keyboard事件中去让它停下来。
不过端口号我记不清了;-)

 

小

小天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-12

• #14

AMO:不同的机器的端口号一样吗？

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-12

• #15

beep的端口应该是一样的.

 

S

Schiesser

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-12

• #16

加Timer,　10毫秒Beep一次；OnClick中设Timer.Enabled := False;

 

L

liuge

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-12

• #17

写端口，端口号：
端口43H 送入 B6H 以初始化定时器方式
端口42H =533H*896/声音频率

端口61H 送入3，扬声器开始响，送入0，关闭。

 

S

sunstone

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-12

• #18

我个人认为用timer比较好!

 

C

CJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-12

• #19

implementation
var
flag:boolean

oncreate
flag := false;

onkeypress
flag := false;

onmousedown
flag := false;

onYourErrEvent
flag := true;
timer1.enabled := true;

ontimer
if flag = false then
begin
tier1.enabled := false;
flag := false;//not nessary in fact
exit;
end;
messagebeep(0);

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-12

• #20

>>