author Ahmad Muhardian

Menggunakan Percabangan pada Program Lazarus


Stuktur pemilihan adalah struktur kode yang menggunakan kaidah jika-maka. Struktur pemilihan dalam dunia pemrograman dikenal juga dengan percabangan, flow control, if-else, dan sebagainya.

Pemrograman Lazarus

erdapat dua macam struktur pemilihan dalam pemrograman Lazarus: if-then dan case-of. Perbedaan if-then dan case-of dapat dilihat dari cara mereka membandingkan suatu kondisi. Struktur pemilihan if-then dan case-of membuat komputer berpikir dan mampu menentukan pilihan.
Bentuk umum blok kode if-then:

if (suatu_kondisi_benar) then
    kerjakan_sesuatu;

Bila terdapat lebih dari satu perintah dalam blok if, maka pakailah begin dan end;:

if (suatu_kondisi_benar) then
begin
    kerjakan_sesuatu;
    kerjakan_perintah_ini;
    kerjakan_juga_yang_ini;
    ...
end;

Bila tedapat dua pilihan keputusan atau kondisi, maka pakailah else:

if (suatu_kondisi_benar) then
    begin
        kerjakan_sesuatu;
        kerjakan_perintah_ini;
        kerjakan_juga_yang_ini;
        ...
    end
else
    kerjakan_ini_bila_konsisi_salah;

Bila terdapat banyak kondisi, pakailah else if(…):

if (suatu_kondisi_benar) then
    kerjakan_sesuatu;
else if(kondisi_kedua) then
    kerjakan_ini;
else if(kondisi_ketiga) then
    kerjakanlah_sesutu_yang_lain;
else if(kondisi_n) then
    kerjakan_n;
else
    kerjakan_ini_bila_semua_konsisi_salah;

Atau bisa juga menggunakan case-of, bentuk strukturnya sebagai berikut:

case variabel of
    1: kerjakan_prosedur_satu;
    2: kerjakan_prosedur_dua;
    3: kerjakan_prosedur_tiga;
    n: kerjakan_prosedur_n;
else
    kerjakan_ini_kalau_semua_case_salah;

Membuat program aplikasi

Supaya lebih paham tentang struktur pemilihan di Lazarus, mari kita membuat sebuah program aplikasi sederhana. Aplikasi yang akan dibuat adalah aplikasi pendaftaran kursus komputer. Dalam aplikasi terdapat pilihan-pilihan paket dengan biaya yang berbeda dan total biaya ditentukan juga oleh jenis kelamin.

1. Desain Form

Antarmuka struktur pemilihan dapat menggunakan objek RadioButton atau ComboBox.

Jangan lupa, tambahkan butir (item) ke dalam ComboBox. Klik objek ComboBox, Lalu di bagian properties cari atribut Items kemudian isi butir ComboBox.

Tabel berikut ini, berisi informasi objek yang digunakan.

Nama objekNilai properti yang diubah
GroupBox1Caption := ‘Pilih Paket Kursus’
RadioButton1Name := ‘RJarkom’ Caption := ‘Jaringan Komputer’
RadioButton2Name := ‘RDesain’ Caption := ‘Desain’
RadioButton3Name := ‘RPemrograman’ caption := ‘Pemrograman’
RadioButton4Name := ‘RAnimasi’ Caption := ‘Animasi’
Label1Caption := ‘Biaya Kursus’
Edit1Name := ‘EBiaya’Text := '’
Label2Caption := ‘Jenis Kelamin’
ComboBox1Name := ‘CBJenisKelamin’ caption := ‘Pilih’ Items := [‘Laki-laki’,‘Peremtuan’] ReadOnly := True
Button1Caption := ‘Proses’
Button2Caption := ‘Keluar’

2. Menulis Kode Program

Kode program ditulis dalam event tombol Proses dan tombol Keluar diklik. Klik 2x pada tombol Proses kemudian ketik kode berikut:

procedure TForm1.Button1Click(Sender: TObject);
var
      biaya:integer;
