perulangan dalam vb.net 2008

Perulagan dalam vb.net

Pengulangan digunakan untuk menjalankan satu atau beberapa pernyataan sebanyak beberapa kali. Dengan kata lain, pengulangan memungkinkan kita untuk menjalankan beberapa pernyataan hanya dengan menuliskan pernyataan tersebut satu kali saja.

A. Pernyataan for (For..Next)

Pernyataan pengulangan yang paling sering digunakan adalah for. Pernyataan ini digunakan jika kita telah mengetahui berapa kali kita akan mengulang satu atau beberapa pernyataan. Bentuk umum pernyataan for adalah sebagai berikut:

for pencacah := nilai_awal to nilai_akhir do

Begin

 (pernyataan-pernyataan yang akan diulang)

end;

 

Desain Form seperti gambar dibawah ini 

 

Listing Kodingnya :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        For i = 1 To 7

            Hari.Items.Add(WeekdayName(i))

        Next

End Sub

Jadi hasilnya seperti gambar dibawah ini

Disini saya membahas bagaimana menampilakan BULAN pada VB.Net menggunakan perulangan For - Next.

Desain Form seperti gambar dibawah ini 

Listing Kodingnya :

Private Sub Menampilkan_Bulan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        For f = 1 To 12

            Bulan.Items.Add(MonthName(f))

        Next

 End Sub

Jadi hasilnya seperti gambar dibawah ini

3. Cara Menampilkan Tahun Ajaran

Disini saya membahas bagaimana menampilakan TAHUN AJARAN pada VB.Net menggunakan perulangan For - Next.

Desain Form seperti gambar dibawah ini 

Listing kodingnya :

Private Sub Menampilkan_Tahun_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim n As Integer

        For n = 2000 To Year(Now)

            Tahun.Items.Add(n & " / " & (n + 1))

        Next

 End Sub

Jadi hasilnya seperti gambar dibawah ini

gimana gampang kan..........ohw y........jangn pernah takut untuk mencoba y....

Semoga bisa bermanfaat bagi kita semua.....ok

1.2  Pengulangan Do..While..Loop

Pernyataan pengulangan ini biasanya digunakan bila kita belum tahu pasti berapa banyak kita akan mengulang pernyataan-pernyataan. Berakhirnya pengulangan ini ditentukan oleh suatu kondisi. Bila kondisi sudah tidak terpenuhi maka pengulangan akan berakhir. Dengan kata lain, selama kondisi masih terpenuhi, pengulangan akan terus dilakukan. Bentuk umum pernyataan pengulangan while adalah sebagai berikut:

Nilai awal Variabel Pengulangan

Do While

...Pernyataan yang diulang,

terdapat counter variabel pengula

Loop

kondisi sendiri merupakan suatu ekspresi bertipe Boolean, artinya hanya dapat bernilai benar (true) atau salah (false).

Berikut contoh penggunan Do while

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Butto 1.Click

  Dim i As Integer
  Do While i <= 10

   ListBox1.Items.Add(i)

   i = i + 1

  Loop
End Sub
Catatan:

Karena i -= integer maka i bernilai 0.

Cara Membuat Modul pada VB .Net Modul di gunakan untuk mengabungkan beberapa Form sehingga Form yang satu dengan yang lainnya memiliki keterkaitan source code.Ada dua cara untuk untuk membuat module pada VB .Net yaitu adalah sebagia berikut:

Cara pertama, klik kanan pada Windows Aplication pilih Add new item cari module kemudian isi namenya sesuai dengan yang anda buat kemudian pilih Add.

Cara kedua, klik kanan pada windows Aplication pilih Add Module, isi namenya sesuai dengan yang anda buat kemudian dengan cara yang sama twkan Add maka module yang anda buat sudah selesai.

Contoh program: Source code pada module :

Module Module1
'variable public
Public nama As String, hasil, h, b As Integer
  Sub tampilnama()

    nama = "Joko Wandoyo"
  End Sub
  Sub hitung()

    hasil = Val(h) * Val(b)
  End Sub

End Module

Kemudian digabungkan dengan Form 5



Public Class Form5
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs)Handles Button1.Click

   h = TextBox1.Text
   b = TextBox2.Text
   Call hitung()
   TextBox3.Text = hasil
   End Sub
