home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Mathematic581462272002.psc / frmMath.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-02-26  |  5.2 KB  |  169 lines
  1. VERSION 5.00
  2. Begin VB.Form frmTool 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "MathTool, Mathematics Engine"
  5.    ClientHeight    =   2055
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   8085
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2055
  13.    ScaleWidth      =   8085
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   1  'CenterOwner
  16.    Begin VB.CommandButton cmdHelp 
  17.       Caption         =   "&Help..."
  18.       Default         =   -1  'True
  19.       Height          =   375
  20.       Left            =   120
  21.       TabIndex        =   3
  22.       Top             =   600
  23.       Width           =   1695
  24.    End
  25.    Begin VB.TextBox Answer 
  26.       Alignment       =   1  'Right Justify
  27.       BackColor       =   &H8000000F&
  28.       BorderStyle     =   0  'None
  29.       BeginProperty Font 
  30.          Name            =   "MS Sans Serif"
  31.          Size            =   9.75
  32.          Charset         =   0
  33.          Weight          =   700
  34.          Underline       =   0   'False
  35.          Italic          =   0   'False
  36.          Strikethrough   =   0   'False
  37.       EndProperty
  38.       Height          =   375
  39.       Left            =   5520
  40.       Locked          =   -1  'True
  41.       TabIndex        =   2
  42.       Top             =   600
  43.       Width           =   2415
  44.    End
  45.    Begin VB.TextBox Expression 
  46.       Height          =   375
  47.       Left            =   120
  48.       TabIndex        =   0
  49.       Top             =   120
  50.       Width           =   7815
  51.    End
  52.    Begin VB.Frame Frame1 
  53.       Caption         =   "Variables"
  54.       Height          =   735
  55.       Left            =   120
  56.       TabIndex        =   4
  57.       Top             =   1200
  58.       Width           =   7815
  59.       Begin VB.CommandButton cmdChange 
  60.          Caption         =   "&Change..."
  61.          Height          =   375
  62.          Left            =   5880
  63.          TabIndex        =   7
  64.          Top             =   240
  65.          Width           =   1815
  66.       End
  67.       Begin VB.TextBox txtVarValue 
  68.          Alignment       =   1  'Right Justify
  69.          BackColor       =   &H8000000F&
  70.          BorderStyle     =   0  'None
  71.          BeginProperty Font 
  72.             Name            =   "MS Sans Serif"
  73.             Size            =   9.75
  74.             Charset         =   0
  75.             Weight          =   700
  76.             Underline       =   0   'False
  77.             Italic          =   0   'False
  78.             Strikethrough   =   0   'False
  79.          EndProperty
  80.          Height          =   375
  81.          Left            =   3000
  82.          Locked          =   -1  'True
  83.          TabIndex        =   6
  84.          Top             =   240
  85.          Width           =   2415
  86.       End
  87.       Begin VB.ComboBox cboVars 
  88.          Height          =   315
  89.          Left            =   120
  90.          Style           =   2  'Dropdown List
  91.          TabIndex        =   5
  92.          Top             =   240
  93.          Width           =   2415
  94.       End
  95.    End
  96.    Begin VB.Label lblAnswer 
  97.       Caption         =   "Answer:"
  98.       BeginProperty Font 
  99.          Name            =   "MS Sans Serif"
  100.          Size            =   9.75
  101.          Charset         =   0
  102.          Weight          =   700
  103.          Underline       =   0   'False
  104.          Italic          =   0   'False
  105.          Strikethrough   =   0   'False
  106.       EndProperty
  107.       Height          =   240
  108.       Left            =   4680
  109.       TabIndex        =   1
  110.       Top             =   600
  111.       Width           =   825
  112.    End
  113. Attribute VB_Name = "frmTool"
  114. Attribute VB_GlobalNameSpace = False
  115. Attribute VB_Creatable = False
  116. Attribute VB_PredeclaredId = True
  117. Attribute VB_Exposed = False
  118. Option Explicit
  119. Private Sub Answer_GotFocus()
  120.     SelectExpression Answer
  121. End Sub
  122. Private Sub cboVars_Click()
  123.     txtVarValue = GetVarValue(cboVars.ListIndex + 1)
  124. End Sub
  125. Private Sub cmdChange_Click()
  126.     frmVar.ChangeVar cboVars.ListIndex + 1
  127.     RefreshVars
  128. End Sub
  129. Private Sub cmdExit_Click()
  130.     End
  131. End Sub
  132. Private Sub cmdHelp_Click()
  133.   Dim HelpPath As String
  134.     HelpPath = App.Path
  135.     If Not Right$(HelpPath, 1) = "\" Then HelpPath = HelpPath & "\"
  136.     ShellExecute hwnd, "Open", "MathTool.doc", "", HelpPath, SW_SHOWMAXIMIZED
  137. End Sub
  138. Private Sub cmdSolve_Click()
  139.     Answer = Solve(Expression)
  140.     If Err.Number > 0 Then
  141.         MsgBox Err.Description, vbCritical, "Error"
  142.         Expression.SetFocus
  143.     End If
  144. End Sub
  145. Private Sub Expression_Change()
  146.     Answer = Solve(Expression)
  147.     If Err.Number > 0 Then Answer = Err.Description
  148. End Sub
  149. Private Sub Expression_GotFocus()
  150.     SelectExpression Expression
  151. End Sub
  152. Private Sub Expression_KeyPress(KeyAscii As Integer)
  153.     KeyAscii = Asc(UCase$(Chr$(KeyAscii)))
  154. End Sub
  155. Private Sub Form_Load()
  156.     RefreshVars
  157.     cboVars.ListIndex = 0
  158.     Expression = 0
  159. End Sub
  160. Sub RefreshVars()
  161.   Dim i As Integer, OldIdx As Integer
  162.     OldIdx = cboVars.ListIndex
  163.     cboVars.Clear
  164.     For i = 1 To getVarCount
  165.         cboVars.AddItem GetVarName(i)
  166.     Next i
  167.     If cboVars.ListCount > 0 Then cboVars.ListIndex = OldIdx
  168. End Sub
  169.