BAB III
Percabangan
3.1. Operator Percabangan
percabangan adalah merupakan operator yang digunakan untuk menentukan pilihan terhadap beberapa pilihan yang ada.
Dalam bahasa pemograman Delphi mengenal dua operator per cabangan
3.1.1. Percabangan If
merupakan
operator percabangan yang digunakan untuk menentukan pilihan atas
beberapa kondisi yang merupakan syarat terhadap pilihan yang sudah
ditentukan.
Ada dua model percabangan if
a. Percabangan untuk kondisi pilihan tunggal
Merupakan operator percabangan yang digunakan untuk menentukan sebuah pilihan dengan kondisi tunggal
Bentuk Umum
If Syarat then hasil;
Contoh
If Nilai > 80 then keterangan = ‘Lulus’;
b. Percabangan untuk kondisi majemuk
Merupakan operator percabangan yang digunakan untuk menentukan pilihan dengan kondisi yang harus dipeuhi lebih dari satu.
Bentuk Umum
If Syarat1 then
Hasil1
Else
If syarat2 then
Hasil2
Else
…………….
……………
end;
Contoh
If nilai > 80 then
Grade = “A”
Else
if nilai > 70 then
grade = “B”
else
if nilai > 60 then
grade = “C”
else
grade = “E’;
3.1.3. Percabangan case
case
of adalah merupakan metode lain dari sebuah percabangan, berfungsi
sama seperti fungsi if yaitu untuk melakukan seleksi atas beberapa
pilihan dengan kondisi sebagai syarat yang harus terpenuhi. Secara
fungsi scee dan if tidak ada perbedaan tetapi untuk penulisan fungsi
case lebih mudah diterapkn untuk pilihan atau kondisi lebih dari satu.
Bentuk Umum fungsi Case OF
Case of
; hasil1;
; hasil2;
;hasil3;
………………………
; hasiln;
end;
atau fungsi case of bisa juga diberikan else untuk piliahn terakhir.
Bentuk Umum
Case of
; hasil1;
; hasil2;
;hasil3;
………………………
else
hasiln;
end;
Contoh
Case Bilangan of
1:showmessage(‘Angka 1’);
2:showmessage(‘Angka 2’);
3:showmessage(‘Angka 3’);
end;
3.2. Mengenal Object II (combo box, list box dan radio button)
1
Checkbox Digunakan untuk menentukan pilihan lebih dari satu
2
Radio Button Digunakan untuk menentukan pilhan, tetapi hanya satu pilhan yang bisa digunakan
3
List Box Menmpilkan pilihan dalam bentuk list
4
Combo Box Menampilkan pilihan dalam bentuk popup
3.3. Merancang Program dengan fungsi IF
a. Hasil Yang Diperoleh
Gambar 3.1 Gambar Perhitungan Gaji
Ketentuan Perhitungan Gaji
1. Dalam Struktur organisasi perusahaan ketentuan gaji perusahaan terbagi menjadi 3 struktur utama
Jabatan Gaji Pokok
Direktur 5000000
Manager 3000000
Karyawan 1000000
2. Besarnya tunjangan ditentukan oleh status kep
b. Desian Form
Gambar 3.2. Desain Form Gaji
c. Desain Properties
Object Name Caption
Label 1 Label1 Nama Pegawai
Label 2 Label2 Jabatan
Label 3 Label3 Gaji Pokok
Label 4 Label4 Tunjangan Status
Label5 Label5 Gaji Bersih
GroupBox GroupBox1 Status
RadioButton1 Rtetap Tetap
RadioButton2 Rhonorer Honorer
Object Name Text
Edit1 enama -
Edit2 epokok -
Edit3 etunjangan -
Edit4 ebersih -
Combo Box Cjabatan -
Object Name Caption
Button1 Btotal Total Gaji
Button2 Blagi Isi Data Lagi
Button3 Bclose Close
d. Listing Program
Memberikan pilihan pada combo box sesuai dengan piihan pada jabatan
Dengan Menggunakan Object Properties
Langkah – langkahnya
1. aktifkan combo box yang akan dipilih
2. pada properties pilih dan klik item, lalu klik command (…)
3. Pada jendela String list Editor, Seperti terlihat pada jendela berikut
4. Ketikan kata sebagai kata pilihan pada jendela seperti contoh tersebut diatas.
5. Setelah selesai klik OK
Melalui jendela code editor
Double click pada form, sebarang tempat dan ketikan program berikut ini.
procedureTForm1.FormCreate(Sender: TObject);
begin
cjabatan.Items.Add('Direktur');
cjabatan.Items.Add('Manager');
cjabatan.Items.Add('Karyawan');
end;
Program untuk mencari gaji pokok
1. Aktifkan combo box untuk jabatan
2. Pada pada jendela properties pilih event,
3. pilih dan aktifkan onclick, Seperti yang terlihat seperti gambar berikut ini.
4.
5. Double click pada combo onclick.
6. Ketikan program berikut ini
procedure TForm3.cjabatanClick(Sender: TObject);
begin
if cjabatan.Text = 'Direktur' then
epokok.Text := '5000000'
else
if cjabatan.Text = 'Manager' then
epokok.Text := '2000000'
else
if cjabatan.Text = 'Karyawan' then
epokok.Text := '1000000'
else
epokok.Text := '0'
end;
Program menghitung Tunjangan Karyawan Tetap
Double click pada option tetap dan ketikan program berikut ini
procedure TForm3.etetapClick(Sender: TObject);
begin
if etetap.Checked = true then
a := strtofloat(epokok.Text);
hasil :=a*0.3;
etunjangan.Text := floattostr(hasil)
end;
Program menghitung Tunjangan Karyawan Honorer
Double click pada option honorer dan ketikan program berikut ini
procedure TForm3.rhonorerClick(Sender: TObject);
begin
if rhonorer.Checked = true then
a := strtofloat(epokok.Text);
hasil :=a*0.1;
etunjangan.Text := floattostr(hasil)
end;
Program menghitung Gaji Bersih
Double click pada command total gaji, dan ketikan program berikut ini :
procedure TForm3.btotalClick(Sender: TObject);
begin
a := strtofloat(epokok.Text);
b := strtofloat(etunjangan.Text);
c := a+b;
ebersih.Text := floattostr(c);
end;
Program bersih
Double click pada Isi Data Lagi, dan ketikan program berikut ini
procedure TForm3.blagiClick(Sender: TObject);
begin
cjabatan.Text := 'Jabatan';
enama.Text := '';
ebersih.Text := '0';
etunjangan.Text := '0';
epokok.Text := '0';
etetap.Checked := false;
rhonorer.Checked := false;
end;
Program Close dengan pesan, seperti tampilan sebagai berikut.
Gambar 3.3 Form Pesan
procedure TForm3.bcloseClick(Sender: TObject);
begin
if (application.MessageBox('Anda Yakin akan keluar','Informasi',MB_YESNO)= IDYES)then
close
end;
3.4. Program Biaya Ujian
Buatlah program untuk mencari biaya ujian untuk calon siswa pada suatu perguruan tinggi.
Tampilan yang diinginkan adalah sebagai berikut
Ketentuan Pencarian Biaya
1. Nilai murni didapat dari penjumlahan (nilai Prkatek * 60%) ditambah (Nilai Teori * 40 %).
2. Keterangan = Gagal jika nilai murni < 60 dan dinyatakan lulus jika nilai murni >= 60
3. Biaya perjurusan diperoleh dari dua pilihan jurusan yang ada:
1. jika pilhan MI maka biayanya = 250000
2. jika pilihan TK maka biaya = 300000
4. Pilihan Biaya Waktu Ujian diperoleh dari 2 waktu kuliah yang ada.
Jika pilihan pagi maka biaya kuliah = 50000, 1000000 untuk biaya kuliah malam.
5. Total biaya diperoleh dari penjumlahan Semua jurusan ditambah biaya waktu kuliah.
6. Isi data lagi untuk mengulang input data
7. close untuk mentup program.