End Class

1.3 Pengulangan Do..Until..Loop

Pernyataan pengulangan ini hampir sama dengan pernyataan pengulangan while, dan biasanya digunakan bila jumlah pengulangan belum dapat ditentukan pada saat program ditulis. Perbedaan pernyataan repeat..until dan while terletak pada letak pengecekan kondisi. Jika pada pernyataan while, kondisi dicek pada awal kalang, sedangkan pada pernyataan repeat..until, kondisi dicek pada akhir kalang. Perbedaan yang lain, bila pernyataan while mengulang pernyataan selama kondisi masih terpenuhi, pernyataan repeat..until mengulang pernyataan selam kondisi belum terpenuhi. Bentuk umum penyataan repeat..until adalah sebagai berikut:

Nilai awal Variabel Pengulangan

Do Until

...Pernyataan yang diulang

terdapat counter menaikan variabel pengulangan

Loop

Contoh penggunana do until

Masukkan label dan combobox, dan atur properties masing-masing.

Objek		Properties		Pengaturan
Label1		Text		Bulan
Combobox1		Name		Cbulan

Kemudian double klik pada form1 agar anda berpindah ke tampilan code form1 ( Form_Load )

Private sub from1_load(byval sender as……

Dim bulan as byte

Bulan=1

Do until bulan=12

Abulan.items.add(bulan)

Bulan=bulan+1

Loop

End sub

Di keyboard tekan F7, maka kembali ke tampilan design dari program vb.net
tekan F5, untuk menjalankan program.

Nb : tanpa perulangan, untuk menambah tahun seperti contoh di atas.
anda harus menggunakan baris kode yang banyak seperti berikut :

Cbulan.items.add(1)

Cbulan.items.add(2)

Cbulan.items.add(3)

Cbulan.items.add(4)

Cbulan.items.add(5)

…………

Berurutan sampai

Cbulan.items.add(12)

Lakukan tugas ini agar lebih mengerti

1.      Buatlah tampilan seperti gambar dibawah ini text disesuaikan dengan contoh gambar,jangan lupa name pada properti masing-masing tools

2.      Klik 2x pada button do until ketik programnya seperti dibawah ini

Dim z As Byte

        ListBox1.Items.Clear()

        z = 1

        Do Until z = 11

            ListBox1.Items.Add(z)

            z = z + 1

        Loop

3.      Klik 2x pada button do while kembali kita ketik program dibawah ini

Dim x As Byte

        ListBox2.Items.Clear()

        x = 1

        Do While x <= 10

            ListBox2.Items.Add(x)

            x = x + 1

        Loop

4.      Klik 2x button for next ketik program dibawah ini

Dim y As Integer

        ListBox3.Items.Clear()

        For y = 20 To 1 Step -5

            ListBox3.Items.Add(y & "b")

        Next

5.      Klik 2x button while F while ketik program dibawah ini

dim b As Byte

        ListBox4.Items.Clear()

        b = 1

        While b <= 10

            ListBox4.Items.Add(b)

            b = b + 1

        End While

6.       Dan yang terakhir klik 2x for next ke 2 ketik program dibawah ini

Dim a As Integer

        ListBox5.Items.Clear()

        For a = 1 To 10

            ListBox5.Items.Add("STMIK")

        Next

Jalankanlah VB anda liat hasilnya,inilah contoh pengunaan looping pada proram VB dan dapat kita simpulkan pula perbedaan for dengan while yaitu pada for perintah akan dikerjakan apa bila statemen salah dan kebalikannya pa while perintah akan dikerjakan bila statemen benar

DAFTAR PUSTAKA

http://donipamungkaz.blogspot.com/2012/12/contoh-program-dengan-menggunakan.html

http://hhasiholan.blogspot.com/2013/01/Berbagai-Fungsi-Pengulangan-VB-2010.html

http://arolyiman.blogspot.com/2013/05/perulangan-mengggunakan-for-next-pada-vb.html

http://blok-blokan-banjir.blogspot.com/2011/03/pengulangan-menggunakan-do-while.html

http://zirora.blogspot.com/2011/12/perulangan-dountil-dalam-vbnet.html