(現在 過去ログ22 を表示中)

HOME HELP 新規作成 新着記事 トピック表示 ファイル一覧 検索 過去ログ

[ 最新記事及び返信フォームをトピックトップへ ]

■3390 / inTopicNo.1)  一括処理ウィンドウの作り方を教えて下さい
  
□投稿者/ つねに鬱(うつ) -(2008/01/18(Fri) 15:00:55)
    桐Ver9.0です。初心者に近い方ですのでよろしくお願いいたします。

    一括処理ばかりで、複雑な並びのエクセルから桐に変換するプログラムを作りました。この部分は800行位あるのですが一応完成しました。
    形としては、それぞれの処理行程を13の「手続き実行・・・()」に分け実行しています。少し時間がかかるので出来れば今どの手続きを実行しているのか画面に表示したく思います。
    何度かトライしたのですが"画面表示"のところで、[KU1141 実行ウィンドウが表示されていないため実行できません]のエラーで止まってしまいます。
    以下に試したプログラムの一部分を記載しますので、お手数ですがどの様にすればよいかご教示下さい。よろしくお願いいたします。
    なお、空の表示用のフォームが必要かと思い、対照表のない"f_人事管理1画面.wfm"を作成してあります。


    変数宣言 ・・・・・・・・(必要な変数宣言が組んであります)

    変数宣言 固有,文字列{ &表示文字[12] = { "S-起動時設定","1-エクセル読込" } } */画面表示用の変数を取り敢えず2つだけ用意/*

    * ===== Main ======
    変数宣言 固有,整数{&hWnd} */追加分です/*
    ウィンドウ作成 "f_人事管理1画面.wfm",ハンドル = &hWnd,編集表=しない */追加分です/*

    ** S--- 起動時設定 ---
    * --- "人事管理1項目属性.tbl"再計算 ---

    画面表示  ( 20,1 ),&表示文字[1],左寄せ,緑,反転 */追加分です。ここでエラーです/*

    手続き実行 起動時設定1()

    ** 1--- エクセル読み込み ---
     * --- "人事管理1.xls" を "人事管理1excel.tbl"へ読み込む ---

    画面表示  ( 20,1 ),&表示文字[2],左寄せ,緑,反転 */追加分です/*

    手続き実行 エクセル読み込み()
    ・・・・・
    ・・・・・

引用返信 [メール受信/ON] 削除キー/
■3391 / inTopicNo.2)  Re[1]: 一括処理ウィンドウの作り方を教えて下さい
□投稿者/ 今村 誠 -(2008/01/18(Fri) 16:08:28)
    つねに鬱さんこんにちは
    1)
    */追加分です/*
    /* コメント(注釈)の書き方が逆ですのでエラーになりますよ */
    *行中の「/*」と「*/」で囲んだ任意の部分を注釈にします。

    2)
    一括処理の再定義→ファイル→ファイル属性→
    「一括処理実行表示属性ウィンドウ」→「実行ウィンドウを表示する」
    このチェックをつけると表示ウィンドウが表示されます。

    3)
    このコマンドはDOSの桐5互換性のためにだけあるので
    普通はチェックしません。このチェックが入ると、この後の
    一括処理を実行中でも常に表示されて消すことができません。
    一度桐を終了してから他の処理を再度立ち上げ直すことになります。

    4)
    ですので、長い処理をするときは、メッセージ表示用のフォームを作り、
    適宜表示させるのが、ウィンドウズ桐の一般的な手法です。
    サンプルとしては70番のつなばら3がいいのではないでしょうか。
    http://mokuchan.hp.infoseek.co.jp/download/dl-list.htm
引用返信 [メール受信/OFF] 削除キー/
■3392 / inTopicNo.3)  Re[1]: NULLフォームでメッセージ表示
□投稿者/ ONnoji -(2008/01/18(Fri) 16:14:42)
    2008/01/18(Fri) 16:15:51 編集(投稿者)
    2008/01/18(Fri) 16:15:03 編集(投稿者)

    >少し時間がかかるので出来れば今どの手続きを実行しているのか画面に表示したく思います。

    サンプル(1200640482.lzh)をアップしますから、ご参考にしてください。

    1200640482.lzh を解凍すると以下の2つのファイルがあります。

    test.wfm
    test.cmd ← これを実行

    サンプルは桐ver.8 のファイルです。桐ver.9でも動作しますよ。

