Rabu, 05 Desember 2012

Perulangan Mengggunakan For - Next Pada VB.NET

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

Semoga bisa bermanfaat bagi kita semua.....