Caption Name Deskripsi
Program
Menghitung Nilai label5 Judul
NPM label1 NPM
Nama label2 Nama
Nilai Akhir label3 Nilai Akhir
Grade label6 Grade
Keterangan label7 Keterangan
- Edit1 EditBox NPM
- Edit2 EditBox Nama
- Edit3 EditBox Nilai Akhir
- Edit4 EditBox Grade
- Edit5 EditBox Keterangan
Mulai Button1 Tombol Mulai
Proses Button2 Tombol Proses
Selesai Button3
Tombol Selesai
Setelah membuat layout yang sesuai pada gambar, selanjutnya Klik tombol Proses kemudian ketikan syntax berikut:
procedure TForm1.Button2Click(Sender: TObject);
var
na:real;
grade:string;
ket:string;
begin
na:=strtofloat(edit3.Text);
if na <=20 then begin
grade:='E';
ket:='MENGULANG';
edit5.Text:=ket;
edit4.Text:=grade;
end
else if na<=50 then begin
grade:='D';
ket:='TIDAK LULUS';
edit5.Text:=ket;
edit4.Text:=grade;
end
else if na<=60 then begin
grade:='C';
ket:='LULUS';
edit5.Text:=ket;
edit4.Text:=grade;
end
else if na<=70 then begin
grade:='B';
ket:='LULUS';
edit5.Text:=ket;
edit4.Text:=grade;
end
else if na<=95 then begin
grade:='A';
ket:='LULUS';
edit5.Text:=ket;
edit4.Text:=grade;
end
end;
Next, Klik tombol Selesai kemudian ketikan syntax ini:
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
Terakhir, Save dan Run program !!! Mudahkan J
Ohiya mimin juga sediain nih softcopynya, , tinggal
download disini aja. buat temen-temen yang udah putus asa karena programnya error. :D
Sekian dulu tutor kali ini, untuk kurang lebihnya mohon maaf . Semoga dapat
bermanfaat buat tugas kamu ya !
Belum ada tanggapan untuk "Program Sederhana Menghitung Nilai Mahasiswa di Delphi"
Posting Komentar