Future BASICからのToolbox使用例

- TICKCOUNT -

◆チック数(1/60秒数)を読む
 チック数(Macが起動してからの時間だったかな)を読み込みます。1チック=1/60なので間違えないように。


引数:
なし

戻り値:
tickTime&
チック数


◆今回のプログラムリスト
'-------------------------- ' "Toolbox Call Event Manager" ' ' tickTime& = FN TICKCOUNT ' '-------------------------- LOCAL FN sample CLS TEXT _sysFont,9 tickTime& = FN TICKCOUNT PRINT "チック数 = ";tickTime& END FN LOCAL FN initMenu MENU 1,0,_enable,"ファイル" MENU 1,1,_enable,"/G実 行" MENU 1,2,_enable,";" MENU 1,3,_enable,"/Q終 了" END FN '--------------------- "メニュー選択 LOCAL FN doMenus menuID=MENU(_menuID) itemID=MENU(_itemID) SELECT menuID CASE 1 SELECT itemID CASE 1 FN sample CASE 3 END END SELECT END SELECT MENU END FN WINDOW #1,"Sample Window",(8,32)-(480,320),_doc FN initMenu ON MENU FN doMenus PRINT:PRINT:PRINT:PRINT:PRINT TEXT ,24 DO HANDLEEVENTS UNTIL theProgramends END