請問誰可敎我寫簡單的計算機程式呢? |
|
尚未結案
|
|
mindzeroo
一般會員   發表：2 回覆：5 積分：1 註冊：2005-11-07 發送簡訊給我 |
|
|
sucm
一般會員 發表：24 回覆：29 積分：10 註冊：2005-01-17 發送簡訊給我 |
這是我剛學delphi...無聊自己寫的...
你可以參考看看... unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls; type
TForm1 = class(TForm)
Edit1: TEdit;
B5: TButton;
B0: TButton;
B6: TButton;
B9: TButton;
B7: TButton;
B1: TButton;
B3: TButton;
B2: TButton;
B4: TButton;
B8: TButton;
BBB: TButton;
BB: TButton;
BMLUS: TButton;
BPLUS: TButton;
BC: TButton;
Bof: TButton;
procedure B1Click(Sender: TObject);
procedure B2Click(Sender: TObject);
procedure B3Click(Sender: TObject);
procedure B4Click(Sender: TObject);
procedure B5Click(Sender: TObject);
procedure B6Click(Sender: TObject);
procedure B7Click(Sender: TObject);
procedure B8Click(Sender: TObject);
procedure B9Click(Sender: TObject);
procedure B0Click(Sender: TObject);
procedure BPLUSClick(Sender: TObject);
procedure BCClick(Sender: TObject);
procedure BMLUSClick(Sender: TObject);
procedure BBClick(Sender: TObject);
procedure BBBClick(Sender: TObject);
procedure BofClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1;
s,a: String;
x: Integer; implementation {$R *.dfm} procedure TForm1.B1Click(Sender: TObject);
begin if s=Edit1.Text then
begin
Edit1.Text:='';
end;
if Edit1.Text='' then
begin
Edit1.Text:=Edit1.Text+'1';
end
else
begin
Edit1.Text:=Edit1.Text+'1';
end; end; procedure TForm1.B2Click(Sender: TObject);
begin if s=Edit1.Text then
begin
Edit1.Text:='';
end;
if Edit1.Text='' then
begin
Edit1.Text:=Edit1.Text+'2';
end
else
begin
Edit1.Text:=Edit1.Text+'2';
end; end; procedure TForm1.B3Click(Sender: TObject);
begin if s=Edit1.Text then
begin
Edit1.Text:='';
end;
if Edit1.Text='' then
begin
Edit1.Text:=Edit1.Text+'3';
end
else
begin
Edit1.Text:=Edit1.Text+'3';
end;
end; procedure TForm1.B4Click(Sender: TObject);
begin if s=Edit1.Text then
begin
Edit1.Text:='';
end;
if Edit1.Text='' then
begin
Edit1.Text:=Edit1.Text+'4';
end
else
begin
Edit1.Text:=Edit1.Text+'4';
end;
end; procedure TForm1.B5Click(Sender: TObject);
begin
if s=Edit1.Text then
begin
Edit1.Text:='';
end;
if Edit1.Text='' then
begin
Edit1.Text:=Edit1.Text+'5';
end
else
begin
Edit1.Text:=Edit1.Text+'5';
end;
end; procedure TForm1.B6Click(Sender: TObject);
begin
if s=Edit1.Text then
begin
Edit1.Text:='';
end;
if Edit1.Text='' then
begin
Edit1.Text:=Edit1.Text+'6';
end
else
begin
Edit1.Text:=Edit1.Text+'6';
end;
end; procedure TForm1.B7Click(Sender: TObject);
begin
if s=Edit1.Text then
begin
Edit1.Text:='';
end;
if Edit1.Text='' then
begin
Edit1.Text:=Edit1.Text+'7';
end
else
begin
Edit1.Text:=Edit1.Text+'7';
end;
end; procedure TForm1.B8Click(Sender: TObject);
begin
if s=Edit1.Text then
begin
Edit1.Text:='';
end;
if Edit1.Text='' then
begin
Edit1.Text:=Edit1.Text+'8';
end
else
begin
Edit1.Text:=Edit1.Text+'8';
end;
end; procedure TForm1.B9Click(Sender: TObject);
begin
if s=Edit1.Text then
begin
Edit1.Text:='';
end;
if Edit1.Text='' then
begin
Edit1.Text:=Edit1.Text+'9';
end
else
begin
Edit1.Text:=Edit1.Text+'9';
end;
end; procedure TForm1.B0Click(Sender: TObject);
begin
if s=Edit1.Text then
begin
Edit1.Text:='';
end;
if Edit1.Text='' then
begin
Edit1.Text:=Edit1.Text+'0';
end
else
begin
Edit1.Text:=Edit1.Text+'0';
end;
end; procedure TForm1.BPLUSClick(Sender: TObject);
begin
s:=Edit1.Text;
x:=1; end; procedure TForm1.BCClick(Sender: TObject);
begin
Edit1.Text:='';
end; procedure TForm1.BMLUSClick(Sender: TObject);
begin
s:=Edit1.Text;
x:=2;
end; procedure TForm1.BBClick(Sender: TObject);
begin
s:=Edit1.Text;
x:=3;
end; procedure TForm1.BBBClick(Sender: TObject);
begin
s:=Edit1.Text;
x:=4;
end; procedure TForm1.BofClick(Sender: TObject);
begin
a:=Edit1.Text;
Edit1.Text:='';
case x of
1:
begin
s:=IntToStr(StrToInt(s)+StrToInt(a));
Edit1.Text:=s;
end;
2:
begin
s:=IntToStr(StrToInt(s)-StrToInt(a));
Edit1.Text:=s;
end;
3:
begin
s:=IntToStr(StrToInt(s)*StrToInt(a));
Edit1.Text:=s;
end;
4:
begin
s:=FloatToStr(StrToInt(s)/StrToInt(a));
Edit1.Text:=s;
end;
end; end; end.
|
|
sucm
一般會員 發表：24 回覆：29 積分：10 註冊：2005-01-17 發送簡訊給我 |
|
|
mindzeroo
一般會員 發表：2 回覆：5 積分：1 註冊：2005-11-07 發送簡訊給我 |
發表時間：2005-11-15 12:19:52
IP:211.21.xxx.xxx 未訂閱
系統時間：2024-05-17 14:59:25
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |