bitesti.dlg

来自「是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到」· DLG 代码 · 共 54 行

/*
	bitesti

	VERSION 1.0.0  21dec2002
*/

VERSION 8.0

INCLUDE _std_small
INCLUDE _ht150
INCLUDE header
HELP hlp1, view("help bitesti")
RESET res1

DEFINE txtwid  130
DEFINE skip   +135

DIALOG main, label("bitesti - Binomial prob. test") tabtitle("Main")
BEGIN
  TEXT     tx_totn       _lft     _top   txtwid        ., right /*
		*/ label("Total number:")
  SPINNER  sp_totn       skip        @    _spwd        .,	/*
		*/ label("Total number")			/*
		*/ min(1) max(10000000) default(literal 100)

  TEXT     tx_succ       _lft      _ls   txtwid        ., right /*
		*/ label("Number of successes:")
  SPINNER  sp_succ       skip        @    _spwd        .,	/*
		*/ label("Number of successes")			/*
		*/ min(1) max(10000000) default(literal  50)

  TEXT     tx_prob       _lft      _ls   txtwid        ., right /*
		*/ label("Probability of success:")
  EDIT     en_prob       skip        @    _spwd        .,	/*
		*/ numonly default(literal  "0.5")		/*
		*/ label("Probability of success")
END

DIALOG adv, label("bitesti - Binomial prob. test") tabtitle("Advanced")
BEGIN
  CHECKBOX ck_detail     _lft      _top    _iwd        .,	/*
		*/ option(detail)				/*
		*/ label("Show additional details")
END


PROGRAM command
BEGIN
	put "bitesti " main.sp_totn " " main.sp_succ " " main.en_prob
	beginoptions
		option adv.ck_detail
	endoptions
END