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



01

02




HUG/
   function=ENTRY("caption", xsize, ysize)


TOP inserted by FC2 system