Aplikasi Looping Piramida Menggunakan Visual Basic 2008

" Assalammu'alaikum warahmatullahi wabarakatuh "

hey Yooo jumpa lagi padahal baru aja nge bahas Aplikasi Penggajian sekarang aku mau bahas tentang  " Kuping Piramida " ehh salah ( hehehe ) maksudnya " Looping Piramida "  tanpa be " KOAR-KOAR " langsung aja kita bacok Applikasi " Looping Piramida " :

Public Class Form1

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click

        Dim x, y, z As Integer

        x = 1 : y = NumericUpDown1.Value

        TextBox1.Clear()

        Do While x <= y

            z = 1

            TextBox1.Text = _

            TextBox1.Text & Space(y - x)

            Do While z <= x

                TextBox1.Text = _

                TextBox1.Text & " " & z

                z += 1

            Loop

            TextBox1.Text = _

            TextBox1.Text & vbCrLf

            x += 1

        Loop

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        Me.Close()

    End Sub

End Class

Naah gimana tidak rumit juga kan 

Terima kasih Yooo sudah mau berkunjung ke Blog yang sederhana ini

" Walaikumsalamwarah matulahi wabarakatuh "