导航:首页 > 万维百科 > 网页设计中编写一个计算器

网页设计中编写一个计算器

发布时间:2020-09-04 18:38:21

1、怎样设计一个简单的计算器(请写明代码)

什么语言的?
下面是java的:
import java.awt.*;
import javax.swing.*;
import java.awt.event.*;
class Counter2 extends WindowAdapter
{
static JFrame f=new JFrame("计算器");
static JTextField text1=new JTextField("0.");
static String source="";
static String cal="";
static String object="";
static boolean flag=false;
static boolean flag1=true;
static boolean flag2=false;
public void init()
{
try
{
Container c=f.getContentPane();
JPanel pan1=new JPanel();
JButton b1=new JButton("1");
JButton b2=new JButton("2");
JButton b3=new JButton("3");
JButton b4=new JButton("4");
JButton b5=new JButton("5");
JButton b6=new JButton("6");
JButton b7=new JButton("7");
JButton b8=new JButton("8");
JButton b9=new JButton("9");
JButton b0=new JButton("0");
JButton b11=new JButton("+");
JButton b12=new JButton("-");
JButton b13=new JButton("*");
JButton b14=new JButton("/");
JButton b15=new JButton(".");
JButton b16=new JButton("=");
JButton bclar=new JButton("清零");
text1.setHorizontalAlignment(JTextField.RIGHT);
c.add(text1,"North");
c.add(pan1);
A aa=new A();
Result re=new Result();
Opertion op=new Opertion();
Clar cl=new Clar();
b1.addActionListener(aa);
b2.addActionListener(aa);
b3.addActionListener(aa);
b4.addActionListener(aa);
b5.addActionListener(aa);
b6.addActionListener(aa);
b7.addActionListener(aa);
b8.addActionListener(aa);
b9.addActionListener(aa);
b0.addActionListener(aa);
b11.addActionListener(op);
b12.addActionListener(op);
b13.addActionListener(op);
b14.addActionListener(op);
b16.addActionListener(re);
b15.addActionListener(aa);
bclar.addActionListener(cl);
pan1.add(b1);
pan1.add(b2);
pan1.add(b3);
pan1.add(b11);
pan1.add(b4);
pan1.add(b5);
pan1.add(b6);
pan1.add(b12);
pan1.add(b7);
pan1.add(b8);
pan1.add(b9);
pan1.add(b13);
pan1.add(b0);
pan1.add(b15);
pan1.add(b16);
pan1.add(b14);
pan1.add(bclar);
f.setSize(200,220);
f.setVisible(true);
}
catch(Exception e)
{
System.out.println(e.getMessage());
}

}
class A implements ActionListener
{
public void actionPerformed(ActionEvent e)
{
String a=text1.getText();
String s=e.getActionCommand();
if(a.equals("0.")||a.equals("+")||a.equals("-")||a.equals("*")||a.equals("/"))
text1.setText(s);
else {
if(flag2)
{
text1.setText(s);
flag2=false;
}
else
text1.setText(a+s);

}
}
}
class Opertion implements ActionListener
{
public void actionPerformed(ActionEvent e)
{
cal=e.getActionCommand();
if(flag1==true)
source=text1.getText();
text1.setText(cal);
flag1=false;
flag=true;
}
}
class Result implements ActionListener
{
public void actionPerformed(ActionEvent e)
{
double num1;
num1=Double.parseDouble(source);
object=text1.getText();
double num2;
num2=Double.parseDouble(object);
double result=0;
if(cal.equals("+"))
result=num1+num2;
if(cal.equals("-"))
result=num1-num2;
if(cal.equals("*"))
result=num1*num2;
if(cal.equals("/"))
if(num2==0)
text1.setText("除数不能为0");
else
result=num1/num2;
String s1=Double.toString(result);
text1.setText(s1);
flag1=true;
flag2=true;
}
}
class Clar implements ActionListener
{
public void actionPerformed(ActionEvent e)
{
text1.setText("0.");
}
}

public static void main(String[] args)
{
Counter2 count=new Counter2();
count.init();
}

public void windowClosing(WindowEvent e){
System.exit(1);
}
public void windowOpened(WindowEvent e){}
public void windowIconified(WindowEvent e){}
public void windowDeiconified(WindowEvent e){}
public void windowClosed(WindowEvent e){}
public void windowActivated(WindowEvent e){}
public void windowDeactivated(WindowEvent e){}
}

2、编写设计一个简单计算器

要什么样的?网页版的可以吗?

3、怎么用dreamweaver制作一个简单的类似计算器的东西?

1、点击按钮能够计算,需要在按钮源代码上设置:onclick="vbscript:calc()"
calc()是测试和计算子程序,就是说,在head部分,有这个:
<script language="vbscript">
sub calc()
end sub
</script>

