Sunday, 28 October 2012

Belajar Membuat Program Sederhana menggunakan Delphi




Karna saya masih belajar jadi mohon dimaklumi jika ada kesalahan atau ada yang kurang pas.
Saya akan membuat Program sederhana operasi  kali, bagi, tambah dan kurang.

Tampilan form seperti dibawah ini, desain form nya dapat anda sesuaikan dengan selera.


 




 


 









Ubah bagian caption label1,2,3 dan komponen lainnya dengan nama yang sesuai dengan kebutuhan program dan hilangkan saja Text nya.
Untuk  untuk selanjutnya ada lah source code delphinya,,,



untuk button proses (Button 1) :

procedure TForm1.Button1Click(Sender: TObject);
var a,b, c   : real;
begin
a := strtofloat(edit1.Text);
b := strtofloat(edit2.Text);

if Radiobutton1.Checked then
 begin
   c := (a*b);
   edit3.Text:=floattostr(c);
 end
 else
 if Radiobutton2.Checked then
 begin
   c := (a/b);
   edit3.Text:=floattostr(c);
 end
 else
 if Radiobutton3.Checked then
 begin
   c := (a+b);
   edit3.Text:=floattostr(c);
 end
 else
 if Radiobutton4.Checked then
 begin
   c := (a-b);
   edit3.Text:=floattostr(c);
 end
 else
showmessage('pilih operator dahulu');

end;

untuk button keluar (Button 2 ) :

procedure TForm1.Button2Click(Sender: TObject);
begin
application.Terminate;
end;

untuk button reset (Button 3) :

procedure TForm1.Button3Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Radiobutton1.Checked:=false;
Radiobutton2.Checked:=false;
Radiobutton3.Checked:=false;
Radiobutton4.Checked:=false;
end;
end.



Hasil akhirnya seperti ini :












jika tidak mau pusing download langsung program jadinya ...


 download program Operasi Aritmatik disini. 

Semoga bermanfaat :)
 

No comments:

Post a Comment