□投稿者/ ONnoji -(2020/08/11(Tue) 18:22:01)
| 2020/08/11(Tue) 18:34:25 編集(投稿者)
> ものの1秒位で終わるので文構造がおかしいと言う事ですね > 考えて見ます、これで合ってると思ってるので見つけきれるかどうか
┌繰り返し │ ┌if (#空ファイル=0) /*それが空で無いなら*/ │ ├else if (#空ファイル=1) /*差額0が無い空ファイル状態なら*/ │ │ ┌ケース開始 │ │ ├─ケース (#空ファイル=0) /*真の空ファイルになったらここで終了*/ ←─┼─┼───繰り返し中止 │ │ ├─ケース (&差額金額<0) /*貸方の金額が大きい時は*/ │ │ ├─ケース (&差額金額>=0) /*以下は貸方と逆のパターン*/ │ │ ├─ケース (#空ファイル=1) /*貸借が0のものは移動させてるので空になるまで繰り返し*/ │ │ └ケース終了 │ └end └繰り返し終了
頭の中や机上であれこれ考えても、実際にどのように実行されてるのかを確認しなければ、まったく信頼性が揺らぎます。
プログラムは、作者の願望の通りに動くのではなく、プログラムに書かれているとおりに動作するのですから。
私ならば、[トレース出力]コマンドを使って条件がどのように判定されているのか確かめますよ。
次のように[トレース出力]コマンドを挿入すると、[トレース出力ウィンドウ]に結果のイチ(1)、ゼロ(0)が表示されます。
もちろん、イチ(1)は真、ゼロ(0)は偽です。
繰り返し
トレース出力 "if (#空ファイル=0)" = #str( (#空ファイル=0)) トレース出力 "else if (#空ファイル=1)" = #str( (#空ファイル=1)) if (#空ファイル=0) /*それが空で無いなら*/ else if (#空ファイル=1) /*差額0が無い空ファイル状態なら*/
トレース出力 "ケース (#空ファイル=0)" = #str( (#空ファイル=0)) トレース出力 "ケース (&差額金額<0)" = #str( (&差額金額<0)) トレース出力 "ケース (&差額金額>=0))" = #str( (&差額金額>=0)) トレース出力 "ケース (#空ファイル=1)" = #str( (#空ファイル=1))
ケース開始 ケース (#空ファイル=0) /*真の空ファイルになったらここで終了*/ 繰り返し中止 ケース (&差額金額<0) /*貸方の金額が大きい時は*/ ケース (&差額金額>=0) /*以下は貸方と逆のパターン*/ ケース (#空ファイル=1) /*貸借が0のものは移動させてるので空になるまで繰り返し*/ ケース終了 end 繰り返し終了
詳しくは、「フォームアプリケーション教書 第2部」の 「40 [トレース出力]ウィンドウと[トレース出力]コマンド」を参照してください。 http://silicon7565.html.xdomain.jp/
|
|