home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c045 / 5.ddi / CALC / CALC.FR$ / CALC.bin (.txt)
Encoding:
Visual Basic Form  |  1992-01-01  |  5.2 KB  |  105 lines
  1. Calculator
  2. Calculator
  3. System
  4. Form1
  5. Readout
  6. Number
  7. System
  8. Number
  9. System
  10. Number
  11. System
  12. Cancel
  13. System
  14. CancelEntry
  15. System
  16. Number
  17. System
  18. Number
  19. System
  20. Number
  21. System
  22. Operator
  23. System
  24. Operator
  25. System
  26. Number
  27. System
  28. Number
  29. System
  30. Number
  31. System
  32. Operator
  33. System
  34. Operator
  35. System
  36. Number
  37. System
  38. Decimal
  39. System
  40. Operator
  41. System
  42. Percent
  43. System
  44. DecimalFlag
  45. NumOps
  46.     LastInput
  47. OpFlag
  48. TRUEs
  49. FALSEH
  50. @    Form_Load
  51. Percent_Click
  52. Readout
  53. Caption
  54. Cancel_ClickT
  55. Decimal_Click,
  56. CancelEntry_Click
  57. Number_Click
  58. Index^
  59. Number
  60. Operator_Click
  61. Operator
  62. AddTwo
  63. SubTwo
  64. MultTwo
  65. DivTwo
  66.  Copyright (C) 1991 Microsoft Corporation-
  67.  You have a royalty-free right to use, modify, reproduce and distribute-
  68.  the Sample Application Files (and/or any modified version) in any way
  69.  you find useful, provided that you agree that Microsoft has no warranty,
  70.  obligations or liability for any Sample Application Files.s
  71.  Previously input operand.
  72.  Second operand.
  73.  Decimal point present yet?
  74.  Number of operands.
  75.  Indicate type of last keypress.
  76.  Indicate pending operation.
  77. Form_Load
  78.  Initialization routine for the form.t
  79.  Set all variables to initial values.t
  80. Percent_Click
  81.  Click event procedure for percent key (%).
  82.  Compute and display a percentage of the first operand.-
  83. Cancel_Click
  84.  Click event procedure for C (cancel) key.
  85.  Reset the display and initializes variables.t
  86. Decimal_Click
  87.  Click event procedure for decimal point (.) key.e
  88.  If last keypress was an operator, initializek
  89.  readout to "0." Otherwise, append a decimal
  90.  point to the display.
  91. CancelEntry_Click
  92.  Click event procedure for CE (cancel entry) key.e
  93. Number_Click
  94.  Click event procedure for number keys (0-9).k
  95.  Appends new number to the number in the display.e
  96. Operator_Click
  97.  Click event procedure for operator keys (+, -, x, /, =).
  98.  If the immediately preceeding keypress was part of a 
  99.  number, increment NumOps. If one operand is present, 
  100.  set Op1. If two are present, set Op1 equal to the
  101.  result of the operation on Op1 and the currentt
  102.  input string, and display the result.
  103. Can't divide by zero
  104. Calculator
  105.