[ VISUAL STUDIO ] Pola Bintang Segitiga Siku-Siku (VB User Control)

Pola Bintang Segitiga Siku-siku

Program algoritma ini akan menampilkan pola bintang segitiga siku-siku.

1) Ketikkan nama submenu ke-18 yang akan dibuat yaitu Segitiga Siku-siku.

2)- Pada Solution, klik kanan DemoUserControlVB, pilih Add » User Control .

     - Pilih User Control dan berikan nama pada Name uc_segitigasikusiku. Lalu Klik Add.

3) Pada toolbox, double klik atau drag 2 Textbox, 2 Label dan 2 Button. Lalu pada properties isikan seperti table dibawah ini :

4) Selanjutkan kita akan mengetikkan kode program. Caranya double klik button proses, lalu modifikasi source codenya sehingga menjadi seperti berikut:

'Program   = uc_segitigasikusiku.vb
'Tanggal   = Juli 2014
'Deskripsi = Menampilkan pola bintang segitiga siku-siku
Public Class uc_segitigasikusiku
 
    Private Sub uc_segitigasikusiku_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        txt_hasil.Enabled = False
    End Sub
 
    Private Sub btn_proses_Click(sender As Object, e As EventArgs) Handles btn_proses.Click
        txt_hasil.Text = " "
        Dim n As Integer
        Dim i As Integer
        n = Val(txt_input.Text)
        For i = 1 To n
            txt_hasil.Text += StrDup(i, "*") + vbNewLine
        Next i
    End Sub
 
    Private Sub btn_hapus_Click(sender As Object, e As EventArgs) Handles btn_hapus.Click
        txt_input.Text = ""
        txt_hasil.Text = ""
    End Sub
End Class

5) Pastikan anda telah mengubah source code pada Form1, seperti pada latihan-latihan sebelumnya. Lalu simpan hasil modifikasi dengan CTRL+S.

6) Kemudian, running program dengan menekan tombol CTRL + F5: