CONTOH PENGGUNAAN PERULANGAN FOR PADA VB.NET 2008

1. Buat project baru
2. Desain form seperti pada gambar dibawah ini :

3. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:

Object	Properties	Nilai
Form1	Name Text	Form1 Perulangan FOR
Label1	Text	Tgl/Bln/Thn
ComboBox1	Name	CmbTgl
ComboBox2	Name	CmbBln
ComboBox3	Name	CmbThn

4.  Klik ganda pada Form1, kemudian ketikkan kode program berikut ini :

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

Dim tgl, bln, thn As Integer

        For tgl = 1 To 31

            cmbTgl.Items.Add(tgl)

        Next tgl

        For bln = 1 To 12

            cmbBln.Items.Add(bln)

        Next bln

        For thn = 1900 To 9999

            CmbThn.Items.Add(thn)

        Next thn   

End Sub

      5.  Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di

           toolbar, atau melalui menu Debug > Start Debuging.

      6. Simpan project anda.

      hasilnya seperti pada gambar di bawah ini :

Untuk mendownload projectnya klik disini