AGENDA
Tutorials - VB.NET
Tutorial 36 : Faktorial (VB User Control)

Program ini akan menerima sebuah bilangan integer n, lalu mencari factorial dari n.



Faktorial

Program ini akan menerima sebuah bilangan integer n, lalu mencari factorial dari n.

Berikut langkah - langkahnya :

1) Ketikkan nama submenu ke-12, yang akan dibuat, yaitu Factorial.

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

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

3)

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

 

Text

Name

Label 1

Masukan Angka:

Label 1

Label 2

Output :

Label 2

Label 3

-

lbl_hasil

Textbox 1

 

txt_input

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_factorial.vb
'Tanggal   = Juli 2014
'Deskripsi = Mencari factorial dari n

Public Class uc_factorial
    Dim jumlah, n As Integer
    Dim hasil As String
    Private Sub btn_proses_Click(sender As Object, e As EventArgs) Handles btn_proses.Click
        hasil = ""
        lbl_hasil.Text = ""
        jumlah = 1
        n = txt_input.Text
        Dim angka As Integer
        For angka = n To 1 Step -1
            jumlah = jumlah * angka
            If angka = 1 Then
                hasil += CStr(angka) & " = "
            Else
                hasil += CStr(angka) & " x "
            End If
        Next angka
        hasil += CStr(jumlah)
        lbl_hasil.Text = hasil
    End Sub

    Private Sub btn_hapus_Click(sender As Object, e As EventArgs) Handles btn_hapus.Click
        txt_input.Text = ""
        lbl_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 !!