Kondisi Penyeleksian Case–Delphi 7

KONDISI PENYELEKSIAN CASE

Case of adalah merupakan metode lain dari sebuah percabagan, berfungsi sama seperti fungsi if yaitu untuk melakukan seleksi atas beberapa pilihan dengan kondisi sebagai syarat yang harus terpenuhi.

Bentuk Umum fungsi Case Of

Case variable Of

<pilihan ke 1>; hasil1;

<pilihan ke 2>; hasil2;

<pilihan ke 3>;hasil n;

End;

Case variable Of

<pilihan ke 1>; hasil1;

<pilihan ke 2>; hasil2;

else

<pilihan ke 3>;hasil n;

End;

Design Form

procedure TForm4.ListBox1Click(Sender: TObject);

begin

case ListBox1.ItemIndex of

0:

begin

Emakan.Text:=’NASI GORENG’;

Eminum.Text:=’ES TEH MANIS’;

Eharga.text:=’20000′;

Ckirim.Enabled:=true;

Ctempat.Enabled:=true;

end;

1:

begin

Emakan.Text:=’MIE AYAM’;

Eminum.Text:=’ES JERUK’;

Eharga.text:=’25000′;

Ckirim.Enabled:=true;

Ctempat.Enabled:=true;

end;

2:

begin

Emakan.Text:=’AYAM BAKAR’;

Eminum.Text:=’JUS MANGGA’;

Eharga.text:=’30000′;

Ckirim.Enabled:=true;

Ctempat.Enabled:=true;

end;

end;

end;

procedure TForm4.BhitungClick(Sender: TObject);

begin

Etobay.Text:=floattostr((strtofloat(Ejumbel.Text)*strtofloat(Eharga.Text)+strtofloat(Ekirim.Text)));

Eubay.Enabled:=true;

Eubay.SetFocus;

end;

LISTING

private

{ Private declarations }

public

procedure bersih;

procedure nonaktif;

{ Public declarations }

end;

var

Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.bersih;

begin

Ekirim.Text:=’ ‘;

Emakan.Text:=’ ‘;

Eminum.Text:=’ ‘;

Eharga.Text:=’ ‘;

Ejumbel.Text:=’ ‘;

Etobay.Text:=’ ‘;

Eubay.Text:=’ ‘;

Eukem.Text:=’ ‘;

Bhitung.Enabled:=true;

Ckirim.Checked:=false;

Ctempat.Checked:=false;

end;

procedure TForm4.nonaktif;

begin

Ekirim.Enabled:=false;

Emakan.Enabled:=false;

Eminum.Enabled:=false;

Eharga.Enabled:=false;

Ejumbel.Enabled:=false;

Etobay.Enabled:=false;

Eubay.Enabled:=false;

Eukem.Enabled:=false;

Bhitung.Enabled:=false;

end;

procedure TForm4.FormActivate(Sender: TObject);

begin

nonaktif;

bersih;

ListBox1.Enabled:=false;

end;

procedure TForm4.FormCreate(Sender: TObject);

begin

Lbltgl.caption:=formatdatetime(‘dddd, d mmmm yyyy’,date);

Lbljam.Caption:=datetostr(time);

ListBox1.Items.Add(‘PAKET 1’);

ListBox1.Items.Add(‘PAKET 2’);

ListBox1.Items.Add(‘PAKET 3’);

end;

procedure TForm4.BaddClick(Sender: TObject);

begin

bersih;

ListBox1.Enabled:=true;

end;

procedure TForm4.EubayKeyPress(Sender: TObject; var Key: Char);

begin

if (key=#13) then

begin

if strtofloat(eubay.Text)<strtofloat(etobay.text) then

begin

eukem.Text:=floattostr(strtofloat(eubay.Text)-strtofloat(etobay.Text));

Application.MessageBox(‘Uang anda Kurang’,’pesan’,MB_OK+MB_ICONINFORMATION);

End

else

begin

eukem.Text:=floattostr(strtofloat(eubay.Text)-strtofloat(etobay.Text));

Application.MessageBox(‘terima kasih’,’pesan’,MB_OK+MB_ICONINFORMATION);

end;

end;

end;

procedure TForm4.CkirimClick(Sender: TObject);

begin

if Ckirim.Checked=true then

begin

Ctempat.Checked:=false;

Ekirim.Text:=’5000′;

end

else

begin

Ekirim.Text:=’0′;

end;

Ejumbel.Enabled:=true;

Ejumbel.SetFocus;

end;

procedure TForm4.CtempatClick(Sender: TObject);

begin

if Ctempat.Checked=true then

begin

Ckirim.Checked:=false;

Ekirim.Text:=’1000′;

end

else

begin

Ekirim.Text:=’0′;

end;

Ejumbel.Enabled:=true;

Ejumbel.SetFocus;

end;

end.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s