Visual Basic 6.0 For Beginners

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

Chapter 7  Alur Program ‐ Kondisi Perulangan    Dalam  pemrograman  ada  kalanya  kita  memerlukan  perulangan  untuk  melakukan  suatu  perintah  yang  sama  untuk  beberapa  kali,  misalkan  pada  program  untuk  mencari  data  maka  diperlukan  perulangan  untuk  mencari  data  dari  record  awal  sampai  record  akhir  atau  sampai  data  yang  dicari  ditemukan.  Perhatikan  contoh  sederhana  yang  menunjukkan  penggunaan  kondisi perulangan dalam program berikut ini :    Private Sub Form_Load()  MsgBox "ini adalah pesan ke 1"  MsgBox "ini adalah pesan ke 2"  MsgBox "ini adalah pesan ke 3"  MsgBox "ini adalah pesan ke 4"  MsgBox "ini adalah pesan ke 5"  End Sub    Kode  program  di  atas  adalah  kode  program  yang  digunakan  untuk  menampilkan  pesan  sebanyak  5 kali  ketika  program  di  load.  Bayangkan  jika  pesan  yang  ingin  ditampilkan  bukan  5  kali tetapi 1000 kali, pastinya kita akan kesusahan jika harus menulis kode program “ MsgBox  "ini  adalah  pesan  ke  #"  “  Sebanyak  1000  kali.  Untuk  mempersingkat  kode  program  maka  sebenarnya kita tidak perlu menulis program sebanyak 1000 baris, kita cukup menulis 3 baris  program yang hasilnya akan menampilkan pesan sebanyak 1000 kali yaitu sebagai berikut :    For i = 1 To 1000  MsgBox "ini adalah pesan ke " & i  Next i    Sehingga source kodenya menjadi :   

Private Sub Form_Load()  For i = 1 To 1000  MsgBox "ini adalah pesan ke " & i  Next i  End Sub    Dengan  menggunakan  struktur  kondisi  perulangan  seperti  source  code  di  atas  maka  ketika  program  di  load  maka  program  akan  menjalankan  perulangan    dan  menampilkan  pesan  “ini  adalah  pesan    ke  1”,angka  1  pada  pesan  karena  pada  perulangan  For  …  Next  nilai  awalnya  adalah 1 kemudian program menjalankan perintah Next i sehingga sekarang nilai i menjadi 2,  kemudian  program  menampilkan  pesan  “ini  adalah  pesan  ke  2”,  kemudian  begitu  seterusnya  sampai  nilai i = 1000 dan program menampilkan pesan “ini adalah pesan ke 1000”, karena nilai  i  =  nilai  akhir  yaitu  1000  maka  program  keluar  dariperulangan.  Dari  contoh  di  atas  dapat  disimpulkan bahwa sebuah perulangan memiliki kondisi awal dan kondisi akhir, dan perulangan  akan berjalan dan berhenti jika kondisi akhir terpenuhi.        1. Macam ‐ Macam Bentuk Perulangan    Dalam  visual  basic  terdapat  beberapa  macam  struktur  kondisi  perulangan,  diantaranya  adalah  Do  …  Loop  dan  For  …  Next.  Untuk  lebih  jelasnya  berikut  adalah  macam  –  macam  bentuk perulangan dalam visual basic :    a. Do While … Loop    Kata  while  dalam  pernyataan  Do  While  merintahkan  program  untuk  melakukan  perulangan apabila kondisi persyaratan masih bernilai True. Apabila kondisi persyaratan  bernilai  False  maka  program  akan  keluar  dari  perulangan  dan  berpindah  ke  kode  program berikutnya.  Bentuk sintaks perulangan Do While adalah :      Do While Kondisi    Pernyataan    …..  Loop      Sintaks di atas adalah bentuk Do While dimana kondisi akhir perulangan terletak di awal  sedangkan bentuk Do While yang letak kondisi akhirnya di akhir adalah sebagai berikut : 

Do    Pernyataan    ……  Loop While Kondisi        b. Do Until … Loop    Pada  dasarnya  perulangan  Do  Until  sama  dengan  perulangan  Do  While  yang  membedakannya  adalah  pada  perulangan  Do  While  perulangan  akan  terus  berjalan  selama  kondisi  bernilai  True  dan  akan  berhenti  jika  kondisi  bernilai  False  sedangkan  pada perulangan Do Until perulangan akan terus berjalan apabila kondisi bernilai salah  dan akan brhenti jika kondisi bernilai True. Sintaks dari perulangan Do Until adalah :      Do Until Kondisi    Pernyataan    …..  Loop      Seperti  halnya  perulangan  Do  While,  perulangan  Do  Until  juga  memiliki  dua  bentuk  sintaks  yaitu  bentuk  seperti    di  atas  dan  bentuk  lainnya  dimana  kondisi  diletakkan  di  akhir pernyataan perulangan yaitu sebagai berikut :      Do     Pernyataan  ……  Loop Until Kondisi               

c. While … Wend    Perulangan  While  …  Wend  digunakan  apabila  kita  ingin  pernyataan  pada  program  dijalankan  selama  kondisi  ekspresi  yang  di  tetapkan  masih  bernilai  True.  Sintaks  perulangan While Wend adalah :      While Ekspresi    Pernyataan    …..  Wend        d. For … Next    Perulangan For … Next digunakan untuk melakukan perulangan dengan jumlah tertentu  yang kita kehendaki. Kita harus mendeklarasikan sebuah variabel yang akan digunakan  sebagai indeks untuk perulangan. Sintaks perulangan For … Next adalah :    For Indeks = NilaiAwal To NilaiAkhir    Pernyataan    …..  Next Indeks    Secara  default  pada  perulangan  For  …  Next  pertambahan  indeks  perulangan  adalah  1,  untuk  menentukan  pertambahan  sesuai  yang  kita  inginkan  kita  dapat  menambahkan  Step  dari  perulangan  menjadi  2  atau  –  1  untuk  melakukan  perhitungan  mundur  pada  perulangan. Sintaksnya menjadi sebagai berikut :    For Indeks = NilaiAwal To NilaiAkhir Step ‐1  Pernyataan  …..   Next Indeks         

