Membuat Program Menentukan Bilangan Prima di Visual Basic 6.0

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.

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.

Membuat Program Menentukan Bilangan Prima di Visual Basic 6.0

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. Menentukan Bilangan Prima Menggunakan Visual Basic 6.0
  6. Masukkan kode berikut pada project tersebut
  7. 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
  8. 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 berikut ini: Google Drive atau ZippyShare.

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!

Related Posts

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel