Delphi Part 2 - Branching

Hallo World!

Kali ini Mr. Didik   akan membagikan sedikit pelajaran Delphi 7 yaitu Branching atau percabangan. Di Delphi ada 2 deklarasinya yaitu dengan IF dan yang satunya dengan CASE.  Karena if lebih luas penggunaannya, maka ini dia contoh listing program dan screen shootnya. Cekidot!

Yang pertama ini adalah desainnya :

Terus klik ComboBox1 lalu pada object properties, pilih Items lalu double klik. Isikan seperti gambar di bawah ini.

Lalu tinggal masukan codingnya dech, seperti ini :

procedure TForm5.ComboBox1Click(Sender: TObject);
begin
if ComboBox1.Text='DRD01' then
begin
edit1.Text:='dr Oka';
edit2.Text:='Penyakit Dalam';
edit3.Text:='2000000';
end else
if ComboBox1.Text='DRJ02' then
begin
edit1.Text:='dr Yondra';
edit2.Text:='Gangguan Jiwa';
edit3.Text:='1500000';
end else
begin
edit1.Text:='dr Wulan';
edit2.Text:='Mata';
edit3.Text:='1000000';
end;
end;

procedure TForm5.Button1Click(Sender: TObject);
var
a,b,c :real;
begin
a:=strtofloat(edit3.Text);
b:=strtofloat(edit7.Text);
c:=a+b;
edit4.Text:=floattostr(c);
end;


procedure TForm5.Button3Click(Sender: TObject);
begin
if (application.MessageBox('Reload Data ?','Reload',MB_YESNO)=IDYES) then
edit1.Text:='';
edit2.Text:='';
edit3.Text:='0';
edit4.Text:='0';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='0';
edit8.Text:='0';
edit9.Text:='0';
combobox1.Text:='Kode Dokter';
edit1.SetFocus;

end;

procedure TForm5.Button2Click(Sender: TObject);
begin
if (application.MessageBox('Close Window?','Exit',MB_YESNO)=IDYES) then
close;
end;


procedure TForm5.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
if Edit5.Text='B001' then
begin
Edit6.Text:='Paracetamol';
Edit7.Text:='10000';
end else
if Edit5.Text='B002' then
begin
Edit6.Text:='Paratusin';
Edit7.Text:='12000';
end else
if Edit5.Text='B003' then
begin
Edit6.Text:='Amoxilin';
Edit7.Text:='15000';
end else
begin
Edit6.Text:='Tidak Diketahui';
Edit7.Text:='0';
end;

end;

procedure TForm5.Edit8KeyPress(Sender: TObject; var Key: Char);
var
a,b,c : real;
begin
if key=chr(13) then
a:=strtofloat(edit4.Text);
b:=strtofloat(edit8.Text);
c:=b-a;
edit9.Text:=floattostr(c);

end;

Jika sudah selesai dan di run maka hasilnya adalah :

Ok, sekian dulu dan terima kasih!