LINKIN PARK - Somewhere I Belong Parodi

Ini adalah video iseng-iseng........

Program Hitung Nilai Akhir Mahasiswa

Halo....kawan kawan semua berikut saya bagikan sedikit ilmu tentang delphi 7........Pada kesempatan ini saya akan membahas tentang pernitungan nilai akhir Mahasiswa........

1. Buka Borland Delphi 7 anda dan desain form seperti ini...
     
   2.  Ketikkan kde berikut ini di tombol hitung.....
   
   
   procedure TForm1.BtnhitungClick(Sender: TObject);
   var nAbsen, nTugas, nMID, nUAS, nAKHIR : Real;
   Grade : String;
   begin
     nAbsen := StrToFloat(EditNilaiAbsen.Text) * 0.1;
     nTugas := StrToFloat(EditNilaiTugas.Text) * 0.2;
     nMID := StrToFloat(EditNilaiMID.Text) * 0.3;
     nUAS := StrToFloat(EditNilaiUAS.Text) * 0.4;
     nAKHIR := nAbsen + nTugas + nMID + nUAS;
     EditNilaiAkhir.Text := FloatToStr(nAKHIR);
   
     if nAKHIR > 80 then
     EditGrade.Text := 'A'
     else if nAKHIR > 71 then
     EditGrade.Text := 'B'
     Else if nAKHIR > 62 then
     EditGrade.Text := 'C'
     else if nAKHIR > 52 then
     EditGrade.Text := 'D'
     else
     EditGrade.Text := 'E';
   
   end;
   
   Selamat Mencoba....