KODING FAKTORIAL DARI BERBAGAI PROGRAM
VISUAL BASIC Klue : Jika kita masukkan angka dalam txt_angka.text kemudian kita klik cmd_hitung_click( ) maka hasilnya akan muncul message box. Kondisi : Jika angka < = 0 maka pesannya “Maaf, tidak ada factorial yang bernilai negative" Jika angka = 1 maka pesannya “Hasil Faktorialnya = 1” Jika angka > 0 maka pesannya “Hasil Faktorialnya = …” ini adalah kode programnya : Private Sub cmd_hitung_Click() Dim i As Integer Dim Faktor As Integer Faktor = 1 Angka = Val(txt_angka.Text) If Angka <= 0 Then MsgBox "Maaf, tidak ada faktorial yang bernilai negatif" Else If Angka = 1 Then MsgBox "Hasil Faktorial I = 1" Else If Angka > 0 Then For i = 1 To Angka Faktor = Faktor * i Next MsgBox "Hasil Faktorial" + "=" + CStr(Faktor) End If End Sub NB : label1(name) = Masukkan Angka(Caption) txt_angka(name)= textbox buat masukkan angka cmd_hitung = commandbutton buat hitung Klue : Jika kita masukkan angka dalam text1.text kemudian kita