VB.NET - Membuat Segitiga Siku-Siku Terbalik di Vb.net

Cara Membuat Segitiga terbalik di Vb.net

Kali ini saya akan membagikan caranya membuat segitiga terbalik dengan vb.net ,saya disini akan menampilkannya ke label,silakan anda siapkan textboxt dengan nama : txt_input.text dan label dengan nama : txt_hasil.Text ,selanjutnya double klik txt_input ,terus silakan terapkan kode berikut ini :

Private Sub txt_input_TextChanged(sender As Object, e As EventArgs) Handles txt_input.TextChanged  

txt_hasil.Text = ""

        Dim i As Integer

        Dim n As Integer

        n = Val(txt_input.Text)

        For i = n To 0 Step -1

            txt_hasil.Text += StrDup(i, "*") + vbNewLine

        Next

   End Sub 

Jika anda melakukannya dengan benar akan tampil seperti ini : 

Sekian dan terimakasih,semoga bermanfaat.