Perulangan Mengggunakan For - Next Pada VB.NET

hi teman-teman......ketemu lagi dengan saya Rony.....

Disini saya membahas beberapa penggunaan perulangan For Next, dimana para programmer sering memakai yang namanya perulangan (Looping) baik untuk menyelesaikan suatu program tertentu, dan tidak kalahnya juga bagi pengajar bagian program selalu mengajarkan pada anak didik mereka yang namanya perulangan baik itu pada bahasa program Visual Basic, PHP, Pascal, C++, Java dan lain-lain.


Sekarang kita langsung saja bagaimana penggunaan Perulangan atau Looping For - Next pada VB.Net

1. Cara menampilkan Hari 

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

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

2. Cara Menampilkan Bulan

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