Select Language



Followers

IT Programmer. Powered by Blogger.

16 August 2010

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"



Comments:

Ada 0 comments pada “Membuat Segitiga Piramida Angka Dengan VB 2008”

Social Media


Facebook Page

Programming Tutorial


Info


Tips
Downloads
Friends
 
This Blog is proudly powered by Blogger.com | Template by Bali Web Development | Privacy Policy | Rise Up!!