Perulangan (Looping)

9.1  Perulangan

Bagian ini akan dijelaskan bagaimana membuat sebuah program yang berisi perulangan. Perulangan (Looping) merupakan suatu indtruksi yang digunakan untuk mengeksekusi sejumlah instruksi program secara berulang-ulang. Perulangan mempunyai peranan penting sebab adakalanya bagian dari program perlu dieksekusi kembali berulang-ulang untuk melakukan sejumlah proses.

9.2  Do While Loop

Visual Basic mendukung beberapa versi statement Do. Looping dengan menggunakan While mungkin yang paling populer digunakan dalam pemrograman Visual Basic. Seperti Statement If…Then, do While juga membutuhkan ekpresi perbandingan untuk keluar dari looping.  Berikut ini adalah sintak dari Do While.

Do While (Kondisi_pembanding)

Perintah – perintah Visual Basic

Loop

Kode yang terdapat dalam Blok Do While diatas akan terus dilakukan  selama kondisi pembanding bernilai true.

Contoh :

‘ Ambil umur user dan dimasukan dalam variabel string

strAge = InputBox(“How old are you?”, “Age Ask”)

` Untuk mengecek apakah user menekan tombol cancel

If (strAge = “”) Then

End ` Keluar dari program

End If

‘ Jika tombol cancel tidak ditekan, Ubah variabel

‘ strAge ke integer

‘ fungsi Val() adalah fungsi konversi strings ke

‘ integers

intAge = Val(strAge)

Do While ((intAge < 10) Or (intAge > 99))

‘ Umur dari user diluar range

intPress = MsgBox(“Umur saudara harus diantara”&_

” 10 and 99″, vbExclamation, “Error!”)

strAge = InputBox(“Berapa umur saudara ?”, “Umur”)

‘Untuk mengecek apakah user menekan tombol cancel

If (strAge = “”) Then

End ` Keluar dari program

End If

intAge = Val(strAge)

Loop

Do Until Loop

Berbeda dengan Do While Loop, Do Until Loop akan melakukan looping selama kondisi pembanding bernilai false.

Berikut ini adalah sintak penggunaan Do Until Loop

9.3    Do Until Loop

Berbeda dengan Do While Loop, Do Until Loop akan melakukan looping selama kondisi pembanding bernilai false.

Do Until (comparison test)

Perintah – perintah Visual Basic

Loop

Berikut ini adalah sintak penggunaan Do Until Loop

‘ Ambil umur user dan dimasukan dalam variabel string

strAge = InputBox(“How old are you?”, “Age Ask”)

‘ Untuk mengecek apakah user menekan tombol cancel

If (strAge = “”) Then

End ` Keluar dari program

End If

‘ Jika tombol cancel tidak ditekan, Ubah variabel

‘ strAge ke integer. Fungsi Val() adalah fungsi

‘ konversi string ke integer.

intAge = Val(strAge)

Do Until ((intAge >= 10) And (intAge <= 99))

‘ Umur dari user diluar range

intPress = MsgBox(“Umur saudara harus diantara ” & _

“10 and 99”, vbExclamation, “Error!”)

strAge = InputBox(“Berapa umur saudara ?”, “Umur”)

‘ Untuk mengecek apakah user menekan tombol cancel

If (strAge = “”) Then

End ` Keluar dari program

End If

intAge = Val(strAge)

Loop

Gambar 1.1  Start menu untuk memulai IDE

Dari potongan kode tersebut dapat dilihat perbedaan perbandingan yang dilakukan. Perbandingan dilakukan sampai input berupa umur user yang dimasukan berada diantara 10 dan 99.

9.4    Bentuk Do Loop Lainnya

Variasi penggunaan loop yang lain adalah dengan meletakkan operasi perbandingan pada bagian bawah. Pada bentuk ini kode program yang ada dalam blok akan dijalankan setidak-tidaknya sekali sebelum dibandingkan.

Format sintak Do Loop While

Do

‘ Umur dari user diluar range

intPress = MsgBox(“Umur saudara harus diantara ” & _

“10 and 99”, vbExclamation, “Error!”)

strAge = InputBox(“Berapa umur saudara ?”, “Umur”)

‘ Untuk mengecek apakah user menekan tombol cancel

If (strAge = “”) Then

End ` Keluar dari program

End If

intAge = Val(strAge)

Loop While ((intAge < 10) Or (intAge > 99))

Format sintak untuk Do Loop Until

Do

‘ Umur dari user diluar range

intPress = MsgBox(“Umur saudara harus diantara ” & _

“10 and 99”, vbExclamation, “Error!”)

strAge = InputBox(“Berapa umur saudara ?”, “Umur”)

‘ Untuk mengecek apakah user menekan tombol cancel

If (strAge = “”) Then

End ` Keluar dari program

End If

intAge = Val(strAge)

Loop Until ((intAge >= 10) And (intAge <= 99))

9.5    For Loop

For loop juga merupakan bentuk lain dari looping. Tidak seperti Do loop, perulangan dalam For loop telah ditentukan. Format sintak dari penggunaan perulangan for Loop adalah sebagai berikut:

For CounterVar = nilai_awal To nilai_akthir [Step

penambahan nilai]

Kode Visual Basic

Next CounterVar

Contoh :

intSum = 0

For intNumber = 1 To 10

intSum = intSum + intNumber

Next

9.6    Keluar dari Perulangan

Dalam kenyataannya dalam kondisi tertentu, suatu perulangan ingin dihentikan (keluar dari perulangan sebelum waktunya). Untuk keluar dari suatu perulangan dapat digunakan perintah Exit For atau Exit Do. Perintah-perintah ini secara otomatis akan menyebabkan program akan keluar dari perulangan.

Contoh:

For intDivisions = 1 To 10

‘ Kode program untuk mengambil nilai Sales (cngSale)

If (cngSales <= 0.0) Then

Exit For `Jika nilai cngSales kurang sama 0.0 keluar

