Membuat Program Menentukan Bilangan Prima di 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. Bilangan prima merupakan salah satu jenis bilangan yang bisa dibilang cukup banyak bermanfaat dan penerapannya dalam kehidupan sehari-hari. Meskipun disamping itu belum ada formula khusus yang dapat digunakan untuk menentukan bilangan prima secara umum.

Jika kita sudah mengenal bilangan prima, maka ada pula bilangan dimana bilangan tersebut lebih besar dari satu dan bukan merupakan bilangan prima, 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.

Selain itu untuk memudahkan, kamu bisa membuat sendiri aplikasi di PC untuk menentukan apakah sebuah bilangan merupakan bilangan prima atau buka. Dengan kata lain membuat aplikasi prime number checker, yang mampu memeriksa suatu bilangan prima atau bukan. Silakan ikuti langkah-langkah berikut ini:

1. Buka aplikasi Visual Basic 6.0 di PC kamu
2. Buatlah sebuah project yang berisi sebuah form
3. Tambahkan sebuah Textbox, sebuah Command Button, dan sebuah Label
4. Susun sesuai keinginan kamu, contohnya seperti gambar berikut:

5. Masukkan kode berikut pada project tersebut

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

6. Setelah itu coba jalankan dan lihat hasilnya

Dengan menggunakan program tersebut kamu bisa menentukan apakah sebuah bilangan merupakan bilangan prima atau buka dengan mudah dan cepat. Selain itu untuk lebih mudahnya, kamu bisa download hasil program tersebut secara langsung melalui link: Google Drive.

Itulah beberapa langkah yang bisa kamu lakukan untuk membuat program prime checker menggunakan aplikasi Visual Basic 6.0, atau dengan kata lain aplikasi yang dapat memeriksa bilangan prima.

Semoga artikel ini bisa bermanfaat untuk kamu, jika ada hal yang kurang jelas, maka jangan sungkan untuk menyampaikan komentar kamu di bawah atau melalui halaman contact blog ini. Terima kasih dan sampai jumpa!