PERTEMUAN 4 PERCABANGAN IF DAN CASE

Percabangan (penyeleksian kondisi) merupakan operator yang digunakan untuk menentukan pilihan terhadap beberapa pilihan yang ada.

1. Percabangan IF

a.  Stuktur IF Tunggal

If Syarat then hasil;

If  nilai>80 then keterangan=’Lulus’;

b.  Struktur IF majemuk

If Syarat1 then             

Hasil1                            

Else                           

If Syarat2 then             

Hasil2                        

Else                             

...................               

...................               

end;

2. Percabangan Case

Struktur :                                           Struktur :                      

Case <variabel> of                              Case  <variabel> of

          <pilihanke1>; hasil1;                <pilihanke1>; hasil1;

          <pilihanke2>; hasil2;                <pilihanke2>; hasil2;

          <pilihanke3>; hasil3;                <pilihanke3>; hasil3;

          ..................................              ..................................

          <pilihanke4>; hasiln;                else

end;                                                   hasiln;

                                                          end;

Catatan :

1.    Nilai harus berupa data ordinal (bilangan bulat, karakter, atau boolean)

2.    Tipe data string dan real tidak bisa digunakan

3.    Bagian else digunakan jika nilai tidak terpenuhi pada salah satu kondisi diatasnya.

                   

1.   Design Form       


                                    
2. Ketentuan : 

JABATAN	GAJI POKOK
Direktur	5000000
Manager	3000000
Karyawan	1000000

3.   Listing program

procedure TForm2.FormCreate(Sender: TObject);

begin

cjabatan.Items.Add('Direktur');

cjabatan.Items.Add('Manager');

cjabatan.Items.Add('Karyawan');

end;

Ø  Untuk mencari gaji pokok

1.    Aktifkan combobox untuk jabatan

2.   Pada jendela properties pilih event, pilih dan aktifkan onclick

3.    Double klik pada combo onclick

4.    Ketikkan listing berikut :

procedure TForm2.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;

Ø  Untuk menghitung Tunjangan Karyawan

procedure TForm2.rtetapClick(Sender: TObject);

var

a,hasil:real;

begin

if rtetap.Checked=true then

a:=strtofloat(epokok.Text);

hasil:=a*0.3;

etunjangan.Text:=floattostr(hasil)

end;

procedure TForm2.blagiClick(Sender: TObject);

begin

cjabatan.Text:='Jabatan';

enama.Text:='';

ebersih.Text:='0';

etunjangan.Text:='0';

epokok.Text:='0';

rtetap.Checked:=false;

rhonorer.Checked:=false;

end;

procedure TForm2.rhonorerClick(Sender: TObject);

var

a,hasil:real;

begin

if rhonorer.Checked=true then

a:=strtofloat(epokok.Text);

hasil:=a*0.1;

etunjangan.Text:=floattostr(hasil)

end;

Ø  Menghitung gaji bersih

procedure TForm2.btotalClick(Sender: TObject);

var

a,b,c:real;

begin

a:=strtofloat(epokok.Text);

b:=strtofloat(etunjangan.Text);

c:=a+b;

ebersih.Text:=floattostr(c);

end;

PERCABANGAN CASE                Gunakan objek RadioGroup dan rubah :

  - ItemIndex= 0

  - Items = Jakarta, Yogyakarta, Surabaya

procedure TForm3.BcariClick(Sender: TObject);

begin

case radiogroup1.ItemIndex of

0:eharga.Text:='10000';

1:eharga.Text:='15000';

2:eharga.Text:='20000';

else

eharga.Text:='0';

end

LATIHAN :        

                            Ketentuan Soal :

Kode Dokter	Nama Dokter	Spesialis	Biaya Periksa
DRJ01	PRIANTI	Jantung	2000000
DRA02	RAMADHANI	Anak	150000
DRM03	NIA	Mata	1000000

Gunakan Fungsi IF

Total bayar : harga obat + biaya periksa

Uang bayar diinput, uang kembali muncul otomatis.

Sumber www.khnbsi.blogspot.com

PERTEMUAN 3 Lab G

Operator String

1.   Design Form

2.   Listing Program

procedure TForm1.bgabungClick(Sender: TObject);

var

depan:string[20];

tengah:string[20];

blkg:string[20];

gabung:string[80];

begin

depan:=edepan.Text;

tengah:=etengah.Text;

blkg:=eblkg.Text;

gabung:=depan+' '+tengah+' '+blkg;

elengkap.Text:=gabung;

end;

procedure TForm1.bhitungClick(Sender: TObject);

