TUTORIAL CARA MENCARI BILANGAN PRIMA MENGGUNAKAN VISUAL BASIC 2010

24 Nov

TUTORIAL MEMBUAT PROGRAM

CARA MENETUKAN BILANGAN PRIMA

MENGGUNAKAN VISUAL BASIC 2010

            Program yang kami buat adalah program cara mencari bilangan prima dalam sederetan bilangan. Tujuan dari program ini adalah untuk mengetahui apakah angka yang kita masukkan dalam program tersebut merupakan bilangan prima atau bukan . apabila kita memasukkan 2 buah angka (dari bilangan kecil sampai besar) maka akan terlihat angka di deretan yang kita masukkan tersebut merupakkan bilangan prima atau bukan. Untuk lebih jelasnya mengenai pembuatan program ini perhatikan tutorial di bawah ini.

Bukalah program Visual Basic 2010 pada computer anda.Setelah jendela Visual Basic terbuka, maka pilihlah file -> new project->windows forms applications pada menu tab seperti gambar di bawah ini.

Setelah itu, akan muncul form . Kita dapat memberi nama form tersebut dengan mengubah nama pada properties nya, dalam hal ini nama form diganti dengan nama “Cara Mencari Bilanngan Prima” . Setelah itu, untuk menambahkan apa saja yang ingin ditampilkan di dalam program kasir ini, kita dapat memilih menu toolbox pada layar. Di dalam menu tersebut terdapat pilihan label, combobox, textbox, checkbox, radiobutton, dll. Di dalam program ini menu-menu toolbox yang terpakai antara lain label, radiobutton, textbox, dan button yang diberi nama masing-masing, seperti terlihat dalam gambar di bawah ini:

Kemudian agar form di atas bisa digunakan, maka kita menuliskan listing sebagai berikut:

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Public Sub BilPrima(ByRef keterangan As String)

keterangan = “Bilangan Prima”

End Sub

Public Sub BukanBilPrima(ByRef keterangan As String)

keterangan = “Bukan Bilangan Prima”

End Sub

Public Class Form1

End Class

 

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

 

‘Parameter Aktual

Dim ket As String

Dim awal, ahir, cell, up, bagi As Integer

 

awal = Val(TextBox1.Text)

ahir = Val(TextBox2.Text)

 

If (awal < 2) Then

MessageBox.Show(“Minimal Angka Harus 2 heh”, “erorr”, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

Exit Sub

ElseIf (ahir = “0”) Then

MessageBox.Show(“isi angka dulu dong cinn”, “erorr”, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

Exit Sub

ElseIf (awal > ahir) Then

MessageBox.Show(“Nilai Awalnya Harus Lebih Besar sob “, “erorr”, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

End If

 

‘Clear Listview

ListView1.Items.Clear()

For cell = awal To ahir Step 1

ListView1.Items.Add(cell)

up = 0

For bagi = 2 To ahir Step 1

If cell Mod bagi = 0 Then

up += 1

End If

Next

If up <= 1 Then

Call BilPrima(ket)

ListView1.Items(cell – awal).SubItems.Add(ket)

Else

Call BukanBilPrima(ket)

ListView1.Items(cell – awal).SubItems.Add(ket)

End If

Next

 

 

End Sub

 

 

End Class

 

 

Setelah memasukkan semua listing tersebut, maka tekan run (F5) pada visual Basic dan program sudah siap dipakai.

About these ads

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Follow

Get every new post delivered to your Inbox.

%d bloggers like this: