LOOPから抜けるには？

解決

Geek  2004-10-21 16:19:19  No: 86138  IP: [192.*.*.*]

たとえば
FOR R = 1 TO  100
    R = 50
NEXT
としたときRが100にならないので絶対抜けませんが（応答なしになる）
たとえばある一定の時間がたったら強制的に抜けるやり方って有るのでしょうか
FORMを使って無いPGなのでTIMERなどは使わないで
TimeOutみたいな命令って有るのでしょうか？

ほとんど有りえない文ですが、FOR文でインデックスを足したり引いたりしているので、万が一ループにはまった時の対策です

どうかよい回答をお待ちしています

編集 削除
nanashi  2004-10-21 16:36:07  No: 86139  IP: [192.*.*.*]

Timer関数、timeGetTime（API）などで一定時間を計ってやって、それを過ぎたらExit Forすればいいと思います。

編集 削除
batchman  2004-10-21 17:30:33  No: 86140  IP: [192.*.*.*]

フォームが無くてもお手軽に使えるタイマーとして．．．

http://www.vector.co.jp/soft/win95/prog/se173965.html

編集 削除
ぴんく  2004-10-21 17:39:43  No: 86141  IP: [192.*.*.*]

これはどう！？
FOR R = 1 TO  100
    R = 50
    lngcount=lngcount+1
    if lngcount=100
      exit for
    end if
NEXT

編集 削除
Geek  2004-10-21 17:39:59  No: 86142  IP: [192.*.*.*]

無事解決しました
ありがとうございました

編集 削除