Jannah Theme License is not validated, Go to the theme options page to validate the license, You need a single license for each domain name.
DelphiPemrograman

Logika Percabangan Case dengan Delphi #29

kopi hitam tanpa gula akan berasa pait

andrypein.net : Jika kemarin mengenai postingan If dalam delphi dalam bentuk yang sederhana maka kali ini saya kasih contoh tentang percabangan case dengan delphi nya.

untuk formnya samakan saja yang dibedakan hanya listing program nya saja.

percabangan case dengan delphi
penampakan form

dan ini untuk listing programnya untuk event button1 click.

procedure TForm1.Button1Click(Sender: TObject);
var ket:string;
    nilai:integer;
begin
 nilai:=StrToInt(edit2.Text);
 ket:=edit3.Text;
 case nilai of
  90..100:ket:='A';
  80..89:ket:='B';
  70..79:ket:='C';
  60..69:ket:='D';
  50..59:ket:='E';
  else
    messageDlg('Pengisian tidak valid',mtWarning,[mbOK],0);
    edit2.SetFocus;
  end;
 edit3.Text:=ket;
 edit3.Enabled:=false;
end;

Gimana? mudah kan,,,,
intinya bisa pascal tentu Delphi pun akan mudah.

Sekian artikel pembahasan percabangan case dengan delphi, semoga bermanfaat.

(AFK*)

Related Articles

7 Comments

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button