TOP

---

BaCon を使ってみよう

---

BaCon でプログラム

　　複数行テキストボックの表示

　　フォームに
　　　　テキストボックス　１個
　　　　ボタン　1個
　　を、配置します

---

'************************************************************
'No.011
'    複数行テキストボックスを表示
'    表示内容は、CPU 情報
'************************************************************
'フォームの使用に必要なファイルを読み込みます
INCLUDE "hug.bac"

'フォームの初期化
INIT

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

'テキストボックスの設定
'引数：幅、高さ
tex_1=EDIT(400,400)
 
'テキストボックスの設定
'引数：表示先、ウィジェット、横、縦
ATTACH( mainwin, tex_1, 10, 10 )
 
'終了ボタンの設定
'引数：キャプション、幅、高さ
btn_q=BUTTON("終了",80,30)

'ボタンの設置
'引数：表示先、ウィジェット、横、縦
ATTACH(mainwin,btn_q,330,420)

'ボタンの処理（ウィジェットのイベント処理）
'引数：ウィジェット、処理先のファンクション
'    QUIT:HUGから出る
CALLBACK(btn_q,QUIT)

'テキストボックスに表示するデータのセット
'コマンドを実行して戻り値を使う
 tx_1$ = EXEC$("cat /proc/cpuinfo")

'テキストボックに表示
TEXT(tex_1, NL$)
TEXT(tex_1, "**********CPU の情報**********")
TEXT(tex_1, NL$)
TEXT(tex_1, tx_1$)
TEXT(tex_1, NL$)

DISPLAY

---

---

　　　function = EXEC$ (<command$> [, <stdin$>])
　　　NL$

HUG/
　　　function=EDIT(xsize, ysize)

---

TOP