KURSUS KOMPUTER SCR

implementation

vb,fox,linux,biaya:integer;

{$R *.dfm}

procedure TForm1.rpagiClick(Sender: TObject);

begin

if rpagi.Checked=true then

edaftar.Text:='30000';

end;

procedure TForm1.rmalamClick(Sender: TObject);

begin

if rmalam.Checked=true then

edaftar.Text:='35000';

end;

procedure TForm1.bselesaiClick(Sender: TObject);

begin

if (application.MessageBox('Anda Yakin Mau Keluar?','Informasi',MB_YESNO)= IDYES) then

close;

end;

procedure TForm1.cvbClick(Sender: TObject);

begin

if cvb.Checked=true then

vb:=25000

else

begin

vb:=0

end;

biaya:=vb+fox+linux;

evb.Text:=inttostr(vb);

ebiaya.Text:=inttostr(biaya)

end;

procedure TForm1.cfoxClick(Sender: TObject);

begin

if cfox.Checked=true then

fox:=30000

else

begin

fox:=0

end;

biaya:=vb+fox+linux;

efox.Text:=inttostr(fox);

ebiaya.Text:=inttostr(biaya)

end;

procedure TForm1.clinuxClick(Sender: TObject);

begin

if clinux.Checked=true then

linux:=25000

else

begin

linux:=0

end;

biaya:=vb+fox+linux;

elinux.Text:=inttostr(linux);

ebiaya.Text:=inttostr(biaya)

end;

procedure TForm1.bbersihClick(Sender: TObject);

begin

enama.Text:='';

edaftar.Text:='0';

evb.Text:='0';

efox.Text:='0';

elinux.Text:='0';

ebiaya.Text:='0';

etotal.Text:='0';

rpagi.Checked:=false;

rmalam.Checked:=false;

cvb.Checked:=false;

cfox.Checked:=false;

clinux.Checked:=false;

enama.SetFocus

end;

procedure TForm1.GroupBox3Click(Sender: TObject);

var vb,fox,linux,biaya:integer;

begin

if cvb.Checked=true then

vb:=25000

else

begin

vb:=0

end;

biaya:=vb+fox+linux;

evb.Text:=inttostr(vb);

ebiaya.Text:=inttostr(biaya)

end;

procedure TForm1.bhitungClick(Sender: TObject);

begin

daftar:=strtoint(edaftar.Text);

biaya:=strtoint(ebiaya.Text);

total:=daftar+biaya;

etotal.Text:=inttostr(total)

end;

procedure TForm1.etanggalChange(Sender: TObject);

begin

etanggal.Text:=datetostr(date);

end;

end.