Buatlah Form seperti dibawah ini :
Kemudian masukan kode dibawah kedalam button Hitung.
procedure TForm1.Button1Click(Sender: TObject);
var
Nilai : Integer;
begin
Nilai :=StrToInt(ENilai.Text);
Case Nilai Of
100 : ShowMessage('Selamat Anda Lulus Dengan Nilai SEMPURNA');
80 .. 99 : ShowMessage('Selamat Anda Lulus Dengan Sangat Baik');
50 .. 79 : ShowMessage('Selamat Anda Lulus Dengan Cukup Baik');
Else
ShowMessage('Nilai Anda Kurang, Anda Tidak Lulus');
End;
end;
Button
Close dengan kode dibawah :
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
Kemudian
Run dan
masukan nilainya kemudian klik
Hitung, maka tampilannya akan seperti ini :
ADS HERE !!!
