Perulangan If Then Else Pada Delphi

Thursday, July 9, 2015

kita pribadi aja yah semoga gak lama2 hehehe kektabuk wkwkwkwkw

Contoh Perulangan If then else
Pada delphi 7.0

Alur Program 
Pada dasarnya setiap aktivitas aplikasi yang Anda buat akan dijalankan dari baris
aktivitas paling atas hingga paling bawah. Walaupun demikian Anda sanggup menuliskan
percabangan atau pengulangan. Dengan memakai pernyataan percabangan, alur
aktivitas tidak harus dari atas ke bawah tetapi sanggup melompat menuju baris aktivitas
yang lain. Sedangkan dengan memakai pernyataan pengulangan, anda sanggup
menjalankan pernyataan tersebut berulang-ulang. 
Selain itu pada bahasan ini Anda juga mempelajari konsep subrutin yang merupakan
sebuah blok aktivitas yang berisi pernyataan yang sanggup dipanggil. 


Pernyataan Percabangan 
Dengan memakai suatu pernyataan percabangan, alur aktivitas tidak harus dari
atas ke bawah tetapi sanggup melompat menuju baris aktivitas yang lain. Terdapat dua
macam pernyataan percabangan bersyarat yang sanggup digunakan, yaitu if dan case.
 
 Pernyataan IF 
Struktur dari pernyataan (statement) If sanggup If-Then-Else dengan sintaks diagram
sebagai berikut: 
Gambar diagram:

Gambar  Diagram Sintaks Pernyataan IF 

Pernyataan IF-Then 
Bentuk dari struktur If-Then yaitu sebagai berikut: 
If ungkapan Then pernyataan
 
Ungkapan yaitu kondisi yang akan diseleksi oleh pernyataan If. Bila konsisi yang diseleksi
terpenuhi, maka pernyataan yang mengikuti Then akan diproses. Sebaliknya, bila kondisi tidak
terpenuhi, maka yang akan diproses yaitu pernyataan berikutnya.
Berikut ini beberapa rujukan penulisan If-Then-Else
Nilai : Integer; 
Hasil : String; 
Begin 
If Nilai>=60 Then Hasil:=’Lulus’;

Contoh di atas menawarkan kalau variabel Nilai memiliki nilai lebih dari atau sama dengan 60
maka variabel Hasil akan diisi dengan nilai ‘Lulus’.

Var 
Nilai, EDIT1: Integer, 
LABEL2,Hasil : String; 
Begin 
If Nilai>=60 Then Hasil:=’Lulus’ Else Hasil:’Tidak Lulus’ 
IF EDIT1 MOD 2:= 0 THEN LABEL2=’GENAP’ ELSE LABEL2:’GANJIL’

Contoh di atas menawarkan kalau variabel Nilai memiliki nilai lebih dari atau sama dengan 60
maka variabel Hasil akan diisi dengan nilai ‘Lulus’, selain itu variabel Nilai dianggap memiliki
nilai yang kurang dari 60 dan variabel Hasil akan diisi dengan nilai ‘Tidak Lulus’. Contoh di atas
sanggup ditulis dengan bentuk lain ibarat pada aktivitas di bawah ini:

Var 
Nilai : Integer 
Hasil : String; 
Begin 
If Nilai>=60 Then 
Hasil:=’Lulus’ 
Else 
Hasil:’Tidak Lulus’;

Pada rujukan di atas, pernyataan sebelum else tidak perlu diakhiri dengan tanda titik
koma. Bila Anda menambahkan titik koma, Delphi akan menampilkan pesan kesalahan. 
Bila pernyataan yang dituliskan berupa blok pernyataan atau lebih dari satu baris
pernyataan, Anda harus memakai kata kunci begin dan end.

Contoh 

1. Buat Form ibarat di bawah ini
Gambar Desain Form

2. Ganti properti dengan nilai ibarat di bawah ini

3. Masukkan arahan aktivitas berikut untuk Tombol Proses 

Procedure TForm1.Button1Click(Sender:TObject); 
Var 
Nilai : Integer; 
Begin 
Nilai :=StrToInt(Edit1.Text); 
If Nilai >= 60 Then 

Label3.Caption:=’Lulus’ 
Else 
Label3.Caption:=’Tidak Lulus’ 
End;

4. Masukkan arahan aktivitas berikut untuk Tombol Selesai

Procedure TForm1.Button2Click(Sender:TObject); 
Begin
Close;
End;

selesai sudah,,, masih mw projeknya ni gueee kasik :) download