CONTOH PROGRAM PERCABANGAN DI DELPHI 4d5asd5a3

 

CONTOH PROGRAM PERCABANGAN DI DELPHI 4d5asd5a3

Sebenarnya semua komponen yang ada dapat diolah menggunakan percabangan. Tetapi ada beberapa yang (bisa disebut pasti) menggunakan percabangan untuk mengolahnya., diantaranya adalah :

COMBOBOX

Combobox digunakan untuk menampilkan daftar pilihan yang ditampilkan berbentuk kombinasi antara Listbox dan Edit. Pengguna dapat mengisi data dalam kotak Edit atau memilih sesuai dengan daftar yang ada. Daftar pilihan terdapat pada properti ITEMS. Dan pilihan yang dipilih oleh user dapat diakses melalui properti TEXT atau ITEMINDEX.

Contoh aplikasi menggunakan ComboBox

 

Kemudian tombol Cari Harga diisi dengan Mantra berikut ini  :v

 

procedure TForm1.Tbl_Cari_HargaClick(Sender: TObject);

begin

     if CB_Jurusan.Text='Jakarta' then

         E_Harga.Text:='10000'

     else

     if CB_Jurusan.Text='Yogyakarta' then

         E_Harga.Text:='20000'

     else

     if CB_Jurusan.Text='Surabaya' then

         E_Harga.Text:='30000'

     else

         E_Harga.Text:='0';

end;

 

Jika dieksekusi akan menghasilkan tampilan seperti di bawah ini :

 

 

RADIOBUTTON RadioButton digunakan untuk menampilkan sebuah pilihan dimana user dapat mengganti nilainya dengan True atau False. Radiobutton digunakan untuk menampilkan sekumpulan pilihan dimana user hanya boleh memilih satu pilihan saja. Untuk mengakses apakah sebuah radio button dipilih oleh user, property yang digunakan adalah property CHECKED. Jika property CHECKED bernilai True berarti objek tersebut dipilih oleh user. Jika anda mempunyai 2 pilihan yang saling terpisah, maka groupkan tiap pilihan pilihan tersebut dengan GroupBox.

Contoh aplikasi menggunakan RadioButton

Kemudian tombol Cari Harga diisi dengan mantra kayak gini : 

procedure TForm1.Tbl_Cari_HargaClick(Sender: TObject);

begin

     if RB_Jakarta.Checked = True then

        E_Harga.Text:='10000'

     else

     if RB_Yogyakarta.Checked then

        E_Harga.Text:='15000'

     else

     if RB_Surabaya.Checked then

        E_Harga.Text:='20000'

     else

        E_Harga.Text:='0';

end;

 

 

kalau di eksekusi jadinya kayak gini :

 

RADIOGROUP  Radiogroup  mempunyai fungsi yang sama dengan RadioButton. Perbedaannya adalah kalau  suatu pilihan terdiri dari 4 pilihan maka kalau menggunakan RadioButton akan memerlukan 4 objek RadioButton tetapi jika menggunakan RadioGroup hanya akan membutuhkan sebuah RadioGroup saja. Untuk membuat isi pilihan pada RadioGroup, gunakan property ITEMS. Dan untuk mengakses pilihan mana yang dipilih oleh user, gunakan property ITEMINDEX. Jika itemindex bernilai 0 berarti pilihan pertama yang dipilih, jika itemindex bernilai 1 berarti pilihan kedua yang dipilih.  Contoh aplikasi menggunakan RadioGroup :

Kemudian tombol Cari Harga diisi dengan mantra kayak gini:

 

procedure TForm1.Tbl_Cari_HargaClick(Sender: TObject);

begin

     if RG_Jurusan.ItemIndex = 0 then

        E_Harga.Text:='10000'

     else

     if RG_Jurusan.ItemIndex = 1 then

        E_Harga.Text:='15000'

     else

     if RG_Jurusan.ItemIndex = 2 then

        E_Harga.Text:='20000'

     else

        E_Harga.Text:='0';

end;

 

 

    Atau kalau agan pake Case (tulisan sebalah kiri jgn di ketik juga kale XD )

 

 

procedure TForm1.Tbl_Cari_HargaClick(Sender: TObject);

begin

      case RG_Jurusan.ItemIndex of

        0:E_Harga.Text:='10000';

        1:E_Harga.Text:='15000';

        2:E_Harga.Text:='20000';

        else

            E_Harga.Text:='0';

      end;

end;

 

 

dan pas di jalankan hasilnya. Taraaaaaaaaaaaa...............

 

CHECKBOX CheckBox digunakan untuk menampilkan sebuah pilihan dimana user dapat melakukan  perubahan antara Ya/Tidak atau True/False. Checkbox digunakan untuk menampilkan sekumpulan pilihan dimana pengguna boleh memilih lebih dari satu pilihan. Untuk mengakses apakah sebuah CheckBox dipilih oleh user, property yang diakses adalah property CHECKED. Jika property Checked bernilai True, berarti Checkbox tersebut dipilih.  Contoh aplikasi menggunakan CheckBox

Terus silahkan agan isikan mantranya :

 

procedure TForm1.Tbl_Cari_TotalClick(Sender: TObject);

var

   Total:integer;

begin

     Total:=0;

     if CB_Cocacola.Checked=true then

         Total:=Total+2500;

 

     if CB_Sprite.Checked then

         Total:=Total+2000;

 

     if CB_Fanta.Checked then

         Total:=Total+2250;

 

     E_Total.Text:=Inttostr(Total);

end;

 

 

daaaaannnn..............inilah hasilnya jika dijalankan