Pages

Selasa, 04 Maret 2014

PENGECEKKAN KEBERADAAN KAMAR

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,,
Oke, tanpa basa basi lagi, ayo kita jalankan program nya...

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);
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;
untuk close:
procedure TForm1.Button1Click(Sender: TObject);
begin
close;




end;
untuk reset:
procedure TForm1.Button2Click(Sender: TObject);
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