HTA版科学计算器源码

Kuni7wa · 发表于 2017-10-4 13:50:32

新建一个.txt空白文档复制粘贴保存以下源码并重命名为.hta即可运行：

<html>
<head>
<META HTTP-EQUIV="MSThemeCompatible" CONTENT="Yes">
<meta http-equiv="Content-Type" content="text/html; charset=unicode">
<title>Calculator</title>
<style>
#calc{ position:absolute;top:0;left:5}
.tb {font-family: Courier New,verdana,arial;font-size:13px;}
input {font-family: Courier New,verdana,arial;font-size:13px;}
</style>
<script type=text/javascript>
window.resizeTo(530,325)
</script>
</head>
<BODY bgcolor="#EAF0F8" topmargin="5" leftmargin="5" rightmargin="5" bottommargin="5" scroll=no>
<script language="javascript" type="text/javascript">
var endNumber=true;
var mem=0;
var carry=10;
var hexnum="0123456789abcdef";
var angle="d";
var stack="";
var level="0";
var layer=0;
//数字键
function inputkey(key)
{
var index=key.charCodeAt(0);
if ((carry==2 && (index==48 || index==49))
|| (carry==8 && index>=48 && index<=55)
|| (carry==10 && (index>=48 && index<=57 || index==46))
|| (carry==16 && ((index>=48 && index<=57) || (index>=97 && index<=102))))
if(endNumber)
{
endNumber=false
document.calc.display.value = key
}
else if(document.calc.display.value == null || document.calc.display.value == "0")
document.calc.display.value = key
else
document.calc.display.value += key
}
function changeSign()
{
if (document.calc.display.value!="0")
if(document.calc.display.value.substr(0,1) == "-")
document.calc.display.value = document.calc.display.value.substr(1)
else
document.calc.display.value = "-" + document.calc.display.value
}
//函数键
function inputfunction(fun,shiftfun)
{
endNumber=true
if (document.calc.shiftf.checked)
document.calc.display.value=decto(funcalc(shiftfun,(todec(document.calc.display.value,carry))),carry)
else
document.calc.display.value=decto(funcalc(fun,(todec(document.calc.display.value,carry))),carry)
document.calc.shiftf.checked=false
document.calc.hypf.checked=false
inputshift()
}
function inputtrig(trig,arctrig,hyp,archyp)
{
if (document.calc.hypf.checked)
inputfunction(hyp,archyp)
else
inputfunction(trig,arctrig)
}
//运算符
function operation(join,newlevel)
{
endNumber=true
var temp=stack.substr(stack.lastIndexOf("(")+1)+document.calc.display.value
while (newlevel!=0 && (newlevel<=(level.charAt(level.length-1))))
{
temp=parse(temp)
level=level.slice(0,-1)
}
if (temp.match(/^(.*\d[\+\-\*\/\%\^\&\|x])?([+-]?[0-9a-f\.]+)$/))
document.calc.display.value=RegExp.$2
stack=stack.substr(0,stack.lastIndexOf("(")+1)+temp+join
document.calc.operator.value=" "+join+" "
level=level+newlevel
}
//括号
function addbracket()
{
endNumber=true
document.calc.display.value=0
stack=stack+"("
document.calc.operator.value=" "
level=level+0
layer+=1
document.calc.bracket.value="(="+layer
}
function disbracket()
{
endNumber=true
var temp=stack.substr(stack.lastIndexOf("(")+1)+document.calc.display.value
while ((level.charAt(level.length-1))>0)
{
temp=parse(temp)
level=level.slice(0,-1)
}
document.calc.display.value=temp
stack=stack.substr(0,stack.lastIndexOf("("))
document.calc.operator.value=" "
level=level.slice(0,-1)
layer-=1
if (layer>0)
document.calc.bracket.value="(="+layer
else
document.calc.bracket.value=""
}
//等号
function result()
{
endNumber=true
while (layer>0)
disbracket()
var temp=stack+document.calc.display.value
while ((level.charAt(level.length-1))>0)
{
temp=parse(temp)
level=level.slice(0,-1)
}
document.calc.display.value=temp
document.calc.bracket.value=""
document.calc.operator.value=""
stack=""
level="0"
}
//修改键
function backspace()
{
if (!endNumber)
{
if(document.calc.display.value.length>1)
document.calc.display.value=document.calc.display.value.substring(0,document.calc.display.value.length - 1)
else
document.calc.display.value=0
}
}
function clearall()
{
document.calc.display.value=0
endNumber=true
stack=""
level="0"
layer=""
document.calc.operator.value=""
document.calc.bracket.value=""
}
//转换键
function inputChangCarry(newcarry)
{
endNumber=true
document.calc.display.value=(decto(todec(document.calc.display.value,carry),newcarry))
carry=newcarry
document.calc.sin.disabled=(carry!=10)
document.calc.cos.disabled=(carry!=10)
document.calc.tan.disabled=(carry!=10)
document.calc.bt.disabled=(carry!=10)
document.calc.pi.disabled=(carry!=10)
document.calc.e.disabled=(carry!=10)
document.calc.kp.disabled=(carry!=10)
document.calc.k2.disabled=(carry<=2)
document.calc.k3.disabled=(carry<=2)
document.calc.k4.disabled=(carry<=2)
document.calc.k5.disabled=(carry<=2)
document.calc.k6.disabled=(carry<=2)
document.calc.k7.disabled=(carry<=2)
document.calc.k8.disabled=(carry<=8)
document.calc.k9.disabled=(carry<=8)
document.calc.ka.disabled=(carry<=10)
document.calc.kb.disabled=(carry<=10)
document.calc.kc.disabled=(carry<=10)
document.calc.kd.disabled=(carry<=10)
document.calc.ke.disabled=(carry<=10)
document.calc.kf.disabled=(carry<=10)
}
function inputChangAngle(angletype)
{
endNumber=true
angle=angletype
if (angle=="d")
document.calc.display.value=radiansToDegress(document.calc.display.value)
else
document.calc.display.value=degressToRadians(document.calc.display.value)
endNumber=true
}
function inputshift()
{
if (document.calc.shiftf.checked)
{
document.calc.bt.value="deg "
document.calc.ln.value="exp "
document.calc.log.value="expd"
if (document.calc.hypf.checked)
{
document.calc.sin.value="ahs "
document.calc.cos.value="ahc "
document.calc.tan.value="aht "
}
else
{
document.calc.sin.value="asin"
document.calc.cos.value="acos"
document.calc.tan.value="atan"
}
document.calc.sqr.value="x^.5"
document.calc.cube.value="x^.3"
document.calc.floor.value="Deci"
}
else
{
document.calc.bt.value="d.ms"
document.calc.ln.value=" ln "
document.calc.log.value="log "
if (document.calc.hypf.checked)
{
document.calc.sin.value="hsin"
document.calc.cos.value="hcos"
document.calc.tan.value="htan"
}
else
{
document.calc.sin.value="sin "
document.calc.cos.value="cos "
document.calc.tan.value="tan "
}
document.calc.sqr.value="x^2 "
document.calc.cube.value="x^3 "
document.calc.floor.value="Int "
}
}
//存储器部分
function clearmemory()
{
mem=0
document.calc.memory.value=" "
}
function getmemory()
{
endNumber=true
document.calc.display.value=decto(mem,carry)
}
function putmemory()
{
endNumber=true
if (document.calc.display.value!=0)
{
mem=todec(document.calc.display.value,carry)
document.calc.memory.value=" M "
}
else
document.calc.memory.value=" "
}
function addmemory()
{
endNumber=true
mem=parseFloat(mem)+parseFloat(todec(document.calc.display.value,carry))
if (mem==0)
document.calc.memory.value=" "
else
document.calc.memory.value=" M "
}
function multimemory()
{
endNumber=true
mem=parseFloat(mem)*parseFloat(todec(document.calc.display.value,carry))
if (mem==0)
document.calc.memory.value=" "
else
document.calc.memory.value=" M "
}
//十进制转换
function todec(num,oldcarry)
{
if (oldcarry==10 || num==0) return(num)
var neg=(num.charAt(0)=="-")
if (neg) num=num.substr(1)
var newnum=0
for (var index=1;index<=num.length;index++)
newnum=newnum*oldcarry+hexnum.indexOf(num.charAt(index-1))
if (neg)
newnum=-newnum
return(newnum)
}
function decto(num,newcarry)
{
var neg=(num<0)
if (newcarry==10 || num==0) return(num)
num=""+Math.abs(num)
var newnum=""
while (num!=0)
{
newnum=hexnum.charAt(num%newcarry)+newnum
num=Math.floor(num/newcarry)
}
if (neg)
newnum="-"+newnum
return(newnum)
}
//表达式解析
function parse(string)
{
if (string.match(/^(.*\d[\+\-\*\/\%\^\&\|x\<])?([+-]?[0-9a-f\.]+)([\+\-\*\/\%\^\&\|x\<])([+-]?[0-9a-f\.]+)$/))
return(RegExp.$1+cypher(RegExp.$2,RegExp.$3,RegExp.$4))
else
return(string)
}
//数学运算和位运算
function cypher(left,join,right)
{
left=todec(left,carry)
right=todec(right,carry)
if (join=="+")
return(decto(parseFloat(left)+parseFloat(right),carry))
if (join=="-")
return(decto(left-right,carry))
if (join=="*")
return(decto(left*right,carry))
if (join=="/" && right!=0)
return(decto(left/right,carry))
if (join=="%")
return(decto(left%right,carry))
if (join=="&")
return(decto(left&right,carry))
if (join=="|")
return(decto(left|right,carry))
if (join=="^")
return(decto(Math.pow(left,right),carry))
if (join=="x")
return(decto(left^right,carry))
if (join=="<")
return(decto(left<<right,carry))
alert("除数不能为零")
return(left)
}
//函数计算
function funcalc(fun,num)
{
with(Math)
{
if (fun=="pi")
return(PI)
if (fun=="e")
return(E)
if (fun=="abs")
return(abs(num))
if (fun=="ceil")
return(ceil(num))
if (fun=="round")
return(round(num))
if (fun=="floor")
return(floor(num))
if (fun=="deci")
return(num-floor(num))
if (fun=="ln" && num>0)
return(log(num))
if (fun=="exp")
return(exp(num))
if (fun=="log" && num>0)
return(log(num)*LOG10E)
if (fun=="expdec")
return(pow(10,num))
if (fun=="cube")
return(num*num*num)
if (fun=="cubt")
return(pow(num,1/3))
if (fun=="sqr")
return(num*num)
if (fun=="sqrt" && num>=0)
return(sqrt(num))
if (fun=="!")
return(factorial(num))
if (fun=="recip" && num!=0)
return(1/num)
if (fun=="dms")
return(dms(num))
if (fun=="deg")
return(deg(num))
if (fun=="~")
return(~num)
if (angle=="d")
{
if (fun=="sin")
return(sin(degressToRadians(num)))
if (fun=="cos")
return(cos(degressToRadians(num)))
if (fun=="tan")
return(tan(degressToRadians(num)))
if (fun=="arcsin" && abs(num)<=1)
return(radiansToDegress(asin(num)))
if (fun=="arccos" && abs(num)<=1)
return(radiansToDegress(acos(num)))
if (fun=="arctan")
return(radiansToDegress(atan(num)))
}
else
{
if (fun=="sin")
return(sin(num))
if (fun=="cos")
return(cos(num))
if (fun=="tan")
return(tan(num))
if (fun=="arcsin" && abs(num)<=1)
return(asin(num))
if (fun=="arccos" && abs(num)<=1)
return(acos(num))
if (fun=="arctan")
return(atan(num))
}
if (fun=="hypsin")
return((exp(num)-exp(0-num))*0.5)
if (fun=="hypcos")
return((exp(num)+exp(-num))*0.5)
if (fun=="hyptan")
return((exp(num)-exp(-num))/(exp(num)+exp(-num)))
if (fun=="ahypsin" | fun=="hypcos" | fun=="hyptan")
{
alert("对不起,公式还没有查到!")
return(num)
}
alert("超出函数定义范围")
return(num)
}
}
function factorial(n)
{
n=Math.abs(parseInt(n))
var fac=1
for (;n>0;n-=1)
fac*=n
return(fac)
}
function dms(n)
{
var neg=(n<0)
with(Math)
{
n=abs(n)
var d=floor(n)
var m=floor(60*(n-d))
var s=(n-d)*60-m
}
var dms=d+m/100+s*0.006
if (neg)
dms=-dms
return(dms)
}
function deg(n)
{
var neg=(n<0)
with(Math)
{
n=abs(n)
var d=floor(n)
var m=floor((n-d)*100)
var s=(n-d)*100-m
}
var deg=d+m/60+s/36
if (neg)
deg=-deg
return(deg)
}
function degressToRadians(degress)
{
return(degress*Math.PI/180)
}
function radiansToDegress(radians)
{
return(radians*180/Math.PI)
}
</SCRIPT>
<div dir="ltr">
<form name=calc id=calc>
<table class="tb" cellSpacing=1 borderColorDark=#ffffff cellPadding=2 width=500 align=center bgColor=#C7D4DC border=0>
<caption><b style="font-size:15px; font-family: tahoma">Calculator</b></caption>
<tbody>
<tr>
<td align=center height=40 bgcolor=#AACCEE>
<table class="tb" width=100% height=40>
<tbody>
<tr>
<td width=100% align=center>
<input readOnly size=60 value=0 name=display>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
<tr>
<td align=center bgcolor=#F6F6F6>
<table class="tb" width=100%>
<tbody>
<tr>
<td width=220>
<input onclick=inputChangCarry(16) type=radio name=carry>Hex
<INPUT onclick=inputChangCarry(10) type=radio CHECKED
name=carry>Dec <INPUT onclick=inputChangCarry(8)
type=radio name=carry>Oct <INPUT
onclick=inputChangCarry(2) type=radio name=carry>Bin
</td>
<td width=30>
</td>
<td align=right>
<input
type=radio CHECKED
value=d name=angle>Degrees <INPUT
type=radio value=r
name=angle>Radians
</td>
</tr>
</tbody>
</table>
<table class="tb" width=100%>
<tbody>
<tr>
<td width=100>
<input onclick=inputshift() type=checkbox value=ON
name=shiftf>Inv <INPUT onclick=inputshift()
type=checkbox value=ON name=hypf>Hyp
</td>
<td align='center'>
<input style="BACKGROUND-COLOR: lightgrey" readOnly size=3
name=bracket> <INPUT style="BACKGROUND-COLOR: lightgrey"
readOnly size=3 name=memory> <INPUT
style="BACKGROUND-COLOR: lightgrey" readOnly size=3
name=operator>
</td>
<td width=220 align=right>
<input style="COLOR: red" onclick=backspace() type=button value="Backspace">
<INPUT style="COLOR: red" type=button value=" CE ">
<INPUT style="COLOR: red" onclick=clearall() type=button value=" C ">
</td>
</tr>
</tbody>
</table>
<table class="tb" width=100%>
<tbody>
<tr>
<td>
<table class="tb">
<tbody>
<tr align=middle>
<td><FONT face=Verdana><INPUT style="COLOR: blue" type=button value=" PI " name=pi>
</FONT></TD>
<td><FONT face=Verdana><INPUT style="COLOR: blue" type=button value=" E " name=e>
</FONT></TD>
<td><FONT face=Verdana><INPUT style="COLOR: #ff00ff" type=button value=d.ms name=bt>
</FONT></TD></TR>
<tr align=middle>
<TD><FONT face=Verdana><INPUT style="COLOR: #ff00ff" onclick=addbracket() type=button value=" ( ">
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: #ff00ff" onclick=disbracket() type=button value=" ) ">
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: #ff00ff" type=button value=" ln " name=ln>
</FONT></TD></TR>
<tr align=middle>
<TD><FONT face=Verdana><INPUT style="COLOR: #ff00ff" type=button value="sin " name=sin>
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: #ff00ff" type=button value="x^y ">
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: #ff00ff" type=button value="log " name=log>
</FONT></TD></TR>
<tr align=middle>
<TD><FONT face=Verdana><INPUT style="COLOR: #ff00ff" type=button value="cos " name=cos>
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: #ff00ff" type=button value="x^3 " name=cube>
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: #ff00ff" type=button value=" n! ">
</FONT></TD></TR>
<tr align=middle>
<TD><FONT face=Verdana><INPUT style="COLOR: #ff00ff" type=button value="tan " name=tan>
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: #ff00ff" type=button value="x^2 " name=sqr>
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: #ff00ff" type=button value="1/x ">
</FONT></TD>
</tr>
</tbody>
</table>
</td>
<td width=30></td>
<td>
<table>
<tbody>
<tr>
<TD><FONT face=Verdana><INPUT style="COLOR: red" onclick=clearmemory() type=button value=" MC ">
</FONT></TD>
</tr>
<tr>
<TD><FONT face=Verdana><INPUT style="COLOR: red" onclick=getmemory() type=button value=" MR ">
</FONT></TD>
</tr>
<tr>
<td> <FONT face=Verdana><INPUT style="COLOR: red" onclick=putmemory() type=button value=" MS ">
</FONT></TD>
</tr>
<TD><FONT face=Verdana><INPUT style="COLOR: red" onclick=addmemory() type=button value=" M+ ">
</FONT></TD>
</tr>
<tr>
<TD><FONT face=Verdana><INPUT style="COLOR: red" onclick=multimemory() type=button value=" M* ">
</FONT></TD>
</tr>
</tbody>
</table>
</td>
<td width=30></td>
<td>
<table>
<tbody>
<tr align=middle>
<TD><FONT face=Verdana><INPUT style="COLOR: blue" type=button value=" 7 " name=k7>
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: blue" type=button value=" 8 " name=k8>
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: blue" type=button value=" 9 " name=k9>
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: red" type=button value=" / ">
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: red" type=button value="Mod ">
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: red" type=button value="And">
</FONT></TD></TR>
<tr align=middle>
<TD><FONT face=Verdana><INPUT style="COLOR: blue" type=button value=" 4 " name=k4>
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: blue" type=button value=" 5 " name=k5>
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: blue" type=button value=" 6 " name=k6>
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: red" type=button value=" * ">
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: red" type=button value="Int " name=floor>
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: red" type=button value="Or ">
</FONT></TD></TR>
<tr align=middle>
<TD><FONT face=Verdana><INPUT style="COLOR: blue" type=button value=" 1 ">
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: blue" type=button value=" 2 " name=k2>
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: blue" type=button value=" 3 " name=k3>
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: red" type=button value=" - ">
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: red" type=button value="Lsh ">
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: red" type=button value="Not">
</FONT></TD></TR>
<tr align=middle>
<TD><FONT face=Verdana><INPUT style="COLOR: blue" type=button value=" 0 ">
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: blue" onclick=changeSign() type=button value=+/->
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: blue" type=button value=" . " name=kp>
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: red" type=button value=" + ">
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: red" onclick=result() type=button value=" = ">
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: red" type=button value="Xor">
</FONT></TD></TR>
<tr align=middle>
<TD><FONT face=Verdana><INPUT style="COLOR: blue" disabled type=button value=" A " name=ka>
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: blue" disabled type=button value=" B " name=kb>
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: blue" disabled type=button value=" C " name=kc>
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: blue" disabled type=button value=" D " name=kd>
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: blue" disabled type=button value=" E" name=ke>
</FONT></TD>
<TD><FONT face=Verdana><INPUT style="COLOR: blue" disabled type=button value=" F" name=kf>
</FONT></TD>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
</form>
<div>
</BODY>
</html>

复制代码

璁哄潧 · 发表于 2017-10-4 16:53:59

看这源码不像是老外写的。

主人 · 发表于 2017-10-4 17:20:37

糯米果子发表于 2017-10-4 16:53
看这源码不像是老外写的。

我也有点觉得吧。

66大顺 · 发表于 2017-10-4 18:32:18

还不错，666。

demon · 发表于 2017-10-5 05:41:48

不想评价。

小清新 · 发表于 2017-10-6 17:29:28

demon 发表于 2017-10-5 05:41
不想评价。

我也懒得评价了。

花心大萝卜 · 发表于 2019-4-10 07:07:09

我也不想评价

帐号		自动登录	找回密码
密码			注册已关闭

[HTML/HTA/CSS] HTA版科学计算器源码