一个用 VBScript 制作的计算器(附加完整源代码)_12里路

http://blog.sina.com.cn/u/1300562435

首页博文目录关于我

个人资料

微博

加好友发纸条

写留言加关注

博客等级：
博客积分：

博客访问：
关注人气：
获赠金笔：0支
赠出金笔：0支
荣誉徽章：

正文字体大小：大中小

一个用 VBScript 制作的计算器(附加完整源代码)

(2009-05-11 10:54:17)

标签：

计算器

杂谈

分类：其它文章

经过多次修改，完成了一个比较完整的计算器了。将VBScript常用的算术运算符和逻辑运算符全部加进来了。最后的效果图见下图。

'按键函数
Function Show(m)
If (Myform.Expression.Value = "" AND InStr(". + - * / \ ^ And OR Mod XOR ",m)) Then
Myform.Expression.Value = ""
ElseIf (InStr(". + - * / \ ^ And OR Mod XOR ",Right(Myform.Expression.Value,1)) And InStr(". + - * / \ ^ And OR Mod XOR ",m)) Then
ElseIf (m = ".") Then
If (InStr(". + - * / \ ^ And OR Mod XOR ",Right(Myform.Expression.Value,1))) Then
ElseIf ((InstrRev(Myform.Expression.Value,".") > InstrRev(Myform.Expression.Value,"+")) And (InstrRev(Myform.Expression.Value,".") > InstrRev(Myform.Expression.Value,"-")) And (InstrRev(Myform.Expression.Value,".") > InstrRev(Myform.Expression.Value,"*")) And (InstrRev(Myform.Expression.Value,".") > InstrRev(Myform.Expression.Value,"/")) And (InstrRev(Myform.Expression.Value,".") > InstrRev(Myform.Expression.Value,"\")) And (InstrRev(Myform.Expression.Value,".") > InstrRev(Myform.Expression.Value,"^")) And (InstrRev(Myform.Expression.Value,".") > InstrRev(Myform.Expression.Value,"Mod")) And (InstrRev(Myform.Expression.Value,".") > InstrRev(Myform.Expression.Value,"And")) And (InstrRev(Myform.Expression.Value,".") > InstrRev(Myform.Expression.Value,"OR")) And (InstrRev(Myform.Expression.Value,".") > InstrRev(Myform.Expression.Value,"XOR"))) Then
Else
Myform.Expression.Value = Myform.Expression.Value + m
End If
Else
Myform.Expression.Value = Myform.Expression.Value + m
END If
End Function

'计算平方根函数
Function Sqrt()
If (Myform.Expression.Value = "") Then
Myform.Expression.Value = ""
ElseIf (InStr(". + - * / \ ^ And OR Mod XOR ",Right(Myform.Expression.Value,1))) Then
Else
Myform.Expression.Value = Sqr((Myform.Expression.Value))
End If
End Function

'取反函数
Function QU_Not()
If (Myform.Expression.Value = "") Then
Myform.Expression.Value = ""
ElseIf (InStr(". + - * / \ ^ And OR Mod XOR ",Right(Myform.Expression.Value,1))) Then
Else
Myform.Expression.Value = Not((Myform.Expression.Value))
End If
End Function

'结果函数
Function Result()
On Error Resume Next '容错语句
If (Myform.Expression.Value = "") Then
Myform.Expression.Value = ""
ElseIf (InStr(". + - * / \ ^ And OR Mod XOR ",Right(Myform.Expression.Value,1))) Then
Else
Myform.Expression.Value = (Myform.Expression.Value)
End If
End Function

'清除函数
Function Clean()
Myform.Expression.Value = ""
End Function

</Script>
</Head>
<style>

INPUT {
FONT-SIZE: 15px
}

</style>
<Body BgColor="#FFFFEE" text=#000000>
<Form Name="Myform" Method="Post" Action="">
<Div Align="Center">
<Table BgColor="#ECE9D8" Width="214" Height="245" Border="4">
<tr><th> 计算器 </th></Tr>
<Tr>
<Th Height="36" Scope="Col"><Table Width="200" Border="1">
<Tr>
<Td Colspan="5"><Div Align="Center">
<input name="expression" type="text" value="" size="28" maxlength="28" >
</div></td>
</tr>
<tr>
<td><div align="center"> <INPUT TYPE="button" VALUE=" 7 " onClick="Show('7')" id="seven"> </div></td>
<td><div align="center"> <INPUT TYPE="button" VALUE=" 8 " onClick="Show('8')"> </div></td>
<td><div align="center"> <INPUT TYPE="button" VALUE=" 9 " onClick="Show('9')"> </div></td>
<td><div align="center"> <INPUT style="border-style:none;color:red;" TYPE="button" VALUE=" / " onClick="Show('/')"> </div></td>
<td><div align="center"> <INPUT style="border-style:none;color:red;" TYPE="button" VALUE=" \ " onClick="Show('\')"> </div></td> </tr>
<tr>
<td><div align="center"> <INPUT TYPE="button" VALUE=" 4 " onClick="Show('4')"> </div></td>
<td><div align="center"> <INPUT TYPE="button" VALUE=" 5 " onClick="Show('5')"> </div></td>
<td><div align="center"> <INPUT TYPE="button" VALUE=" 6 " onClick="Show('6')"> </div></td>
<td><div align="center"> <INPUT style="border-style:none;color:red;" TYPE="button" VALUE=" * " onClick="Show('*')"> </div></td>
<td><div align="center"> <INPUT style="border-style:none;color:red;" TYPE="button" VALUE="Mod" onClick="Show(' Mod ')"> </div></td> </tr>
<tr>
<td><div align="center"> <INPUT TYPE="button" VALUE=" 1 " onClick="Show('1')"> </div></td>
<td><div align="center"> <INPUT TYPE="button" VALUE=" 2 " onClick="Show('2')"> </div></td>
<td><div align="center"> <INPUT TYPE="button" VALUE=" 3 " onClick="Show('3')"> </div></td>
<td><div align="center"> <INPUT style="border-style:none;color:red;" TYPE="button" VALUE=" - " onClick="Show('-')"> </div></td>
<td><div align="center"> <INPUT style="border-style:none;color:red;" TYPE="button" VALUE="And" onClick="Show(' And ')"> </div></td> </tr>
<tr>
<td><div align="center"> <INPUT TYPE="button" VALUE=" 0 " onClick="Show('0')"> </div></td>
<td><div align="center"> <INPUT TYPE="button" VALUE=" . " onClick="Show('.')"> </div></td>
<td><div align="center"> <INPUT TYPE="button" VALUE="Sqr" onClick="Sqrt()"> </div></td>
<td><div align="center"> <INPUT style="border-style:none;color:red;" TYPE="button" VALUE=" + " onClick="Show('+')"> </div></td>
<td><div align="center"> <INPUT style="border-style:none;color:red;" TYPE="button" VALUE="OR " onClick="Show(' OR ')"> </div></td> </tr>
<tr>
<td><div align="center"> <INPUT style="border-style:none;color:red;" TYPE="button" VALUE=" C " onClick="clean()"> </div></td>
<td><div align="center"> <INPUT style="border-style:none;color:red;" TYPE="button" VALUE=" = " onClick="result()"> </div></td>
<td><div align="center"> <INPUT TYPE="button" VALUE="Not" onClick="QU_Not()"> </div></td>
<td><div align="center"> <INPUT style="border-style:none;color:red;" TYPE="button" VALUE=" ^ " onClick="Show('^')"> </div></td>
<td><div align="center"> <INPUT style="border-style:none;color:red;" TYPE="button" VALUE="XOR" onClick="Show(' XOR ')"></div></td>
</tr>
</table></th>
</tr>
</table>
</div>
</form>

</body>
</html>

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report

前一篇：实验五《计算机组装与维护》总结报告

后一篇：2009年05月12日

新浪BLOG意见反馈留言板　欢迎批评指正