pemrograman delphi untuk pemula part 2

Membuat program untuk menghitung besarnya biaya pemesanan tiket dengan metode if-else

Dasar teori: metode if-else dipergunakan apabila ditemui lebih dari satu kemungkinan/statmen yang muncul berdasarkan suatu kondisi tertentu.

If (............) then

Begin
Statmen1
end
else
if (............) then
begin
Statment 2
end;

Dengan menggunakan metode diatas mari kita buat program sederhana dalam menentukan harga tiket...

1. bukalah software borland delphi
2. buatlah form dengan mengklik file -Application
3. siapkan Komponen Edit sebanyak 2 buah dan hapus/kosongkan Text pada object inspectror-nya.
4. beri nama masing masing komponen edit engan nama :

• E1
• E2

5. Tambahkan komponen COMBOBOX dan beri nama komponen tersebut dengan nama CB1 pada object inspector. Masih pada object inspector klik pada bagian (Tstring), lalu ketikan JAKARTA, BANDUNG, YOGYAKARTA.

6. masukan 4 buah komponen label dan beri nama masing-masing:

• program pelayanan tiket
• Kota tujuan,          
• Jumlah tiket
• Total biaya.

 7. Masukan 3 buah komponen BUTTON dan beri nama ketiganya sebagai berikut :

• B1
• B2
• B3

8. Ubah CAPTION untuk Komponen B1 dengan nama HITUNG
9. Ubah CAPTION untuk Komponen B2 dengan nama HAPUS
10. Ubah CAPTION untuk Komponen B3 dengan nama KELUAR
11. Double klik komponen B1 dan masukan listing program sebagai berikut :

      Var  A, B :real;
      begin
      A:=strtofloat(E1.text);
    
      If CB1.Checked:='JAKARTA' then
      begin
      B:= 100000 * A;
      E2.text:=floattostr(B);
      end
      else
      If CB1.Checked:='BANDUNG' then
      begin
      B:= 75000 * A;
      E2.text:=floattostr(B);

      end
      If CB1.Checked:='YOGYAKARTA' then
      begin
      B:= 200000 * A;
      E2.text:=floattostr(B);

      end;

      end;

12. Double klik komponen B2 dan masukan listing program sebagai berikut diantara begin dan end:

      E1.clear;
      E2.clear;
      CB1.Clearselection;

13. Double klik komponen B3 dan masukan listing program sebagai berikut diantara begin dan end:
    
      Application.Terminate;

14.Save all dan buatlah file compilasinya, lalu setelah itu RUN kan lah program tersebut.

" Komponen Combobox pada program diatas dipergunakan untuk memilih Kota tujuan pemesan, Sedangkan komponen Edit1 (E1) dipergunakan sebgai masukan ( dalam hal ini untuk menentukan banyaknya jumlah tiket yang akan dipesan), dan komponen Edit2 (E2) dipergunakan sebagai keluaran/ biaya yang harus dikeluarkan."

Selamat mencoba
Semoga bermanfaat