VERSION 5.00
Begin VB.Form frmCalculator 
   Caption         =   "Calculator"
   ClientHeight    =   3744
   ClientLeft      =   2748
   ClientTop       =   2892
   ClientWidth     =   7044
   LinkTopic       =   "Form1"
   ScaleHeight     =   3744
   ScaleWidth      =   7044
   Begin VB.CommandButton cmdDone 
      Caption         =   "Done"
      Height          =   372
      Left            =   5760
      TabIndex        =   14
      Top             =   3120
      Width           =   972
   End
   Begin VB.TextBox txtSecondNumber 
      Height          =   288
      Left            =   4080
      TabIndex        =   3
      Top             =   240
      Width           =   732
   End
   Begin VB.TextBox txtFirstNumber 
      Height          =   288
      Left            =   1680
      TabIndex        =   1
      Top             =   240
      Width           =   732
   End
   Begin VB.Frame fraOperators 
      Caption         =   "Select an operator"
      Height          =   1452
      Left            =   240
      TabIndex        =   4
      Top             =   840
      Width           =   6492
      Begin VB.OptionButton optSubtraction 
         Caption         =   "-"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Left            =   5640
         TabIndex        =   11
         Top             =   696
         Width           =   492
      End
      Begin VB.OptionButton optAddition 
         Caption         =   "+"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Left            =   4800
         TabIndex        =   10
         Top             =   696
         Width           =   492
      End
      Begin VB.OptionButton optModulusDivision 
         Caption         =   "Mod"
         Height          =   252
         Left            =   3720
         TabIndex        =   9
         Top             =   696
         Width           =   732
      End
      Begin VB.OptionButton optIntegerDivision 
         Caption         =   "\"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Left            =   2880
         TabIndex        =   8
         Top             =   696
         Width           =   492
      End
      Begin VB.OptionButton optDivision 
         Caption         =   "/"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Left            =   2040
         TabIndex        =   7
         Top             =   696
         Width           =   492
      End
      Begin VB.OptionButton optMultiplication 
         Caption         =   "*"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Left            =   1200
         TabIndex        =   6
         Top             =   696
         Width           =   492
      End
      Begin VB.OptionButton optExponentiation 
         Caption         =   "^"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   252
         Left            =   360
         TabIndex        =   5
         Top             =   696
         Width           =   492
      End
   End
   Begin VB.Label lblResult 
      Caption         =   "Result:"
      Height          =   252
      Left            =   1200
      TabIndex        =   12
      Top             =   2760
      Width           =   612
   End
   Begin VB.Label lblAnswer 
      Height          =   252
      Left            =   2040
      TabIndex        =   13
      Top             =   2760
      Width           =   972
   End
   Begin VB.Label lblSecondNumber 
      Caption         =   "Second number:"
      Height          =   252
      Left            =   2640
      TabIndex        =   2
      Top             =   240
      Width           =   1452
   End
   Begin VB.Label lblFirstNumber 
      Caption         =   "First number:"
      Height          =   252
      Left            =   480
      TabIndex        =   0
      Top             =   240
      Width           =   1092
   End
End
Attribute VB_Name = "frmCalculator"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'   Chapter 4 Calculator Case Study
'   3/99

Option Explicit

Private Sub txtFirstNumber_Change()
    lblAnswer.Caption = ""              'Clear label

    'Clear option buttons
    optExponentiation.Value = False
    optMultiplication.Value = False
    optDivision.Value = False
    optIntegerDivision.Value = False
    optModulusDivision.Value = False
    optAddition.Value = False
    optSubtraction.Value = False
End Sub

Private Sub txtSecondNumber_Change()
    lblAnswer.Caption = ""              'Clear label

    'Clear option buttons
    optExponentiation.Value = False
    optMultiplication.Value = False
    optDivision.Value = False
    optIntegerDivision.Value = False
    optModulusDivision.Value = False
    optAddition.Value = False
    optSubtraction.Value = False
End Sub

Private Sub optExponentiation_Click()
    Dim dblFirstNumber As Double, dblSecondNumber As Double
    Dim dblAnswer As Double

    dblFirstNumber = txtFirstNumber.Text        'Get first number from user
    dblSecondNumber = txtSecondNumber.Text      'Get second number from user
    dblAnswer = dblFirstNumber ^ dblSecondNumber

    lblAnswer.Caption = dblAnswer
End Sub

Private Sub optMultiplication_Click()
    Dim dblFirstNumber As Double, dblSecondNumber As Double
    Dim dblAnswer As Double

    dblFirstNumber = txtFirstNumber.Text        'Get first number from user
    dblSecondNumber = txtSecondNumber.Text      'Get second number from user
    dblAnswer = dblFirstNumber * dblSecondNumber

    lblAnswer.Caption = dblAnswer
End Sub

Private Sub optDivision_Click()
    Dim dblFirstNumber As Double, dblSecondNumber As Double
    Dim dblAnswer As Double

    dblFirstNumber = txtFirstNumber.Text        'Get first number from user
    dblSecondNumber = txtSecondNumber.Text      'Get second number from user
    dblAnswer = dblFirstNumber / dblSecondNumber

    lblAnswer.Caption = dblAnswer
End Sub

Private Sub optIntegerDivision_Click()
    Dim dblFirstNumber As Double, dblSecondNumber As Double
    Dim dblAnswer As Double

    dblFirstNumber = txtFirstNumber.Text        'Get first number from user
    dblSecondNumber = txtSecondNumber.Text      'Get second number from user
    dblAnswer = dblFirstNumber \ dblSecondNumber

    lblAnswer.Caption = dblAnswer
End Sub

Private Sub optModulusDivision_Click()
    Dim dblFirstNumber As Double, dblSecondNumber As Double
    Dim dblAnswer As Double

    dblFirstNumber = txtFirstNumber.Text        'Get first number from user
    dblSecondNumber = txtSecondNumber.Text      'Get second number from user
    dblAnswer = dblFirstNumber Mod dblSecondNumber

    lblAnswer.Caption = dblAnswer
End Sub

Private Sub optAddition_Click()
    Dim dblFirstNumber As Double, dblSecondNumber As Double
    Dim dblAnswer As Double

    dblFirstNumber = txtFirstNumber.Text        'Get first number from user
    dblSecondNumber = txtSecondNumber.Text      'Get second number from user
    dblAnswer = dblFirstNumber + dblSecondNumber

    lblAnswer.Caption = dblAnswer
End Sub

Private Sub optSubtraction_Click()
    Dim dblFirstNumber As Double, dblSecondNumber As Double
    Dim dblAnswer As Double

    dblFirstNumber = txtFirstNumber.Text        'Get first number from user
    dblSecondNumber = txtSecondNumber.Text      'Get second number from user
    dblAnswer = dblFirstNumber - dblSecondNumber

    lblAnswer.Caption = dblAnswer
End Sub

Private Sub CmdDone_Click()
    Unload Me
End Sub