AGENDA
Tutorials - VB.NET
Tutorial 43 : Segitiga Sama Kaki (VB User Control)

Program algoritma ini akan menampilkan pola bintang segitiga samakaki.



Pola Bintang Segitiga Samakaki

Program algoritma ini akan menampilkan pola bintang segitiga samakaki.

Berikut langkah - langkahnya :

1) Ketikkan nama submenu ke-19, yang akan dibuat, yaitu Segitiga Sama Kaki.

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

    - Pilih User Control dan berikan nama pada Name uc_segitigasamakaki.  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 :

 

Text

Name

Textbox 1

 

txt_input

Textbox2

 

txt_hasil

Label 1

Masukan Angka :

Label 1

Label 2

Output :

Label 2

Button 1

Proses

btn_proses

Button 2

Hapus

btn_hapus

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

'Program   = uc_segitigasamakaki.vb
'Tanggal   = Juli 2014
'Deskripsi = Menampilkan pola bintang segitiga sama kaki
Public Class uc_segitigasamakaki

    Private Sub uc_segitigasamakaki_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 input, a, i As Integer
        input = Val(txt_input.Text)
        a = 1
        For i = 1 To input Step 1
            txt_hasil.Text += Space(input - i + 1) + StrDup(a, "*") + vbNewLine
            a = a + 2
        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:

 

 

Like or Share This Article




COMMENTS ( 0 )
 
Keep connected with us, mobile apps available now !!