AGENDA
Tutorials - VB.NET
Tutorial 44 : Segitiga Pascal (VB User Control)

Program algoritma ini akan menampilkan pola angka segitiga pascal.



Segitiga Pascal

Program algoritma ini akan menampilkan pola angka segitiga pascal.

1) Ketikkan nama submenu ke-20 yang akan dibuat, yaitu Segitiga Pascal.

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

     2. Pilih User Control dan berikan nama pada Name uc_segitigapascal. 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_segitigapascal.vb
'tanggal   = Juli 2014
'Deskripsi = Menampilkan Segitiga Pascal

Public Class uc_segitigapascal

    Private Sub uc_segitigapascal_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, j As Integer
        n = Val(cmb_input.Text)
        n = n - 1
        For i = 0 To n - 1
            txt_hasil.Text += (Space(n - i))
            txt_hasil.TextAlign = 2
            For j = 0 To i
                txt_hasil.Text += Trim(Str(nCr(i, j))) + " "

            Next j
            txt_hasil.Text += vbNewLine
        Next i
    End Sub
    Private Function factorial(ByVal n As Integer) As Long
        Dim i As Integer
        factorial = 1
        If n <> 0 Then
            For i = 2 To n
                factorial = factorial * i
            Next i
        End If
    End Function
    Private Function nCr(ByVal n As Integer, ByVal r As Integer) As Long
        If (n = r) Then
            nCr = 1
        Else
            nCr = factorial(n) / (factorial(n - r) * factorial(r))
        End If
    End Function
    Private Sub btn_hapus_Click(sender As Object, e As EventArgs) Handles btn_hapus.Click
        txt_hasil.Text = ""
        cmb_input.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 !!