Program Pencari Bilangan Prima Dengan VBA Powerpoint

Bilangan prima merupakan bilangan unik dari berbagai macam bilangan yang kita pelajari dalam ilmu matematika. Apa syarat sebuah bilangan itu merupakan bilangan prima?. Syarat sebuah bilangan itu bilangan prima adalah jika bilangan itu hanya dapat dibagi oleh dirinya sendiri dan 1. Sebaiknya , bilangan itu bukan bilangan prima.

Bilangan Prima

Bilangan prima jumlahnya tak terhingga. Anggota bilangan prima berawal dari 2, 3, 5, 7, 11, 13, 17, 19, 23, ...dan seterusnya. Dari anggota bilangan prima di atas, jelas bahwa kelipatan dari masing-masing bilangan tersebut bukan merupakan bilangan prima. Misalnya, kelipatan 2 yaitu 4,6,8,10, dan seterusnya itu bukan bilangan prima.

Pada postingan sebelumnya, Supervba sudah membagikan program pendeteksi bilangan Prima. Program tersebut berfungsi untuk menentukan apakah sebuah bilangan itu adalah bilangan prima atau tidak. Kali ini, Supervba menyediakan cara cepat mencari bilangan-bilangan yang merupakan anggota dari bilangan prima dalam batas tertentu. Ya, kita akan menggunakan sebuah program sederhana yang dibuat menggunakan flatform Microsoft Office yaitu VBA Powerpoint. Program kali ini adalah program pencari Bilangan Prima.

Unduhan

Untuk mendapatkan program pencari Bilangan Prima ini, silahkan lihat di bagian berikut.

Nama File : Supervba - Program Pencari Bilangan Prima

Password VBA Project : superwow


Bagaimana cara memakai program sederhana ini?. Setelah kita membukanya di powerpoint, silahkan ke slide2. Kemudian klik sebuah commandbutton ‘Mulai’ untuk menampilkan program tersebut. Lalu isikan batas tertingga jangkauan bilangan prima yang akan kita cari, akhirnya klik tombol ‘search’ untuk melakukan pencarian. Selamat, kita sudah berhasil menemukan bilangan prima yang kita cari dengan cepat dan mudah.

Cara Membuat Program Pencari Bilangan Prima

Untuk anda yang mau belajar membuatnya, silahkan baca dahulu tentang Userform, cara menambahkan objek ke userform dan video cara menambahkan objek ke userform. Selanjutnya, berikut ringkasan cara membuatnya dengan persepsi anda sudah mengerti tentang penggunaan Userform. Langkah-langkah membuatnya sebagai berikut.

1. Buatlah sebuah Userform1. Atur tampilannya seperti gambar di atas. Sesuaikan dengan selera kita masing-masing.

2. Tambahkan Kode VBA Powerpoint. Klik kanan pada Userform1>>View Code. Tambahkan kode VBA Powerpoint ini di dalamnya.

Dim x, y As Integer

Private Sub Cmdbersih_Click()
ListBox1.Clear
TextBox1.Text = ""
TextBox1.SetFocus
End Sub

Private Sub Cmdcari_Click()
If TextBox1.Text = "" Then
MsgBox " Masukkan batas terbesar bilangan prima yang ingin anda cari !!!"
End If
batas = Val(TextBox1.Text)
For x = 2 To batas
Z = 0
For y = 2 To x
hasil = x Mod y
If hasil = 0 Then
Z = Z + 1
End If
Next y
If Z <= 1 Then
ListBox1.AddItem x
End If
Next x
End Sub

Private Sub Cmdexit_Click()
Unload Me
End Sub

3. Nama CommandButton. Selanjutnya, klik pada UserForm1>>View Object untuk menampilkan UserForm1. Ubah nama dan caption dari comandbutton. Contoh seperti ini.

Commandbutton ini memiliki caption ‘Search’ dan nama ‘Cmdcari’. Caption merupakan teks yang tidak mempengaruhi kode. Caption ini merupakan teks yang ditampilkan oleh commandbutton supaya kita mudah mengenalinya. Sedangkan nama (name) merupakan nama unik commandbutton yang mempengaruhi kode. Jika nama commandbutton tidak sesuai dengan kode, bisa dipastikan kode VBA yang terkait commandbutton itu tidak berfungsi.

4. Tombol Pemanggil Program. Sekarang silahkan kembali ke slide powerpoint contohnya pada slide2. Tambahkan sebuah commandbutton dengan nama caption ‘Mulai’. Double klik pada comandbutton tersebut, tambahkan kode VBA berikut di dalamnya.

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

Nah, itulah program pencari Bilangan Prima beserta cara membuatnya menggunakan VBA Powerpoint. Silahkan dicoba. Semoga postingan kali ini bermanfaat. Ikuti informasi perkembangan blog kami melalui fanspage facebook kami di Supervba.