begin
  if (RJarkom.Checked) then
    biaya := 100000;
  if (RDesain.Checked) then
    biaya := 80000;
  if (RPemrograman.Checked) then
    biaya := 150000;
  if (RAnimasi.Checked) then
    biaya := 120000;

  case CBJenisKelamin.ItemIndex of
    0: biaya := biaya + 10000;
    1: biaya := biaya + 5000;
 end;

  EBiaya.Text := IntToStr(biaya);
end;

Kode program untuk tombol Keluar:

procedure TForm1.Button2Click(Sender: TObject);
begin
      Close;
end;

3. Menjalankan program

Jalankan program dengan mengelik tombol Run atau menekan tombol F9 pada papan ketik.

Referensi:

Baca Juga ini

Belajar Lazarus: Menggunakan Variabel dan Tipe Data pada Lazarus

Belajar Lazarus: Menggunakan Variabel dan Tipe Data pada Lazarus

Pada tutorial ini, kita akan belajar cara menggunakan variabel dan tipe data dalam membuat program dengan Lazarus dan Free Pascal

Berkenalan dengan Lazarus, Alternatif untuk Delphi di Linux

Berkenalan dengan Lazarus, Alternatif untuk Delphi di Linux

Ketika saya mengikuti matakuliah pemrograman Delphi, saya menggunakan Lazarus sebagai pengganti Delphi di Linux. Baruntung, dosennya tidak mempermasalahkan hal ini. Pemrograman Delphi dengan Lazarus memang terlihat sama. Oleh karena itu, tugas akhir saya diterima dengan nilai yang memuaskan. Lazarus tidak hanya bisa berjalan di Linux, tapi juga bisa untuk sistem operasi yang lain seperti Windows, Mac OS, dan Unix. Baca juga: Instalasi dan Ujicoba Lazarus di Windows Berikut ini gambar screenshot Lazarus yang saya gunakan waktu itu di Kali Linux.

Belajar C++ #05: Mengenal Variabel dan Tipe Data

Belajar C++ #05: Mengenal Variabel dan Tipe Data

Apa itu variabel? dan apa saja tipe data yang di C++? mari kita pelajari!

Belajar C++ #02: Persiapan untuk Belajar Pemrograman C++ di Linux

Belajar C++ #02: Persiapan untuk Belajar Pemrograman C++ di Linux

Apa saja sih yang harus dipersiapkan untuk bisa mulai belajar Coding C++ di Linux?

Belajar Pemrograman Python: Memahami Perulangan

Belajar Pemrograman Python: Memahami Perulangan

Perualangan dalam bahasa pemrograman berfungsi menyuruh komputer melakukan sesuatu secara berulang-ulang. Terdapat dua jenis perualangan dalam bahasa pemrograman python, yaitu perulangan dengan for dan while. Perulangan for disebut counted loop (perulangan yang terhitung), sementara perulangan while disebut uncounted loop (perulangan yang tak terhitung). Perbedaannya adalah perulangan for biasanya digunakan untuk mengulangi kode yang sudah diketahui banyak perulangannya. Sementara while untuk perulangan yang memiliki syarat dan tidak tentu berapa banyak perulangannya.

Belajar Pemrograman Python: Memahami Percabangan untuk Membuat Logika Program

Belajar Pemrograman Python: Memahami Percabangan untuk Membuat Logika Program

Mungkin kalian akan bertanya: Apa itu percabangan dan kenapa dinamakan percabangan? Buat yang belum pernah kuliah atau belajar tentang algoritme dan flowchart, mungkin ini istilah yang baru pertama kamu dengar. Isitilah ini sebenarnya untuk menggambarkan alur program yang bercabang. Pada flow chart, logika “jika…maka” digambarkan dalam bentuk cabang. Karena itu, ini disebut percabangan. Selain percabangan, struktur ini juga disebut control flow, decision, struktur kondisi, Struktur if, dsb. Percabangan akan mampu membuat program berpikir dan menentukan tindakan sesuai dengan logika/kondisi yang kita berikan.