IF TUNGGAL DALAM DELPHI

IF TUNGGAL DALAM DELPHI

proses:

procedure TForm11.Button1Click(Sender: TObject);

var

nilai : byte;

huruf :char;

begin

  nilai := StrToInt(Edit1.Text);

  if nilai <=40 then huruf :='E'

  else if nilai <=55 then huruf :='D'

   else if nilai <=70 then huruf :='C'

    else if nilai <=85 then huruf :='B'

     else huruf :='A';

     Edit2.Text:=huruf;

end;

Bersih

procedure TForm11.Button2Click(Sender: TObject);

begin

Edit1.Text :='';

Edit2.Text :='';

Edit1.SetFocus;

end;

keluar

procedure TForm11.Button3Click(Sender: TObject);

begin

close

end;