Blogger templates

Rabu, 22 Mei 2013

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

Tidak ada komentar:

Posting Komentar