<html><head>
<title>Scripting Web Page</title>
</head>
<body bgcolor="pink" link="#993366" vlink="#663366" topmargin="0" leftmargin="0" >
<BR><BR>
<center>
<h2>
Samples:Calculator <BR>
<i>Last updated: 1/04/00 </i>
</h2>
</center>
<font size="3">
<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>
<center>
<form name="Keypad" action="">
<table>
<b>
<table border="2" width="50" height="60" cellpadding="1" cellspacing="5">
<caption align="top"><p>
</caption>
<tr>
<td colspan="3" align="MIDDLE"><input name="ReadOut" type="Text" size="24" value="0" width="100%"></td>
<td></td>
<td><input name="Clear" type="Button" value=" C "></td>
<td><input name="ClearEntry" type="Button" value=" CE "></td>
</tr>
<tr>
<td><input name="Seven" type="Button" value=" 7 " onclick="NumPressed(7)"></td>
<td><input name="Eight" type="Button" value=" 8 " onclick="NumPressed(8)"></td>
<td><input name="Nine" type="Button" value=" 9 " onclick="NumPressed(9)"></td>
<td></td>
<td><input name="Neg" type="Button" value=" +/- "></td>
<td><input name="Percent" type="Button" value=" % "></td>
</tr>
<tr>
<td><input name="Four" type="Button" value=" 4 " onclick="NumPressed(4)"></td>
<td><input name="Five" type="Button" value=" 5 " onclick="NumPressed(5)"></td>
<td><input name="Six" type="Button" value=" 6 " onclick="NumPressed(6)"></td>
<td></td>
<td align="MIDDLE"><input name="Plus" type="Button" value=" + "></td>
<td align="MIDDLE"><input name="Minus" type="Button" value=" - "></td>
</tr>
<tr>
<td><input name="One" type="Button" value=" 1 " onclick="NumPressed(1)"></td>
<td><input name="Two" type="Button" value=" 2 " onclick="NumPressed(2)"></td>
<td><input name="Three" type="Button" value=" 3 " onclick="NumPressed(3)"></td>
<td></td>
<td align="MIDDLE"><input name="Multiply" type="Button" value=" * "></td>
<td align="MIDDLE"><input name="Divide" type="Button" value=" / "></td>
</tr>
<tr>
<td><input name="Zero" type="Button" value=" 0 " onclick="NumPressed(0)"></td>
<td><input name="Decimal" type="Button" value=" . "></td>
<td colspan="3"></td>
<td><input name="Equals" type="Button" value=" = "></td>
</tr>
</table>
</b>
</form>
</table></center></body></html>
============================================
<html><head>
<title>Scripting Web Page</title>
</head>
<body bgcolor="FFFFFF" link="#993366" vlink="#663366" topmargin="0" leftmargin="0" >
<font face="VERDANA, ARIAL, HELVETICA" size="2">
<form name="Keypad" action="">
<table>
<b>
<table border="2" width="50" height="60" cellpadding="1" cellspacing="5">
<tr>
<td colspan="3" align="MIDDLE"><input name="ReadOut" type="Text" size="24" value="0" width="100%"></td>
<td></td>
<td><input name="btnClear" type="Button" value=" C " onclick="Clear()"></td>
<td><input name="btnClearEntry" type="Button" value=" CE " onclick="ClearEntry()"></td>
</tr>
<tr>
<td><input name="btnSeven" type="Button" value=" 7 " onclick="NumPressed(7)"></td>
<td><input name="btnEight" type="Button" value=" 8 " onclick="NumPressed(8)"></td>
<td><input name="btnNine" type="Button" value=" 9 " onclick="NumPressed(9)"></td>
<td></td>
<td><input name="btnNeg" type="Button" value=" +/- " onclick="Neg()"></td>
<td><input name="btnPercent" type="Button" value=" % " onclick="Percent()"></td>
</tr>
<tr>
<td><input name="btnFour" type="Button" value=" 4 " onclick="NumPressed(4)"></td>
<td><input name="btnFive" type="Button" value=" 5 " onclick="NumPressed(5)"></td>
<td><input name="btnSix" type="Button" value=" 6 " onclick="NumPressed(6)"></td>
<td></td>
<td align="MIDDLE"><input name="btnPlus" type="Button" value=" + " onclick="Operation('+')"></td>
<td align="MIDDLE"><input name="btnMinus" type="Button" value=" - " onclick="Operation('-')"></td>
</tr>
<tr>
<td><input name="btnOne" type="Button" value=" 1 " onclick="NumPressed(1)"></td>
<td><input name="btnTwo" type="Button" value=" 2 " onclick="NumPressed(2)"></td>
<td><input name="btnThree" type="Button" value=" 3 " onclick="NumPressed(3)"></td>
<td></td>
<td align="MIDDLE"><input name="btnMultiply" type="Button" value=" * " onclick="Operation('*')"></td>
<td align="MIDDLE"><input name="btnDivide" type="Button" value=" / " onclick="Operation('/')"></td>
</tr>
<tr>
<td><input name="btnZero" type="Button" value=" 0 " onclick="NumPressed(0)"></td>
<td><input name="btnDecimal" type="Button" value=" . " onclick="Decimal()"></td>
<td colspan="3"></td>
<td><input name="btnEquals" type="Button" value=" = " onclick="Operation('=')"></td>
</tr>
</table>
</b>
</form>
<script language="JavaScript">
<!--
// Module-level variables
var FKeyPad = document.Keypad;
var Accum = 0; // Previous number (operand) awaiting operation
var FlagNewNum = false; // Flag to indicate a new number (operand) is being entered
var PendingOp = ""; // Pending operation waiting for completion of second operand
function NumPressed (Num)
{
if (FlagNewNum)
{
FKeyPad.ReadOut.value = Num;
FlagNewNum = false;
}
else
{
if (FKeyPad.ReadOut.value == "0")
FKeyPad.ReadOut.value = Num;
else
FKeyPad.ReadOut.value += Num;
}
}
function Operation (Op)
{
var Readout = FKeyPad.ReadOut.value;
//alert( 'op' );
if (FlagNewNum && PendingOp != "=");
// User is hitting op keys repeatedly, so don't do anything
else
{
//alert( PendingOp );
FlagNewNum = true;
if ( '+' == PendingOp )
Accum += parseFloat(Readout);
else if ( '-' == PendingOp )
Accum -= parseFloat(Readout);
else if ( '/' == PendingOp )
Accum /= parseFloat(Readout);
else if ( '*' == PendingOp )
Accum *= parseFloat(Readout);
else
Accum = parseFloat(Readout);
FKeyPad.ReadOut.value = Accum;
PendingOp = Op;
}
}
function Decimal ()
{
var curReadOut = FKeyPad.ReadOut.value;
if (FlagNewNum)
{
curReadOut = "0.";
FlagNewNum = false;
}
else
{
if (curReadOut.indexOf(".") == -1)
curReadOut += ".";
}
FKeyPad.ReadOut.value = curReadOut;
}
function ClearEntry ()
{
// Remove current number and reset state
FKeyPad.ReadOut.value = "0";
FlagNewNum = true;
}
function Clear ()
{
// Clear accumulator and pending operation, and clear display
Accum = 0;
PendingOp = "";
ClearEntry();
}
function Neg ()
{
FKeyPad.ReadOut.value = parseFloat(FKeyPad.ReadOut.value) * -1;
}
function Percent ()
{
FKeyPad.ReadOut.value = (parseFloat(FKeyPad.ReadOut.value) / 100) * parseFloat(Accum);
}
//-->
</script>
<br><br>
</font>
<br><p>
<font face="verdana, arial, helvetica" size="1" align="RIGHT" color="#808080">
<i>Last updated: <!--$$JustDate:--> 1/04/00 <!-- $--></i>
</font></p>
</table>
</body></html>
Tidak ada komentar:
Posting Komentar