Latihan Delphi 1 Part 2

Form Latihan ComboBox

Dari form diatas di bagian ALAMAT menggunakan object Memo, untuk menghilngkan text pada memo cari "Lines" pada tab Properties, lalu hapus text yang ada pada "String List Editor" dan klik OK seperti gambar dibawah:

Untuk "Level" gunakan ListBox, untuk mengisi list pada listbox cari "Items" pada tab Properties, lalu isikan list "Fundamental" dan "Advanced" dan klik OK seperti gambar dibawah:

Berikut adalah Listing Programnya:

procedure TForm1.c1Click(Sender: TObject); //CheckBox Visual Basic

begin

if c1.Checked = true then

  evb.Text:='1000000'

else

  evb.text:='0';

ejumlah.text:=inttostr(strtoint(evb.text)+strtoint(edelphi.text)+strtoint(elinux.text)+strtoint(eweb.text));

end;

procedure TForm1.c2Click(Sender: TObject); //CheckBox Delphi

begin

if c2.Checked = true then

  edelphi.Text:='800000'

else

  edelphi.text:='0';

ejumlah.text:=inttostr(strtoint(evb.text)+strtoint(edelphi.text)+strtoint(elinux.text)+strtoint(eweb.text));

end;

procedure TForm1.c3Click(Sender: TObject); //CheckBox Linux

begin

if c3.Checked = true then

  elinux.Text:='1100000'

else

  elinux.text:='0';

ejumlah.text:=inttostr(strtoint(evb.text)+strtoint(edelphi.text)+strtoint(elinux.text)+strtoint(eweb.text));

end;

procedure TForm1.c4Click(Sender: TObject); //CheckBox Web Design

begin

if c4.Checked = true then

  eweb.Text:='1200000'

else

  eweb.text:='0';

ejumlah.text:=inttostr(strtoint(evb.text)+strtoint(edelphi.text)+strtoint(elinux.text)+strtoint(eweb.text));

end;

procedure TForm1.rgClick(Sender: TObject); //RadioGroup Pembayaran

begin

if rg.ItemIndex =0 then

  ediskon.text:=floattostr(strtofloat(ejumlah.text)*0.05)

else

  ediskon.text:=floattostr(strtofloat(ejumlah.text)*0);

etotal.text:=inttostr(strtoint(ejumlah.text)-strtoint(ediskon.text));

end;

procedure TForm1.ListBox1Click(Sender: TObject); //ListBox Level

begin

if listbox1.ItemIndex =0 then   //item index 0(nol) intuk list "Fundamental"

  etambah.text:= floattostr(strtofloat(etotal.text)*0)

else

  etambah.text:= floattostr(strtofloat(etotal.text)*0.5);

end;

procedure TForm1.bhitungClick(Sender: TObject); //Button Hitung

begin

ebiaya.text:=inttostr(strtoint(etotal.text)+strtoint(etambah.text));

end;

procedure TForm1.bbershClick(Sender: TObject);

begin

enama.clear;

memo1.clear;

c1.Checked := false;

c2.Checked := false;

c3.Checked := false;

c4.Checked := false;

ejumlah.text:='0';

evb.text:='0';

edelphi.text:='0';

elinux.text:='0';

eweb.Text:='0';

rg.ItemIndex :=-1; //Untuk menghlangkan checked pada RadioGroup

ediskon.text:='0';

etotal.text:='0';

listbox1.ClearSelection; //untuk menghilangkan seleksi pada ListBox

etambah.text:='0';

ebiaya.text:='0';

end;

procedure TForm1.bkeluarClick(Sender: TObject);

begin

if (application.MessageBox('Yakin Mau keluar?','Warning',mb_yesno)=idyes) then

close;

end;

.oO-Semoga Bermanfaat-Oo.