p1

<html>

<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title>Applications</title>
</head>

<body bgcolor="#FFFFFF" link="#FF0000" vlink="#FF0000"
alink="#FF0000">
<p>Developed by <a href="http://www.synapseindia.com" target="_blank">Synapse Technologies.</a><p>
Also visit our tutorials website at <a href="http://www.gigastrata.com" target="_blank">Gigastrata</a>
<script language="VBScript">
<!--
' Module-level variables
Dim Accum ' Previous number (operand) awaiting operation
Dim FlagNewNum ' Flag to indicate a new number (operand) is being entered
Dim PendingOp ' Pending operation waiting for completion of second operand

Sub NumPressed(Byval Num)
If FlagNewNum Then
Document.Keypad.Readout.Value = Num
FlagNewNum = False
Else
If Document.Keypad.Readout.Value = "0" Then
Document.Keypad.Readout.Value = CStr(Num)
Else
Document.Keypad.ReadOut.Value= Document.Keypad.ReadOut.Value & CStr(Num)
End If
End If
End Sub

Sub Decimal_onClick()
Dim curReadout
curReadOut = Document.Keypad.ReadOut.Value
If FlagNewNum Then
curReadOut = "0."
FlagNewNum = False
Else
If InStr(curReadOut, ".") = 0 Then
curReadOut = curReadOut & "."
End If
End If
Document.Keypad.ReadOut.Value = curReadOut
End Sub

Sub Plus_onClick()
Operation "+"
End Sub

Sub Minus_onClick()
Operation "-"
End Sub

Sub Multiply_onClick()
Operation "*"
End Sub

Sub Divide_OnClick()
Operation "/"
End Sub

Sub Operation(Byval Op)
Dim Readout
ReadOut = Document.Keypad.ReadOut.Value
If FlagNewNum and PendingOp <> "=" Then
' User is hitting op keys repeatedly, so don't do anything
Else
FlagNewNum = True
Select Case PendingOp
Case "+"
Accum = CDbl(Accum) + CDbl(ReadOut)
Case "-"
Accum = CDbl(Accum) - CDbl(ReadOut)
Case "/"
Accum = CDbl(Accum) / CDbl(ReadOut)
Case "*"
Accum = CDbl(Accum) * CDbl(ReadOut)
Case Else
Accum = ReadOut
End Select
Document.Keypad.ReadOut.Value = Accum
PendingOp = Op
End If
End Sub

Sub ClearEntry_onClick()
' Remove current number and reset state
Document.Keypad.ReadOut.Value = "0"
FlagNewNum = True
End Sub

Sub Clear_onClick()
' Clear accumulator and pending operation, and clear display
Accum = 0
PendingOp = ""
ClearEntry_onClick
End Sub

Sub Neg_onClick()
Document.Keypad.ReadOut.Value = CDbl(Document.Keypad.ReadOut.Value) * -1
End Sub

Sub Percent_onClick()
Document.Keypad.ReadOut.Value = (CDbl(Document.Keypad.ReadOut.Value) / 100) * Accum
End Sub

Sub Equals_OnClick()
Operation "="
End Sub
-->
</script>