Program Sederhana Menghitung Nilai Mahasiswa di Delphi

Program Sederhana Menghitung Nilai Mahasiswa di Delphi – Hai hai semuaaa kali ini mimin mau bagi tutor nih , yakni membuat program sederhana menghitung nilai mahasiswa di delphi ! Yapps.. langsung to the point aja ya .

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 !