Pert.4 Percabangan Delphi 7.0

Percabangan, combobox, optionbuton Dalam Delphi

Percabangan dalam delphi terdiri dari :If tunggal, If majemuk, dan If bercabang, dalam contoh berikut kita akan membahas If majemuk dan beberapa object yang ada didelphi.

Bentuk tampilan Hasil :

delpi1.JPG

Listing Program (catatan Edit dalam delphi bertipe data string jadi setiap ingin melakukan perubahan nilai tipe data maka harus dirumah ketipe data yang diinginkan).

procedure TForm2.FormCreate(Sender: TObject);
begin
combobox1.Items.Add (‘ads’);
combobox1.Items.Add (‘rbk’);
combobox1.Items.Add (‘spt’);
end;

procedure TForm2.ComboBox1Click(Sender: TObject);
begin
if combobox1.Text=’ads’ then
  begin
  enama.Text :=’Adidas’;
  eharga.Text:=’250000′;
  end
else
if combobox1.Text=’rbk’ then
  begin
  enama.Text :=’Reebok’;
  eharga.Text:=’200000′;
  end
else
  begin
  enama.Text :=’Spotec’;
  eharga.Text:=’150000′;
  end;
end;

procedure TForm2.rb1Click(Sender: TObject);
var c,a,d:real;
begin
if rb1.Checked =true then
  c:=strtofloat(eharga.Text);——->Tipe data String dirubah menjadi tipe data real/float
  a:=c*5/100;
  d:=a+c;
  etotbay.Text:=floattostr(d);
  ebayar.SetFocus
end;

procedure TForm2.rb2Click(Sender: TObject);
var c,a,d:real;
begin
if rb2.Checked =true then
  c:=strtofloat(eharga.Text);
  a:=c*10/100;
  d:=a+c;
  etotbay.Text:=floattostr(d);
  ebayar.SetFocus
end;

procedure TForm2.ebayarChange(Sender: TObject);
var a:real;
begin
a:=strtofloat(ebayar.Text)- strtofloat(etotbay.Text);
ekembali.Text:=floattostr(a);
end;

procedure TForm2.bbersihClick(Sender: TObject);
begin
combobox1.Text:=’Pilih Kode’;
enama.Text:=”;
eharga.Text:=’0′;
etotbay.Text:=’0′;
ebayar.Text:=’0′;
ekembali.Text :=’0′;
end;
 

Untuk Pesan Kita bisa buat tampilan seperti ini : 

msg1.JPG procedure TForm2.bkeluarClick(Sender: TObject);
begin
if messagedlg(‘Anda ingin keluar ?’,mtconfirmation,[mbyes,mbno],0)=mryes then
close;
end;

Selamat Mencoba….

Iklan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s