Jumat, 21 Maret 2014

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. 






1 komentar: