Mencari Faktorial Dari Suatu Bilangan Dengan Kode VB6

Pada pertemuan kali ini admin akan berbagi sebuah kode yang berfungsi untuk mencari faktorial dari suatu bilangan dengan menggunakan visual basic 6.0.

Untuk membuatnya sangat mudah, Anda cukup menanamkan beberapa control dantaranya TextBox, Label dan CommandButton desainlah form seperti gambar dibawah ini :

Desain form

output

Setelah mendesain form seperti gambar diatas copy kode dibawah ini :

Private Sub Command1_Click()

If Text1.Text = "" Then

MsgBox "Masukan bilangan yang dicari berupa angka", vbInformation, "Info"

Text1.SetFocus

Else

Dim n As Integer

    Dim i As Integer

    Dim faktorial As Long

    

    ' Mengambil nilai dari TextBox1 dan mengubahnya menjadi bilangan

    n = Val(Text1.Text)

    

    ' Inisialisasi nilai faktorial

    faktorial = 1

    

    ' Menghitung faktorial

    For i = 1 To n

        faktorial = faktorial * i

    Next i

    

    ' Menampilkan hasil pada Label1

    Label1.Caption = "Faktorial dari " & n & " adalah " & faktorial

    End If

    

End Sub

Private Sub Form_Load()

Text1.Text = ""

End Sub

Kemudian jalankan project Anda jika berhasil masukan bilangan yang akan dicari hasil faktorialnya kemudain tekan Proses

Related Post: Matematika