Membuat Program Sederhana dengan Kontrol Perulangan Do While-Loop pada Visual Basic 6

Assalammu'alaikum😊 Kali ini saya akan sharing ke teman-teman semua bagaimana cara membuat program sederhana dengan Kontrol Perulangan Do While-Loop pada Visual Basic 6 berupa perhitungan faktorial matematika.

Langkah Pembuatan Program Sederhana pada Visual Basic 6 dengan Do While-Loop

1. Bukalah aplikasi Visual Basic 6. Lalu pada New Project, pilih Standar exe.

2. Desain form dengan menambakan 2 label, 3 textbox, dan 2 commandbutton.
3. Lalu atur label, textbox dan commandbutton seperti dibawah ini:

Object	Property	Value
Label1	Caption	Enter any number
Label 2	Caption	=
Text1	Text
Text2	Text
Text3	Text
Command1	Caption	Factorial
Command2	Caption	Refresh

4. Jika sudah isi, kode program seperti di bawah ini:

Private Sub Command1_Click()

a = 1

f = 1

num = Val(Text1.Text)

Text2.Text = "1"

Do While a <= num

If a > 1 Then

Text2.Text = Text2.Text + " x" + Str(a)

End If

f = f * a

a = a + 1

Loop

Text3.Text = Str(f)

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

5. Kemudian, jalankan programnya dengan meng-klik F5 pada keryboard!

FLOWCHART

Berikut adalah perkiraan bentuk flowchart dari program di atas:

Sekian sharing kali ini, semoga informasi ini bermanfaat untuk teman-teman semuanya! Saya menerima kritik dan saran dari teman-teman untuk kebaikan postingan yang ada di blog ini di masa yang akan datang. Terimakasih sudah berkunjung, jangan lupa berlangganan dengan blog ini melalui email agar tidak tertinggal informasi terbaru lainnya! 😀