Nah kali ini saya akan berbagi program visual dasar pada delphi yang menggunakan fungsi if didalam nya , bagi yag ingin tahu silahkan cek ke bawah ya..
I.
Deskripsi
Program
Program ini merupakan
program penentuan harga karcis. Program ini menggunakan tampilan dengan radio
button dan combo box dalam pilihannya. Dalam program ini terdapat 3 tempat yang
bisa dipilih yaitu Sumedang, Jakarta dan Bangka. Dan dalam pemilihannya juga
terdapat jenis kelas yang diinginkan baik itu ekonomi dan eksklusif. Setiap pilihan
mempunyai harga yang berbeda beda. Untuk Sumedang itu biaya ekonomi Rp.2000,00
dan untuk eksklusif nya Rp.4000,00. Untuk Jakarta biaya ekonomi Rp.10.000,00
dan untuk eksklusif Rp.20.000,00. Untuk Bangka biaya ekonomi Rp.45.000,00 dan
eksklusif Rp.80.000,00. Program ini menggunakan percabangan if..then..else.
II.
Interface
Program
 |
III.
Coding
Program
|
Nama
Komponen
|
Event
|
Perintah
|
|
ButtonProses
|
OnClick
|
procedure
TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=edit1.Text;
if
Radiobutton1.Checked = true then
edit3.Text:='Sumedang'
else
if Radiobutton2.Checked then
edit3.Text:='Jakarta'
else
if Radiobutton3.Checked then
edit3.Text:='Bangka'
else
edit3.Text:='
' ;
if
combobox1.ItemIndex=0 then
edit4.Text:='Ekonomi'
else
if combobox1.ItemIndex=1 then
edit4.Text:='Eksklusif'
else
edit4.Text:=' ';
if
(radiobutton1.checked = true) and (combobox1.ItemIndex = 0)then
edit5.Text
:= 'Rp. 2000,00 '
else if (radiobutton1.checked = true) and
(combobox1.ItemIndex = 1)then
edit5.Text
:= 'Rp. 4000,00 '
else
if (radiobutton2.checked = true) and (combobox1.ItemIndex = 0)then
edit5.Text
:= 'Rp. 10.000,00 '
else if (radiobutton2.checked = true) and
(combobox1.ItemIndex = 1)then
edit5.Text
:= 'Rp. 20.000,00 '
else
if (radiobutton3.checked = true) and (combobox1.ItemIndex = 0)then
edit5.Text
:= 'Rp. 45.000,00 '
else if (radiobutton3.checked = true) and
(combobox1.ItemIndex = 1)then
edit5.Text
:= 'Rp. 80.000,00 '
else
edit5.Text
:= ' ';
end;
|
|
BitbtnKeluar
|
OnClick
|
procedure
TForm1.ButtonKeluarClick(Sender: TObject);
begin
application.Terminate;
end;
|
Nah bagi yang pengen download aplikasi bisa
Klik disini untuk aplikasi
klik disini untuk laporannya
0 komentar:
Posting Komentar