AGENDA
Tutorials - VB.NET
Tutorial 41 : Barisan Berpola (VB User Control)

Program algoritma ini akan menerima n berupa integer, lalu akan menampilkan barisan bilangan berpola.



Barisan Berpola 

Ini adalah program algoritma yang akan menerima n berupa integer, lalu akan menampilkan barisan bilangan berpola.

1) Ketikkan nama submenu ke-17, yang akan dibuat, yaitu Pola Bilangan.

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

     2. Pilih User Control dan berikan nama pada Name uc_polabilangan. 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_polabilangan.vb
'Tanggal   = Juli 2014
'Deskripsi = Menampilkan barisan bilangan berpola
Public Class uc_polabilangan

    Private Sub uc_polabilangan_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
        Dim x, y, z As Integer
        txt_hasil.Text = " "
        txt_hasil.TextAlign = 2
        y = Val(txt_input.Text)
        For x = 1 To y
            z = 1
            Do While z <= x
                txt_hasil.Text = txt_hasil.Text & " " & z
                z = z + 1
            Loop
            txt_hasil.Text = txt_hasil.Text
        Next x
    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 !!