Membuat Inputan IPK menggunakan Delphi
- Buatlah form
- Isikan komponen – komponen berikut pada form :
1. GroupBox
2. Label1
3. Label2
4. Edit1
5. Bitbtn1 = OK
6. Bitbtn2 = Retry
7. Bitbtn3 = Close
- Buatlah komponen tersebut menjadi seperti berikut :
- Tulislah program pada event onclick pada tombol OK :
procedure TForm1.BitBtn1Click(Sender: TObject);
var
nilai: real;
begin
nilai :=StrToFloat(edit1.text);
if nilai>4.00 then
Label2.Caption:='perhitungan diluar jangkauan'
else
if nilai>=3.5 then label2.caption:='Sempurna (A)' else
if nilai>=3.00 then label2.caption:='Sangat Baik (B)' else
if nilai>=2.00 then label2.caption:='Baik (C)' else
if nilai>=1.00 then label2.Caption:='Mengulang (D)' else
Label2.Caption:='Ngulang Taun Ngarep YO Dap!!! (E)';
end;
- Untuk event Onclick pada tombol Retry, diisi perintah berikut :
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
edit1.Clear;
Label2.Caption:='';
end;
- Untuk event Onclick pada tombol Close, diisi seperti berikut:
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
if messagedlg('Anda Ingin Keluar Aplikasi ini?',mtconfirmation,[mbYes,mbNo],0)=mrYes then
begin
application.Terminate;
end;
download disini
Tidak ada komentar:
Posting Komentar