Cukup menggelitik ketika penulis ditanyai bagaimana Algoritma Mencari Bilangan Prima di Visual Basic. Hasilnya penulis buatkan di Visual Basic .NET karena VB 6.0 sudah tidak terinstall di komputer. Tetapi coding di bawah ini bisa dipakai untuk Visual Basic 6.0 :
Buat project baru, tambahkan satu buah ListBox dan satu buah Button, pada button tambahakan kode program berikut :
Public Class Form1
' http://cariprogram.blogspot.com
' nuramijaya@gmail.com
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x
Dim z
Dim y
Dim hasil
ListBox1.Items.Clear()
For x = 2 To 100
z = 0
For y = 2 To x
hasil = x Mod y
If hasil = 0 Then
z = z + 1
End If
Next y
If z <= 1 Then
ListBox1.Items.Add(x)
End If
Next x
'di vb 6.0 gunakan
'ListBox1.Clear
'dan
'ListBox.AddItem x
End Sub
End Class
Hasilnya :
Project selengkapnya bisa diunduh disini. Jika kesulitan mengunduh, ini caranya.
Semoga berguna.
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :