Mencari Bilangan Prima Dari Suatu Deret Angka Dengan Visual Basic 6.0 (VB6)

Kali ini Admin akan berabagi suatu kode yang berfungsi untuk memisahkan bilangan Prima dari suatu deret angka dengan Visual Basic 6.0.

Kali ini kita akan mencoba mencari atau memisahkan bilangan Prima dari deretan angka 1 sampai dengan 100 karena dari deretan angka tersebut tidak semuanya mengandung bilangan Prima.

Output

Kita akan mencoba nya dengan menggunakan kode Visual Basic 6.0, berikut adalah langkah-langkahnya :

1. Buka Form VB6 Standar EXE

2. Pada Form1 tanamkan kontrol dibawah ini di Form :

2 TextBox

2 CommanBbutton

1 ListBox, dan 

bebrapa Label

3. Desainlah Form seperti Gambar dibawah ini :

Desain

Setelah mendesain Form seperti diatas ketiklah kode dibawah ini :

Private Sub Command1_Click()

If Text1.Text = "" Or Text2.Text = "" Then

MsgBox "Masukan anka input", vbInformation, "Info"

Text1.SetFocus

Else

    Dim i As Integer

    Dim j As Integer

    Dim isPrime As Boolean

    

    For i = Text1.Text To Text2.Text

        isPrime = True

        For j = 2 To i - 1

            If i Mod j = 0 Then

                isPrime = False

                Exit For

            End If

        Next j

        If isPrime Then

            List1.AddItem i ' Menambahkan bilangan prima ke dalam ListBox (List1)

        End If

    Next i

    Command2.Enabled = True

    End If

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

List1.Clear

Command2.Enabled = False

Text1.SetFocus

End Sub

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

Command2.Enabled = False

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

' Cek jika yang ditekan bukan angka atau tombol backspace

    If Not (KeyAscii >= vbKey0 And KeyAscii <= vbKey9 Or KeyAscii = vbKeyBack) Then

        KeyAscii = 0 ' Batalkan input jika bukan angka

    End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

' Cek jika yang ditekan bukan angka atau tombol backspace

    If Not (KeyAscii >= vbKey0 And KeyAscii <= vbKey9 Or KeyAscii = vbKeyBack) Then

        KeyAscii = 0 ' Batalkan input jika bukan angka

    End If

End Sub

4. Simpan kode Anda dan jalankan project.

Demikianlah artikel singkat hari ini tentang Mencari Bilangan Prima Dari Suatu Deret Angka Dengan Visual Basic 6.0 (VB6).

Semoga artikel ini bermanfaat buat kita semua,Amin.

Selamat mencoba semoga berhasil.

Related Post: Matematika