<HTML>
<HEAD>
<TITLE>Calculator</TITLE>
<SCRIPT LANGUAGE="VBScript">
'Author: New Technology Solutions, Inc.
'1996 Original
Dim dblMemory
Dim blnDecimal
Dim dblDisplay
Dim dblStorage
Dim intKeyStrokes
Dim intPending
dblMemory = 0
blnDecimal = 0
intKeyStrokes = 0
dblDisplay = 0
dblStorage = 0
intPending = 0
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Sub NumPad(intIndex)
intKeyStrokes = intKeyStrokes + 1
If blnDecimal=0 Then
dblDisplay = dblDisplay * 10 + intIndex
Else
dblDisplay = dblDisplay + _
intIndex/(10 ^ intKeyStrokes)
End If
Call UpdateDisplay(dblDisplay)
End Sub
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Sub btnClear_OnClick
intKeyStrokes = 0
dblDisplay = 0
blnDecimal = 0
dblStorage = 0
dblMemory = 0
Call UpdateDisplay(0)
End Sub
Sub btnDecimal_OnClick
intKeyStrokes = 0
blnDecimal = 1
End Sub
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Sub OperationPad(intIndex)
Call DoPending()
intKeyStrokes = 0
blnDecimal = 0
intPending = intIndex
dblDisplay = 0
Call UpdateDisplay(dblStorage)
End Sub
Sub btnEquals_OnClick
intKeyStrokes = 0
blnDecimal = 0
Call DoPending()
dblDisplay = 0
Call UpdateDisplay(dblStorage)
dblStorage = 0
End Sub
Sub DoPending()
If intPending = 0 Then
dblStorage = dblDisplay
End If
If intPending = 1 Then
dblStorage = dblStorage + dblDisplay
End If
If intPending = 2 Then
dblStorage = dblStorage - dblDisplay
End if
If intPending = 3 Then
dblStorage = dblStorage * dblDisplay
End if
If intPending = 4 Then
If dblStorage = 0 Then
intPending = 0
Exit Sub
End If
dblStorage = dblStorage / dblDisplay
End If
intPending = 0
End Sub
Sub UpdateDisplay(dblValue)
Dim MyForm
Set MyForm = Document.frmCalculator
MyForm.lblDisplay.Value = dblValue
End Sub
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Sub btnMemRecall_OnClick
dblDisplay = dblMemory
Call UpdateDisplay(dblDisplay)
End Sub
Sub btnMemMinus_OnClick
dblMemory = dblMemory - dblDisplay
End Sub
Sub btnMemPlus_OnClick
dblMemory = dblMemory + dblDisplay
End Sub
</SCRIPT>
</HEAD>
<BODY bgcolor="cyan">
<CENTER><BR>
<h1>Calculator From 1996</h1>
<BR><BR>
<FORM NAME="frmCalculator">
<TABLE BORDER=2 CELLSPACING=0 CELLPADDING=0 WIDTH=250 bgcolor=white>
<TR>
<TH COLSPAN=5>
<input type="text" ID="lblDisplay" >
</TH>
</TR>
<TR>
<TD>
<INPUT TYPE="BUTTON" NAME="btnSeven"
VALUE="7" OnClick="Call NumPad(7)">
</TD>
<TD WIDTH=50>
<INPUT TYPE="BUTTON" NAME="btnEight"
VALUE="8" OnClick="Call NumPad(8)">
</TD>
<TD WIDTH=50>
<INPUT TYPE="BUTTON" NAME="btnNine"
VALUE="9" OnClick="Call NumPad(9)">
</TD>
<TD WIDTH=50>
<INPUT TYPE="BUTTON" NAME="btnMultiply"
VALUE="X" OnClick="Call OperationPad(3)">
</TD>
<TD WIDTH=50>
<INPUT TYPE="BUTTON" NAME="btnClear"
VALUE="Clear">
</TD>
</TR>
<TR>
<TD>
<INPUT TYPE="BUTTON" NAME="btnFour"
VALUE="4" OnClick="Call NumPad(4)">
</TD>
<TD WIDTH=50>
<INPUT TYPE="BUTTON" NAME="btnFive"
VALUE="5" OnClick="Call NumPad(5)">
</TD>
<TD WIDTH=50>
<INPUT TYPE="BUTTON" NAME="btnSix"
VALUE="6" OnClick="Call NumPad(6)">
</TD>
<TD WIDTH=50>
<INPUT TYPE="BUTTON" NAME="btnMinus"
VALUE="-" OnClick="Call OperationPad(2)">
</TD>
<TD WIDTH=50>
<INPUT TYPE="BUTTON" NAME="btnMemRecall"
VALUE="MR">
</TD>
</TR>
<TR>
<TD>
<INPUT TYPE="BUTTON" NAME="btnOne"
VALUE="1" OnClick="Call NumPad(1)">
</TD>
<TD WIDTH=50>
<INPUT TYPE="BUTTON" NAME="btnTwo"
VALUE="2" OnClick="Call NumPad(2)">
</TD>
<TD WIDTH=50>
<INPUT TYPE="BUTTON" NAME="btnThree"
VALUE="3" OnClick="Call NumPad(3)">
</TD>
<TD WIDTH=50>
<INPUT TYPE="BUTTON" NAME="btnDivide"
VALUE="/" OnClick="Call OperationPad(4)">
</TD>
<TD WIDTH=50>
<INPUT TYPE="BUTTON" NAME="btnMemMinus"
VALUE="M-">
</TD>
</TR>
<TR>
<TD>
<INPUT TYPE="BUTTON" NAME="btnZero"
VALUE="0" OnClick="Call NumPad(0)">
</TD>
<TD WIDTH=50>
<INPUT TYPE="BUTTON" NAME="btnDecimal"
VALUE=".">
</TD>
<TD WIDTH=50>
<INPUT TYPE="BUTTON" NAME="btnEquals"
VALUE="=">
</TD>
<TD WIDTH=50>
<INPUT TYPE="BUTTON" NAME="btnPlus"
VALUE="+" OnClick="Call OperationPad(1)">
</TD>
<TD WIDTH=50>
<INPUT TYPE="BUTTON" NAME="btnMemPlus"
VALUE="M+">
</TD>
</TR>
</TABLE>
</FORM>
</CENTER>
</BODY>
</HTML>
Tidak ada komentar:
Posting Komentar