TOP
BaCon を使ってみよう
BaCon でプログラム
テキストボックに入力した値を取得します
フォームに
ラベル 1個
テキストボックス 1個
ボタン 3個
を、配置します
'************************************************************
'No.010
' 1行テキストボックスを入力に使う
' 結果はラベルに表示
'************************************************************
'フォームの使用に必要なファイルを読み込みます
INCLUDE "hug.bac"
'フォームの初期化
INIT
'フォームの設定
'引数:タイトル、幅、高さ
mainwin = WINDOW("フォーム",300,245)
'ラベルの設定
'引数:キャプション、幅、高さ
lab_1=MARK("入力をどうぞ",250,30)
'テキストボックスの設定
'引数:キャプション、幅、高さ
tex_1=ENTRY("",250,30)
'ラベルの設置
'引数:表示先、ウィジェット、横、縦
ATTACH(mainwin,lab_1,25,25)
'テキストボックスの設置
'引数:表示先、ウィジェット、横、縦
ATTACH(mainwin,tex_1,25,80)
'クリアボタンの設定
'引数:キャプション、幅、高さ
btn_c=BUTTON("クリア",75,30)
'OKボタンの設定
'引数:キャプション、幅、高さ
btn_o=BUTTON("セット",75,30)
'終了ボタンの設定
'引数:キャプション、幅、高さ
btn_q=BUTTON("終了",75,30)
'ボタンの設置
'引数:表示先、ウィジェット、横、縦
ATTACH(mainwin,btn_c,25,135)
'ボタンの設置
'引数:表示先、ウィジェット、横、縦
ATTACH(mainwin,btn_o,25,210)
'ボタンの設置
'引数:表示先、ウィジェット、横、縦
ATTACH(mainwin,btn_q,200,210)
'ボタンの処理(ウィジェットのイベント処理)
'引数:ウィジェット、処理先のファンクション
' QUIT:HUGから出る
CALLBACK(btn_q,QUIT)
'ボタンの処理(ウィジェットのイベント処理)
'引数:ウィジェット、処理先のファンクション
' henko:サブルーチンへ
CALLBACK(btn_o,henko)
' kuria:サブルーチンへ
CALLBACK(btn_c,kuria)
'フォームを表示します
DISPLAY
'プログラム終了
END
'--------------------------------------------------
' サブルーチン
'--------------------------------------------------
SUB henko()
'**************************************************
' セットキーが押された時の処理
'**************************************************
'テキストボックスの値を取得
text_i1$=GRAB$(tex_1)
'出力する文字列を生成
text_a1$="入力したのは " & "<span
color=\"blue\">" & text_i1$ & "</span> " & "です"
'ラベルに表示
TEXT(lab_1,text_a1$)
END SUB
SUB kuria()
'**************************************************
' クリアキーが押された時の処理
'**************************************************
'ラベルに表示
TEXT(lab_1,"入力をどうぞ")
'テキストボックスクリア
TEXT(tex_1,"")
END SUB
HUG/
function=ENTRY("caption", xsize, ysize)
TOP