Contoh Program Visual Basic 2010 : Latihan 13

'Latihan 13 (Perulangan Bersarang)

             'Tampilan Form

'Coding

Public Class frmLat_13

    Dim banyak As Integer

    Dim kar, karn As String

    Sub cetak_hasil()

        Dim u1, u2 As Integer

        banyak = Val(Me.txtBanyak.Text)

        kar = Me.txtKarakter.Text

        'step 1

        u1 = 1

        Me.lbHasil.Text = ""

        While (u1 <= banyak)

            u2 = 1

            While (u2 <= u1)

                'menambah karakter

                karn = karn & kar

                u2 += 1

            End While

            karn = karn & Chr(13)

            u1 += 1

        End While

        Me.lbHasil.Text = karn

        'step 2

        u1 = banyak - 1

        Me.lbHasil.Text = ""

        While (u1 >= 1)

            u2 = 1

            While (u2 <= u1)

                'Menambahkan karakter

                karn = karn & kar

                u2 += 1

            End While

            'menambahkan enter

            karn = karn & Chr(13)

            u1 -= 1

        End While

        'mencetak karakkter

        Me.lbHasil.Text = karn

    End Sub

    Private Sub bProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bProses.Click

        If Val(Me.txtBanyak.Text) >= 1 And Me.txtKarakter.Text <> "" And Me.txtKarakter.Text <> " " Then

            'Ok

            Call cetak_hasil()

        Else

            'Bermasalah

            MsgBox("Jumlah Perulangan tidak benar atau karakter kosong :", vbCritical, "Masalah.")

            Me.txtBanyak.Focus()

        End If

    End Sub

    Private Sub frmLat_13_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

        Utama.Enabled = True

        Utama.Show()

        Me.Hide()

    End Sub

    Private Sub frmLat_13_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Utama.Enabled = True

        Utama.Show()

        Me.Hide()

    End Sub

    Private Sub bHapus_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bHapus.Click

        Me.lbHasil.Text = ""

        Me.txtKarakter.Text = ""

        Me.txtBanyak.Text = ""

        Me.txtBanyak.Focus()

    End Sub

End Class