cara membuat kalkulator dengan menggunakan software delphi
ketentuan gambar :
penjelasan : {harap melihat nama caption atau text nya:spt button,edit..text}
procedure TForm1.Button10Click(Sender: TObject);
begin
edit3.Text:=edit3.Text + '0';
end;
procedure TForm1.Button11Click(Sender: TObject);
var a,b,c:integer;
begin
edit2.Text:=edit2.Text + '+';
edit1.Text:=edit3.Text ;
edit3.Text:='';
end;
procedure TForm1.Button12Click(Sender: TObject);
var a,b,c:single;
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit3.Text);
if Edit2.Text = '+' then
begin
b := a + b;
edit3.Text :=floattostr(b);
end
Else if Edit2.Text = '-' then
begin
b := a - b ;
edit3.Text :=floattostr(b);
end
Else if Edit2.Text = 'x' then
begin
b := a * b;
edit3.Text :=floattostr(b);
end
Else if Edit2.Text = ':' then
begin
b := a / b;
edit3.Text :=floattostr(b);
end;
end;
procedure TForm1.Button13Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit1.SetFocus;
end;
procedure TForm1.Button14Click(Sender: TObject);
begin
edit2.Text:=edit2.Text + 'x';
edit1.Text:=edit3.Text ;
edit3.Text:='';
end;
procedure TForm1.Button15Click(Sender: TObject);
begin
edit2.Text:=edit2.Text + ':';
edit1.Text:=edit3.Text ;
edit3.Text:='';
end;
procedure TForm1.Button16Click(Sender: TObject);
begin
edit2.Text:=edit2.Text + '-';
edit1.Text:=edit3.Text ;
edit3.Text:='';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit3.Text:=edit3.Text + '1';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit3.Text:=edit3.Text + '2';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
edit3.Text:=edit3.Text + '3';
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
edit3.Text:=edit3.Text + '4';
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
edit3.Text:=edit3.Text + '5';
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
edit3.Text:=edit3.Text + '6';
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
edit3.Text:=edit3.Text + '7';
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
edit3.Text:=edit3.Text + '8';
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
edit3.Text:=edit3.Text + '9';
end;
end.
*************************Selamat mencoba********************************************
0 komentar:
Posting Komentar