Program Menentukan Bilangan Prima

Bilangan prima adalah sebuah bilangan yang hanya bisa di bagi 2 angka saja, yaitu angka 1 dan angka itu sendiri, di bilangan genap yang termasuk bilangan prima hanya angka 2 saja, sedangkan untuk ganjil banyak sekali, tapi bukan berarti semua bilangan ganjil termasuk bilangan prima, contohya 9, 15, 21, dan angka lainya.
Untuk tutorial kali ini kita akan membuat sebuah program, di mana program tersebut akan menampilkan bilangan prima sebanyak jumlah baris yang kita inginkan, dan di mulai dengan 2 di baris pertama, baiklah berikut tutorialnya.

Pertama jalankan VB dengan project Standar EXE
Lalu tambahkan 1 command button, 1 label, 1 text box, dan, 1 list box, atur tampilannya
Di sini saya hanya mengubah properties captionsnya saja, yaitu untuk label = "Jumlah Baris", text box = kosongkan saja, dan command button = "BIL PRIMA", atau ganti captionya sesuai keinginan anda.

Jika sudah tambahkan script berikut :

Private Sub Command1_Click()
n = Val(Text1) 'Nilai n tergantung dari text1

List1.Clear 'Mengkosongkan area list 1
k = 0 
bil = 2
While k < n 'Kondisi = Nilai K lebih kecil dari N
prima = True 'Maka prima = True (Bilangan prima)
For pembagi = 2 To bil - 1 'Nilai pembagi = di awali dengan 2 dan di akhiri dengan nilai bil dengan pengurangan -1
If bil Mod pembagi = 0 Then prima = False 'Jika nilai dari bilangan bisa di bagi nilai dari pembagi maka prima = false (bukan prima)
Next pembagi
If prima Then 'Jika bilangan prima (True), maka

List1.AddItem bil 'List 1 ditambahkkan item /nilai dari bilangan
k = k + 1 'Nilai K selanjutnya adalah pertambahan nilai sebelumnya dengan 1

End If
bil = bil + 1 'Nilai Bil selanjutnya adalah pertambahan nilai sebelumnya dengan 1
Wend
End Sub

Private Sub Command1_Click() n = Val(Text1) 'Nilai n tergantung dari text1 List1.Clear 'Mengkosongkan area list 1 k = 0 bil = 2 While k < n 'Kondisi = Nilai K lebih kecil dari N prima = True 'Maka prima = True (Bilangan prima) For pembagi = 2 To bil - 1 'Nilai pembagi = di awali dengan 2 dan di akhiri dengan nilai bil dengan pengurangan -1 If bil Mod pembagi = 0 Then prima = False 'Jika nilai dari bilangan bisa di bagi nilai dari pembagi maka prima = false (bukan prima) Next pembagi If prima Then 'Jika bilangan prima (True), maka List1.AddItem bil 'List 1 ditambahkkan item /nilai dari bilangan k = k + 1 'Nilai K selanjutnya adalah pertambahan nilai sebelumnya dengan 1 End If bil = bil + 1 'Nilai Bil selanjutnya adalah pertambahan nilai sebelumnya dengan 1 Wend End Sub

Lalu coba jalankan programnya,

Ketika kita menuliskan sebuah angka di text box, misalnya 8, maka otomatis ketika di klik command button, akan tampil 8 baris bilangan prima,


Itulah tutorial mengenai program bilangan prima,
Sekian tutorial kali ini, selamat mencoba