Cara Membuat Lembar penilaian ujian masuk menggunakan delphi 2010

Desain Form

cat2

Desain Properties

 
Objek
Caption
Name
Label1
penilaian ujian saringan masuk
Label1
Label2
akademi bintang terang
Label2
Label3
ujian tertulis
Label3
Label4
ujian praktek
Label4
Label5
X 40%
label5
Label6
X 60%
label6
label7
nilai murni siswa
label7
Label8
Grade
Label8
Label9
biaya jurusan MI
Label9
Label10
biaya jurusan TK
Label10
Label11
Biaya waktu
Label11
Button1
total biaya
Button1
Button2
isi data lagi
Button2
Button3
close
Button3
Edit1
e1
Edit2 e2
Edit3 e3
Edit4 e4
Edit5 e5
Edit6 e6
Edit7 e7
Edit8 e8
Edit9 e9
Edit10 e10
GroupBox1 GroupBox1
GroupBox2 pilihan jurusan GroupBox2
GroupBox3 pilihan kuliah GroupBox3
CheckBox1 MI cb1
CheckBox2 TK cb2
RadioBox1 pagi/siang rb1
RadioBox2 sore/malam rb2

Ketentuan Pencarian Biaya

  1. nilai murni didapat dari penjumlahan (nilai Praktek*60%) ditambah (nilai teori*40%).
  2. keterangan= gagal jika nilai murni <60 dan dinyatakan lulus jika nilai murni >=60
  3. biaya penjurusan diperoleh dari dua jurusan yang ada
  4. jika pilihan MI maka biayanya= 250000
  5. jika pilihan TK maka biayanya= 300000
  6. pilihan biaya waktu ujian di ambil dari 2 waktu kuliah yang ada. jika pilihan pagi maka biaya kuliah 500000, 1000000 untuk biaya kuliah malam
  7. total biaya di peroleh dari penjumlahan semua jurusan ditambah biaya kuliah.
  8. isi data lagi mengulang input data.
  9. close menutup program.

Listing Program

unit Unit6;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;

type
TForm6 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Image1: TImage;
Label3: TLabel;
e1: TEdit;
e2: TEdit;
Label4: TLabel;
e3: TEdit;
e4: TEdit;
Label5: TLabel;
e5: TEdit;
Label6: TLabel;
e6: TEdit;
GroupBox1: TGroupBox;
cb1: TCheckBox;
cb2: TCheckBox;
Label7: TLabel;
Label8: TLabel;
e7: TEdit;
e8: TEdit;
GroupBox2: TGroupBox;
rb1: TRadioButton;
rb2: TRadioButton;
Label9: TLabel;
e9: TEdit;
Button1: TButton;
e10: TEdit;
Button2: TButton;
Button3: TButton;
procedure e1Change(Sender: TObject);
procedure e2Change(Sender: TObject);
procedure e4Change(Sender: TObject);
procedure e5Change(Sender: TObject);
procedure cb1Click(Sender: TObject);
procedure cb2Click(Sender: TObject);
procedure rb1Click(Sender: TObject);
procedure rb2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);
var nil1,nil2,nil3:real; murni:real;
begin
nil1:=strtofloat(e7.Text); nil2:=strtofloat(e8.Text);nil3:=strtofloat(e9.Text);

murni:=nil1+nil2+nil3;

e10.Text:=floattostr(murni);

end;

procedure TForm6.Button2Click(Sender: TObject);
begin
e1.clear;e2.clear; e3.clear;e4.clear;e5.Text:=”;e6.Text:=”;
e7.Text:=’0′;e8.Text:=’0′;e9.Text:=”;e10.Text:=”; cb1.Checked:=true;
cb2.Checked:=true; rb1.Checked:=false; rb2.Checked:=false;
end;

procedure TForm6.Button3Click(Sender: TObject);
begin
if (application.MessageBox(‘anda yakin akan keluar??’,’Informasi’,MB_YESNO)=
IDYES) then close;
end;

procedure TForm6.cb1Click(Sender: TObject);
begin
e7.Text:=’250000′;
end;

procedure TForm6.cb2Click(Sender: TObject);
begin
e8.Text:=’300000′
end;

procedure TForm6.e1Change(Sender: TObject);

var bil1:real;
utul:real;
begin
bil1:=strtofloat(e1.Text);
utul:=bil1*0.4; e3.Text:=floattostr(utul);
{e3.text:=inttostr(strtoint(e1.text)*40%)}

end;

procedure TForm6.e2Change(Sender: TObject);

var bil2:real;
uprak:real;
begin
bil2:=strtofloat(e2.Text);
uprak:=bil2*0.6; e4.Text:=floattostr(uprak);
{e4.text:=inttostr(strtoint(e2.text)*60%)}
end;

procedure TForm6.e4Change(Sender: TObject);

var nil1,nil2:real; murni:real;
begin
nil1:=strtofloat(e3.Text); nil2:=strtofloat(e4.Text);
murni:=nil1+nil2; e5.Text:=floattostr(murni);
end;

procedure TForm6.e5Change(Sender: TObject);
var nilai:integer;
hasil:string;
begin
nilai:=strtoint(e5.Text);
if nilai < 60 then
hasil:= ‘Tidak lulus’
else
hasil:=’Lulus’;
e6.Text:= hasil;

 

 

end;

procedure TForm6.rb1Click(Sender: TObject);
begin
e9.Text:=’500000′;
end;

procedure TForm6.rb2Click(Sender: TObject);
begin
e9.Text:=’1000000′;
end;

end.