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.
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 :)
download program Operasi Aritmatik disini.
Semoga bermanfaat :)
Comments
Post a Comment