9Bボタンライブラリ
ボタンを使ったブログラムを手転に書く事が出来ます (添付サンプルプログラムより）
説明
この様なブログラムを以下のソース(ダウンロードファイルに添付されています)で実現できます
REM 944BASIC '9Bﾎﾞﾀﾝﾗｲﾌﾞﾗﾘ･ｻﾝﾌﾟﾙA'
REM --------------------------------------
REM Ver.0.0 2002/08/28 by すなどん
REM --------------------------------------
REM 本プログラムの著作権は放棄しません
REM 本プログラムの無断転載を禁止します
REM --------------------------------------
REM ライブラリのインクルード(※1)
INCLUDE 'MNROBTN0.BAS'
COLORBG 200,200,200
SCREEN 0,0,240,320
REM ライブラリの初期化
(※2)
GOSUB *MNRBTNINIT
REM ライブラリの記憶領域取得と(※3)
REM 共通項目の設定
MNRBTNNUM=3
GOSUB *MNRBTNALLOC
REM ボタンの定義 (※4)
BTN1=0
MNRBTNLABEL(BTN1)='ボタン1'
MNRBTNSTAT(BTN1)=MNRBTNOFF
MNRBTNPOS(0,BTN1)=10,10,70,30
BTN2=1
MNRBTNLABEL(BTN2)='ボタン2'
MNRBTNSTAT(BTN2)=MNRBTNOFF
MNRBTNPOS(0,BTN2)=80,10,140,30
ENDBTN=2
MNRBTNLABEL(ENDBTN)='終了'
MNRBTNSTAT(ENDBTN)=MNRBTNOFF
MNRBTNPOS(0,ENDBTN)=200,200,235,220
GOSUB *MNRBTNALLDRAW
REM メインループ
*MAINLOOP SYNC
REM ボタン入力の判定
(※5)
GOSUB
*MNRBTNMANAGE
GOTO *MAINLOOP
END
REM ------------------------
REM ボタン入力のイベント処理 (※6)
REM ------------------------
*MNRBTNEVENT
IFBLK MNRBTNTARGET=BTN1 THEN
GOSUB *ONBTN1
ELSEIF MNRBTNTARGET=BTN2 THEN
GOSUB *ONBTN2
ELSEIF MNRBTNTARGET=ENDBTN THEN
END
ENDIF
RETURN
REM ---------------------
REM ボタン1のイベント処理
REM ---------------------
*ONBTN1
COLORFG 0,0,0: FONT 64: GCURSOR 10,100
IFBLK MNRBTNSTAT(BTN1)=MNRBTNON THEN
PRINT 'ボタン1がオンになりました'
ELSE
PRINT 'ボタン1がオフになりました'
ENDIF
RETURN
REM ---------------------
REM ボタン2のイベント処理
REM ---------------------
*ONBTN2
COLORFG 0,0,0: FONT 64: GCURSOR 10,100
PRINT 'ボタン2が押されました
'
MNRBTNSTAT(BTN2)=MNRBTNOFF
RETURN
以下の手順でプログラムを書いてください
(※1)INCLUDE 'MNROBTN0.BAS'
でライブラリをインクルード
↓
(※2)GOSUB *MNRBTNINIT
でライブラリの初期化
↓
(※3)ボタンの数と共通項目を設定して GOSUB
*MNRBTNALLOC で配列を取得
↓
(※4)ボタン毎の項目を設定して GOSUB
*MNRBTNALLDRAW で全ボタンの表示
↓
(※5)メインループ内で GOSUB
*MNRBTNMANAGE でボタン入力の判定
↓
(※6)*MNRBTNEVENT
でボタン入力時の処理（メインプログラムで記述）
ボタンの基本動作は
オン→オフ または
オフ→オン(サンプルプログラムA中の[ボタン1])
ですが、入力時の処理で
プッシュボタン(離すとオフになるボタン：サンプルプログラムA中の[ボタン2])
や
選択ボタン(複数のボタンから１つを選択：添付サンプルプログラムB参照)
も実現できます
以下の項目をボタン全体、又はボタン毎に設定できます(添付サンプルプログラムB参照)
・ボタン枠の太さ
・ラベルのフォント
・ラベルの色
・ボタンの色（パネル色、ハイライト色、影の色）
詳しくはこちらをご覧ください(ダウンロードファイルに添付されています)
ダウンロードはこちら
