CODING APLIKASI PENGUKUR NILAI

CODING MEMBUAT APLIKASI PENGUKUR NILAI

isi coding ini di bagian kotak di samping ANGKA  & kotak PROSES :

CODING APLIKASI NILAI HURUF


if(StrToFloatDef(Edit1.Text,0)<=100) Then
Begin
Edit2.Text:='A';
Edit3.Text:='ISTIMEWA';
end;
if(StrToFloatDef(Edit1.Text,0)<=79) Then
Begin
Edit2.Text:='B';
Edit3.Text:='MEMUASKAN';
end;
if(StrToFloatDef(Edit1.Text,0)<=74) Then
Begin
Edit2.Text:='C';
Edit3.Text:='CUKUP';
end;
if(StrToFloatDef(Edit1.Text,0)<=64) Then
Begin
Edit2.Text:='D';
Edit3.Text:='KURANG';
end;
if(StrToFloatDef(Edit1.Text,0)<=44) Then
Begin
Edit2.Text:='E';
Edit3.Text:='GAGAL';
end;
if(StrToFloatDef(Edit1.Text,0)<0) Then
Begin
Edit2.Text:='ERORR';
Edit3.Text:='ERORR';
end;