Aplikasi Untuk Menghitung Nilai

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 :