论坛 › Delphi交流 › delhpi7 V3计算器求补全

MISS 发表于 2012-2-22 20:54:38

delhpi7 V3计算器求补全

做V3计算器时候不知道+号-号和=的代码怎么写只完成了一般求大家把代码补全谢谢！

天殇 发表于 2012-2-22 20:54:39

哈哈，原来你学的比我多。。。我还没到这里呢。不过以前学别的时候遇到这个情况，有这么一个笨办法，你新建一个edit控件，然后把visible设置为false。这样就可以实现了。。。

天殇 发表于 2012-2-22 21:18:17

你可以把小甲鱼老师的课件下载下来研究下啊。
你是vip可以的。

MISS 发表于 2012-2-22 21:20:28

天殇 发表于 2012-2-22 21:18 static/image/common/back.gif
你可以把小甲鱼老师的课件下载下来研究下啊。
你是vip可以的。

没找到课件的代码在哪下载呢

MISS 发表于 2012-2-22 21:20:53

天殇 发表于 2012-2-22 21:16 static/image/common/back.gif
哈哈，原来你学的比我多。。。我还没到这里呢。不过以前学别的时候遇到这个情况，有这么一个笨办法，你新建 ...

......大家一起学习

MISS 发表于 2012-2-22 21:26:33

找到了课件下载 谢谢大家分数给第一贴了3Q

天殇 发表于 2012-2-22 21:28:21

MISS 发表于 2012-2-22 21:26 static/image/common/back.gif
找到了课件下载 谢谢大家分数给第一贴了3Q

谢谢了。delphi比较有意思啊。我也是学的不亦乐乎。

MISS 发表于 2012-2-22 22:31:59

天殇 发表于 2012-2-22 21:28 static/image/common/back.gif
谢谢了。delphi比较有意思啊。我也是学的不亦乐乎。

大家以后一起学习有什么问题多讨论多发帖也给后面学习的人一点资料不是

comeheres 发表于 2012-2-22 22:47:26

MISS 发表于 2012-2-22 22:31 static/image/common/back.gif
大家以后一起学习有什么问题多讨论多发帖也给后面学习的人一点资料不是

嗯，大家把平时练习的作品也分享一下啊，互相学习嘛{:5_109:}

MISS 发表于 2012-2-22 23:21:01

comeheres 发表于 2012-2-22 22:47 static/image/common/back.gif
嗯，大家把平时练习的作品也分享一下啊，互相学习嘛

呵呵必须的！我发了个新帖子你看看能懂不！求解中呢
http://bbs.fishc.com/thread-14130-1-1.html

唯美小猪猪 发表于 2012-2-23 22:16:02

http://bbs.fishc.com/thread-4630-1-2.html你要的源代码这里有下载，呵呵虽然看过源代码，不过
begin
SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_RIGHT);
Edit1.Invalidate;
end; 这一块的意思我不是很明白，有人知道不？

s0512 发表于 2012-7-9 18:11:58

楼主比我快！还没学到！

梦断难寻 发表于 2012-7-13 12:51:27

unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.XPMan;

type
TForm1 = class(TForm)
grp1: TGroupBox;
edt1: TEdit;
btn1: TButton;
btn2: TButton;
btn3: TButton;
btn4: TButton;
btn5: TButton;
btn6: TButton;
btn7: TButton;
btn8: TButton;
btn9: TButton;
btn10: TButton;
btn11: TButton;
btn12: TButton;
btn13: TButton;
btn14: TButton;
btn15: TButton;
btn16: TButton;
procedure btn16Click(Sender: TObject);
procedure btn15Click(Sender: TObject);
procedure btn14Click(Sender: TObject);
procedure btn13Click(Sender: TObject);
procedure btn12Click(Sender: TObject);
procedure btn11Click(Sender: TObject);
procedure btn10Click(Sender: TObject);
procedure btn9Click(Sender: TObject);
procedure btn8Click(Sender: TObject);
procedure btn7Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure btn6Click(Sender: TObject);
procedure btn5Click(Sender: TObject);
procedure btn4Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
value:Real;
zhen1:Byte;
implementation

{$R *.dfm}
function yunsuan(a,b:Real;C:integer):Real;
begin

case c of
1:yunsuan:=(a+b);
2:yunsuan:=(a-b);
3:yunsuan:=(a*b);
4:yunsuan:=(a/b);

end;

end;
procedure TForm1.btn10Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'7';
end;

procedure TForm1.btn11Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'6';
end;

procedure TForm1.btn12Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'5';
end;

procedure TForm1.btn13Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'4';
end;

procedure TForm1.btn14Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'3';
end;

procedure TForm1.btn15Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'2';
end;

procedure TForm1.btn16Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'1';
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
edt1.Clear;
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
if (edt1.Text<>'')and (zhen1=1) then
begin
edt1.Text:=FloatToStr(yunsuan(value,StrToFloat(edt1.Text),1));
Exit;
end
else if (edt1.Text<>'')and (zhen1=2) then
begin
edt1.Text:=FloatToStr(yunsuan(value,StrToFloat(edt1.Text),2))
end
else if (edt1.Text<>'')and (zhen1=3) then
begin
edt1.Text:=FloatToStr(yunsuan(value,StrToFloat(edt1.Text),3))
end
else if (edt1.Text<>'')and (zhen1=4) then
begin
edt1.Text:=FloatToStr(yunsuan(value,StrToFloat(edt1.Text),4))
end
else
Application.MessageBox('输入有误,请重试!','提示',0);

end;



procedure TForm1.btn3Click(Sender: TObject);
begin
value:=StrToFloat(edt1.Text);
edt1.Clear;
zhen1:=4;
end;

procedure TForm1.btn4Click(Sender: TObject);
begin
value:=StrToFloat(edt1.Text);
edt1.Clear;
zhen1:=3;
end;

procedure TForm1.btn5Click(Sender: TObject);
begin
value:=StrToFloat(edt1.Text);
edt1.Clear;
zhen1:=2;
end;

procedure TForm1.btn6Click(Sender: TObject);
begin
value:=StrToFloat(edt1.Text);
edt1.Clear;
zhen1:=1;

end;

procedure TForm1.btn7Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'0';
end;

procedure TForm1.btn8Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'9';
end;

procedure TForm1.btn9Click(Sender: TObject);
begin
edt1.Text:=edt1.Text+'8';
end;

end.

ygrong_2008 发表于 2014-9-6 20:36:37

我重新写了一下，功能实现了，如果需要，可以给我要

xieyang258 发表于 2017-8-25 10:19:34

ygrong_2008 发表于 2014-9-6 20:36
我重新写了一下，功能实现了，如果需要，可以给我要

你好，简单计算器V3版本的（只有一个edit的）代码可以给我发一份吗？感谢！562684040@qq.com

查看完整版本: delhpi7 V3计算器求补全