Contoh Program Percabangan Delphi

Dalam kesempatan ini, saya akan sharing tentang pemrograman menggunakan Delphi7. Dan materi kali ini adalah percabangan. Lebih tepatnya program untuk mengecek Nilai.. Nggak usah lama lama langsung saja lihat tutorial dibawah ini;

Pertama Buatlah Form seperti dibawah ini:

Setelah itu double click pada button cek, terus isikan syntax seperti dibawah ini :

procedure TForm1.ProsesClick(Sender: TObject);

var nilai : real;

begin

nilai:=StrToFloat(Edit1.Text);

if nilai>80 then

Edit2.Text:='A'

else

if nilai>60 then

Edit2.Text:='B'

else

if nilai>40 then

Edit2.Text:='C'

else

if nilai>15 then

Edit2.Text:='D'

else

Edit2.Text:='E'

end;

Setelah itu kembali ke form, dan double click lagi pada button delete, terus masukkan syntax dibawah ini:

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

end;

setelah itu double click pada button exit, dan isikan syntax dibawah ini;

procedure TForm1.Button2Click(Sender: TObject);

begin

Application.Terminate;

end;

setelah itu RUN.....

Selamat mencoba...semoga bermanfaat.....