のほか [One Message View / Re[7]: 「目からウロコの・・・パート２」を公開しました。]

■1473 / 7階層)

　「目からウロコの・・・パート２」を公開しました。

□投稿者/ ONnoji -(2024/06/24(Mon) 22:03:36)

2024/06/25(Tue) 13:27:03 編集(投稿者)
2024/06/25(Tue) 00:22:15 編集(投稿者)

>>そうそう、時限式タイマーが出てきて驚いたことでしょう。
>>非常にまれですが、「どうしても具合が悪い場合」に遭遇する事があるものです。
>>その時には、プログラムの流れを終わらせて、時限式タイマーで続きを実行するというアプローチで解決することが多いです。
>
> この意味が分かる日が来るまで頑張ります(^^ゞ
> 本当に本当に素人が感じた感想です。
>
> オブジェクト操作　@フォーム｛タイマー1 = 1, タイマー値1 = 20 ｝
> 　↓
> 手続き定義終了
>
> タイマー1　でプログラムの流れを　中断　させた後　手続き定義終了　になっているので
> 手続き定義全体では１つの流れになっていると思います。

ご明察です！、その通りですよ。(^^ok

以下の・・・

　 cmd行追加Click( )

　　オブジェクト操作　@フォーム｛タイマー1 = 1, タイマー値1 = 20 ｝

　フォーム::タイマー1()

　　オブジェクト操作　@フォーム｛タイマー1 = 0 ｝　/* 時限タイマーの［タイマー1］イベントを停止 */
　　手続き実行　prcサブフォームへフォーカスを移動( )

を図解すると↓次のようになります。

　　一般プロシージャ　　　　　　　　　　　　　　　　　　　　　イベントプロシージャ
　　cmd行追加Click( )　　　　　　　　　　　　　　　　　　　　　フォーム::タイマー1()
　┌────────────────┐　　　　　　　　　　　　┌─────────────────────────┐
　│　　　　　　　　　　　　　　　　│　　　　　　　　　　　　│フォーム::タイマー1() 　　　　　　　　　　　　　　│
　│&objectName = "フォーム"　　　　│　　　　　　　　　　　　│　　　　　　　　　　　　　　　　　　　　　　　　　│
　│&interval　 = 10　　　　　　　　│　　　　　　　　　　　　│　　　　　　　　　　　　　　　　　　　　　　　　　│
　│　：　　　　　　　　　　　　　　│　　　　　　　　　　　　│　　　　　　　　　　　　　　　　　　　　　　　　　│
　│　：　　　　　　　　　　　　　　│cmd行追加Click( )が終了 │オブジェクト操作　@フォーム　　　　　　　　　　　 │
　│　　　　　　　　　　　　　　　　│　した後のインターバル　│｛タイマー1 = 0 ｝　　　　　　　　　　　　　　　　│
　│オブジェクト操作　@フォーム　　│　　　↓　　　　　　　　│　　　　　　　　　　　　　　　　　　　　　　　　　│
　│｛タイマー1　 = 1，　　　　　　│├─────┤イベントが│　* コマンドまたはメソッド　　　　　　　　　　　　│
　│　タイマー値1 = 20 　　　　｝　│　　時間差　　　発生　　│　手続き実行　prcサブフォームへフォーカスを移動( )│
　│　　　　　　　　　　　　　　　　│　　　　　　　　　　　　│　　　　　　　　　　　　　　　　　　　　　　　　　│
　│　：　　　　　　　　　　　　　　│　　　　　　　　　　　　│　　　　　　　　　　　　　　　　　　　　　　　　　│
　│　：　　　　　　　　　　　　　　│　　　　　　　　　　　　│　　　　　　　　　　　　　　　　　　　　　　　　　│
　│　　　　　　　　　　　　　　　　│　　　　　　　　　　　　│　　　　　　　　　　　　　　　　　　　　　　　　　│
　└────────────────┘　　　　　　　　　　　　└─────────────────────────┘
　　※［タイマーイベント］プロシージャの冒頭で、［イベント］属性をオフにする。つまり、［タイマー］イベントが発生しないようにする。

この流れを見てみると・・・

　　　手続き定義開始　cmd行追加Click( )

　　　　行追加　終了状態 = &status, [日付] = &m日付, [予定] = &m予定
　　　　&m日付 = #u
　　　　&m予定 = #u
　　　　** ＮＧ：手続き実行　prcサブフォームへフォーカスを移動( )
　　　　**　　　　　　↓
　　　　**　　ＮＧのために一旦タイマー1 を予約して、タイマー1 で実行するようにした
　　　　**　　　　　　↓
　　　　オブジェクト操作　@フォーム｛タイマー1 = 1, タイマー値1 = 20 ｝

　　　手続き定義終了

　　　手続き定義開始　フォーム::タイマー1()

　　　　手続き実行　prcサブフォームへフォーカスを移動( )

　　　手続き定義終了

　　　手続き定義開始　prcサブフォームへフォーカスを移動( )

　　　　メソッド呼び出し　戻り値 = &return, @subformAccept.@cmd訂正.実行()

　　　手続き定義終了

という３個のプロシージャが関係していますね。(^^ゞ

　　cmd行追加Click　※このプロシージャから呼び出す手続きはありませんが・・・、タイマーは予約されています
　　　；
　　　；
　　予約したインターバルは、 20/100秒です
　　　；
　　　；
　　 20/100秒後にタイマー1 イベントが発生します！
　　　；
　　　；
　　　└ フォーム::タイマー1
　　　　　└ prcサブフォームへフォーカスを移動( )

↑上のように、

　　cmd行追加Click() … インターバルで指定した秒数が経過するまで何もしない … タイマー1() → prcサブフォームへフォーカスを移動( )

> 手続き定義全体では１つの流れになっていると思います。

ということで、ご明察です。v(^^)v

つまり、

　　プロシージャＡ() … インターバルで指定した秒数が経過するまで何もしない … タイマー1() → プロシージャＢ()

という風に覚えてください。

タイマーに関しては拙作ｗｅｂページで解説していますので、ご参考にしてください。

こちら
　↓
１１　［タイマー1/2］イベントの動的セット｜桐の釣魚大全のトップ > フォームアプリケーション教書　第１部
http://silicon7565.html.xdomain.jp/guide/guide_Part1.htm#section11

ｐ．ｓ．

［タイマー］イベントは、［ピタゴラ装置］で［時間経過によって作動する仕掛け］と全く同じですねぇ～。(^^ゞ

やっぱり、［フォーム＋イベント処理］を［ピタゴラ装置］に例えると分かり易いですね。アハハハha

ｐ．ｐ．ｓ．

そもそもの話に戻せば・・・(^^ゞ

以下は、手続き：cmd行追加Click( )内のコメント

　** ここで prcサブフォームへフォーカスを移動( ) を実行するとサブフォームのフォーカスの移動が上手くいかない事がある
　** サブフォームのコマンドボタン：cmd予定追加をマウス左クリック以外で実行した場合には、　txt日付_入力用にフォーカスが移動する　：Ｇｏｏｄ
　** サブフォームのコマンドボタン：cmd予定追加をマウス左クリックした時だけ、サブフォームのtxt日付_入力用にフォーカスが移動しない：ＮＧ
　** ＮＧ：手続き実行　prcサブフォームへフォーカスを移動( )
　** 回避策として、時限タイマーの［タイマー1］イベントをインターバル 50/100秒で予約して、プログラムの流れを中断する

↑のコメント行のように、わざわざタイマーを使ったのは、

　txt日付_入力用 → txt予定_入力用 → cmd予定追加の操作の流れの中で、

コマンドボタン：cmd予定追加を、

・［Enter］キーを押す　 ← main側で行追加後に、　　　 cmd予定追加から txt日付_入力用にフォーカスが移動する
・マウス左クリックする　← ＮＧ：main側で行追加後に、 cmd予定追加から txt日付_入力用にフォーカスが移動しない　※フォーカスは cmd予定追加にある

というＮＧに対処するためですよ。

　　スケジュール表_subform_accept.wfx

　　　フォーム
　　　├ ファミリ
　　　├ ワークスペース
　　　│　└ cmd訂正
　　　├ フォームヘッダ部
　　　│　└ lbl説明
　　　└ フォーム明細部
　　　　　├ txt日付_入力用
　　　　　├ txt予定_入力用
　　　　　└ cmd予定追加

とりあえず、タイマー経由で解決しましたので、それ以上の調査はしていません。

今回のフォームは、メイン＆サブフォーム形式という、あくまでも試作ですので・・・(^^ゞ

[メール受信/OFF] 削除キー/

→Re[8]: 「目からウロコの・・・パート２�.. /ジェダイの桐
　

上記関連ツリー
前の記事(元になった記事)	次の記事(この記事の返信)
「目からウロコの・・・パート２」を公開.. / ONnoji (24/06/11(Tue) 16:31) #1445
`├` Re[1]: 「目からウロコの・・・パート２�.. / ジェダイの桐 (24/06/14(Fri) 17:36) #1446
`│└` Re[2]: 「目からウロコの・・・パート２�.. / ONnoji (24/06/15(Sat) 17:45) #1447
`│ └` Re[3]: 「目からウロコの・・・パート２�.. / ジェダイの桐 (24/06/17(Mon) 12:06) #1448
`│ └` Re[4]: 「目からウロコの・・・パート２�.. / ONnoji (24/06/17(Mon) 15:17) #1449
`│ └` Re[5]: 「目からウロコの・・・パート２�.. / ジェダイの桐 (24/06/17(Mon) 16:22) #1450
`│ └` Re[6]: 「目からウロコの・・・パート２�.. / ONnoji (24/06/17(Mon) 17:33) #1451
`│ └` Re[7]: 「目からウロコの・・・パート２�.. / ジェダイの桐 (24/06/18(Tue) 10:27) #1452
`│ └` Re[8]: 「目からウロコの・・・パート２�.. / ONnoji (24/06/18(Tue) 11:00) #1453
`│ └` Re[9]: 「目からウロコの・・・パート２�.. / ジェダイの桐 (24/06/18(Tue) 12:03) #1454
`│ └` Re[10]: 「目からウロコの・・・パート２.. / ONnoji (24/06/18(Tue) 15:54) #1455
`│ └` Re[11]: 「目からウロコの・・・パート２.. / ONnoji (24/06/18(Tue) 16:48) #1456
`│ └` Re[12]: 「目からウロコの・・・パート２.. / ONnoji (24/06/18(Tue) 17:05) #1457
`│ └` Re[13]: 「目からウロコの・・・パート２.. / ジェダイの桐 (24/06/19(Wed) 10:53) #1458
`│ └` Re[14]: 「目からウロコの・・・パート２.. / ONnoji (24/06/19(Wed) 11:28) #1459
`├` Re[1]: 「目からウロコの・・・パート２�.. / ONnoji (24/06/19(Wed) 15:42) #1460
`│├` Re[2]: 「目からウロコの・・・パート２�.. / ONnoji (24/06/19(Wed) 16:04) #1461
`│├` Re[2]: 「目からウロコの・・・パート２�.. / ジェダイの桐 (24/06/19(Wed) 17:02) #1462
`│├` Re[2]: 「目からウロコの・・・パート２�.. / 尾形 (24/06/19(Wed) 18:06) #1463
`││└` Re[3]: 「目からウロコの・・・パート２�.. / ONnoji (24/06/19(Wed) 19:11) #1464
`│└` Re[2]: 「目からウロコの・・・パート２�.. / ジェダイの桐 (24/06/20(Thu) 14:50) #1467
`│ └` Re[3]: 「目からウロコの・・・パート２�.. / ONnoji (24/06/20(Thu) 16:14) #1468
`│ └` Re[4]: 「目からウロコの・・・パート２�.. / ONnoji (24/06/21(Fri) 00:40) #1469
`│ └` Re[5]: 「目からウロコの・・・パート２�.. / ONnoji (24/06/21(Fri) 09:27) #1470
`│ └` Re[6]: 「目からウロコの・・・パート２�.. / ジェダイの桐 (24/06/21(Fri) 15:23) #1471
`│ └` 「目からウロコの・・・パート２」を公開.. / ONnoji (24/06/24(Mon) 22:03) #1473 ←Now
`│ └` Re[8]: 「目からウロコの・・・パート２�.. / ジェダイの桐 (24/07/18(Thu) 16:12) #1484
`│ └` Re[9]: 多重化のメリット　時限式タイマ�.. / ONnoji (24/07/18(Thu) 17:29) #1485
`│ ├` Re[10]: 多重化のメリット　時限式タイマ.. / ONnoji (24/07/18(Thu) 18:26) #1487
`│ │└` Re[11]: 多重化のメリット　時限式タイマ.. / ジェダイの桐 (24/07/19(Fri) 10:10) #1488
`│ └` Re[10]: 「目からウロコの・・・パート２.. / ジェダイの桐 (24/07/18(Thu) 18:24) #1486
`│ └` Re[11]: 「多重化のメリット　時限式タイ.. / ONnoji (24/07/19(Fri) 12:59) #1489
`└` Re[1]: 「目からウロコの・・・パート２�.. / ONnoji (24/06/24(Mon) 19:35) #1472
上記ツリーを一括表示 / 上記ツリーをトピック表示
上記の記事へ返信

入力内容にタグは利用できません。

他人を中傷する記事は管理者の判断で予告無く削除されます。
半角カナは使用しないでください。文字化けの原因になります。
名前、コメントは必須記入項目です。記入漏れはエラーになります。
入力内容の一部は、次回投稿時の手間を省くためブラウザに記録されます。
削除キーを覚えておくと、自分の記事の編集・削除ができます。
URLは自動的にリンクされます。
記事中に No*** のように書くとその記事にリンクされます(No は半角英字/*** は半角数字)。
- No123 → 記事No123の記事リンクになります(指定表示)。
- No123,130,134 → 記事No123/130/134 の記事リンクになります(複数表示)。
- No123-130 → 記事No123～130 の記事リンクになります(連続表示)。

■解決しましたら最下段にチェックを入れてください

■引用文は、最小限に、お願いいたします

Name	/
E-Mail	/
└> 関連するレス記事をメールで受信しますか? / アドレス
Title	/
メッセージ中には下記URLと同じURLを書き込まないで下さい
URL	/
Comment/ 通常モード->　図表モード-> (適当に改行して下さい/半角10000文字以内) ■No1473に返信(ONnojiさんの記事) > 2024/06/25(Tue) 13:27:03 編集(投稿者) > 2024/06/25(Tue) 00:22:15 編集(投稿者) > > >>そうそう、時限式タイマーが出てきて驚いたことでしょう。 > >>非常にまれですが、「どうしても具合が悪い場合」に遭遇する事があるものです。 > >>その時には、プログラムの流れを終わらせて、時限式タイマーで続きを実行するというアプローチで解決することが多いです。 >> >>この意味が分かる日が来るまで頑張ります(^^ゞ >>本当に本当に素人が感じた感想です。 >> >>オブジェクト操作　@フォーム｛タイマー1 = 1, タイマー値1 = 20 ｝ >>　↓ >>手続き定義終了 >> >>タイマー1　でプログラムの流れを　中断　させた後　手続き定義終了　になっているので >>手続き定義全体では１つの流れになっていると思います。 > > ご明察です！、その通りですよ。(^^ok > > 以下の・・・ > > 　 cmd行追加Click( ) > > 　　オブジェクト操作　@フォーム｛タイマー1 = 1, タイマー値1 = 20 ｝ > > 　フォーム::タイマー1() > > 　　オブジェクト操作　@フォーム｛タイマー1 = 0 ｝　/* 時限タイマーの［タイマー1］イベントを停止 / > 　　手続き実行　prcサブフォームへフォーカスを移動( ) > > を図解すると↓次のようになります。 > > 　　一般プロシージャ　　　　　　　　　　　　　　　　　　　　　イベントプロシージャ > 　　cmd行追加Click( )　　　　　　　　　　　　　　　　　　　　　フォーム::タイマー1() > 　┌────────────────┐　　　　　　　　　　　　┌─────────────────────────┐ > 　│　　　　　　　　　　　　　　　　│　　　　　　　　　　　　│フォーム::タイマー1() 　　　　　　　　　　　　　　│ > 　│&objectName = "フォーム"　　　　│　　　　　　　　　　　　│　　　　　　　　　　　　　　　　　　　　　　　　　│ > 　│&interval　 = 10　　　　　　　　│　　　　　　　　　　　　│　　　　　　　　　　　　　　　　　　　　　　　　　│ > 　│　：　　　　　　　　　　　　　　│　　　　　　　　　　　　│　　　　　　　　　　　　　　　　　　　　　　　　　│ > 　│　：　　　　　　　　　　　　　　│cmd行追加Click( )が終了 │オブジェクト操作　@フォーム　　　　　　　　　　　 │ > 　│　　　　　　　　　　　　　　　　│　した後のインターバル　│｛タイマー1 = 0 ｝　　　　　　　　　　　　　　　　│ > 　│オブジェクト操作　@フォーム　　│　　　↓　　　　　　　　│　　　　　　　　　　　　　　　　　　　　　　　　　│ > 　│｛タイマー1　 = 1，　　　　　　│├─────┤イベントが│　コマンドまたはメソッド　　　　　　　　　　　　│ > 　│　タイマー値1 = 20 　　　　｝　│　　時間差　　　発生　　│　手続き実行　prcサブフォームへフォーカスを移動( )│ > 　│　　　　　　　　　　　　　　　　│　　　　　　　　　　　　│　　　　　　　　　　　　　　　　　　　　　　　　　│ > 　│　：　　　　　　　　　　　　　　│　　　　　　　　　　　　│　　　　　　　　　　　　　　　　　　　　　　　　　│ > 　│　：　　　　　　　　　　　　　　│　　　　　　　　　　　　│　　　　　　　　　　　　　　　　　　　　　　　　　│ > 　│　　　　　　　　　　　　　　　　│　　　　　　　　　　　　│　　　　　　　　　　　　　　　　　　　　　　　　　│ > 　└────────────────┘　　　　　　　　　　　　└─────────────────────────┘ > 　　※［タイマーイベント］プロシージャの冒頭で、［イベント］属性をオフにする。つまり、［タイマー］イベントが発生しないようにする。 > > この流れを見てみると・・・ > > 　　　手続き定義開始　cmd行追加Click( ) > > 　　　　行追加　終了状態 = &status, [日付] = &m日付, [予定] = &m予定 > 　　　　&m日付 = #u > 　　　　&m予定 = #u > 　　　　ＮＧ：手続き実行　prcサブフォームへフォーカスを移動( ) > 　　　　　　　　　　↓ > 　　　　　　ＮＧのために一旦タイマー1 を予約して、タイマー1 で実行するようにした > 　　　　　　　　　　↓ > 　　　　オブジェクト操作　@フォーム｛タイマー1 = 1, タイマー値1 = 20 ｝ > > 　　　手続き定義終了 > > 　　　手続き定義開始　フォーム::タイマー1() > > 　　　　手続き実行　prcサブフォームへフォーカスを移動( ) > > 　　　手続き定義終了 > > > 　　　手続き定義開始　prcサブフォームへフォーカスを移動( ) > > 　　　　メソッド呼び出し　戻り値 = &return, @subformAccept.@cmd訂正.実行() > > 　　　手続き定義終了 > > という３個のプロシージャが関係していますね。(^^ゞ > > 　　cmd行追加Click　※このプロシージャから呼び出す手続きはありませんが・・・、タイマーは予約されています > 　　　； > 　　　； > 　　予約したインターバルは、 20/100秒です > 　　　； > 　　　； > 　　 20/100秒後にタイマー1 イベントが発生します！ > 　　　； > 　　　； > 　　　└ フォーム::タイマー1 > 　　　　　└ prcサブフォームへフォーカスを移動( ) > > ↑上のように、 > > 　　cmd行追加Click() … インターバルで指定した秒数が経過するまで何もしない … タイマー1() → prcサブフォームへフォーカスを移動( ) > >>手続き定義全体では１つの流れになっていると思います。 > > ということで、ご明察です。v(^^)v > > つまり、 > > 　　プロシージャＡ() … インターバルで指定した秒数が経過するまで何もしない … タイマー1() → プロシージャＢ() > > という風に覚えてください。 > > タイマーに関しては拙作ｗｅｂページで解説していますので、ご参考にしてください。 > > こちら > 　↓ > １１　［タイマー1/2］イベントの動的セット｜桐の釣魚大全のトップ > フォームアプリケーション教書　第１部 > http://silicon7565.html.xdomain.jp/guide/guide_Part1.htm#section11 > > ｐ．ｓ． > > ［タイマー］イベントは、［ピタゴラ装置］で［時間経過によって作動する仕掛け］と全く同じですねぇ～。(^^ゞ > > やっぱり、［フォーム＋イベント処理］を［ピタゴラ装置］に例えると分かり易いですね。アハハハha > > > ｐ．ｐ．ｓ． > > そもそもの話に戻せば・・・(^^ゞ > > 以下は、手続き：cmd行追加Click( )内のコメント > > 　ここで prcサブフォームへフォーカスを移動( ) を実行するとサブフォームのフォーカスの移動が上手くいかない事がある > 　サブフォームのコマンドボタン：cmd予定追加をマウス左クリック以外で実行した場合には、　txt日付_入力用にフォーカスが移動する　：Ｇｏｏｄ > 　サブフォームのコマンドボタン：cmd予定追加をマウス左クリックした時だけ、サブフォームのtxt日付_入力用にフォーカスが移動しない：ＮＧ > 　ＮＧ：手続き実行　prcサブフォームへフォーカスを移動( ) > 　** 回避策として、時限タイマーの［タイマー1］イベントをインターバル 50/100秒で予約して、プログラムの流れを中断する > > ↑のコメント行のように、わざわざタイマーを使ったのは、 > > 　txt日付_入力用 → txt予定_入力用 → cmd予定追加の操作の流れの中で、 > > コマンドボタン：cmd予定追加を、 > > ・［Enter］キーを押す　 ← main側で行追加後に、　　　 cmd予定追加から txt日付_入力用にフォーカスが移動する > ・マウス左クリックする　← ＮＧ：main側で行追加後に、 cmd予定追加から txt日付_入力用にフォーカスが移動しない　※フォーカスは cmd予定追加にある > > というＮＧに対処するためですよ。 > > 　　スケジュール表_subform_accept.wfx > > 　　　フォーム > 　　　├ ファミリ > 　　　├ ワークスペース > 　　　│　└ cmd訂正 > 　　　├ フォームヘッダ部 > 　　　│　└ lbl説明 > 　　　└ フォーム明細部 > 　　　　　├ txt日付_入力用 > 　　　　　├ txt予定_入力用 > 　　　　　└ cmd予定追加 > > とりあえず、タイマー経由で解決しましたので、それ以上の調査はしていません。 > > 今回のフォームは、メイン＆サブフォーム形式という、あくまでも試作ですので・・・(^^ゞ >
File	/ アップ可能拡張子=> /.gif/.jpg/.jpeg/.png/.txt/.lzh/.zip/.mid 圧縮ファイル[lzh,zip]は、事前に解凍してご利用下さい。 1) 太字の拡張子は画像として認識されます。 2) 画像は初期状態で縮小サイズ250×250ピクセル以下で表示されます。 3) 同名ファイルがある、またはファイル名が不適切な場合、　　ファイル名が自動変更されます。 4) アップ可能ファイルサイズは1回100KB(1KB=1024Bytes)までです。 5) ファイルアップ時はプレビューは利用できません。 6) スレッド内の合計ファイルサイズ:[187/500KB] 残り:[313KB]
パスワード	/ 半角小文字で「ケイ・アイ・アール・アイ」を入力
削除キー	/ (半角8文字以内)
解決済み! BOX/ 解決したらチェックしてください!
プレビュー/

- Child Tree -
- Antispam Version -