Form Pendaftarn Mahasiswa Baru

Lagi-lagi ada tugas kuliah yang bikin saya teh pingin bilang "ahh Lierrrr eii .. .."
mmm.. sebenarnya nggak begitu riwett sih listing programnya kalo sering-sering d pelajari,cuma karna terbenturnya waktu buat kuliah dan kerja,saya jadi memperpendek jam tidur untuk lembur mengerjakan tugas kuliah...
It's FINE  lah kalo kuliah dah jadi prioritas,dan alhamdulillah program ini terselesaikan juga akhirnya... meski sempat error tapi akhirnya bisa Running.

nah ini ada source Code dari gambar diatas,semoga bisa bermanfaat ... eitzz jangan asal COPAZ yah , tp di pelajari :D ... (^_*) ....


unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
type
  TPendaftaran = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    total: TEdit;
    biaya: TEdit;
    jumlah: TEdit;
    no: TEdit;
    GroupBox1: TGroupBox;
    Label6: TLabel;
    tobay: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    gedung: TEdit;
    nama: TEdit;
    pilih: TComboBox;
    GroupBox2: TGroupBox;
    pagi: TRadioButton;
    sore: TRadioButton;
    tambahan: TEdit;
    Label10: TLabel;
    keluar: TButton;
    hitung: TButton;
    bersih: TButton;
    Tanggal: TLabel;
    wkt: TLabel;
    Label13: TLabel;
    tgl: TLabel;
    Timer1: TTimer;

    procedure bersihClick(Sender: TObject);
    procedure pilihClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure biayaKeyPress(Sender: TObject; var Key: Char);
    procedure hitungClick(Sender: TObject);
    procedure pagiClick(Sender: TObject);
    procedure soreClick(Sender: TObject);
    procedure keluarClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Pendaftaran: TPendaftaran;
implementation
{$R *.dfm}



procedure TPendaftaran.bersihClick(Sender: TObject);
begin
no.Text:='';
jumlah.Text:='';
biaya.Text:='';
total.Text:='';
nama.Text:='';
pilih.Text:='';
gedung.Text:='';
tobay.Text:='';
tambahan.Text:='';
no.SetFocus;
end;


procedure TPendaftaran.biayaKeyPress(Sender: TObject; var Key: Char);
var a,b,c:real;
begin
if key=#13 then
begin
a:=strtofloat(jumlah.Text);
b:=strtofloat(biaya.Text);
c:=a*b;
total.Text:=floattostr(c);
end;
end;

procedure TPendaftaran.FormCreate(Sender: TObject);
begin
pilih.Items.Add('Gelombang 1');
pilih.Items.Add('Gelombang 2');
pilih.Items.Add('Gelombang 3');
end;

procedure TPendaftaran.hitungClick(Sender: TObject);
var a,b,c,d:real;
begin
a:=strtofloat(total.Text);
b:=strtofloat(gedung.Text);
c:=strtofloat(tambahan.Text);
d:=a+b+c;
tobay.Text:=floattostr(d);
end;

procedure TPendaftaran.keluarClick(Sender: TObject);
begin
close;
end;

procedure TPendaftaran.pagiClick(Sender: TObject);
begin
if pagi.Checked =true then
begin
tambahan.Text:='0';
end;
end;

procedure TPendaftaran.pilihClick(Sender: TObject);
begin
if pilih.Text ='Gelombang 1' then
begin
gedung.Text:='1500000';
end
else
if pilih.Text='Gelombang 2' then
begin
gedung.Text:='2000000';
end
else
begin
gedung.Text:='2500000';
end;
end;

procedure TPendaftaran.soreClick(Sender: TObject);
begin
if sore.Checked =true then
begin
tambahan.Text:='250000';
end;
end;

procedure TPendaftaran.Timer1Timer(Sender: TObject);
begin
wkt.Caption:=timetostr(time);
tgl.Caption:=datetostr(date);
end;
end.



----- Lucrative Next to you ----