Membuat Program Inputan Mahasiswa dengan Delphi

PROGRAM INPUT MAHASISWA DENGAN DELPHI

Buatlah tampilan seperti pada gambar di bawah ini
yang di butuh kan adalah : edit , label dan groupbox

Untuk Kode Button SUBMIT:
 var
a,b:integer;
c:string;
d:real;
procedure TForm1.Button1Click(Sender: TObject);
begin
label15.caption:=edit1.Text;
label16.caption:=edit2.text;
c:=copy(edit2.text,1,1);

if c='1' then label17.caption:='SI-SI'
else if c='2' then label17.caption:='SI-TK'
else if c='3' then label17.Caption:='D3-MI'
else label17.caption:='D3-SK';
c:=copy(edit2.text,3,1);
if c='4' then label18.caption:='Dari Awal'
else if c='7' then label18.caption:='Transfer Luar'
else if c='8' then label18.caption:='Aktif kembali'
else label18.caption:='Transfer dalam';
a:=strtoint(copy(edit2.Text,4,2));
if (a>0) and (a<78) then b:=a+2000 else b:=a+1900;
label19.caption:=inttostr(b);
label20.caption:=edit3.Text;
label21.caption:=edit4.text;
d:=(strtofloat(edit3.Text) + strtofloat(edit4.text))/2;
label23.caption:=floattostr(d);
if d<=45 then label22.caption:='E';
if d>45 then label22.caption:='D';
if d>59 then label22.caption:='C';
if d>64 then label22.caption:='B';
if d>74 then label22.caption:='A';
if (label22.caption='A') or (label22.caption='B') or (label22.caption='C') then
label24.caption:='LULUS'
else label24.caption:='TIDAK LULUS';
end;

Untuk Kode Button RESET:
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.clear;
edit2.clear;
edit3.clear;
edit4.clear;
label15.Caption:=' ';
label16.caption:=' ';
label17.caption:=' ';
label18.caption:=' ';
label19.caption:=' ';
label20.caption:=' ';
label21.caption:=' ';
label22.caption:=' ';
label23.caption:=' ';
label24.caption:=' ';
end;

Untuk Kode Button EXIT:
procedure TForm1.Button3Click(Sender: TObject);
begin
application.Terminate;
end;

Kalau sudah di save dan di run.
Contoh Hasilnya: