TOP


BaCon を使ってみよう



1.BaCon でプログラム

  フォームの表示をボタンを押すと変更します
  サブルーチンも使ってみました

(1) BaConGUI で作ります



'**************************************************
'No.007
'    フォームにラベルを表示する
'    ボタンが押されたら表示を変更する
'**************************************************
'フォームの使用に必要なファイルを読み込みます
INCLUDE "hug.bac"

'初期データのセット
flag_l1=0

'フォームの初期化
INIT

'フォームの設定
'引数:タイトル、幅、高さ
mainwin = WINDOW("フォーム",300,200)

'ラベルの設定
'引数:キャプション、幅、高さ
hello=MARK("BaCon の世界へようこそ!",250,30)

'ラベルの設置
'引数:表示先、ウィジェット、横、縦
ATTACH(mainwin,hello,25,25)

'終了ボタンの設定
'引数:キャプション、幅、高さ
btn_q=BUTTON("終了",75,30)
'変更ボタンの設定
'引数:キャプション、幅、高さ
btn_c=BUTTON("変更",75,30)

'ボタンの設置
'引数:表示先、ウィジェット、横、縦
ATTACH(mainwin,btn_q,200,100)
'ボタンの設置
'引数:表示先、ウィジェット、横、縦
ATTACH(mainwin,btn_c,100,100)

'ボタンの処理(ウィジェットのイベント処理)
'引数:ウィジェット、処理先のファンクション
'    QUIT:HUGから出る
CALLBACK(btn_q,QUIT)
'ボタンの処理(ウィジェットのイベント処理)
'引数:ウィジェット、処理先のファンクション
'    henko:サブルーチンへ
CALLBACK(btn_c,henko)

'フォームを表示します
DISPLAY

'プログラム終了
END

'**************************************************
'    サブルーチン
'**************************************************
SUB henko()
'**************************************************
'    変更ボタンが押された時の処理
'**************************************************

    'キャプションの変更
    '引数:ウィジェット、キャプション

    'フラグで表示を変更
    IF flag_l1=0 THEN
        TEXT(hello,"プログラミングは楽しい")
        flag_l1=1
    ELSE
        TEXT(hello,"BaCon の世界へようこそ!")
        flag_l1=0
    END IF

END SUB



(2) コンパイルする
(3) プログラムを実行する

01

    「変更」キーを押すと表示が変わります

02

    以上で、ラベルの表示変更が出来ました



   IF <expression> THEN
    <body>
   [ELSE]
       [body]
   END IF

HUG/
   TEXT(widget,caption)


TOP inserted by FC2 system