Perulangan if then else pada Delphi

kita langsung aja yah biar gak lama2 hehehe kektabuk wkwkwkwkw

Contoh Perulangan If then else
Pada delphi 7.0

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

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

Gambar  Diagram Sintaks Pernyataan IF 

Pernyataan IF-Then 
Bentuk dari struktur If-Then adalah sebagai berikut: 
If ungkapan Then pernyataan
 
Ungkapan adalah 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 adalah pernyataan berikutnya.

Berikut ini beberapa contoh penulisan If-Then-Else

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

Contoh di atas menunjukkan jika variabel Nilai mempunyai 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 menunjukkan jika variabel Nilai mempunyai nilai lebih dari atau sama dengan 60
maka variabel Hasil akan diisi dengan nilai ‘Lulus’, selain itu variabel Nilai dianggap mempunyai
nilai yang kurang dari 60 dan variabel Hasil akan diisi dengan nilai ‘Tidak Lulus’. Contoh di atas
dapat ditulis dengan bentuk lain seperti pada program di bawah ini:

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

Pada contoh 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 menggunakan kata kunci begin dan end.

Contoh 

1. Buat Form seperti di bawah ini

Gambar Desain Form

2. Ganti properti dengan nilai seperti di bawah ini

3. Masukkan kode program 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 kode program berikut untuk Tombol Selesai

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

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