1200640482.lzh
/4KB
引用返信 [メール受信/OFF] 削除キー/
■3393 / inTopicNo.4)  Re[2]: 一括処理ウィンドウの作り方を教えて下さい
□投稿者/ つねに鬱(うつ) -(2008/01/21(Mon) 12:50:41)
    No3391に返信(今村 誠さんの記事)
    今村 誠さん ありがとうございます。
    > 1)
    /* コメント(注釈)の書き方が逆ですのでエラーになりますよ */
     これはあわてて間違ってしまいました。

    > 2)
    > 一括処理の再定義→ファイル→ファイル属性→
    > 「一括処理実行表示属性ウィンドウ」→「実行ウィンドウを表示する」
    > このチェックをつけると表示ウィンドウが表示されます。

     一括処理のコマンドの中に言葉として多く出てきますが、どうもこのウィンドウの作り方が色々調べても分からず、話にならんと思い悩んでいました。そこでテーブルなしのフォームを作ったまでは良かったのですが、その後が続きませんでした。勉強になりました。


    > 4)
    > ですので、長い処理をするときは、メッセージ表示用のフォームを作り、
    > 適宜表示させるのが、ウィンドウズ桐の一般的な手法です。
    > サンプルとしては70番のつなばら3がいいのではないでしょうか。
    > http://mokuchan.hp.infoseek.co.jp/download/dl-list.htm

    ありがとうございます。見せていただきましたが、恐らく"都道府県.KEV"の43-53行目のことと思われますが、フォームが付いてないのでないのでもう一歩解析できずONnojiさんの方でさせていただきました。ありがとうございました。
解決済み!
引用返信 [メール受信/OFF] 削除キー/
■3394 / inTopicNo.5)  Re[2]: NULLフォームでメッセージ表示
□投稿者/ つねに鬱(うつ) -(2008/01/21(Mon) 12:59:13)
    No3392に返信(ONnojiさんの記事)
    > 2008/01/18(Fri) 16:15:51 編集(投稿者)
    > 2008/01/18(Fri) 16:15:03 編集(投稿者)
    >
    >
    >
    > test.wfm
    > test.cmd ← これを実行
    >
    > サンプルは桐ver.8 のファイルです。桐ver.9でも動作しますよ。

    ONnijiさん。ありがとうございました。
    参考にさせていただき出来るようになりました。私も空のフォームを作ったところまでは良かったのですが、そこにテキストを作成しなくても、cmdの中に書けば表示されると思っていたのが間違いの一歩でした。昔"d-Base"やBasicで組んだときはそんなこともあったと思い,
    その思いこみが失敗のもとでした。ありがとうございました。
    一部ですが、以下のように参考にさせていただきました。

    変数宣言 固有,文字列{ &gMsg,&表示文字[14] = { " S- 初期設定中"," 1- エクセル読込中",\
               " 1.1- 人事管理1excel.tbl 属性変更処理中"," 2- 人事管理1excel.tbl 計算項目追加中",\
               " 2.1- 人事管理1excel.tbl 年月日修正中"," 2.2- 人事管理1excel.tbl 学校・会社 入出分離中",\
               " 3- 人事管理1excel.tbl 項目連番計算中"," 4- 人事管理1excel.tbl 項目制限行数超過処理中",\
               " 5- 人事管理1excel.tbl 複写処理中"," 6- copy人事管理1excel.tbl 名付け処理中",\
               " 7- 項目連番再計算中"," 8- 人事管理1.tbl 枠作成中"," 9- 人事管理1.tbl 書き込み中",""} }
    * ===== Main ========

    ウィンドウ作成 "f_人事管理1画面.wfm",ハンドル = &hWnd,編集表=しない
    ** S--- 起動時設定 ---
    * --- "人事管理1項目属性.tbl"再計算 ---
    &gMsg=&表示文字[1]
    メソッド呼び出し ハンドル=&hWnd,@フォーム.変数変更()
    手続き実行 起動時設定1()

    ** 1--- エクセル読み込み ---
     * --- "人事管理1.xls" を "人事管理1excel.tbl"へ読み込む ---
    &gMsg=&表示文字[2]
    メソッド呼び出し ハンドル=&hWnd,@フォーム.変数変更()
    手続き実行 エクセル読み込み()

    ** 1.1--- "人事管理1excel.tbl" 属性変更処理 ---
    * --- "人事管理1excel.tbl" の属性を"人事管理1項目属性.tbl"の属性にする ---
    &gMsg=&表示文字[3]
    メソッド呼び出し ハンドル=&hWnd,@フォーム.変数変更()
    手続き実行 人事管理1excel属性変更処理()
    ・・・・・
    ・・・・・




解決済み!
引用返信 [メール受信/OFF] 削除キー/



トピック内ページ移動 / << 0 >>

このトピックに書きこむ

過去ログには書き込み不可

Mode/  Pass/

HOME HELP 新規作成 新着記事 トピック表示 ファイル一覧 検索 過去ログ

- Child Tree -
- Antispam Version -