contoh soal nested if menggunakan delphi

CONTOH SOAL NESTED IF MENGGUNAKAN DELPHI

 

 

 

 

buat temen-temen yang mau tau contoh listing pemograman nested if menggunakan delphi, nih ane kasih contoh soalnya. mudah-mudahan bermanfaat buat temen-temen semua aamiinn :)



misalnya kita mau bikin program kaya gini...

 

 

1.     Buat daftar pilihan pada combobox merk mobil dengan data sebagai berikut : TOYOTA, DAIHATSU, MITSUBISHI pada saat form dijalankan.

2.     Untuk jenis mobil gunakan listbox dengan daftar pilihan sebagai berikut :

SEDAN, MINIBUS, PICK UP

3.     Pilih merk dan jenis mobil maka akan tampil harga sesuai dengan ketentuan sebagai        berikut :

MERK MOBIL	JENIS MOBIL	HARGA SEWA MOBIL
TOYOTA	SEDAN	700000
	MINIBUS	850000
	PICK UP	1000000
DAIHATSU	SEDAN	800000
	MINIBUS	950000
	PIC UP	1200000
MITSUBITSHI	SEDAN	850000
	MINIBUS	1300000
	PICK UP	1450000

 

4.     Input lama sewa lalu klik tombol hitung untuk melihat total bayar

 

5.     Pilih servis tambahan

§  Jika pilih driver maka biaya servis tambahan sebesar 150000

§  Jika pilih non driver maka biaya servis tambahannya 0

 

6.     Input uang bayar lalu enter maka uang kembali akan mucul secara otomatis

Uang Kembali didapat dari Uang Bayar – Total Bayar

 

7.     Klik tombol bersih untuk membersihkan semua teks dan kursor berada pada textbox nama pelanggan

 

8.     Klik tombol keluar untuk menutup form dan berikan pesan tampilan ketika tombol Keluar dipilih.

 

 

Listing

implementation

 

{$R *.dfm}

 

procedure TForm1.cmerkClick(Sender: TObject);

begin

if cmerk.Text='Toyota' then

begin

listbox1.Items.Add('Sedan');

listbox1.Items.Add('Minibus');

listbox1.Items.Add('Pick up');

end

else

if cmerk.Text='Daihatsu' then

begin

listbox1.Items.Add('Sedan');

listbox1.Items.Add('Minibus');

listbox1.Items.Add('Pick up');

end

else

if cmerk.Text='Mitsubitshi' then

begin

listbox1.Items.Add('Sedan');

listbox1.Items.Add('Minibus');

listbox1.Items.Add('Pick up');

end

end;

 

procedure TForm1.ListBox1Click(Sender: TObject);

begin

if cmerk.Text='Toyota' then

begin

   if listbox1.ItemIndex=0  then

   eharga.Text:='700000'

   else if listbox1.ItemIndex=1  then

   eharga.Text:='850000'

   else if listbox1.ItemIndex=2  then

   eharga.Text:='1000000'

end

else

if cmerk.Text='Daihatsu' then

begin

   if listbox1.ItemIndex=0  then

   eharga.Text:='800000'

   else if listbox1.ItemIndex=1  then

   eharga.Text:='950000'

   else if listbox1.ItemIndex=2  then

   eharga.Text:='1200000'

end

else

if cmerk.Text='Mitsubitshi' then

begin

   if listbox1.ItemIndex=0  then

   eharga.Text:='850000'

   else if listbox1.ItemIndex=1  then

   eharga.Text:='1300000'

   else if listbox1.ItemIndex=2  then

   eharga.Text:='14500000';

end;

elama.SetFocus;

end;

 

procedure TForm1.bhitungClick(Sender: TObject);

var hrg,lama,ttl,servis:integer;

begin

hrg:=strtoint(eharga.Text);

lama:=strtoint(elama.Text);

servis:=strtoint(eservis.Text);

ttl:=(hrg*lama)+servis;

etotal.Text:=inttostr(ttl);

ebayar.SetFocus;

end;

 

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

eservis.Text:='150000';

end;

 

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

eservis.Text:='0';

end;

 

procedure TForm1.ebayarKeyPress(Sender: TObject; var Key: Char);

var ttl,byr,ukem:integer;

begin

if key=#13 then

begin

ttl:=strtoint(etotal.Text);

byr:=strtoint(ebayar.Text);

ukem:=byr-ttl;

eukem.Text:=inttostr(ukem);

end

end;

 

procedure TForm1.bbersihClick(Sender: TObject);

begin

enama.Text:='';

ealmt.Text:='';

eservis.Text:='0';

radiobutton1.Checked:=false;

radiobutton2.Checked:=false;

cmerk.Text:='';

//listbox1.ItemIndex:='';

eharga.Text:='0';

elama.Text:='0';

etotal.Text:='0';

ebayar.Text:='0';

eukem.Text:='0';

end;

 

procedure TForm1.bkeluarClick(Sender: TObject);

begin

if application.MessageBox('yakin Keluar?','info',mb_yesno)=idyes then

close;

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

 

end;

 

end.

 

OK untuk kesempatan kali ini ane posting itu dulu...nanti ane posting yg lain di lain kesempatan...semoga bermanfat.

kunci utama pintar pemograman yaitu "SELALU MENCOBA "
maaf klo ada kekurangan..ane juga masih dalam tahap pembelajaran hehhehehehe :D

=SELAMAT MENCOBA=
arnita seventage