Pemograman piramid yang sederhana

Hanya untuk menmbah postingan saya saja,
Saya akan memaparkan cara pembuatan segitiga yang sederhana
Disini teman-teman bisa mempratikkannya sendiri

Anda harus membuat designya terleih dahulu.
 Anda bisa lihat gambar di bawah ini

Untuk selanjutnya anda bisa buat listing programnya
seperti di bawah ini


Public Class Form2

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
        Dim y, q, z As Byte
        y = 1
        q = Val(Nilai.Text)
        Hasil.Clear()
        Do While y <= q
            z = 1
            Do While z <= y
                Hasil.Text = Hasil.Text & " " & z
                z += 1
            Loop
            Hasil.Text = Hasil.Text & vbCrLf
            y += 1
        Loop
    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click
        Hasil.Text = ""
        Nilai.Text = ""
    End Sub


End Class

Setelah anda buat listing programnya, sekarang anda jalankan saja programnya
Lihat gambar di bawah ini

Cukup mudah bukan.......!!!!!!!!!!!!!!

SELAMAT MENCOBA