Program VB Net Untuk Mencari Faktorial

Faktorial merupakan perkalian antara bilangan bulat positif yang kurang dari atau sama dengan n.

Biasanya faktorial tulis dengan N!, di baca N Faktorial.

Misalnya :

5! = 5 x 4 x 3 x 2 x 1 = 120

Langkah langkah membuat program faktorial dengan menggunakan Visual Basic Net.

Designlah form Program VB Net untuk mencari Faktorial.

Terdapat 3 Textbox, dengan nama Bil, Keterangan dan Hasil

Kemudian terdapat 1 Button dengan Nama BtnProses dan textnya Proses.

(Untuk form lihat seperti cover diatas)

Listing program VB Net untuk mencari faktorial

Public Class Form1

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
        Hasil.Text = Faktorial(Bil.Text)
        keterangan.Text = ""
        For i = Val(Bil.Text) To 1 Step -1
            If i = 1 Then
                keterangan.Text = keterangan.Text & i & " = " & Hasil.Text
            Else
                keterangan.Text = keterangan.Text & i & " x "
            End If
        Next
    End Sub

    Public Function Faktorial(ByVal nilai As Byte) As Double
        Dim hasil As Double = 1
        For i = 2 To nilai
            hasil = hasil * i
        Next
        Faktorial = hasil
    End Function

End Class


Program VB Net untuk mencari faktorial diatas sudah menggunakan Function Faktorial(N) sehingga tinggal pada btnProses dengan cara :

Hasil.Text = Faktorial(Bil.Text)

Untuk program berikut :

    keterangan.Text = ""
        For i = Val(Bil.Text) To 1 Step -1
            If i = 1 Then
                keterangan.Text = keterangan.Text & i & " = " & Hasil.Text
            Else
                keterangan.Text = keterangan.Text & i & " x "
            End If
        Next

berguna untuk menampilkan hasil seperti 5! =  5x4x3x2x1 = 120

Semoga program VB Net untuk mencari faktorial tersebut dapat membantu anda memahami belajar bahasa pemrograman.