2. Keluar dari Perulangan    Pada  situasi  tertentu  kita  mungkin  perlu  keluar  dari  perulangan  sebelum  kondisi  akhir  perulangan  tersebut  tercapai.  Kita  dapat  keluar  dari  perulangan  dengan  menambahkan  kondisi di dalam perulangan kemudian jika kondisi yang kita berikan tersebut bernilai benar  maka program akan keluar dari perulangan dengan menggunakan perintah Exit. Contohnya  adalah sebagai berikut :      Pada Perulangan Do … Loop    Do Until KondisiAkhir    Pernyataan    …..    If Kondisi = NilaiYangDicari Then      Exit Do    End If  Loop        Pada perulangan For … Next    For Indeks = NilaiAwal To NilaiAkhir    Pernyataan    …..    If Kondisi =NilaiYangDicari Then      Exit For    End If  Next Indeks               

Untuk  lebih  memahami  tentang  struktur  kondisi  perulangan  buatlah  sebuah  program  dengan  menggunakan  Visual  Basic  6.0,  buatlah  project  baru  pada  Visual  Basic  6.0  kemudian    pilih  Standard.exe, masukkan objek‐objek yang diperlukan yaitu 7 buah CommandButton dan 1 buah  ListBox dan aturlah tampilan pada form sehingga menjadi seperti pada gambar berikut ini :   

    Kemudian atur property masing‐masing objek sebagai berikut :    Object  Property  Value  Form1  Name  frmPerulangan  Caption  Test Perulangan    Command1  Name  cmdFor    Perulangan For ... Next  Caption  Command2  Name  cmdForStep    Caption  Perulangan For ... Next dengan Step  Command3  Name  cmdDoWhile    Perulangan Do ... While  Caption  Command4  Name  cmdDoUntil    Caption  Perulangan Do ... Until  Command5  Name  cmdWhileWend    Perulangan While ... Wend  Caption  Command6  Name  cmdKeluarDo    Caption  Keluar dari Perulangan Do ... While  Command7  Name  cmdKeluarFor  Caption    Keluar dari perulangan For ... Next  List1   

Name 

lstPerulangan 

Selanjutnya copy paste source code berikut ini :      ' ketika cmdDoUntil di klik program menjalankan kode perulangan Do Until  ' menampilkan Perulangan ke 0 sampai Perulangan ke 99 pada lstPerulangan    Private Sub cmdDoUntil_Click()  lstPerulangan.Clear  i = 0  Do Until i >= 100      lstPerulangan.AddItem "Perulangan ke " & i      i = i + 1  Loop    End Sub      ' ketika tombol cmdDoWhile di klik program menjalankan kode perulangan Do While  ' menampilkan Perulangan ke 100 sampai Perulangan ke 0 pada lstPerulangan    Private Sub cmdDoWhile_Click()  lstPerulangan.Clear  i = 100  Do While i >= 0      lstPerulangan.AddItem "Perulangan ke " & i      i = i ‐ 1  Loop    End Sub      ' ketika tombol cmdFor di klik program menjalankan kode perulangan For Next  ' menampilkan huruf A sampai Z pada lstPerulangan    Private Sub cmdFor_Click()  lstPerulangan.Clear    For i = Asc("A") To Asc("Z")      lstPerulangan.AddItem Chr(i)  Next i  End Sub       

' ketika tombol cmdForStep di klik program menjalankan kode perulangan For Next  ' menampilkan huruf A, C, E, G dst dengan kelipatan 2 pada lstPerulangan    Private Sub cmdForStep_Click()  lstPerulangan.Clear    For i = Asc("A") To Asc("Z") Step 2      lstPerulangan.AddItem Chr(i)  Next i    End Sub      ' ketika tombol cmdKeluarDo di klik program menjalankan kode perulangan Do While  ' perulangan berhenti jika i bernilai 50    Private Sub cmdKeluarDo_Click()  lstPerulangan.Clear  i = 100  Do While i >= 0      If i = 50 Then         Exit Do      End If            lstPerulangan.AddItem "Perulangan ke " & i      i = i ‐ 1  Loop    End Sub      ' ketika tombol cmdKeluarFor di klik program menjalankan kode perulangan For Next  ' perulangan berhenti jika i bernilai karakter M    Private Sub cmdKeluarFor_Click()  lstPerulangan.Clear    For i = Asc("A") To Asc("Z")      If i = Asc("M") Then         Exit For      End If      lstPerulangan.AddItem Chr(i)  Next i  End Sub 

  ' ketika cmdWhileWend di klik program menjalankan kode perulangan While Wend  ' menampilkan Perulangan ke 0 sampai Perulangan ke 100 pada lstPerulangan    Private Sub cmdWhileWend_Click()  lstPerulangan.Clear  i = 0  While i <= 100      lstPerulangan.AddItem "Perulangan ke " & i      i = i + 1  Wend    End Sub        Jika  sudah  selesai  jalankan  program  kemudian  tes  perulangan  dengan  cara  klik  salah  satu  tombol.  Misalkan  ketika  tombol  “Keluar  dari  Perulangan  Do  …  While”  maka  program  akan  menampilkan  “Perulangan  ke  100”  sampai  Perulangan  ke  51”  seperti  yang  ditunjukkan  oleh  gambar berikut ini :