Struktur Perulangan Di VB.NET

Jika pada postingan sebelumnya kita telah membahas Struktur Control IF dan CASE, maka kali ini kita akan membahas Struktur Perulangan.





=>Dalam VB.NET ada empat macam Struktur perulangan Yaitu :

• For - Next
• Do While - Loop
• Do Until - Loop
• While - End While

Sekarang mari kita mulai mempraktekannya :

1. Pilih New Project => beri nama perulangan => OK
   
   
   
2. Tambahkan 5 buah button dan sebuah listbox
   
   
   
   
   
3. Lalu Kita masukan Coding
   

   Public Class Form1
   Dim i As Integer
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   ListBox1.Items.Clear()
   For Me.i = 1 To 20 'Pengulangan dilakukan dari 1 sampai 10
   ListBox1.Items.Add(i)
   Next
   End Sub
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
   ListBox1.Items.Clear()
   i = 1
   Do While i <= 100 'kondisi i <= 100 true jadi program akan berkerja selama kondisi masih true
   ListBox1.Items.Add(i)
   i = i + 1
   Loop
   End Sub
   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
   ListBox1.Items.Clear()
   i = 1
   Do Until i > 12 'kondisi i > 12 adalah false karena i = 1 karena itu program akan berkerja hingga kondisi true
   ListBox1.Items.Add(i)
   i = i + 1
   Loop
   End Sub
   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
   ListBox1.Items.Clear()
   i = 1
   While i <= 132 'sama dengan do While
   ListBox1.Items.Add(i)
   i = i + 1
   End While
   End Sub
   Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
   ListBox1.Items.Clear()
   End Sub
   End Class

Nah sekarang coba anda run project yang anda buat, lalu lihat hasilnya, Demikian tutorial singkat dari saya kali ini semoga bermanfaat, bagi yang ingin mendownload source codenya bisa mendownload disini.

• Tweet
• Share
• Share
• Share
• Share

Sign up here with your email