HUGサンプル/HSLIDER - BaCon - BASIC→C 言語コンバータ Wiki - BaCon - BASIC→C 言語コンバータ

HUGサンプル /

HSLIDER

横型のスライダーを作成します。ボタン付きの棒で、上下にする事で値を設定するものです。

' hslider.bac

INCLUDE "hug.bac"

SUB My_HSLIDER()
 PRINT GET(HSLIDER_STR)
END SUB
 
INIT
 Mainwin = WINDOW( "すらいだ〜", 170, 200 )
 
 FRAME_STR = FRAME(150, 150)
 ATTACH( Mainwin, FRAME_STR, 10, 10 )

 HSLIDER_STR = HSLIDER(140, 140, 1, 10, 1)
 ATTACH( Mainwin, HSLIDER_STR, 15, 15 )

 GET_NUMBER = BUTTON("あたい〜", 70, 25)
 ATTACH( Mainwin, GET_NUMBER , 10, 165 )
 CALLBACK(GET_NUMBER, My_HSLIDER)

 My_chk = BUTTON("おわり〜", 70, 25)
 ATTACH( Mainwin, My_chk, 90, 165 )
 CALLBACK( My_chk, QUIT)
DISPLAY