Pertemuan 6, 23 Maret 2015 Tutorial aplikasi menggunakan prosedur dan fungsi

Pada tutorial kali ini saya akan membuat program menggunakan Prosedur dan Fungsi menggunakan Visual Basic 2008. Prosedur dan fungsi merupakan blok program yang dapat dipanggil dalam sebuah program aplikasi. Untuk penggunaan prosedur dapat dilakukan hanya dengan memanggil nama prosedur tersebut.

1. Pertama Buka aplikasi VISUAL BASIC 2008, lalu setelah program terbuka, klik FILE > New Project, maka akan muncul windows pop-up, lalu pilih “Windows Form Application”. Jika sudah di pilih isikan Nama dan Tempat Penyimpan project yang nanti akan di buat pada Name dan Location jika sudah klik Ok

Kemudian buat seperti ini


2. Atributnya antara lain

GroupBox:

GroupBox1 : Text : Jenis Bilangan

GroupBox2 : Text : Hasil

GroupBox3 : Text : Perhitungan

ComboBox

Items :

Ganjil

Genap

Prima

Fibonaci

ListBox : (name) : bilangan

Text Box

TextBox1 : (name) : txtbilsatu

TextBox2 : (name) : txtbildua

TextBox3 :(name) : txthasil

Button

Button 1 : (name) : btnInputBil | Text : Input Bilangan

Button 2 : (name) : btnExit | Text : Exit

3. Klik 2X pada Button1 (btnInputBil), lalu isikan koding seperti berikut :
Private Sub btnInputBil_Click(sender As System.Object, e As System.EventArgs) Handles btnInputBil.Click
Dim strGanjil, strGenap, strPrima, strFibo As Integer
proses(strGanjil, strGenap, strPrima, strFibo)
ShowSum(txtbilsatu.Text, txtbildua.Text)
End Sub

4. Lalu tambahkan koding koding ini di bagian halaman kodingnya, dibawah koding langkah 3
Sub ShowSum(ByVal intNum1 As Integer, ByVal intNum2 As Integer)
Dim intSum As Integer

intSum = intNum1 + intNum2

txthasil.Text = intSum
End Sub

Sub proses(ByVal strGanjil As String, ByVal strGenap As String, ByVal strPrima As String, ByVal strFibo As String)
If (ComboBox1.SelectedIndex.Equals(0)) Then
BilGanjil()

ElseIf (ComboBox1.SelectedIndex.Equals(1)) Then
BilGenap()

ElseIf (ComboBox1.SelectedIndex.Equals(2)) Then
BilPrima()

ElseIf (ComboBox1.SelectedIndex.Equals(3)) Then
BilFibo()
End If
End Sub

Sub BilGanjil()
Dim ganjil As Integer
bilangan.Items.Clear()
ganjil = 1
Do While ganjil <= 20
bilangan.Items.Add(ganjil)
ganjil = ganjil + 2
Loop
End Sub

Sub BilGenap()
Dim genap As Integer
bilangan.Items.Clear()
genap = 0
Do While genap <= 20
bilangan.Items.Add(genap)
genap = genap + 2
Loop
End Sub

Sub BilPrima()
Dim prima As Integer

bilangan.Items.Clear()

Dim x As Integer
Dim y As Integer
Dim z As Integer

For x = 2 To 100
z = 0
For y = 2 To x
prima = x Mod y
If prima = 0 Then
z = z + 1
End If
Next y
If z <= 1 Then
bilangan.Items.Add(x)
End If
Next x
End Sub

Sub BilFibo()
bilangan.Items.Clear()
Dim a As Integer = 0
Dim b As Integer = 1
Dim fib As Integer = 0

bilangan.Items.Add(“1″)
Do
fib = a + b
a = b
b = fib
bilangan.Items.Add(fib.ToString)
Loop While fib <= 100
End Sub

5. Klik 2X pada Button2 (btnExit), lalu isikan koding seperti berikut :
Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs)
Handles btnExit.ClickMe.Close()
End Sub

6. Selesai, maka setelah itu jalankan programnya dengan memilih tombol run Maka seperti ini lah hasil program yang kita buat

Hasilnya :

! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! !  ! !  ! ! ! ! ! ! !  ! ! ! ! ! ! ! Selamat Mencoba dan Sukses yahhhh ! ! ! ! ! ! ! ! !  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! !  ! !  ! ! ! ! ! ! !  ! ! ! ! ! ! !

J J J J J J J J J J

 J J J J J

J J J J J