Visual Basic 2005 - Tutorial - Algoritma Bilangan Prima

Orang "pro" coding

Nah,, kembali lagi bersama saya dalam tutorial coding,
sekarang saya akan membahas coding mengenai Visual Basic 2005,
ya, ini adalah salah satu perantara membuat program yang lebih tinggi dari pascal, hampir setingkat dengan Microsoft Visual Basic 6.0,

Yak, dalam tutorialnya kali ini, saya akan membahas tentang Algoritma.
Khususnya adalah algoritma bilangan Prima,
Bilangan Prima ini adalah bilangan yang paling spesial, bilangan ini masih menyimpan sesuatu yang tersembunyi dari para matematikawan, Banyak ahli matematika mencoba membuat rumus untuk menentukan bilangan prima.
Namun, hasil nya sangat mengecewakan, hampir semua rumus tersebut gagal.
Nah, dengan bantuan program Visual Basic 2005 ini, kita akan mencoba mengupas algoritma bilangan prima.

Trik ini menrupakan tipe algoritma Sieve Of Eratosthenes, beginilah langkah nya.
1. Buat project baru >> pilih Windows Application.
2. Buat 3 Komponen Label, 3 TextBox, dan 1 Button.
3. Untuk pengaturan properties seperti dibawah ini.

Nama	Properties	Nilai	Fungsi
Label1	Text	Awal	Input Nilai Awal
Label2	Text	Akhir	Input Nilai Akhir
Label3	Text	Prima	Tempat keterangan Bilangan
TextBox1	Multiline, ScrollBars	True, Vertical	Tempat Input Nilai Awal
TextBox2	Multiline, ScrollBars	True, Vertical	Tempat Input Nilai Akhir
TextBox3	Multiline, ScrollBars	True, Vertical	Tempat Output Hasil Program
Button1	Text	Tampil	Tombol untuk Eksekusi Program

4. Sekarang kita tambahkan module untuk membantu. Kemudian ketikan kode dibawah ini.

Module Module1
Public Function BilanganPrima(ByVal Angka As Long) As Boolean

 Dim CetakAngka As Long
  If Angka = 1 Then BilanganPrima = False : Exit Function
  For CetakAngka = 2 To Angka - 1
  If Angka Mod CetakAngka = 0 Then BilanganPrima = False : Exit Funtion
  Next
  BilanganPrima = True

End Funtion
End Module

Keterangan Kode

• Baris 2 Membuat Function General dengan nama BilanganPrima, dengan tipe data boolean dan parameter dengan nama Angka, dengan tipe data Long.

• Baris 4 - 9 fungsi perilangan For ... Next, yang akan mengeksekusi setiap angka yang dianggap bilangan prima maupun yang sebaliknya tidak dianggap bilangan prima.

5. Setelah itu aktifkan Form 1, lalu klik ganda pada Button 1 dan ketikan kode program dibawah ini.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 Dim CetakAngka As Long
  Me.TextBox3.Text = ""
  For CetakAndka = CInt(Me.TextBox1.Text) to CInt(Me.TextBox2.Text)
  TextBox3.Text = TextBox3.Text & CetakAngka & IIF(BilanganPrima(CetakAngka), " Bilangan Prima", " Bilangan Komposit") & vbCrLf
  If CetakAngka = "1" Then TextBox3.Text = "1" & VbCrLf
 Next CetakAngka
End Sub

Keterangan Kode

• Baris 1 - 3 Membuat fungsi perulangan yang akan mencetak angka berdasarkan nilai awal dan akhir pada TextBox1 dan TextBox2

• Baris 4 - 6 Hasil perulangan yang didapat akan ditampilkan pada TextBox3 dengan baris baru berdasarkan kondisi IIF yang akan membaca nilai suatu proses yang apabila bilangan prima maka cetak kata "Bilangan Prima", namun bila sebaliknya maka cetak "Bilangan Komposit".

Bagaimana?? Silahkan Baca juga coding tentang freepascal