Delphi – If bertingkat


Soal

Buat program menghitung Nilai matakuliah PBO, dengan input: Kehadiran, Tugas, Quis, UTS dan UAS. Dengan bobot sebagai berikut:

Penilaian Bobot
Kehadiran 10%
Tugas 20%
Quis 20%
UTS 25%
UAS 25%

Pada sesi Pemrograman Berorientasi Obyek diberikan contaoh latihan Pernyataan IF Bertingkar

Buat program menghitung Nilai matakuliah PBO, dengan input: Kehadiran, Tugas, Quis, UTS dan UAS. Dengan bobot sebagai berikut:

Penilaian Bobot
Kehadiran 10%
Tugas 20%
Quis 20%
UTS 25%
UAS 25%

Keluaran berupa nilai angka dan nilai huruf dengan ketentuan sebagai berikut:

Angka Huruf
<20 E
<30 D
<35 C-
<40 C
<50 C+
<60 B-
<70 B
<80 B+
<90 A-
>90 A

Desain Form

Desain Form - Peletakan Control

Desain Form – Peletakan Control

Desain Form - Setelah pengaturan properti

Desain Form – Setelah pengaturan properti

Source Code

procedure TForm1.Button1Click(Sender: TObject);
Var Kehadiran, Tugas, Kuis, UTS, UAS, Angka : real;
    Huruf: String;
begin
    //ambil nilai Kehadiran, Tugas, Kuis, UTS, UAS
    Kehadiran:=StrToFloat(Edit1.Text);
    Tugas:=StrToFloat(Edit2.Text);
    Kuis:=StrToFloat(Edit3.Text);
    UTS:=StrToFloat(Edit4.Text);
    UAS:=StrToFloat(Edit5.Text);
    //Hitung nilai angka
    Angka:= Kehadiran*0.1+Tugas*0.2+Kuis*0.2+0.25*UTS+0.25*UAS;
    //Hitung nilai huruf
    if Angka < 20 then
       Huruf:='E'
    else if Angka < 30 then
       Huruf:='D'
    else if Angka < 35 then
       Huruf:='C-'
    else if Angka < 40 then
       Huruf:='C'
    else if Angka < 50 then
       Huruf:='C+'
    else if Angka < 60 then
       Huruf:='B-'
    else if Angka < 70 then
       Huruf:='B'
    else if Angka < 80 then
       Huruf:='B+'
    else if Angka < 90 then
       Huruf:='A-'
    else
       Huruf:='A';
    //Tampilkan nilai angka dan huruf
    Edit6.Text := FloatToStr(Angka);
    Edit7.Text := Huruf;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   //Kosongkan edit1 sd edit7
   Edit1.Text:= '';
   Edit2.Text:= '';
   Edit3.Text:= '';
   Edit4.Text:= '';
   Edit5.Text:= '';
   Edit6.Text:= '';
   Edit7.Text:= '';
   //Kembalikan kursor ke Edit1
   Edit1.SetFocus;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Close;
end;

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s