Belajar Belajar Belajar Belajaaaaaaaarrrrrr........ Dan Sukses.......

Kamis, 18 Oktober 2012

Contoh aplikasi Sederhana Perhitungan nilai mahasiswa menggunakan Delphi 7


  Kalo mau dunlut filenya silahkan disini
Ini adalah codingnya;

var ab,hr,tg,ut,ua,hasil : real;
begin
 ab:=strtofloat(edit1.Text);
 hr:=strtofloat(edit2.Text);
 tg:=strtofloat(edit3.Text);
 ut:=strtofloat(edit4.Text);
 ua:=strtofloat(edit5.Text);
 if ab>14 then
    begin
    MessageDlg('Maksimal 14 Pertemuan',mtInformation,[mbOK],0);
    edit1.Text:='';
    edit1.SetFocus;
    end
    else
    begin
    hasil:=(ab*0.32)+(hr*0.1)+(tg*0.1)+(ut*0.25)+(ua*0.5);
    edit6.Text:=floattostr(hasil);

        if hasil>80 then
          edit7.Text:='A'
        else if hasil>70 then
          edit7.Text:='B'
        else if hasil>60 then
          edit7.Text:='C'
        else if hasil>50 then
          edit7.Text:='D'
        else edit7.Text:='E';
    end;
end;

Tidak ada komentar:

Poskan Komentar