Kamis, 14 April 2011

Logika IF (DELPHI) yang sederhana

Setelah posting kemarin mengenai statemen pemilihan yang membahas if dan case,sekarang kita praktekan pada delphi dengan contoh sederhananya.. ,,,
okelah sekarang kita mulai saja okeh okeh.
kita bentuk formnya seperti kaya gini


untuk tombol keluar
cukup ketikan close; saja pada scriptnya
dan untuk tombol new scriptnya
edit1.text:='';
edit2.text:='';
edit3.text:='';
edit1.setfocus;
dan untuk tombol proses
scriptnya kaya gini
procedure TForm1.Button1Click(Sender: TObject);
var
nilai:integer;
ket:string;
begin
nilai:=strtoint(edit2.Text);
if nilai > 85 then
  ket:='lulus'
else
  ket:='tidak lulus';
edit3.Text:=ket;
edit3.enabled:=false;
end;

1 komentar:

  1. makasi ya ,, ini sangat bermanfaat bagi saya.. ada tugas kampus delphi yang mana saya adalah pemula ,, heheh
    salam kenal :D

    BalasHapus