Tampilan program
Kali ini saya akan membuat suatu program kalkulator sederhana dengan menggunakan program Delphi 2010. Kalkulator sederhana ini berbeda dengan kalkulator yang biasa kita pakai sehari-hari. Kalkulator ini memiliki 3 kotak atau (Tedit) yang berbeda dengan kalkulator biasa dengan 1 kotak atau 1 Tedit dan biasanya dalam kalkulator biasa kita memunculkan hasil dengan memencet tombol =, sedangkan untuk memunculkan hasil di kalkulator ini, kita tinggal memencet tombol operasi yang kita inginkan seperti +, -, x dan sebagainya. Untuk menjalankan kalkulator ini terlebih dahulu kita tulis angka yang kita inginkan di kotak dengan label 'Bilangan 1' dan kotak 'Bilangan 2', lalu tekan operasinya dan akan menampilkan hasilnya di kotak 'hasil'. Untuk kode editornya di bawah ini:
procedure TForm1.Button10Click(Sender: TObject);
var
x,s:real;
begin
x:=strtofloat(edit1.Text);
s:=sin(x*pi/180);
edit3.text:=floattostr(round(sin(x*pi/180)*100)/100);
end;
procedure TForm1.Button11Click(Sender: TObject);
var x,c:real;
begin
x:=strtofloat(edit1.Text);
c:=cos(x*pi/180);
edit3.text:=floattostr(round(cos(x*pi/180)*100)/100);
end;
procedure TForm1.Button12Click(Sender: TObject);
var x,t:real;
begin
x:=strtofloat(edit1.Text);
t:=(sin(x*pi/180))/(cos(x*pi/180));
edit3.text:=floattostr(round((sin(x*pi/180))/(cos(x*pi/180))*100)/100);
end;
procedure TForm1.Button13Click(Sender: TObject);
var
x,n:real;
begin
x:=strtofloat(edit1.Text);
n:=ln(x);
edit3.Text:=floattostr(n);
end;
procedure TForm1.Button14Click(Sender: TObject);
var x,l:real;
begin
x:=strtofloat(edit1.Text);
l:=ln(x)/ln(10);
edit3.Text:=floattostr(l);
end;
procedure TForm1.Button15Click(Sender: TObject);
var x,y,z:integer;
begin
x:=strtoint(edit1.Text);
y:=strtoint(edit2.Text);
z:=x mod y;
edit3.text:=inttostr(z);
end;
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:integer;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
c:=a+b;
edit3.text:=inttostr(c);
end;
procedure TForm1.Button2Click(Sender: TObject);
var a,b,c:integer;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
c:=a-b;
edit3.text:=inttostr(c);
end;
procedure TForm1.Button3Click(Sender: TObject);
var a,b,c:integer;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
c:=a*b;
edit3.text:=inttostr(c);
end;
procedure TForm1.Button4Click(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=a/b;
edit3.text:=floattostr(c);
end;
procedure TForm1.Button5Click(Sender: TObject);
var a,b:real;
begin
a:=strtofloat(edit1.Text);
b:=sqrt(a);
edit3.text:=floattostr(b);
end;
procedure TForm1.Button6Click(Sender: TObject);
var a,b:real;
begin
a:=strtofloat(edit1.Text);
b:=sqr(a);
edit3.text:=floattostr(b);
end;
procedure TForm1.Button7Click(Sender: TObject);
var
a,b,i:integer;
begin
a:=strtoint(edit1.Text);
b:=1;
for i:=1 to a do
b:=b*i;
edit3.text:=inttostr(b);
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
close;
end;
end.
Untuk lebih jelasnya, silahkan download contoh program kalkulator sederhana ini dengan mengklik link berikut Kalkulator Sederhana
Password : MRN
Semoga Bermanfaat. Terima Kasih...
saya suka
ReplyDelete