Visual Basic 6.0 For Beginners

Visual Basic 6.0 For Beginners    Febryan Hari Purwanto  [email protected]             

Chapter 6  Alur Program ‐ Kondisi Percabangan    Sebuah  aplikasi  harus  memiliki  alur  program  yang  baik  sehingga  tidak  akan  terjadi  kesalahan  dan  hasil  yang  dikeluarkan  oleh  program  tidak  menyimpang  dari  yang  diinginkan  ketika  program  berjalan.  Untuk  itu  perlu  dibuat  sebuah  kondisi  percabangan  dalam  program.  Dalam  Visual  Basic  ada  beberapa  kondisi  percabangan  yang  dapat  digunakan  seperti  IF…  THEN  atau  SELECT CASE. Kondisi percabangan biasanya dinyatakan dengan menggunakan operator seperti  operator sama dengan (=), tidak sama dengan (<>) atau operator‐operator perbadingan lainnya  ( >, >=, <, <=).    1. If … Then  Percabangan  dengan  menggunakan  If  …  Then  digunakan  untuk  memilih  dua  kondisi  atau  lebih  dengan  memeriksa  syarat  pada  tiap  kondisi,  jika  syarat  pada  kondisi  1  benar  (  True  )  maka maka program akan menjalankan pernyataan 1 jika tidak ( False ) maka program akan  memeriksa  kondisi  2,  jika  syarat  pada  kondisi  2  benar  (  True  )  maka  program  akan  menjalankan  pernyataan  2  jika  tidak    (  False  )  maka  program  akan  memeriksa  kondisi  berikutnya dan begitu seterusnya hingga kondisi terakhir pada percabangan. Bentuk kondisi  percabangan If … Then pada Visual Basic adalah :    If Kondisi1 Then    Pernyataan1    …………  ElseIf Kondisi2 Then    Pernyataan2    …........  Else    Pernyataan3    …………  End if 

Kondisi  percabangan  If  …Then  biasanya  digunakan  untuk  menentukan  kondisi  perhitungan  matematika,  membatasi  tndakan  pengguna  program  ,  mengatur  tampilan  atau  mencegah  error ketika program di jalankan.    2. Select Case  Dibandingkan dengan percabangan If … Then, Select Case lebih mudah dibaca dan di debug  serta lebih mudah digunakan dalam alur program yang membutuhkan banyak percabangan.  Bentuk umum percabangan Select Case dalam Visual Basic adalah sebagai berikut :    Select Case Pilihan  Case 1    Pernyataan1    …..  Case 2    Pernyataan2    …..  Case 3    Pernyataan3    ……  End Select    Pada struktur percabangan Select Case di atas jika Pilihan yang dimasukkan oleh pengguna  bernilai 1 maka Pernyataan 1 di eksekusi, jika bernilai 2 maka Pernyataan 2 yang dieksekusi,  jika bernnilai 3 maka Pernyataan 3 yang di eksekusi.      Untuk lebih memahami materi tentang kondisi percabangan, buatlah project baru pada Visual  Basic 6.0 kemudian pilih Standard.EXE dan buatlah tampilan Form sebagai berikut :   

 

Kemudian atur property masing‐masing object sebagai berikut :    Object  Property  Value  Form1  Name  FormPercabangan  Caption  Test Percabangan    Frame1  Caption  Test If … Then  Frame2  Caption  Test Select Case    Label1  Caption  Masukkan sembarang angka :  Label2  Caption  Pilih salah satu :    Command1  Name  cmdCekBilangan    Caption  Cek Bilangan  Command2  Name  cmdCekPilihan  Caption  Cek Pilihan    Text1  Name  txtBilangan    List1  Name  LstPilihan        Kemudian copy paste source code berikut ini :      Kode Program :    Private Sub cmdCekBilangan_Click()    Dim a As Integer  a = CInt(txtBilangan.Text)    If a Mod 2 = 0 Then      MsgBox "Bilangan yang anda masukkan adalah bilangan genap"  ElseIf a Mod 2 <> 0 Then      MsgBox "Bilangan yang anda masukkan adalah bilangan ganjil"   End If    End Sub       

Private Sub cmdCekPilihan_Click()    Select Case LstPilihan.Text  Case "Pilihan1"      MsgBox "Anda memilih pilihan 1"  Case "Pilihan2"      MsgBox "Anda memilih pilihan 2"  Case "Pilihan3"      MsgBox "Anda memilih pilihan 3"  End Select    End Sub    Private Sub Form_Load()    LstPilihan.AddItem "Pilihan1"  LstPilihan.AddItem "Pilihan2"  LstPilihan.AddItem "Pilihan3"    End Sub          Penjelasan Kode Program :    Private Sub Form_Load()  LstPilihan.AddItem "Pilihan1"  LstPilihan.AddItem "Pilihan2"  LstPilihan.AddItem "Pilihan3"  End Sub    Menambahkan item baru pada listBox LstPilihan ketika program pertama kali di load        Dim a As Integer  a = CInt(txtBilangan.Text)    deklarasi variable a bertipe integer dan inisialisasi variable a dari inputan txtBilangan.Text         

If a Mod 2 = 0 Then      MsgBox "Bilangan yang anda masukkan adalah bilangan genap"  ElseIf a Mod 2 <> 0 Then      MsgBox "Bilangan yang anda masukkan adalah bilangan ganjil"   End If    If…Then  yang  melakukan  pengecekan  apakah  angka  atau  bilangan  yang  dimasukkan  adalah  bilangan ganjil atau genap      Select Case LstPilihan.Text  Case "Pilihan1"      MsgBox "Anda memilih pilihan 1"  Case "Pilihan2"      MsgBox "Anda memilih pilihan 2"  Case "Pilihan3"      MsgBox "Anda memilih pilihan 3"  End Select    Select case yang digunakan untuk pengecekan pilihan yang dipilih pemakai          Jika  sudah  selesai  maka  jalankan  program  tersebut,  kemudian  test  kondisi  percabangan  If  ..  Then  dengan  cara  masukkan  sembarang  angka  pada  textbox  kemudian  klik  tombol  Cek  Bilangan,  jika  anda  memasukkan  angka  ganjil  maka  akan  muncul  pesan  "Bilangan  yang  anda  masukkan adalah bilangan ganjil" , sebaliknya jika angka yang anda masukkan genap maka akan  muncul pesan "Bilangan yang anda masukkan adalah bilangan genap".    Contoh : masukkan angka 11 kemudian klik tombol Cek Bilangan    

  

Maka akan muncul pesan sebagai berikut :   

        Untuk melakukan test terhadap kondisi percabangan Select Case caranya pilihsalah satu pilihan  pada listBox kemudian klik  tombol Cek Pilihan, maka akan mncul pesan yang menyatakan anda  memilih pilihan tertentu sesuai pilihan yang anda pilih.    Contoh : Pilih pilihan2 kemudian klik tombol Cek Pilihan   

     Maka akan muncul pesan sebagai berikut :