Friday, June 10, 2016

Menentukan Bilangan Prima Menggunakan Visual Basic 6.0

Prime Number Wallpaper

Assalamu'alaikum warohmatullahi wabarokatuh, baiklah dalam posting kali ini saya akan kembali membahas tentang salah satu aplikasi pembuat program berbasis OS Windows yang cukup banyak diminati, yaitu Visual Basic 6.0.

Dalam matematika, bilangan prima adalah bilangan asli yang lebih besar atau sama dengan 1, yang faktor pembaginya hanya bilangan 1 dan bilangan itu sendiri. 2 dan 3 adalah bilangan prima. 4 bukan bilangan prima karena 4 bisa dibagi habis 2.

Jika suatu bilangan yang lebih besar dari satu bukan bilangan prima, maka bilangan itu disebut bilangan komposit. Cara paling sederhana untuk menentukan bilangan prima yang lebih kecil dari bilangan tertentu adalah dengan menggunakan saringan Eratosthenes yang ditunjukkan oleh gambar berikut.

Bilangan Prima Saringan Eratosthenes

Pada pembahasan VB kali ini, saya akan mencoba memberikan tutorial tentang bagaimana cara membuat program untuk menentukan apakah sebuah bilangan adalah bilangan prima atau bukan. Baiklah langsung saja kita mulai.

Pertama-tama, buka aplikasi Visual Basic 6.0 di perangkat anda. Kemudian buatlah sebuah project lalu tambahkan sebuah textbox, command button, dan sebuah label. Susun sesuai keinginan anda dalam form kemudian tambahkan kode berikut project anda.

Prime Number Wallpaper

Private Sub Command1_Click()
Dim a As Integer
Label1.Caption = ""
a = Val(Text1.Text)

If Text1.Text = "" Then
    Label1.Caption = "Masukkan bilangan yang benar"
    Label1.ForeColor = &HFF&
ElseIf a < 2 Then
    Label1.Caption = (Str(a) + " bukan bilangan prima")
    Label1.ForeColor = &HFF&
ElseIf a = 2 Then
    Label1.Caption = ("2 adalah bilangan prima")
    Label1.ForeColor = &HC000&
Else
    n = 2
    Do
        h = a Mod n
        If h > 0 Then
            n = n + 1
        Else
            Label1.Caption = (Str(a) + " bukan bilangan prima")
            Label1.ForeColor = &HFF&
            n = n + a
        End If
    Loop Until n >= a
    
    If n = a Then
        Label1.Caption = (Str(a) + " adalah bilangan prima")
        Label1.ForeColor = &HC000&
    End If
End If
Text1.Text = a
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
    KeyAscii = KeyAscii
ElseIf KeyAscii = 46 Then
    KeyAscii = KeyAscii
ElseIf KeyAscii < 47 Or KeyAscii > 58 Then
    KeyAscii = 0
End If
End Sub

Setelah itu coba jalankan dan lihat hasilnya, sekarang anda dapat menentukan apakan suatu bilangan bulat adalah bilangan prima atau bukan. Silahkan download hasil aplikasi yang telah selesai pada link berikut ini.

Prime Checker [GoogleDrive] [ZippyShare]

Mungkin cukup sekian dari saya, semoga bisa bermanfaat, bila ada yang ingin sobat sampaikan silahkan berkomentar pada kotak komentar dibawah. Terima kasih, assalamu'alaikum warohmatullahi wabarokatuh.
Disqus Comments