SPONSOR

Jumat, 13 Agustus 2010

BAG III Percabangan

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.


0 komentar:

Posting Komentar