HUGサンプル/SPIN - BaCon - A free BAsic CONverter for Unix Wiki - BaCon - A free BAsic CONverter ...

HUGサンプル /

SPIN

数字入力専門のテキストボックスです。ボックスの右に上下のボタンが付きます。
横幅・縦幅の後は最小値・最大値・増減量です。

何番の結果はターミナル・端末にでています。

' spin.bac
 
 INCLUDE "hug.bac"
 INIT
 

SUB My_SPINBOX()
 PRINT GET(SPIN_STR)
END SUB
 

 Mainwin = WINDOW( "すぴん", 250, 90 )
 

 FRAME_STR = FRAME(225, 40)
 ATTACH( Mainwin, FRAME_STR, 10, 10 )
 

 SPIN_STR = SPIN(100,20, 1, 10, 1)
 ATTACH( Mainwin, SPIN_STR, 15, 20 )
 

 GET_NUMBER = BUTTON("なんば〜ん？", 120, 25)
 ATTACH( Mainwin, GET_NUMBER , 40, 55 )
 CALLBACK(GET_NUMBER, My_SPINBOX)
 

 My_chk = BUTTON("おわり〜", 80, 25)
 ATTACH( Mainwin, My_chk, 155, 55 )
 CALLBACK( My_chk, QUIT)
 

DISPLAY