Apa itu struktur perulangan dalam Visual Basic ?
Struktur perulangan dalam Visual Basic adalah salah satu statement penting di dalam pemograman. Struktur ini digunakan untuk mengulang satu atau beberapa statement selama kondisinya masih terpenuhi.
Struktur Perulangan terdiri dari :
- For .... Next
- For .... Each .... Next
- While .... End While
- Do .... Loop Until
Dan, sekarang saya akan mengajari kalian tentang cara membuat program dalam bentuk struktur perulangan While .... End While.
- Penjelasan tentang struktur While
Struktur While digunakan untuk menjalankan perintah-perintah di dalam blok program selama kondisi masih terpenuhi. Aturan penulisan struktur perulangan adalah :
While <kondisi>
Statement
End While
Untuk lebih mudah di pahami, saya akan mengajari kalian untuk membuat program yang simple.
pertama, buka Visual Basic Studio 2005 atau versi yang kalian memiliki. Setelah itu, create new project dan ganti nama Windows Application1 dengan FPerulangan atau yang kalian mau.
 |
Window Application1 diganti menjadi FPerulangan |
Lalu, klik OK
Setelah itu, buat program dengan memasukkan Tiga Button,Tiga Label,Dua ListBox dan Tiga TextBox, seperti gambar di bawah ini :
 |
Contoh Program |
Setelah itu ganti nama Form1 menjadi ' Perulangan While .... End While ' dan ganti yang lain sebagai berikut ini :
* Label1 = Awal
* Label2 = Langkah
* Label3 = Akhir
* Button1 = Mulai
* Button2 = Proses
* Button3 = Selesai
Seperti gambar di bawah ini :
 |
Contoh Program setelah digantikan nama |
Lalu, tambahkan kode untuk masing-masing button :
- Pada Button1 = Mulai, klik ganda dan ketikkan code program pada blok program :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Clear()
ListBox2.Items.Clear()
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox1.Focus()
End Sub
End Class
- Selanjutnya pada Button2 = Proses ketikkan code program berikut ini :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim X As Byte
X = TextBox1.Text
While X <= TextBox3.Text
ListBox1.Items.Add(X)
X = X + TextBox2.Text
End While
X = TextBox3.Text
While X >= TextBox1.Text
ListBox2.Items.Add(X)
X = X - TextBox2.Text
End While
End Sub
Pada code program ini, kita harus ingat untuk menambahkan Variable.
Dan terakhir, tambahkan code program pada Button3 = Selesai sebagai berikut :
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If MessageBox.Show(" Apakah ingin keluar ?", "Information") = Windows.Forms.DialogResult.No Then
Exit Sub
Else
End
End If
End Sub
Contoh Gambar Code Program :
 |
* Gambarnya boleh di klik besar untuk melihat codingnya * |
Sesudah semua coding dimasukkan ke masing-masing Button, sekarang kita boleh mencoba untuk memainkan program tersebut dengan klik Debug - Start Debugging.
 |
INILAH AKHIR PROGRAM TERSEBUT!!! |
Inilah tutorial tentang Perulangan While .... End While yang ingin saya ajarkan pada kalian.
Silahkan anda mencoba program tersebut :)
Dan kalian dapat juga mendownload Form Visual Basic tersebut di Link di bawah ini dalam format RAR :
* Lecture : Mr. Yuniansyah, M.Kom
* Created by : Sherlen Angelin, 1031079
* Tugas Algoritma dan Pemograman
