Hai
Kali ini saya akan berbagi mengenai tugas BSI Algoritma Pemrograman II
Tugas Borland Delphi 7
mengenai Rumah Sakit Bakti Insan
Langsung saja...
ini adalah coding nya
Kali ini saya akan berbagi mengenai tugas BSI Algoritma Pemrograman II
Tugas Borland Delphi 7
mengenai Rumah Sakit Bakti Insan
Langsung saja...
ini adalah coding nya
procedure TForm1.Button3Click(Sender: TObject);
begin
ckd.Text := ' -PILIHAN-';
enama.Text := '';
espesialis.Text := '';
ebiaya.Text := '';
eko.Text := '';
eno.Text := '';
eho.Text := '';
ubay.Text := '';
etotal.Text := '';
kembali.Text := '';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.ckdChange(Sender: TObject);
begin
if ckd.text = 'DRD01' then
begin
enama.Text := 'dr Oka';
espesialis.Text := 'Ahli Jantung';
ebiaya.Text := '2000000';
end
else
if ckd.text = 'DRJ02' then
begin
enama.Text := 'dr Yondra';
espesialis.Text := 'Ahli Mata';
ebiaya.Text := '150000';
end
else
if ckd.text = 'DRM03' then
begin
enama.Text := 'dr Wulan';
espesialis.Text := 'Ahli Gigi';
ebiaya.Text := '50000';
end;
end;
procedure TForm1.ekoKeyPress(Sender: TObject; var Key: Char);
begin
if eko.Text = 'ADL11' then
begin
eno.Text := 'Adalat oros';
eho.Text := '600000';
end
else if eko.Text = 'BIV22' then
begin
eno.Text := 'Biovision';
eho.Text := '20000';
end
else if eko.Text = 'ENK33' then
begin
eno.Text := 'Enka Sari';
eho.Text := '5000';
end
else
begin
eno.Text := '-';
eho.Text := '0';
end
end;
procedure TForm1.Button1Click(Sender: TObject);
var ebi,ehob,etot : longint;
begin
ebi := strtoint(ebiaya.text);
ehob := strtoint (eho.Text);
etot := ebi + ehob;
etotal.Text := inttostr(etot);
ubay.SetFocus;
end;
procedure TForm1.ubayKeyPress(Sender: TObject; var Key: Char);
var etot,uba,ukemb : longint;
begin
if key = #13 then
begin
etot := strtoint(etotal.Text);
uba := strtoint(ubay.Text);
ukemb := uba - etot;
if (uba < etot) then
begin
showmessage('Maaf Uang Anda Kurang Rp.' + inttostr(etot - uba));
ubay.Text := '';
ubay.setfocus;
end
else
kembali.Text := inttostr(ukemb);
end
end;
end.
begin
ckd.Text := ' -PILIHAN-';
enama.Text := '';
espesialis.Text := '';
ebiaya.Text := '';
eko.Text := '';
eno.Text := '';
eho.Text := '';
ubay.Text := '';
etotal.Text := '';
kembali.Text := '';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.ckdChange(Sender: TObject);
begin
if ckd.text = 'DRD01' then
begin
enama.Text := 'dr Oka';
espesialis.Text := 'Ahli Jantung';
ebiaya.Text := '2000000';
end
else
if ckd.text = 'DRJ02' then
begin
enama.Text := 'dr Yondra';
espesialis.Text := 'Ahli Mata';
ebiaya.Text := '150000';
end
else
if ckd.text = 'DRM03' then
begin
enama.Text := 'dr Wulan';
espesialis.Text := 'Ahli Gigi';
ebiaya.Text := '50000';
end;
end;
procedure TForm1.ekoKeyPress(Sender: TObject; var Key: Char);
begin
if eko.Text = 'ADL11' then
begin
eno.Text := 'Adalat oros';
eho.Text := '600000';
end
else if eko.Text = 'BIV22' then
begin
eno.Text := 'Biovision';
eho.Text := '20000';
end
else if eko.Text = 'ENK33' then
begin
eno.Text := 'Enka Sari';
eho.Text := '5000';
end
else
begin
eno.Text := '-';
eho.Text := '0';
end
end;
procedure TForm1.Button1Click(Sender: TObject);
var ebi,ehob,etot : longint;
begin
ebi := strtoint(ebiaya.text);
ehob := strtoint (eho.Text);
etot := ebi + ehob;
etotal.Text := inttostr(etot);
ubay.SetFocus;
end;
procedure TForm1.ubayKeyPress(Sender: TObject; var Key: Char);
var etot,uba,ukemb : longint;
begin
if key = #13 then
begin
etot := strtoint(etotal.Text);
uba := strtoint(ubay.Text);
ukemb := uba - etot;
if (uba < etot) then
begin
showmessage('Maaf Uang Anda Kurang Rp.' + inttostr(etot - uba));
ubay.Text := '';
ubay.setfocus;
end
else
kembali.Text := inttostr(ukemb);
end
end;
end.
Semoga membantu
ini adalah file programnya jika bingung memakai coding di atas
tinggal download dan copy paste saja
maka anda tinggal menikmatinya saja
KLIK DISINI
A-K