Wednesday, 1 February 2017T2/01/2017 08:47:00 pm

PENGGUNAAN CASE OF DI DELPHI

Salam blogger….pada postingan saya kali ini saya akan share cara penggunaan case of di Delphi. Case of pada pemprograman Delphi adalah perintah untuk melakukan pemilihan data dari beberapa pilihan, secara umum kegunaan dari case of sama dengan if then else, perbedaan nya pada case of data yang dipilih harus berupa numeric, berbeda dengan perintah pada if then else yang dapat kita masukan sembarang tipe data, namun pada case of  mempunyai kelebihan yaitu pada data yang mempunyai jangkauan tertentu. Contoh struktur sintax case :
Case expresi of
  Caselist1 statement1;
  …
  Caselistn statement;
  End
Kali ini kita akan membuat penggunaan case of di Delphi, langkah pertama yang harus kita lakukan adalah membuat sebuah project baru di Delphi, lalu selanjutnya tambahkan komponen berikut di form yang kita buat sebelumnya :
 - 4 buah label
 - 1 buah edit text
 - 3 buah button
Lalu selanjutnya design formnya seperti pada gambar dibawah ini :
Pada edit text1 kosongkan text nya, cara nya pada object inspector pilih text lalu hapus tulisan edit1 . masih pada edit text1 pada even OnkeyPress masukan koding dibawah ini :
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not  (key in['0'..'9']) then
begin
key :=#0;
MessageDlg('Usia yang dimasukan harus angka !!!',mtError,[mbOK],0);
edit1.Clear;
edit1.SetFocus;
end;
end;

Fungsi koding diatas adalah hanya memperbolehkan angka yang dapat diinputkan pada edittext1. Lalu pada label1 dan label 3 dan label4 ubah caption nya menjadi “Input Usia” , “kriteria” dan “Tahun”. Sedangkan pada label2 biarkan saja tanpa diubah captionnya. Lalu pada button1, button2 dan button3 ubah caption nya menjadi “Proses”, “Clear” dan “Close”.

Pada button proses klik 2 kali lalu masukan koding program berikut :
procedure TForm1.Button1Click(Sender: TObject);
var
usia :integer;
begin
if not(edit1.Text <>'') then
begin
Application.MessageBox('Nilai usia belum di input','Peringatan',
mb_Ok + Mb_IconExclamation);
edit1.SetFocus;
exit;
end;
usia:=strtoint(edit1.Text);
case usia of
0..5: label2.Caption:='Balita';
6..10: label2.Caption:='Anak - Anak';
11..20: label2.Caption:='Remaja';
21..40: label2.Caption:='Dewasa';
41..60: label2.Caption:='Orang Tua';
61..100: label2.Caption:='Lanjut Usia';
else
label2.Caption:='Umur anda Panjang';
end;
end; 

Pada button Clear klik 2 kali lalu masukan koding program berikut :
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:='';
label2.Caption:='';
edit1.SetFocus;
end;

Pada button Close klik 2 kali lalu masukan koding program berikut :
procedure TForm1.Button3Click(Sender: TObject);
begin
if Application.MessageBox('Anda Yakin Ingin Keluar ?','Informasi',MB_ICONINFORMATION+MB_YESNO)=IDYES
then
application.Terminate;
end;

Lalu pada form 1 event Onshow tambahkan koding berikut :
procedure TForm1.FormShow(Sender: TObject);
begin
label2.Caption:='';
end;

Sampai disini proses pembuatan program case of selesai, langkah selanjutnya sobat tinggal menjalankan program nya dengan cara menekan F9/RUN. lalu masukan nilai usia dan tekan button proses. Demikian postingan yang dapat saya share kali ini tentang cara penggunaan case of di Delphi, semoga dapat bermanfaat dan selamat mencoba.
Previous
Next Post »
0 Komentar untuk "PENGGUNAAN CASE OF 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