Mencari Faktor dari Suatu Bilangan dengan VB6

Mencari Faktor dari Suatu Bilangan dengan VB6 - tip kali ini akan mengulas sebuah tip dari fungsi Matematika yaitu Mencari Faktor dari Suatu Bilangan dengan VB6. Faktor suatu bilangan adalah bilangan-bilangan yang dapat dikalikan untuk mendapatkan bilangan tersebut. Cara pandang lainnya adalah setiap bilangan merupakan hasil perkalian banyak faktor. Contoh bilangan hasil dari faktor 16 adalah 1,2,4,8 dan 16, artinya setiap angka mempunyai pasangan untuk di kalikan dimana hasilnya adalah sama dengan 16.

Berikut adalah angka pasangan masing-masing dari  faktor 16 :  1 dengan 16,  2 dengan 8,  4 dengan 4, selain itu tidak ada lagi.

Pada pertemuan tutorial kali saya ingin  membagikan trik bagaimana membuat rumus bilangan faktor dengan menggunakan VB6.Untuk itu perhatikan langkah-langkah berikut dibawah ini dalam pembuatannya:

1. Pastikan Anda sudah membuka Form VB6 Anda

2. Tambahkan 1 TextBox, 1 ListBox, 2 Commanbutton dan beberapa Label

3. Desainlah seperti gambar dibawah ini :

Desain Form

4. Setelah selesai mendesain Form, lalu Anda ketik kode dibawah ini di jendela kode :

Private Sub command1_Click()

Dim N, x As Integer

N = Val(Text1.Text)

For x = 2 To N - 1

If N Mod x = 0 Then

List1.AddItem (x)

End If

Next

End Sub

Private Sub command2_Click()

Text1.Text = ""

List1.Clear

Text1.SetFocus

End Sub

Private Sub Form_Load()

Text1.Text = ""

List1.Text = ""

End Sub

5 .Simpan kode Anda dan jalankan Program.

Catatan : Angka 1 dan Angka yang sama dengan angka yang kita faktorkan tidak di tampilkan.

Demikian tip Mencari Faktor dari Suatu Bilangan dengan VB6 . Semoga bermanfaat,selamat mencoba semoga behasil.

Related Post: Matematika