Assalamu’alaikum wr.wb
Halo teman-teman semua, hari ini, aq mau share salah satu contoh program sederhana delphi yang menggunakan percabangan if, Sebelum nya aq pengen jelasin sedikit tentang percabangan if, percabangan if ialah kondisi dimana kita memberikan nilai yang berbeda pada output Delphi sesuai dengan kriteria yang sudah kita Buat Sebelumnya. jadi Semacam Kondisi dimana jika terjadi kondisi satu maka akan muncul statement satu namun jika kondisi dua akan muncul kondisi dua, begitu seterusnya,,
Langkah-langkah untuk menjalankan program:
1.buka delphi nya
2.desain form nya seperti ini:
3.Kemudian ketikkan kode-a, sbb:
procedure TForm1.FormCreate(Sender: TObject);
begin
combo_kode.Items.Add(Maw01-01);
combo_kode.Items.Add(Mel01-02);
combo_kode.Items.Add(bung01-04);
combo_kode.Items.Add(ken01-06);
combo_kode.Items.Add(ang01-07);
combo_kode.Items.Add(cy02-02);
combo_kode.Items.Add(sol02-03);
combo_kode.Items.Add(tm02-04);
combo_kode.Items.Add(cn02-05);
combo_kode.Items.Add(ob02-10);
combo_kode.Items.Add(cr03-01);
combo_kode.Items.Add(sm03-05);
begin
combo_kode.Items.Add(Maw01-01);
combo_kode.Items.Add(Mel01-02);
combo_kode.Items.Add(bung01-04);
combo_kode.Items.Add(ken01-06);
combo_kode.Items.Add(ang01-07);
combo_kode.Items.Add(cy02-02);
combo_kode.Items.Add(sol02-03);
combo_kode.Items.Add(tm02-04);
combo_kode.Items.Add(cn02-05);
combo_kode.Items.Add(ob02-10);
combo_kode.Items.Add(cr03-01);
combo_kode.Items.Add(sm03-05);
procedure TForm1.Combo_kodeChange(Sender: TObject);
begin
if combo_kode.Text=Maw01-01 then
begin
edit_kamar.Text:=Kamar Mawar;
edit_lantai.Text:=Lantai 1;
edit_no.Text:=No 1;
end
else if combo_kode.Text=Mel01-02 then
begin
edit_kamar.Text:=Kamar Melati;
edit_lantai.Text:=Lantai 1;
edit_no.Text:=No 2;
end
else if combo_kode.Text=bung01-04 then
begin
edit_kamar.Text:=Kamar bunga;
edit_lantai.Text:=Lantai 1;
edit_no.Text:=No 4;
end
else if combo_kode.Text=ken01-06 then
begin
edit_kamar.Text:=Kamar kenanga;
edit_lantai.Text:=Lantai 1;
edit_no.Text:=No 6;
end
else if combo_kode.Text=ang01-07 then
begin
edit_kamar.Text:=Kamar anggrek;
edit_lantai.Text:=Lantai 1;
edit_no.Text:=No 7;
end
else if combo_kode.Text=cy02-02 then
begin
edit_kamar.Text:=Kamar cahaya;
edit_lantai.Text:=Lantai 2;
edit_no.Text:=No 2;
end
else if combo_kode.Text=sol02-03 then
begin
edit_kamar.Text:=Kamar solid;
edit_lantai.Text:=Lantai 2;
edit_no.Text:=No 3;
end
else if combo_kode.Text=tm02-04 then
begin
edit_kamar.Text:=Kamar teman;
edit_lantai.Text:=Lantai 2;
edit_no.Text:=No 4;
end
else if combo_kode.Text=ob02-10 then
begin
edit_kamar.Text:=kamar boy;
edit_lantai.Text:=Lantai 2;
edit_no.Text:=No 10;
end
else if combo_kode.Text=cr03-01 then
begin
edit_kamar.Text:=Kamar ceria;
edit_lantai.Text:=Lantai 3;
edit_no.Text:=No 1;
end
else if combo_kode.Text=cn02-05 then
begin
edit_kamar.Text:=Kamar cinta;
edit_lantai.Text:=Lantai 2;
edit_no.Text:=No 5;
end
else
begin
edit_kamar.Text:=Kamar semangat;
edit_lantai.Text:=Lantai 3;
edit_no.Text:=No 5;
end;
end;
begin
if combo_kode.Text=Maw01-01 then
begin
edit_kamar.Text:=Kamar Mawar;
edit_lantai.Text:=Lantai 1;
edit_no.Text:=No 1;
end
else if combo_kode.Text=Mel01-02 then
begin
edit_kamar.Text:=Kamar Melati;
edit_lantai.Text:=Lantai 1;
edit_no.Text:=No 2;
end
else if combo_kode.Text=bung01-04 then
begin
edit_kamar.Text:=Kamar bunga;
edit_lantai.Text:=Lantai 1;
edit_no.Text:=No 4;
end
else if combo_kode.Text=ken01-06 then
begin
edit_kamar.Text:=Kamar kenanga;
edit_lantai.Text:=Lantai 1;
edit_no.Text:=No 6;
end
else if combo_kode.Text=ang01-07 then
begin
edit_kamar.Text:=Kamar anggrek;
edit_lantai.Text:=Lantai 1;
edit_no.Text:=No 7;
end
else if combo_kode.Text=cy02-02 then
begin
edit_kamar.Text:=Kamar cahaya;
edit_lantai.Text:=Lantai 2;
edit_no.Text:=No 2;
end
else if combo_kode.Text=sol02-03 then
begin
edit_kamar.Text:=Kamar solid;
edit_lantai.Text:=Lantai 2;
edit_no.Text:=No 3;
end
else if combo_kode.Text=tm02-04 then
begin
edit_kamar.Text:=Kamar teman;
edit_lantai.Text:=Lantai 2;
edit_no.Text:=No 4;
end
else if combo_kode.Text=ob02-10 then
begin
edit_kamar.Text:=kamar boy;
edit_lantai.Text:=Lantai 2;
edit_no.Text:=No 10;
end
else if combo_kode.Text=cr03-01 then
begin
edit_kamar.Text:=Kamar ceria;
edit_lantai.Text:=Lantai 3;
edit_no.Text:=No 1;
end
else if combo_kode.Text=cn02-05 then
begin
edit_kamar.Text:=Kamar cinta;
edit_lantai.Text:=Lantai 2;
edit_no.Text:=No 5;
end
else
begin
edit_kamar.Text:=Kamar semangat;
edit_lantai.Text:=Lantai 3;
edit_no.Text:=No 5;
end;
end;
untuk close:
procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;
begin
close;
end;
untuk reset:
procedure TForm1.Button2Click(Sender: TObject);
begin
edit_kamar.clear;
edit_lantai.clear;
edit_no.clear;
end;
end.
begin
edit_kamar.clear;
edit_lantai.clear;
edit_no.clear;
end;
end.
4.klik run, selesailah program nya dan akan tampil seperti ini:
giman mudah kan?? oke, klo gitu "selamat menjalankan program nya" semoga apa yang penulis sampaikan berguna ya,,
0 komentar:
Posting Komentar