0 Contoh penerapan program Logika Case dengan delphi 7.0

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.

Tweet

Komentar →