End If

Next

9.7    Contoh Program Perhitungan

9.7.1 Menghitung Program X Pangkat Y

Program tersebut menerima masukan berupa bilangan  bulat x dan y dan menghasilkan nilai Xy.

Gambar 9.1 Aplikasi Pangkat

Langkah – langkah :

  1. Jalankan IDE Visual Basic seperti yg telah dipelajari pada pertemuan 1.
  2. Pilihlah tipe Project standar EXE, jika dialog untuk memilih project tidak muncul maka Pilih New project dari menu File, maka Visual Basic akan menampilkan sebuah form kosong dengan caption Form1.
  3. Simpanlah project yang baru dibuat untuk keamanan dari kehilangan data. Untuk menyimpan pilih save As Project pada Menu File. Pada saat project tersebut disimpan ada 2 macam file yaitu

File Project (*.vbp) beri nama Contoh9_1.vbp

File form1  (*.Frm) beri nama Contoh9_1.frm

  1. Selanjutnya letakkan kontrol-kontrol seperti pada gambar 9.1.
  2. Gantilah properti dari masing-masing kontrol sebagai berikut:
Control Properti Setting Value
Form Name frmPangkat
Caption Program Pangkat
Label Name lblJudul
Caption Program X Pangkat Y
Font Size = 18
Label Name lblX
Caption Masukkan X:
Label Name lblY
Caption Masukkan Y:
Label Name lblHasil
Caption 00
Alignment 1 – Right Justify
Font Size = 18
Text Name txtX
Text 2
Text Name txtJumlah
Text 5
Command Button Name cmdHitung
Caption &Hitung
Command Button Name cmdKeluar
Caption &Keluar
  1. Ketiklah Kode program berikut ini:

Option Explicit

Dim X As Integer

Dim Y As Integer

Dim Hasil As Integer

Dim i As Byte

Private Sub cmdHitung_Click()

X = Val(txtX.Text)

Y = Val(txtY.Text)

Hasil = 1

For i = 1 To Y

Hasil = Hasil * X

Next

lblHasil.Caption = Str(Hasil)

End Sub

Private Sub cmdKeluar_Click()

End

End Sub

9.7.2   Program Faktorial

Bilangan faktorial merupakan bilangan hasil dari perkalian:

n! = n * (n – 1) * (n – 2) * … * 2 * 1

Contoh berikut menerima masukan berupa sebuah bilangan bulat positif (n) dan menghasilkan faktorial dari bilangan tersebut (n!).

Gambar 9.2 Aplikasi Bilangan Faktorial

Langkah-langkah :

  1. Jalankan IDE Visual Basic seperti yg telah dipelajari pada pertemuan 1.
  2. Pilihlah tipe Project standar EXE, jika dialog untuk memilih project tidak muncul maka Pilih New project dari menu File, maka Visual Basic akan menampilkan sebuah form kosong dengan caption Form1
  3. Simpanlah project yang baru dibuat untuk keamanan dari kehilangan data. Untuk menyimpan pilih save As Project pada Menu File. Pada saat project tersebut disimpan ada 2 macam file yaitu

File Project (*.vbp) beri nama Contoh9_2.vbp

File form1  (*.Frm) beri nama Contoh9_2.frm

  1. Selanjutnya letakkan kontrol-kontrol seperti pada gambar 9.2.
  2. Gantilah properti dari masing-masing kontrol sebagai berikut :
Control Properti Setting Value
Form Name frmFaktorial
Caption Bilangan Faktorial
Label Name lblJudul
Caption Bilangan Faktorial (N!)
Font Size = 18
Label Name lblFak
Caption Masukkan Bilangan (n):
Label Name lblHasil
Caption 00
Alignment 1 – Right Justify
Font Size = 14
Text Name txtFak
Text
Command Button Name cmdHitung
Caption &Hitung
Command Button Name cmdKeluar
Caption &Keluar
  1. Ketiklah Kode program berikut ini:

Option Explicit

Dim n As Integer

Dim hasil As Long

Dim i As Byte

Private Sub cmdHitung_Click()

n = Val(txtBil)

hasil = 1

For i = 1 To n

hasil = hasil * i

Next

lblHasil = Str(hasil)

End Sub

Private Sub cmdKeluar_Click()

Unload Me

End Sub

9.8  Latihan

  1. Buatlah program untuk menghitung banyak kata yang terdapat pada sebuah kalimat. Masukan dari program tersebut adalah kalimat yang akan dihitung banyak katanya. catatan : Untuk menghitung banyaknya kata dapat digunakan hubungan antara banyak kata dengan spasi, sebab spasi merupakan pemisah antara kata.
  2. Toko “Serba Ada” akan mencatat transaksi yang terjadi setiap hari pada seorang langgaan. Untuk membantu pekerjaan kasir dalam menghitung jumlah yang harus dibayar oleh seorang langganan, maka toko tersebut meminta seorang programmer untuk membuat sebuah program. Program tersebut menanyakan jumlah barang yang dibeli dan harga dari barang yang bersangkutan. Dengan asumsi seorang langganan akan membeli lebih dari satu jenis barang dan memiliki kuantitas yang berbeda-beda untuk masing–masing barang.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: