Gambar diatas ini contoh output program faktorial dengan VB. Temen-temen pasti udah tau kan pengertian faktorial itu apa. Tapi buat make sure, kita coba baca dikit soal faktorial ini kayak gimana.
Nah, dalam matematika, faktorial dari bilangan asli n adalah perkalian antara bilangan bulat positif yng kurang dari atau sama dengan n. faktorial ditulis dengan n! Dan dibaca n faktorial.
Sebagai cobtoh, 7! adalah bernilai 7×6×5×4×3×2×1 = 5040.
Ok, sekarang kita coba bikin program faktorial kayak program diatas menggunakan VB dengan looping yang sedikit.
- Pertama, coba temen-temen bikin dua label (buat judul, sama buat label nilai n), satu textbox (buat input nilai n), tiga command button (buat ngitung,hapus sama exit).
- Kedua, kalo formnya udah selesai masuk ke window coding, terus masukkan coding yang di bawah ini :
- Private Sub Command1_Click()
- Dim X As Double
- Dim Y As Double Y = Val (Text1.Text)
- If Text1 <= 0 Then
- MsgBox “maaf, tidak ada faktorial bernilai negatif”
- ElseIf Text1 = 1 Then
- MsgBox “hasil faktorial = 1”
- ElseIf Text1 > 1 Then
For X = Y – 1 to 1 Step -1
Y = Y * X
Print “*” & X;
Next X
MsgBox “hasil faktorial” & Cstr(Y)
End If
End Sub
- Nah,coding yang diatas itu buat command pertama. Kalo buat command kedua sama ketiga (yang saya bilang diatas tadi) itu optional sebenernya, jadi terserah temen-temen mau dipake ato engga.
Selamat Mencoba.
0 Comment:
Posting Komentar