Membuat Segitiga Piramida Angka Dengan VB 2008

"Om Swastiastu"

Jika sebelumnya kita sudah membahas mengenai segitiga piramida dalam C++, sekarang kita akan mempelajari cara membuat segitiga angka dengan visual basic 2008. Dengan membuat program ini, kita dapat melatih kemampuan kita dalam menggunakan Nested Looping (perulangan yang berulang) dalam VB 2008. Selain itu, disini kita juga dapat mengetahui penggunaan Textbox dengan properti multiline.

Pertama-tama aturlah hingga desain form menyerupai gambar berikut:

Komponen-komponen dalam form diatas adalah:

• Label dengan property text: Tinggi Piramida
• Numericupdown dengan property minimum: 2
• Button dengan property text: Tampilkan dan Keluar
• TextBox dengan property multiline bernilai True, atur juga agar property font menjadi Courier New

Courier New dipilih agar tampilan piramida nantinya tidak miring sebelah. Font Courier New memiliki sifat yang unik yaitu lebar setiap jenih huruf sama, sehingga nantinya akan tampil piramida dengan bentuk yang seimbang.

Sekarang double klik button dengan property text Tampilkan, lalu masukkan kode berikut:

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

Berikutnya, double klik button dengan property text Keluar, lalu ketikkan kode berikut:

End

Jika sudah, silahkan tekan F5 untuk menjalankan program, saat program berjalan, maka hasilnya seperti dibawah ini:

Berikut adalah tampilan akhir proram jika kalian menggunakan font selain Courier New (sebagai contoh, disini saya menggunakan font Arial):

Sekian yang dapat saya berikan, semoga berguna.

"Om Santhi, Santhi, Santhi, Om"