Contoh penerapan program Logika Case dengan delphi 7.0

Subscribe robby yuli endra channel | 1 comment
Contoh penerapan program Logika Case dengan delphi 7.0 - Logika Case merupakan alternatif yang lebih mudah dibaca dari pada if yang lebih kompleks, fungsi logika case sama dengan logika if yang juga digunakan untuk menyelesaikan persoalan, pada artikel kali ini saya akan mencontohkan penggunaan logika case pada delphi 7.0.

Contoh penerapan program Logika Case dengan delphi 7.0

Statment Case

Case Parameter of
kondisi 1:keterangan1 ;
.........
kondisi n:keterangan n ;
end;


atau Statment Case menggunakan Else
Case Parameter of
kondisi 1:keterangan1 ;
.........
kondisi n:keterangan n ;
else
Keterangan
end;
Contoh penggunaan dengan Borland Delphi 7.0
  1. Designlah tampilan seperti gambar dibawah ini :

      2. Klik Menu Proses dan Masukkan Source Kode di Bawah ini
procedure TForm1.btnprosesClick(Sender: TObject);
var usia : integer;
begin
usia:=StrToInt(Edusia.Text);
case usia of
  0..5 : LblStatus.Caption:='Balita';
  6..10 : LblStatus.Caption:='Anak-anak';
  11..20 : LblStatus.Caption:='Remaja';
  21..40 : LblStatus.Caption:='Pemuda';
  41..60 : LblStatus.Caption:='Orang tua';
  61..100 : LblStatus.Caption:='Manula';
  else
  LblStatus.Caption :='Anda berumur Panjang';

end;
end;

     3. Dan hasil ketika dijalankan, Ketika di Input 20


Demikian Artikel Singkat dari saya semoga bermanfaat.

Labels: 

Author: Subscribe robby yuli endra channel

Date: Thursday, May 10, 2012

1 comment  | Leave a comment

1 comment to "Contoh penerapan program Logika Case dengan delphi 7.0"

Anonymous 21 December 2012 at 09:15
begin
nilai:=strToint(edit42.Text);
case nilai of
1..40 :edit43.Text:=form21.dbgrid1.Fields[0].AsString;
41..80 :edit43.Text:=form21.dbgrid1.Fields[1].AsString;
81..120 :edit43.Text:=form21.dbgrid1.Fields[2].AsString;
121..180 :edit43.Text:=form21.dbgrid1.Fields[3].AsString;
else
messagedlg('Masukan Data jumlah mahasiswa yang Benar!',mtInformation,[mbOk],0);
edit42.SetFocus;
exit;
end;
gimana caranya agar 1..40,41..80 bisa diambil dari tabel agar bisa diupdate mas

Post a Comment

Silahkan isikan komentar sesuai dengan isi artikel, Jangan memasukan link karena akan dihapus oleh spamfilter karena dianggap Spam. Penulis menerima Saran dan Kritik yang membangun bukan sara ras dan yang lainnya
Kalau ada kritik dan saran bisa kirim ke Email : capt.obbies@gmail.com Terima Kasih sudah berkunjung di blog ini..Salam Istimewa dari www.robbyyuliendra.com