PROGRAM PENILAIAN UJIAN SARINGAN MASUK AKADEMI BINTANG TERANG MENGGUNAKAN DELPHI 7

PROGRAM PENILAIAN UJIAN  SARINGAN MASUK AKADEMI BINTANG TERANG MENGGUNAKAN DELPHI 7

Di Semester 3 ini pada mata kuliah Alghoritma dan Pemrograman (Alpro), saya diberikan sebuah materi Program Delphi 7. Disini saya akan memberikan postingan yang pernah diajarkan pada mata kuliah ini yaitu membuat Program Penilaian Ujian Masuk Saringan dengan mengguanakan Delphi 7.

Langsung aja pada pokok materinya ……>>>>>>>> J J

Design Form :

Ketentuan Pencarian Biaya :

1.     Nilai murni di dapat 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 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 Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, jpeg, ExtCtrls, DBTables, Grids, DBGrids, DB, ADODB;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    GroupBox1: TGroupBox;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    e1: TEdit;

    e2: TEdit;

    e3: TEdit;

    e4: TEdit;

    GroupBox2: TGroupBox;

    Label9: TLabel;

    Label10: TLabel;

    cb1: TCheckBox;

    cb2: TCheckBox;

    e7: TEdit;

    e8: TEdit;

    GroupBox3: TGroupBox;

    rb1: TRadioButton;

    rb2: TRadioButton;

    Label7: TLabel;

    e5: TEdit;

    Label8: TLabel;

    e6: TEdit;

    Label11: TLabel;

    e9: TEdit;

    B4: TButton;

    Button1: TButton;

    e10: TEdit;

    B3: TButton;

    Image1: TImage;

    procedure e1KeyPress(Sender: TObject; var Key: Char);

    procedure e2KeyPress(Sender: TObject; var Key: Char);

    procedure cb1Click(Sender: TObject);

    procedure cb2Click(Sender: TObject);

    procedure rb1Click(Sender: TObject);

    procedure rb2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure B3Click(Sender: TObject);

    procedure B4Click(Sender: TObject);

    procedure e5KeyPress(Sender: TObject; var Key: Char);

  private

    { Private declarations }

   public

    { Public declarations }

  end;

var

  Form1: TForm1;

  a,b,c,d,e,f,g,h,i,bw:real;

  nilai:real;

  nama,grade:string;

  biayajurusanMI,biayajurusanTK,biayawaktu:currency;

implementation

{$R *.dfm}

procedure TForm1.e1KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then

begin

a:=strtofloat(e1.Text);

b:=a*40/100;

e3.Text:=floattostr(b);

e2.setfocus;

end;

if not(((key>='0')and(key<='9')or(key=#8))) then

begin

key:=#0;

end;

end;

procedure TForm1.e2KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then

begin

c:=strtofloat(e2.Text);

d:=c*60/100;

e4.Text:=floattostr(d);

e:=b+d;

e5.Text:=floattostr(e);

e5.setfocus;

end;

if not (((key>='0')and (key<='9')or (key=#8))) then

begin

key:=#0;

end;

end;

procedure TForm1.cb1Click(Sender: TObject);

begin

if cb1.checked=true then

e7.Text:='250000';

if cb1.Checked=false then

e7.Text:='0';

end;

procedure TForm1.cb2Click(Sender: TObject);

begin

if cb2.checked=true then

e8.Text:='300000';

if cb2.Checked=false then

e8.Text:='0';

end;

procedure TForm1.rb1Click(Sender: TObject);

begin

if rb1.checked=true then

e9.Text:='500000';

if rb1.Checked=false then

e9.Text:='0';

end;

procedure TForm1.rb2Click(Sender: TObject);

begin

if rb2.checked=true then

e9.Text:='1000000';

if rb2.Checked=false then

e9.Text:='0';

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

biayajurusanMI:=strtocurr(e7.Text);

biayajurusanTK:=strtocurr(e8.Text);

biayawaktu:=strtocurr(e9.Text);

i:=biayajurusanMI+biayajurusanTK+biayawaktu;

e10.Text:=currtostr(i);

end;

procedure TForm1.B4Click(Sender: TObject);

begin

if MessageDlg('Apakah Anda Yakin Ingin Keluar?????',mtinformation,[mbYES,mbNO],0)=mryes

then

close;

end;

procedure TForm1.B3Click(Sender: TObject);

begin

e1.Clear;

e2.Clear;

e3.Clear;

e4.Clear;

e5.Clear;

e6.Clear;

e7.Clear;

e8.Clear;

cb1.Checked:=false;

cb2.Checked:=false;

rb1.Checked:=false;

rb2.Checked:=false;

e9.Clear;

e10.Clear;

e1.SetFocus;

end;

procedure TForm1.e5KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then

begin

nilai:=strtofloat(e5.text);

if nilai>=60 then

grade:='LULUS'

else

grade:='GAGAL'

end;

e6.text:=grade

end;

end.