実行を待つという機能No.13397
kurumagaeshi さん 03/06/19 07:28
 
kurumagaeshiです。
==Windows2000pro(SP3)+鶴亀メールver.2.91使用中==

基本的な質問かもしれませんが、ご教示下さい。

==>
マクロの実行を、指定した時間だけ待たせるような関数など
ありますか? マクロの中で使いたいのですが・・・。
ちょっと探したのですが、見つけられませんでした。
--
Nishikawa,Takeo
http://favorite.jp/
http://mathema.net/

[ ]
RE:13397 実行を待つという機能No.13398
たけのこ さん 03/06/19 09:33
 
たけのこです。

かな〜り使い古された割には判定が適当ですが、こんな感じ?

insert "a";
call waitfor 5;
insert "b";
endmacro;

waitfor:
refreshdatetime;
##hh = val(hour);
##mm = val(minute);
##ss = val(second) + ##1;
if(##ss > 59){
  ##ss = ##ss - 60;
  ##mm = ##mm + 1;
  if(##mm > 59){
    ##mm = ##mm - 60;
    ##hh = ##hh + 1;
    if(##hh > 23){
      ##hh = ##hh - 24;
    }
  }
}
$$limit = rightstr("0" + str(##hh), 2) + ":" + rightstr("0" + str(##mm),
2) + ":" + rightstr("0" + str(##ss), 2);
while(time != $$limit){}
return;

// 関係ないけど、最初に書いたのは動かなかった。
// while(boolean);とwhile(boolean){}は等価じゃないの(on4.00β3)?

(^^)/”

[ ]
RE:13398 実行を待つという機能No.13400
秀まるお2 さん 03/06/19 11:23
 
 tickcountを使った方が楽かと思います。

 例えば1秒待つなら、

    #n = tickcount;
    while( tickcount - #n < 1000 ) { }

[ ]
RE:13400 実行を待つという機能No.13401
たけのこ さん 03/06/19 11:31
 
たけのこです。

>     #n = tickcount;
>     while( tickcount - #n < 1000 ) { }

ああっ、そんなキーワードが(泣笑)。

(^^)/”

[ ]