Wednesday, 1 February 2017T2/01/2017 04:27:00 am

PENGGUNAAN IF THEN ELSE DI DELPHI

Salam blogger….pada postingan kali ini saya akan share cara penggunaan logika if then else di Delphi. Dalam sebuah pemprograman Delphi ada dua kelompok pernyataan pilihan yaitu if dan case, nah yang saya bahas kali ini adalah dengan menggunakan if. Struktur if then dan if then else dipakai untuk menyatakan percabangan bersyarat, artinya jika syarat terpenuhi pada bagian then maka akan di laksanakan, jika tidak maka pada bagian else akan dilaksanakan.

Berikut ini adalah bentuk umum penulisan struktur fungsinya :
- Bentuk umum If Then else
  IF (ekspresi logika)
  Then (pernyataan);
  Else (pernyataan);
 Ekspresi logika merupakan suatu percabanngan yang hanya dapat bernilai benar (true) atau salah(False). Untuk dapat membandingkan nilai diatas maka diperlukan operator pembanding. Berikut in adalah operator pembanding beserta artinya yang digunakan dalam pemprograman Delphi :
 -  > artinya lebih besar
 -  < artinya lebih kecil
 -  = artinya sama dengan
 - >= artinya lebih besar sama dengan
 - <= artinya lebih kecil sama dengan
 - <> artinya tidak sama dengan

Sekarang kita akan membuat penggunaan if then else sederhana di Delphi, pertama tama buka project baru di Delphi, pada form nya tambahkan komponen berikut :
-    3 buah label
-    3 buah edit text
-    3 buah button
Selanjutnya design tampilan form nya seperti pada gambar di bawah ini :
Jika sudah lalu ganti caption 3 buah label di atas dengan “Nama”, “Nilai”, dan “keterangan”. Selanjutnya pada edit text kosongkan nilai text nya, lalu pada button 1 2 dan 3 ganti caption nya dengan New, Proses dan close. Pada edit text2 tambahkan coding pada even OnKeyPress dengan coding program dibawah ini :
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not  (key in['0'..'9']) then
begin
key :=#0;
MessageDlg('Nilai dimasukan harus angka !!!',mtError,[mbOK],0);
edit1.Clear;
edit1.SelectAll
end;
end;


Lalu pada button New klik 2x dan tambahkan coding program berikut :
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit1.SetFocus;
edit3.enable:=false;
end;


Lalu pada button Proses klik 2x dan tambahkan coding program berikut :
procedure TForm1.Button2Click(Sender: TObject);
var
nilai:integer;
ket:string;
begin
nilai:=strtoint(edit2.Text);
if nilai >= 70 then
ket:='Lulus'
else
ket := 'Tidak Lulus';
edit3.Text :=ket;
edit3.enable:=false;
end;


Lalu pada Button Close Proses klik 2x dan tambahkan coding program berikut :
procedure TForm1.Button3Click(Sender: TObject);
begin
if Application.MessageBox('Anda Yakin Ingin Keluar form ?','Informasi',MB_ICONINFORMATION+MB_YESNO)=IDYES
then
application.Terminate;
end;

lalu pada form1 di event OnShow tambahkan koding program berikut :
procedure TForm1.FormShow(Sender: TObject);
begin
edit3.Enabled:=false;
end;


Jika sudah selesai membuat koding program nya diatas, maka sekarang sobat tinggal menjalankan program tersebut dengan cara menekan F9/Run. lalu input Nama dan Nilai, lalu tekan button proses. Maka lihat hasilnya, pada program diatas jika nilai yang sobat inputkan lebih dari 69 maka keterangan nya “lulus”. Sebaliknya jika nilai yang di input kurang dari 70 maka keterangan nya “Tidak Lulus”.

Demikian artikel saya tentang cara penggunaan if then else di Delphi yang dapat saya share kali ini, semoga dapat bermanfaat dan dapat menambah wawasan bagi sobat semua dan selamat mencoba.
Previous
Next Post »
0 Komentar untuk "PENGGUNAAN IF THEN ELSE DI DELPHI"

Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi

Terima Kasih Sudah Berkomentar

PENDAPAT ANDA TENTANG BLOG INI ?

Follow by Email

 
Copyright © 2014 uduy macal blog's - All Rights Reserved
Template By Kuncidunia
DMCA.com Protection Status