delhpi7 V3计算器求补全

MISS

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

天殇

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

天殇

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

MISS

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

                               
登录/注册后可看大图

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

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

MISS

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

                               
登录/注册后可看大图

哈哈，原来你学的比我多。。。我还没到这里呢。不过以前学别的时候遇到这个情况，有这么一个笨办法，你新建 ...

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

MISS

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

天殇

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

                               
登录/注册后可看大图

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

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

MISS

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

                               
登录/注册后可看大图

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

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

comeheres

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

                               
登录/注册后可看大图

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

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

MISS

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

                               
登录/注册后可看大图

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

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

唯美小猪猪

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

楼主比我快！还没学到！

梦断难寻

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

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

xieyang258

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

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