Program Memilih Bilangan Prima

Bilangan prima ialah sebuah bilangan yang hanya dapat 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 menciptakan sebuah program, di mana aktivitas tersebut akan menampilkan bilangan prima sebanyak jumlah baris yang kita inginkan, dan di mulai dengan 2 di baris pertama, sepakat 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 aku hanya mengubah properties captionsnya saja, yaitu untuk label = "Jumlah Baris", text box = kosongkan saja, dan command button = "BIL PRIMA", atau ganti captionya sesuai impian 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 dapat 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 ialah pertambahan nilai sebelumnya dengan 1

End If
bil = bil + 1 'Nilai Bil selanjutnya ialah 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 dapat 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 ialah pertambahan nilai sebelumnya dengan 1 End If bil = bil + 1 'Nilai Bil selanjutnya ialah pertambahan nilai sebelumnya dengan 1 Wend End Sub

Lalu coba jalankan programnya,

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


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