Menentukan Bilangan Prima Atau Bukan Di VB6

 Hallo Sahabat Blogger , Ketemu lagi dengan saya Bang nifqi18 , yang lucu , imut , tapi tidak kaya marmut , Topik kali ini adalah Membahas Bilangan Prima dari matematika

Sedikit tentang pengertian bilangan prima ,

 

Bilangan prima

Dalam matematika, bilangan prima adalah bilangan asli yang lebih besar dari 1, yang faktor pembaginya adalah 1 dan bilangan itu sendiri. 2 dan 3 adalah bilangan prima. 4 bukan bilangan prima karena 4 bisa dibagi 2. Sepuluh bilangan prima yang pertama adalah 2, 3, 5, 7, 11, 13, 17, 19, 23 dan 29.
---------------------- potong disini -------------------------

sumber : wikipedia.org 

Nah dari Pengertian di atas bahwa kita tahu , kita ambil algoritmanya ( mulai pusing nih ) >.<
algoritma yang di dapet
1. Bilangan Asli yang Lebih besar dari 1
2. Bahwa Angka 1 bukan angka prima
3. Bilangan yang hanya habis di bagi bilangan itu sendiri adalah bilangan prima

nah dari data di atas kita ketemu , atau bisa membuat aturan simple dari algoritmanya ( Algo kui opo ) , Mari kita rancang codingnya satu persatu

'kita ibaratkan data yang selalu kita cek adalah text1.text
if text1.text <= "0" then
msgbox "Angka yang anda masukan harus lebih besar dari 0" ' algo pertama
End if

If text1.text = 1 then
msgbox "angka 1 bukan bilangan prima" ' Algo Kedua
End IF 

 
dim nilai as string ' Deklarasi nilai
For i = 2 to (val(text1.text) - 1) ' Mengapa menggunakan For ? Sebagai pengecekan
nilai = Val(text1.text) mod val(i) ' Fungsi mod adalah untuk ? 
if nilai = "0" then
x = x + 1
exit for '  Sebagai Pengulangan Pengecekan
End IF
ext i

'Algoritma Final nya
If x > 0 then
msgbox "Bilangan Prima"
Else 
msgbox "Bukan Bilangan Prima"
End If

saya rasa saya sudah capek nuli artikel ini , dengan jelasin sampe ke akar akar nya . . sudah dulu akh , capek ,

Upssssssssssss , Heh Bang , Koding Lengkapnya gmana ? , dari tadi di tungguin malah algo algo mlulu >.<

Lha Itu masih kurang paham juga kah ?
aaaaaaaaaaaaaaaaagkhhhhhhhhhhhhhhh >.<
dasar Endonesia Loe :P , Mau nya yang simpel saja :D , nooh koding nya di bawah aye

Dim nilai, x
'============================================================================================================
If Text1.Text = "" Then
    MsgBox "Anda belum memasukkan angka", vbInformation + vbOKOnly, "Error"
    Text1.SetFocus
    ElseIf Val(Text1.Text) <= "0" Then
    MsgBox "Anda hanya boleh memasukkan angka lebih besar dari 0", vbInformation + vbOKOnly, "Error"
    Text1.SetFocus
    ElseIf Val(Text1.Text) = "1" Then
    MsgBox Text1.Text & " BUKAN PRIMA", vbInformation + vbOKOnly, "Informasi"
    Text1.SetFocus
Else
    For i = 2 To (Val(Text1.Text) - 1)
    nilai = Val(Text1.Text) Mod Val(i)
        If nilai = "0" Then
        x = x + 1
        Exit For
        End If
    Next i
'===========================================================================================================
    If x > 0 Then
    MsgBox Text1.Text & " BUKAN PRIMA"
    Else
    MsgBox Text1.Text & " BILANGAN PRIMA"
    End If
'============================================================================================================
End If

Upssssssssss, Ketahuan Endonesia banget yak :(
Ente orang indon kan bos ?
saya jowo bos , bukan indon :P

sudah capek nulis nulis , ujung² nya di copast >.< sakit kagak bos kira²
udah biasa orang endonesia bos , Kagak Kaget >.<

sekian dulu aaaaaaakh , Kaburrr >.<