LOOPING (PIRAMIDA)

Hello Semua, Sudah lama nih ngak buat artikel lagi, saya berharap semua dalam kedaan sehat dan sejahtera dalam kedamaian.

Nih saya mau Share nih mengenai VB. Net 2008 atau Visual Basic.Net 2008. Saya mau mencoba membuat suatu aplikasi sederhana, karna saya masih belajar maka saya berharap semua maklum dengan program yang sederhana saya kerjakan.... 

Pastinya sebelum membuat programnya tentulah harus menginstalkan dulu software yang mendukung pembuatannya.

Maka marilah kita belajar LOOPING/Perulangan dimana kita akan membuat perulangan 1 sampai 10 menggunkana bahasa VB.Net 2008.

Nih contoh gambarnya........

Source Codenya :


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i, x As Byte
        For i = 1 To Val(TextBox1.Text)
            For x = 1 To i
                lv.Items.Add(x)
            Next x
        Next i
    End Sub

 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        lv.Clear()
        TextBox1.Clear()
        TextBox2.Clear()
    End Sub

 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
        Dim y, q, z As Byte
        y = 1
        q = Val(TextBox1.Text)
        TextBox2.Clear()
        Do While y <= q
            z = 1
            'TextBox2.Text = TextBox2.Text & Space(q - y)
            Do While z <= y
                TextBox2.Text = TextBox2.Text & " " & z
                z += 1
            Loop
            TextBox2.Text = TextBox2.Text & vbCrLf
            y += 1
        Loop
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Close()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Focus()
        TextBox2.TextAlign = HorizontalAlignment.Center
    End Sub
End Class

Semoga berhasi ya, semoga bermanfaat ya.....????
Create By : ICHE GUSTIYANI