home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / VBUTIL / VBUTIL.ZIP / SCICALC.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-03-05  |  6.3 KB  |  153 lines
  1. Form1
  2. Scientific Calculator
  3. Form1%
  4. Operand1Box
  5. OperatorBox
  6. Operand2Box
  7.     ResultBox
  8. ErrorMessageBox
  9. ExecuteBtn
  10. Execute
  11. QuitBtn
  12. StoreBtn
  13. Store
  14. VariableBox
  15. Operand1Lbl
  16.     Operand 1
  17. OperatorLbl
  18. Operator
  19. Operand2Lbl
  20.     Operand 2
  21.     ResultLbl
  22. Result
  23. ErrorMessageLbl
  24. Error Message
  25. VariableLbl
  26. Variable
  27. Command2_Click
  28. QuitBtn_Click
  29. StoreBtn_Click
  30. VariableBox
  31. ErrorMessageBox
  32. Index
  33.     ResultBox
  34. ResultBox_Change
  35. OperatorBox_Change
  36. Operand2Box_Change
  37. Operand1Box_ChangeD
  38. Label6_ClickT
  39. Label5_Clickd
  40. Label4_Clickt
  41. Label3_Click
  42. Label2_Click
  43. Label1_Click
  44. Form_Click
  45. ExecuteBtn_Click,
  46. ErrorMessageBox_Change
  47. Operand1Box
  48. Operand2Box+
  49. OperatorBox
  50.     ErrorFlag
  51. Xchar
  52. YChar=
  53. Cchar
  54. VariableBox_Changep
  55. ErrorMesageBox{
  56. ASCII_A
  57. TheVars
  58. InvalidY
  59. False
  60. InValifY    
  61. ErrorMsesageBox
  62. ErrorMes
  63. sageBox
  64. IfEnd
  65. ErroressageBox
  66. InValid|
  67. numeric
  68. operand5
  69. displayJ
  70. Operand1Lbl_Click_
  71. Operand2Lbl_Click
  72. OperatorLbl_ClickL
  73. ErrorMessageLbl_Click
  74. OperatorBox_DragDrop
  75. Source_
  76. OperatorBox_DragOver
  77. State
  78. OperatorBox_GotFocus
  79. OperatorBox_KeyDown
  80. KeyCode7
  81. Shift
  82. OperatorBox_KeyPress
  83. KeyAscii
  84. OperatorBox_KeyUp
  85. ResultLbl_Clicki
  86. Op1Strs
  87. Op2Str
  88. OpStr
  89. Form1
  90.     Form_Load"
  91. ErrorMessageLbl_Click
  92. ExecuteBtn_Click
  93.  clear error message box
  94.  clear result boxa
  95.  obtain the uppercase of the first character in thet
  96.  Operand1Box text boxb
  97.  obtain the uppercase of the first character in thet
  98.  Operand2Box text boxb
  99.  convert string in Operand1Box text box to its
  100.  numeric value.  Note that if the conversion fails,l
  101.  X will be assigned a zero.i
  102.  is X = 0 when Xchar is not "0"?  This test detects
  103.  failed conversionsr
  104.  Yes!  Is Xchar in the range A to Zh
  105.  treat the content of Operand1Box as storing
  106.  the name of a variable.  Assign the value ofa
  107.  the variable to X
  108.  convert text in Operand2Box to numeric valuea
  109.  check if Operand2Box has a variable
  110.  Yes! there is a variable.  Assign its
  111.  value to variable Y
  112.  examine the content of the OperatorBox text box
  113. Division by zero error
  114.  simply copy the value of the firsts
  115.  operand into the result box
  116. Bad function argument
  117. Bad function argument
  118. Bad function argument
  119. Invalid operator
  120.  if the error message box is still empty, there is
  121.  no error.  Therefore, convert the variable Z into
  122.  a string and display it in ResultBoxr
  123. Label3_Click
  124.  get the uppercase of the first characterin the Operand2BoxB
  125.  is the character in the range A to Z?
  126.  Yes!  Obtain the variable from the array and writew
  127.  its numeric value to the text box
  128. Label5_Click
  129.  clear the error message text boxb
  130. Operand1Lbl_Click
  131.  get the uppercase of the first character in the Operand1Box
  132.  is the character in the range A to Z?
  133.  Yes!  Obtain the variable from the array and writew
  134.  its numeric value to the text box
  135. Operand2Lbl_Click
  136.  get the uppercase of the first character in the
  137.  Operand2Box
  138.  is the character in the range A to Z?
  139.  Yes!  Obtain the variable from the array and writer
  140.  its numeric value to the text box
  141. QuitBtn_Click
  142. StoreBtn_Click
  143.  process the contents of the Variable text box
  144.  obtain the upeprcase of the first character in the text box
  145.  is the character in the range A to Z?
  146.  Yes! Get the ASCII code for the character
  147.  store the value of the Result box in the array TheVars#
  148.  clear the error message box
  149.  No! The text box has an invalid variable name
  150. Invalid variable name
  151.  the text box is empty!n
  152. Missing variable name
  153.