Mencari Bilangan Prima dengan Visual Basic 6.0

Assalamu’alaikum Wr.Wb

Nantslight – Kali ini masih seputar Visual Basic lagi yang tutorialnya sangat sederhana, yaitu Mencari Bilangan Prima. Tetapi di sini yang saya bahas maksimalnya sampai angka Seribu Sembilan ratus Sembilan puluh Sembilan atau 9999. Silahkan anda kembangkan sendiri bila ingin lebih.. (^_^)

Ok langsung aja.. Seperti biasa Buka Visual Basicnya dan pilih Standard.Exe..

Tambahkan 1 Shape, 3 Label, 2 TextBox, 1 CommandButton, 1 ListBox. Dengan Properti sebagai berikut..

Objek	Properti	Setting
Label1	Caption	Mulai
Label2	Caption	S/d
Label3	BorderStyle	FixedSingle
TextBox1	Text MaxLength	<Kosongkan> 4
TextBox2	Text MaxLength	<Kosongkan> 4
List1	Columns	5
CommandButton1	Caption	Start

Kurang lebih Seperti Berikut..

Kemudian Masukkan kode di bawah ini..

--------***----------------------------------------------------------------

Private Sub Command1_Click()

Dim K, L, M As Integer

List1.Clear

For K = Val(Text1.Text) To Val(Text2.Text) Step 2

    L = K \ 2

    For M = 3 To L Step 2

        If K Mod M = 0 Then GoTo next_k

    Next M

    List1.AddItem K & " "

next_k: Next K

Label3.Caption = "Jumlah suku=" & List1.ListCount

End Sub

--------***----------------------------------------------------------------

Kemudian Jalankan dengan menekan F5, Jika anda mengisikan dari angka 0 maka aplikasi ini akan menghitung bukan bilangan prima, ingin tahu bilangan apakah yang akan di hitung silahkan anda coba sendiri atau silahkan unduh source dan aplikasinya di sini.

Selamat Mencoba..

Semoga Bermanfaat..

Wassalamu’alaikum Wr.Wb

These icons link to social bookmarking sites where readers can share and discover new web pages.

• 
• 
• 
• 
• 
• 
• 
• 
• 
• 
• 

Tags: Visual Basic