cara membuat aplikasi nilai siswa dengan menggunakan delphi 7

oke gan kali ini saya akan membagikan bagaimana cara membuat aplikasi nilai dengan menggunakan delphi 7 untuk siswa

langsung saja

di atas adalah contoh aplikasi yang sudah jadi

berikut adalah tahapan nya


yang pertama

sebelum membuat coding kita mulai dengan mendesign form nya sesuai dengan yang kita ingin kan






kedua

setelah mendesign form sesuai yang kita ingin kan tinggal kita menyalin coding yang ada di bawah ini untuk membuat logika hitungan nya

berikut adalah coding nya :

procedure TForm1.Button1Click(Sender: TObject);
var a, b, c, d, t : real;
begin
  a := StrToFloat(Edit1.Text)*0.1;
  b := StrToFloat(Edit2.Text)*0.2;
  c := StrToFloat(Edit3.Text)*0.3;
  d := StrToFloat(Edit4.Text)*0.4;
  t := a + b + c + d;
Edit5.Text := FloatToStr(t);

Edit6.Text := FloatToStr(t);
 if(t>=80) and (t<100) then
   Edit6.Text :='A'
 else if(t>=70) and (t<80) then
   Edit6.Text :='B'
 else if(t>=60) and (t<70) then
   Edit6.Text :='C'
 else if(t>=50) and (t<60) then
   Edit6.Text :='D'
else if(t>=40) and (t<50) then
   Edit6.Text :='E'
else
   Edit6.Text :='X';

Edit7.Text := FloatToStr(t);
 if(t>=80) and (t<100) then
   Edit7.Text :='sangat baik'
 else if(t>=70) and (t<80) then
   Edit7.Text :='baik'
 else if(t>=60) and (t<70) then
   Edit7.Text :='kurang baik'
 else if(t>=50) and (t<60) then
   Edit7.Text :='sangat kurang'
 else if(t>=40) and (t<50) then
   Edit7.Text :='gagal'
 else
   Edit7.Text :='gagal total';

end;

di atas adalah coding untuk eksekusi hitungan nya

dan yang terakhir ini adalah untuk memberikan perintah keluar

berikut adalah coding nya :

procedure TForm1.Button3Click(Sender: TObject);
begin
  if MessageDlg('apakah anda ingin keluar?', mtconfirmation, [mbyes] + [mbno],0) =mryes then
  Application.Terminate;
end;


dan jika kalian butuh tombol tambahan seperti hapus
berikut adalah coding nya :

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text :='';
Edit2.Text :='';
Edit3.Text :='';
Edit4.Text :='';
Edit5.Text :='';
Edit6.Text :='';
Edit7.Text :='';
Edit5.SetFocus;
end;

                       
                                 semoga bermanfaat bagi kalian semua yang membaca


jika ada pertanyaan silahkan tinggalkan di kolom komentar di bawah ini 

Share This :