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) プログラムを実行する
「変更」キーを押すと表示が変わります
以上で、ラベルの表示変更が出来ました
IF <expression> THEN
<body>
[ELSE]
[body]
END IF
HUG/
TEXT(widget,caption)
TOP