Aplikasi segitiga pascal dengan VB 2010

komponen :

2 Button
1 TextBox ,dgn Property Multiline bernilai True, atur juga agar property font menjadi Courier New
1 Label dengan property text: Tinggi Piramida
Numericupdown dengan property minimum: 2


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

Susun komponen diatas seperti gambar berikut :
[You must be registered and logged in to see this image.]

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

Code:

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:

Code:

End

tolong share Aplikasi segitiga pascal dengan VB6 kalau bisa
soalnya ane juga butuh buat pelajaran matik

sar-rahman wrote:

tolong share Aplikasi segitiga pascal dengan VB6 kalau bisa
soalnya ane juga butuh buat pelajaran matik

masalahnya bahasa VB 6.0 ama VB 2010 beda,sedangkan yg ane bisa cuma VB 2010..