Mencari Bilangan Faktorial dengan Visual Basic

Nama: Tohjiwo Wiji A
NIM: SIR200931
Kuliah: Pemrograman Matematika
DOSEN : NAHAR MARDIYANTORO, S. Kom



Seperti yang kita ketahui rumus factorial adalah n! = n x (n-

bil = 1
For i = 1 To txtangka.Text
bil = bil * i
Next
txthasil.Text = Str(bil)

Syntax diatas bermakna : dalam melakukan bilangan ini kita gunakan variable Bantu yaitu bil = 1, diberi harga 1 karena kalau tidak akan diberi harga 0. Kemudian untuk fungsi i maka 1 sampai angka yang dimasukkan dalam textbox txtangka.Text maka lakukanlah perintah bil (=1) dikalikan angka-angka yang disebutkan oleh fungsi i dan lakukanlah perulangan (next) sampai angka yang dimasukkan dalam textbox dan tempatkanlah hasil perhitungan tersebut dalam textbox txthasil.Text

-----------------------------------------------------------------------------------------------
berikut ini adalah source code'a:

Dim vbil, vproses As Double
-----------------------------------------------------------------------------------------------
Private Sub factorial_Click()
vbil = Val(tangka.Text)
vproses = 1
For i = 1 To vbil
vproses = i * vproses
Next i

thasil.Text = vproses
End Sub
--------------------------------------------------------------------------------------------
Private Sub exit_Click()
End
End Sub
---------------------------------------------------------------------------------------------
Private Sub input_Click()
tangka.Text = ""
thasil.Text = ""
tangka.SetFocus
End Sub
---------------------------------------------------------------------------------------------