apliaksi penhgitung grade mahasiswa

kali ini saya akan berbagi pengalaman di blog saya, design from seperti gambar dia atas. design terserah sesuai denagn selera dan kreativitas masing-masing,,.

dan ini source listing programnnya :

double klik tombol hitung lalu ketikan yang dibawah ini, (copy paste azzaa gar cepet )

procedure TForm1.BitBtn1Click(Sender: TObject);

VAR

UTS1,uts2,uas,na:real;

b1,b2,b3:real;

grade:string;

begin

uts1:=strtofloat(edit1.Text);

uts2:=strtofloat(edit2.Text);

uas:=strtofloat(edit3.Text);

b1:=strtofloat(edit4.Text)/100;

b2:=strtofloat(edit5.Text)/100;

b3:=strtofloat(edit6.text)/100;

na:=uts1*b1+uts2*b2+uas*b3;

if (na>=70) and (na <80) then

grade:= 'A'

else if(na >=60) and (na <70) then

grade :='B'

else if (na>=50) and (na <60) then

grade:='D'

else

grade:='E';

edit7.Text:=floattostr(na);

edit8.Text:=grade;

end;

ini buat tombol selesai

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

close;

end;

end.

ok selesai lalu run!!!!!!!!!!

semoga bermanfaaat dan sukses