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