var

nama:string;

begin

nama:=elengkap.Text;

elength.Text:=inttostr(length(nama));

end;

procedure TForm1.bhapusClick(Sender: TObject);

var

karakter:string;

pos,jumlah:integer;

begin

karakter:=elengkap.Text;

pos:=strtoint(eurut.Text);

jumlah:=strtoint(ejml.Text);

delete(karakter,pos,jumlah);

ehasil.Text:=karakter;

end;

procedure TForm1.bkeluarClick(Sender: TObject);

begin

close;

end;

PERTEMUAN 1 & 2 BORLAND DELPHI Lab L

A.       Mengaktifkan Delphi

Start => All Programs => Pilih Borland Delphi 7 => Pilih Delphi 7

Akan tampil Jendela Utama Delphi seperti dibawah ini :

B.  Komponen Pallete

C.       Merancang Form

LATIHAN 1

1.     Desain Form seperti di bawah ini

2.      Ubah Propertiesnya pada Object Inspector

Object	Name	Caption
Label1	Label1	PROGRAM PERKENALAN
Label2	Label2	Nama :
Label3	Label3	Alamat :
Edit1	Enama	Text : (Hapus aja)
Edit2	Ealamat	Text : (Hapus aja)
Button1	Bkenal	&Kenal
Button2	Bclose	&Close

3.    Isikan Listing berikut ini

procedure TForm1.BkenalClick(Sender: TObject);

begin

  enama.Text:='Nama Kalian';

  ealamat.Text:='Alamat Kalian';

end;

LATIHAN 2
Penggunaan operator aritmatika pada Delphi 

Object	Name	Caption
Label1	Label1	Program Pengenalan  Dasar  Operator dalam Delphi
Label2	Label2	Nilai 1
Label3	Label3	Nilai 2
Label4	Label4	HasiL
Edit1	Enil1
Edit2	Enil2
Edit3	Enil3
Button1	bkali	x
Button2	bbagi	/
Button3	btambah	+
Button4	bkurang	-
Button5	bdiv	div
Button6	bmod	mod
Button7	bbersih	&Bersih
Button8	bkeluar	&Keluar

Listing Program :

1. procedure TForm2.bbersihClick(Sender: TObject);

begin

enil1.Text:='';

enil2.Text:='';

enil3.Text:='';

end;

2. procedure TForm2.bkaliClick(Sender: TObject);

var

  a,b,c:real;

begin

  a:=strtofloat(enil1.Text);

  b:=strtofloat(enil2.Text);

  c:=a*b;

  enil3.Text:=floattostr(c);

end;

3. procedure TForm2.bbagiClick(Sender: TObject);

     var

  a,b,c:real;

begin

  a:=strtofloat(enil1.Text);

  b:=strtofloat(enil2.Text);

  c:=a/b;

  enil3.Text:=floattostr(c);

end;

4. procedure TForm2.btambahClick(Sender: TObject);

     var

a,b,c:integer;

begin

a:=strtoint(enil1.Text);

b:=strtoint(enil2.Text);

c:= a+b;

enil3.Text:=inttostr(c);

end;

5. procedure TForm2.bkurangClick(Sender: TObject);

begin

    enil3.Text:=floattostr(strtofloat(enil1.Text)-strtofloat(enil2.Text));

end;

6. procedure TForm2.bdivClick(Sender: TObject);

var

a,b,c:integer;

begin

a:=strtoint(enil1.Text);

b:=strtoint(enil2.Text);

c:= a div b;

enil3.Text:=inttostr(c);

end;

7. procedure TForm2.bmodClick(Sender: TObject);

            var

a,b,c:integer;

begin

a:=strtoint(enil1.Text);

b:=strtoint(enil2.Text);

c:= a mod b;

enil3.Text:=inttostr(c);

end;

end.

8. procedure TForm2.bkeluarClick(Sender: TObject);

begin

if(application.MessageBox('Yakin Anda akan   keluar dari program?','Informasi',

MB_YESNO)=IDYES)then

close

             end;

end.

Latihan 3

Objek	Name	Caption
Edit1	Eabsen
Edit2	Etugas
Edit3	Euts
Edit4	Euas
Edit5	Emurni
Button1	Bhitung	&Hitung
Button2	Bbersih	&Bersih
Button3	Bkeluar	&Keluar

Ketentuan Soal:

1.Nilai Murni : Absensi 10%+Tugas 20%+UTS 30%+UAS 40%

2.Jika Button Keluar di klik maka akan tampil pesan berikut :