Membuat Kalkulasi bilangan Prima Dengan VBA Word
MEMBUAT KALKULASI BILANGAN PRIMA
1. Buka
Microsoft Word 2010
2. Pada
Menu Bar pilih Developer (Jika Belum ada tampilakan dengan pilih menu file è
kemudian pilih Option è
Pilih Customize Ribbon è
pada Main Tabs centang Developer è OK )
3. Pilih
Developer , pilih legacy Tools
4. Pilih
Textbox untuk membuat layar sebagai
indikator kalkulasi
5. Klik
kanan pada TextBox tersebut kemudian pilih Properties
untuk mengganti nama textbox tersebut
6. Kemudian
pilih Legacy Tools lagi untuk membuat
tombol perintah untuk menjalankan kalkulasi .
7. Klik
Kanan pada Button tersebut kemudian
pada “Name” isi kan nama field Button yang anda ingin kan
8. Masih
dalam Menu Properties , Pada Caption isikan nama tampilan Button , Misal nya diisi dengan “Submit”.
9. Selanjutnya
lakukan pemrograman pada Button agar
dapat berjalan sesuai dengan kalkulasi yang anda inginkan sebelum nya .
10. Klik
Kanan pada Button tersebut pilih “View
Code”.
11. Berikut
adalah struktur data yang di gunakan dalam kalkulasi dari versi kami:
Private
Sub CommandButton1_Click()
Dim
nilai, ulang, hasil As Integer
nilai
= CInt(TextBox1.Text)
hasil
= 0
If
(nilai = 2) Then
TextBox1.Text = "Bilangan Prima"
Exit Sub
Else
For ulang = 1 To nilai
If (nilai Mod ulang = 0) Then
hasil = hasil + 1
End If
Next
ulang
End
If
If
hasil = 2 Then
TextBox1.Text = "Bilangan Prima"
Else
TextBox1.Text = "Bukan Bilangan
Prima"
End
If
End
Sub
Private
Sub TextBox1_GotFocus()
TextBox1.Text
= ""
End
Sub
Private
Sub TextBox1_LostFocus()
If
Not IsNumeric(TextBox1) Then
MsgBox "Isikan Dengan Angka",
vbInformation, "Peringatan"
End
If
End
Sub
12.
Struktur data di atas
juga menujukkan ada nya sebuah validasi pada TextBox1 agar diisi
dengan angka . berikut Coding :
Private
Sub TextBox1_LostFocus()
If
Not IsNumeric(TextBox1) Then
MsgBox "Isikan Dengan Angka",
vbInformation, "Peringatan"
End
If
End
Sub
Penjelasan tentang algoritma kalkuliasi pada Bilangan
Prima ,
-
Pada bagian Sub atas
Private
Sub CommandButton1_Click()
Dim nilai,
ulang, hasil As Integer
nilai =
CInt(TextBox1.Text)
hasil = 0
Keterangan :
nama Button adalah CommandButton 1
Method Button
adalah Click
Mendefinisikan è
nilai, ulang, hasil sebagai Bilangan (Integer)
nilai sama dengan value
dari textbox1.text (Sebagai Pedoman Kalkulasi)
hasil untuk awal di definisikan “0”
-
Kemudian pada bagian
pernyataan
If
(nilai = 2) Then
TextBox1.Text = "Bilangan Prima"
Exit Sub
Else
For ulang = 1 To nilai
If (nilai Mod ulang = 0) Then
hasil = hasil + 1
End If
Next
ulang
End
If
If
hasil = 2 Then
TextBox1.Text = "Bilangan
Prima"
Else
TextBox1.Text = "Bukan Bilangan
Prima"
End
If
End
Sub
Ket
:
-
Penulisan pernyataan IF …. Then
ElseIf….. Then
Else
End
If
-
Pernyataan pertama
adalah
Jika
TextBox1.text bernilai 2 maka otomatis di kategorikan dalam
bilangan prima, kemudian Exit Sub
untuk keluar dai eksekusi pernyataan pertama
-
Pernyataan kedua
menggunakan Perhitungan Perulangan “Counter”
Untuk
ulang sama dengan 1 sampai nilai (sampai
dengan value pada textbox1.text)
Jika
nilai mod ulang = 0 è
(jika hasil bagi nilai dan ulang sama dengan 0
) maka
hasil
= hasil + 1
kemudian
End If (Untuk mengakhiri pernyataan)
Karena
pernyataan di awali dengan For maka
di akhiri dengan Next
(Untuk perulangan)
-
Pernyataan ketiga
Jika
hasil bernilai 2 maka di kategorikan
dalam “Bilangan Prima” , Jika tidak maka “Bukan Bilangan prima”
-
Dalam Counter tersebut saya menggunakan konsep pemfaktor dari angka yang di
masukkan dalam TextBox1.text .
13.
Silahkan mencoba dengan
klik tombol Run atau kembali ke Word
pada Developer pilih Design Mode
14.
Masukan angka berapapun
sebagai percobaan
15. Jika
Berhasil berarti langkah langkah anda benar
16.
Selamat Mencoba
like it
BalasHapusterima kasih gan ...
Hapus