2、要检测输入的数值,比如检测a的数值:
if len(window.text1.value)=0 then '没有输入a
msgbox "请输入a的值"
window.text1.focus() '将焦点设置到text1,并退出计算子程序
exit sub
elseif not isnumeric(window.text1.value) then ''text1不是数字
msgbox "请输入一个数字"
window.text1.focus() '将焦点设置到text1,并退出计算子程序
exit sub
else
a=csng(window.text1.value)
if a<=0 then
'''''''''在这里面处理a的数值非法的情况,如果你需要
exit sub
end if
end if

3、依次检测b、c、d的数值,其中的d我不太明白,你说允许位0,那么其对数值无异议。

4、程序的最后,是计算
e=3.78*log(a) + 11.2*Log(b)+ 9.57*Log(c) + 6.43*Log(d)
window.text5.value=cstr(e)

5、不考虑错误检测的代码
<input type='button' id='btnCalc' onclick="vbscript:calc()">
<script language="vbscript">
sub calc()
dim a,b,c,d,e
a=csng(window.text1.value)
b=csng(window.text2.value)
c=csng(window.text3.value)
d=csng(window.text4.value)
e=3.78*log(a) + 11.2*Log(b)+ 9.57*Log(c) + 6.43*Log(d)
window.text5.value=cstr(e)
end sub
</script>

4、html网页计算器代码怎么写?

html网页计算器代码编写过程如下:

5、编写程序实现一个简单的计算器。(用菜单设计)

界面设计的代码我就不写了,我在这里描述一下:
放置两个TextBox,分别命名为txtP1,txtP2
放置一个TextBox,命名为txtResult
放置一个ComboBox,命名为drpOperation,在Items属性里面添加(Collection),分别为+,-,*,/
放置一个Button,命名为btnCalculate
双击btnCalculate
代码如下:
private void btnCalculate_Click(object sender, EventArgs e)
{
double p1=Convert.ToDouble(txtP1.Text);//从txtP1中获取参数p1
double p2=Convert.ToDouble(txtP2.Text);//从txtP1中获取参数p1
double result;//定义运算结果
string Operation=drpOperation.SelectedItem.Text;//获取运算符
switch(Operation)
{
case "+":result=p1+p2;break;
case "-":result=p1-p2;break;
case "*":result=p1*p2;break;
case "/":result=p1/p2;break;
}//这里判断从ComboBox获取的符号,以求进行相应的运算
txtResult.Text=result.ToString();//显示运算结果
}

6、编程设计一个简单的计算器程序

这种运算比较麻烦,不过4种运算符号优先级相同应该简单写,我这里有个算法,能进行简单的四则运算,delphi的,供参考 

Function Math_Evaluate(S0:string):Extended; 

Function Evaluate(S0:String):Extended;Forward; 

Procere CleanUp(var s0:string); 

Var 

I:integer; 

Begin 

S0:=LowerCase(s0); 

I:=Pos(' ',s0); 

While I>0 Do 

Begin 

Delete(S0,I,1); 

I:=Pos(' ',S0); 

End; 

End; 

Function GetFirstOpp(Tot:Integer;S0:String):Integer; 

Const 

Sopps:String=('+-*/^'); 

Var 

I:Integer; 

Begin 

If Tot=0 Then Tot:=Length(S0); 

For I:=1 To 5 Do 

Begin 

Result:=Pos(Sopps[i],S0); 

If ((I<3) And (Result>0)) Then 

If ((Result=1) Or (Pos(S0[Result-1],Sopps)>0)) Then 

Result:=0; 

If Result>0 Then 

If Result<Tot Then 

Exit; 

End; 

If Result>Tot Then 

Result:=0; 

End; 

Function SpecialF(P1:Integer;S0:String):Extended; 

Var 

Operstr:String; 

Arg:Extended; 

Begin 

Result:=0; 

Operstr:=Copy(S0,1,P1-1); 

If S0[Length(S0)]<>')' Then 

Exit; 

Operstr:=LowerCase(Operstr); 

Arg:=Evaluate(Copy(S0,P1+1,Length(S0)-P1-1)); 

if Operstr ='sin' Then 

Result:=Sin(Arg) 

Else if Operstr ='cos' Then 

Result:=Cos(Arg) 

Else if Operstr ='tan' Then 

Result:=Sin(Arg)/Cos(Arg) 

Else if Operstr ='arctan' Then 

Result:=Arctan(Arg) 

Else if Operstr ='log' Then 

Result:=Ln(Arg)/Ln(10) 

Else if Operstr ='ln' Then 

Result:=Ln(Arg) 

Else if Operstr ='exp' Then 

Result:=Exp(Arg) 

Else if Operstr ='sqrt' Then 

Result:=Sqrt(Arg) 

{enter additional functions here} 

Else Exit; 

End; 

Function GetValue(S0:String):Extended; 

Begin 

Result:=0; 

If Length(S0)<1 Then Exit; 

If Length(S0)=1 Then 

Result:=StrToFloat(S0) 

Else 

Case s0[1] Of 

'x':Result:=1; 

'y':Result:=1; 

'z':Result:=1; 

Else Result:=StrToFloat(S0); 

End; 

End; 

Procere MatchBracket(Var I:Integer;S0:String); 

Var 

J,Len:Integer; 

Begin 

J:=1; 

Len:=Length(S0); 

Repeat Inc(I); 

If I>Len Then Exit; 

If S0[I]='(' Then Inc(J); 

If S0[I]=')' Then Dec(J); 

If J<0 Then Exit; 

Until J=0; 

End; 

Function Calculate(P1:Integer;S0:String):Extended; 

Var 

V1,V2:Extended; 

Begin 

Result:=0; 

V1:=Evaluate(Copy(S0,1,P1-1)); 

V2:=Evaluate(Copy(S0,P1+1,Length(s0)-P1)); 

Case S0[P1] Of 

'+': Result:=V1+V2; 

'-': Result:=V1-V2; 

'/': Result:=V1/V2; 

'*': Result:=V1*V2; 

'^': Result:=Exp(V2*Ln(V1)); 

Else Exit; 

End; 

End; 

Function Evaluate(S0:string):Extended; 

Var 

P1,P2,Q1:Integer; 

Begin 

P1:=Pos('(',S0); 

P2:=P1; 

If P2>0 Then 

MatchBracket(P2,S0); 

If P1=1 Then 

Begin 

If P2=Length(S0) Then 

Begin 

Delete(S0,P2,1); 

Delete(S0,1,1); 

Result:=Evaluate(S0); 

End Else 

Result:=Calculate(P2+1,S0); 

Exit; 

End; 

Q1:=GetFirstOpp(P1,S0); 

If (P1+Q1=0) Then 

Begin 

Result:=GetValue(S0); 

Exit; 

End; 

If Q1<>0 Then 

Result:=Calculate(Q1,S0) 

Else If Length(S0)>P2 Then 

Result:=Calculate(P2+1,S0) 

Else 

Result:=SpecialF(P1,S0); 

End; 

Begin 

Try 

CleanUp(S0); 

Result:=Evaluate(S0); 

Except 

Result:=0; 

End; 

End;

7、网页设计与制作设计一个页面,实现一个四则计算器

这个代码其实网上有很多现成的,而且做有CSS布局各种形式的都有,自己多花点时间搜索下就可以找到 。

8、用记事本编写一个可以在网页上进行简单计算的计算器,要能看到过程的

我有javascript版本的

9、利用JavaScript脚本语言编写一个简单的“网页计算器”

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<script language="javascript">
function jsq(fh)
{
var num1,num2;
num1=parseFloat(document.form1.text1.value);
num2=parseFloat(document.form1.text2.value);
if(fh=="+")
document.form1.text3.value=num1+num2;
if(fh=="-")
document.form1.text3.value=num1-num2;
if(fh=="*")
document.form1.text3.value=num1*num2;
if(fh=="/")
if(num2!=0)
{
document.form1.text3.value=num1/num2;
}
else
{
alert ("除数不能为零!")
}
}
</script>
</head>

<body>
<form id="form1" name="form1" method="post" action="">
<label>
<input name="text1" type="text" id="text1" />
</label>
<p>
<label>
<input name="text2" type="text" id="text2" />
</label>
</p>
<p>
<label>
<input name="Button1" type="Button" id="Button1" value="+" onClick="jsq('+')">
<input name="Button2" type="Button" id="Button2" value="-" onClick="jsq('-')"/>
<input name="Button3" type="Button" id="Button3" value="*" onClick="jsq('*')"/>
<input name="Button4" type="Button" id="Button4" value="/" onClick="jsq('/')"/>
</label>
</p>
<p>
<label>
<input name="text3" type="text" id="text3" />
</label>
</p>
</form>
</body>
</html>

10、怎么在网页上制作一个简易计算器

(1)先画个页面,把每个数字 运算符号放进去;
(2)然后每个数字 符号绑定一个事件,这个事件获取数字或者符号的值,放进一个Input框;
(3)点击计算,把Input框的字符串表达式计算,eval("1*2");
(4)还有计算前要对表达式进行校验,不规则的表达式不能计算。

与网页设计中编写一个计算器相关的知识