Kamis, 09 Februari 2012
0 komentar

Program Bilangan Prima



Mungkin kita sudah mengetahui bawha bilangan bilangan prima adalah bilangan asli yang lebih besar dari 1, yang faktor pembaginya adalah 1 dan bilangan itu sendiri. Nah sekarang kita belajar untuk membuat program dengan menampilkan deret bilang prima.

Kita buat dulu form  di VB seperti gambar di bawah ini :


Jika Sudah membuat form, maka kita akan membuat fungsi dari bilangan prima,yaitu sebagai berikut :
Dim x, y As Integer
Private Function prima(ByVal n As Long) As Integer
batas = Val(Text1.Text)
For x = 2 To batas
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
List1.AddItem x 'Menampilkan Hasil ke ListBox
End If
Next x
End Function
'Eksekusi Program
Private Sub irsyad_proses_Click()
List1.Clear
If (Text1.Text = "") Then
MsgBox ("Data Harap Diisi")
Else
hasil = prima(Text1.Text)
End If
End Sub
'mengosongkan data
Private Sub irsyad_clear_Click()
List1.Clear
Text1.Text = ""
End Sub


Jika program dijalankan maka akan seperti gambar di bawah ini :


Smoga membantu d(-_-)b
* Untuk lebih lengkap,download programnya disini


 
Toggle Footer
Top