home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2001 June / VPR0106A.BIN / OLS / FSC202 / fsc202.lzh / Calc.fxl < prev    next >
Text File  |  2001-03-18  |  3KB  |  184 lines
  1. //       Name : 
  2. //     Author : 
  3. //     Upadte : 01/03/18 11:21:19
  4. //  Generator : FXL designer for FScript v1.01
  5.  
  6. // == 前処理 ==
  7.  
  8.  
  9. // == フォーム作成 ==
  10.     main.add();
  11.     main.taskbar=true;
  12.  
  13. // == オブジェクト生成 ==
  14.     main.width="420";
  15.     main.height="217";
  16.     main.caption="電卓のサンプル";
  17.  
  18.     main.btn.add(265,94,30,30);  //object
  19.     main.btn.caption="1";
  20.  
  21.     main.btn.add(300,94,30,30);  //object
  22.     main.btn.caption="2";
  23.  
  24.     main.btn.add(340,94,30,30);  //object
  25.     main.btn.caption="3";
  26.  
  27.     main.btn.add(265,56,30,30);  //object
  28.     main.btn.caption="4";
  29.  
  30.     main.btn.add(300,56,30,30);  //object
  31.     main.btn.caption="5";
  32.  
  33.     main.btn.add(340,56,30,30);  //object
  34.     main.btn.caption="6";
  35.  
  36.     main.btn.add(265,20,30,30);  //object
  37.     main.btn.caption="7";
  38.  
  39.     main.btn.add(300,20,30,30);  //object
  40.     main.btn.caption="8";
  41.  
  42.     main.btn.add(340,20,30,30);  //object
  43.     main.btn.caption="9";
  44.  
  45.     main.btn.add(265,130,30,30);  //object
  46.     main.btn.caption="0";
  47.  
  48.     main.editbox.add(21,23,231,20);  //object
  49.  
  50.     main.btn.add(23,53,40,30);  //object
  51.     main.btn.caption="+";
  52.  
  53.     main.btn.add(68,53,40,30);  //object
  54.     main.btn.caption="-";
  55.  
  56.     main.btn.add(115,53,40,30);  //object
  57.     main.btn.caption="/";
  58.  
  59.     main.btn.add(161,53,40,30);  //object
  60.     main.btn.caption="x";
  61.  
  62.     main.btn.add(301,130,70,30);  //object
  63.     main.btn.caption="＝";
  64.  
  65. // == 後処理 ==
  66.     main.deffunc.set(macro.body);
  67.     main.bring("center");
  68.     main.visible="true";
  69.     DATA="";
  70.     OP="";
  71.     fstinp=false;
  72.  
  73. // == サブルーチン ==
  74. function OnBtnClick1()
  75. {
  76.     InpNum("1");
  77. }
  78. function OnBtnClick2()
  79. {
  80.     InpNum("2");
  81. }
  82. function OnBtnClick3()
  83. {
  84.     InpNum("3");
  85. }
  86. function OnBtnClick4()
  87. {
  88.     InpNum("4");
  89. }
  90. function OnBtnClick5()
  91. {
  92.     InpNum("5");
  93. }
  94. function OnBtnClick6()
  95. {
  96.     InpNum("6");
  97. }
  98. function OnBtnClick7()
  99. {
  100.     InpNum("7");
  101. }
  102. function OnBtnClick8()
  103. {
  104.     InpNum("8");
  105. }
  106. function OnBtnClick9()
  107. {
  108.     InpNum("9");
  109. }
  110. function OnBtnClick10()
  111. {
  112.     InpNum("0");
  113. }
  114. function OnBtnClick11()
  115. {
  116.     if (DATA != "") {
  117.         A = main.editbox(1).text;
  118.         DATA = eval("DATA+A");
  119.         main.editbox(1).text = DATA;
  120.     } else {
  121.         DATA = main.editbox(1).text;
  122.     }
  123.     OP="+";
  124.     fstinp=true;
  125. }
  126. function OnBtnClick12()
  127. {
  128.     if (DATA != "") {
  129.         A = main.editbox(1).text;
  130.         DATA = eval("DATA-A");
  131.         main.editbox(1).text = DATA;
  132.     } else {
  133.         DATA = main.editbox(1).text;
  134.     }
  135.     OP="-";
  136.     fstinp=true;
  137. }
  138. function OnBtnClick13()
  139. {
  140.     if (DATA != "") {
  141.         A = main.editbox(1).text;
  142.         DATA = eval("DATA/A");
  143.         main.editbox(1).text = DATA;
  144.     } else {
  145.         DATA = main.editbox(1).text;
  146.     }
  147.     OP="/";
  148.     fstinp=true;
  149. }
  150. function OnBtnClick14()
  151. {
  152.     if (DATA != "") {
  153.         A = main.editbox(1).text;
  154.         DATA = eval("DATA*A");
  155.         main.editbox(1).text = DATA;
  156.     } else {
  157.         DATA = main.editbox(1).text;
  158.     }
  159.     OP="*";
  160.     fstinp=true;
  161. }
  162. function OnBtnClick15()
  163. {
  164.     if (DATA != "") {
  165.         A = main.editbox(1).text;
  166.         DATA = eval(str("DATA",OP,"A"));
  167.         main.editbox(1).text = DATA;
  168.     }
  169.     OP="";
  170.     DATA="";
  171.     fstinp=true;
  172. }
  173.  
  174. function InpNum()
  175. {
  176.     if (fstinp==true) {
  177.         main.editbox(1).text = arg.pos();
  178.     } else {
  179.         main.editbox(1).text = str(main.editbox(1).text, arg.pos());
  180.     }
  181.     fstinp=false;
  182. }
  183.  
  184.