Program VB Net Untuk Mencari Faktorial

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.