kita pribadi aja yah semoga gak lama2 hehehe kektabuk wkwkwkwkw
Contoh Perulangan If
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:
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