怎么实现在某个时间段自动放歌程序(50分)

D

dxp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-28

• #1

我先获得系统时间用edit1.text反应出来，把系统时间放在edit1.text.现在我用if条件来判断
，if edit1.text='11:00:00' then
mediaplayer1.play. 就是在比较的时候出错，不知道
怎么解决，希望高手们能给小弟一下经验。
怎么完成这个程序！谢谢！

 

R

ReallyFail

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-28

• #2

不能用TTIMER来做吗？

 

D

dxp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-28

• #3

怎么用TTIMER来实现，请指教

 

R

ReallyFail

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-28

• #4

procedure TForm1.Timer1Timer(Sender: TObject);
begin

if formatdatetime('hh',now)='11' then

mediaplayer1.play;
end;

 

任

任豆豆

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-28

• #5

procedure TForm1.Timer1Timer(Sender: TObject);
begin

edit1.text := formatdatetime('hh:mm:ss',now);
if formatdatetime('hh:mm:ss',now)='11:00:00' then

mediaplayer1.play;
end;

 

D

dxp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-28

• #6

如果要在几个时间段里播放，应加上什么函数？怎么写？
这样只是在这个时间开始，怎么规定在哪个时间结束？请指教！

 

A

amidiot

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-29

• #7

这个……？
用得着编程么？winamp+计划任务不就搞定了？

 

P

powerpopeye

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-29

• #8

你还是给钱叫人帮你编好了。

 

任

任豆豆

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-29

• #9

procedure TForm1.Timer1Timer(Sender: TObject);
begin

edit1.text := formatdatetime('hh:mm:ss',now);
if formatdatetime('hh:mm:ss',now)='11:00:00' then

mediaplayer1.play;
if formatdatetime('hh:mm:ss',now)='11:30:00' then
//11:30停止
mediaplayer1.stop;

end;

 

B

bbs-wqt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-29

• #10

我查

 

I

ike

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-29

• #11

对任豆兄的补充：
procedure TForm1.Timer1Timer(Sender: TObject);//这里timer1.interval:=1000,一定要是一秒。要不可能不播或播个没完。
begin

edit1.text := formatdatetime('hh:mm:ss',now);
if formatdatetime('hh:mm:ss',now)='11:00:00' then

mediaplayer1.autorewind:=true;//这样才会循环播放。
mediaplayer1.play;
if formatdatetime('hh:mm:ss',now)='11:30:00' then
//11:30停止
mediaplayer1.stop;
end;

 

C

caffen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-29

• #12

也不一定要用到一秒吧，
如果把判断的时间。。。。。。。。。。。。。。。。。。。。。
的话，想想[?]

 

Y

yangtsehua

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-11

• #13

[green][/green]replenish about the question:
if mediaplayer1.autorewind:=true;，
then

[gold]you must make sure " mediaplayer1.FileName<>'' " [/gold]

 

P

pcspace

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-12

• #14

我已经做了一个类似的程序！定时播放定时关闭！
简单！

 

小

小熊跳舞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-12

• #15

TIMER

 

Y

yangtsehua

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-22

• #16

del

 

Y

yangtsehua

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-22

• #17

del

 

D

DancingQueen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-27

• #18

timer????
不是太懂，如果在间隔的时间里，该做的事还没做完，而时间又到了，又要进行下一次的事情，那timer会不会出错啊？？？

 

R

Rockey2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-27

• #19

timer 触发会被忽略