Tutorial Gambas2 dan Gambas3, Menggunakan pernyataan kondisi IF-THEN-ELSE IF-ELSE

Tutorial kali ini membahas penggunaan pernyataan kondisi IF-THEN-ELSE IF-ELSE

Cara kerja dari program tutorial ini adalah sebagai berikut


 JIKA kode = 0001 MAKA nama barang adalah Hardisk Sata 500 GB dan harga satuan = 600.000
 JIKA kode = 0002 MAKA nama barang adalah USB Flash Disk 32 GB dan harga satuan = 300.000
 JIKA kode = 0003 MAKA nama barang adalah Monitor LCD 15 in dan harga satuan = 750.000
 JIKA kode bukan 0001, 0002 atau 0003 MAKA tampilkan pesan

Untuk membuat program tutorial ini , ikuti langkah berikut :

1) Buat project baru

2) Disain form di form disainer seperti gambar di bawah

gambar Tutorial Gambas2 dan Gambas3, Menggunakan pernyataan kondisi IF-THEN-ELSE IF-ELSE
  
   Kontrol yang digunakan adalah:
   - 5 Label
   - 5 TextBox
   - 1 Separator {pemisah, kontrol ini tidak terlalu penting dan jika tidak di sertakan ga masalah}
   - 1 Button

3) Setting properti objek sebagai berikut
   
    - FMain (scaled : False)
   
    - Label1 (text : Kode Barang)
    - Label2 (text : Jumlah Pembelian)
    - Label3 (text : Nama Barang)
    - Label4 (text : Harga Satuan)
    - Label5 (text : Total Harga)

    - TextBox1 (text : "Di Kosongkan" ; Name : txKdBarang)
    - TextBox1 (text : "Di Kosongkan" ; Name : txJmlPembelian)
    - TextBox1 (text : "Di Kosongkan" ; Name : txNamaBarang)
    - TextBox1 (text : "Di Kosongkan" ; Name : txHargaSatuan)
    - TextBox1 (text : "Di Kosongkan" ; Name : txTotalHarga)

    - button1 (text : Proses ; Name : btnProses)

    Hasilnya akan terlihat seperti di bawah

gambar Tutorial Gambas2 dan Gambas3, Menggunakan pernyataan kondisi IF-THEN-ELSE IF-ELSE
   

4) Ketik kode seperti dibawah ini

PUBLIC SUB btnProses_Click()

  IF txKdBarang.Text = "0001" THEN
 
    txNamaBarang.Text = "Hardisk Sata 500 GB"
    txHargaSatuan.Text = "600000"
 
  ELSE IF txKdBarang.Text = "0002" THEN
 
    txNamaBarang.Text = "USB Flash Disk 32 GB"
    txHargaSatuan.Text = "300000"
 
  ELSE IF txKdBarang.Text = "0003" THEN
 
    txNamaBarang.Text = "Monitor LCD 15 in "
    txHargaSatuan.Text = "750000"
 
  ELSE

    'kode ini untuk menampilkan pesan
    Message.Info("Kode tidak ada !!!")

    'kode ini untuk keluar dari event, sub atau fungsi
    RETURN
  ENDIF

  'kode ini untuk menghitung total harga
  txTotalHarga.Text = Val(txJmlPembelian.Text) * Val(txHargaSatuan.Text)

END

5) Klik Run, Hasilnya akan tampak seperti gambar di bawah ini

gambar Tutorial Gambas2 dan Gambas3, Menggunakan pernyataan kondisi IF-THEN-ELSE IF-ELSE
  

Setelah anda berhasil membuat aplikasi tersebut lakukan hal-hal berikut
 - isi textbox kode barang dengan antara kode berikut : 0001, 0002 atau 0003
 - isi textbox jumlah pembelian dengan angka , misalnya 4 , 9,  atau terserah anda
 - klik tombol proses
   setelah itu akan tampil nama barang dan harga satuan sesuai dengan kode barang yang anda masukkan,
   dan untuk total harga akan di hitung secara otomatis dengan rumus :
   Total Harga = Jumlah pembelian x Harga Satuan

Lakukan juga hal berikut
 - isi textbox kode barang secara asal misalnya  344
 - isi textbox jumlah pembelian dengan angka
 - klik tombol proses
   setelah itu akan tampil message box !

Selamat mencoba.



  

Artikel Terkait :