Contoh Project Visual Basic 2010 Menggunakan Perulangan Bersarang untuk Mencetak Karakter.

Pencetakkan kararakter dengan menggunakan perulangan.

• Form project

 

•  Atur Propertis form sesuai dengan data berikut ;

• Coding project

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 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