Pertemuan 7 | 23 Maret 2015 | Prosedur

PROCEDURE

1. Pengertian

Procedure adalah blok kode program yang berisi perintah-perintah untuk mengerjakan tugas tertentu. Bila di dalam kode program yang kita buat ada perintah-perintah untuk melakukan tugas yang sama di beberapa tempat, maka akan lebih baik perintah-perintah tersebut dibuat dalam sebuah procedure. Procedure biasanya dibuat untuk menangani berbagai macam tindakan yang akan dilakukan secara berulang, sehingga perlu dituliskan suatu prosedur untuk menangani hal tersebut tanpa perlu menuliskan kode yang sama lagi.

2. Prosedur Sub

Sebuah prosedur Sub merupakan sebuah blok kode yang dieksekusi untuk merespon sebuah event atau procedure yang tidak dapat mengembalikan nilai, biasanya digunakan

untuk melakukan serangkaian proses yang tidak membutuhkan nilai balik terhadap proses

tersebut. Setiap kali prosedur dipanggil, maka pernyataan-pernyataan yang berada di antara baris Sub dan End Sub dieksekusi. Prosedur Sub dapat ditempatkan di dalam standard modules, class modules, dan module form. Prosedur Sub secara default Public dalam semua module, yang artinya mereka dapat dipanggil dari manapun di aplikasi. Argumen untuk sebuah prosedur seperti deklarasi sebuah variabel, mendeklarasikan nilai yang dilewatkan dari pemanggilan prosedur. Argumen di dalam prosedur tadi tidak bersifat wajib.

Sintaks dasar untuk membuat Subrutin adalah sebagai berikut :

{Lingkup} Sub NamaPosedur ([Argumen])

                {Pernyataan Prosedur}

End Sub

Contoh:

Private Sub PesanNama (ByVal strNama As String) MsgBox (“Hello” + strNama) End Sub

Keterangan :

- Prosedur diatas merupakan suatu Subrutin yang memiliki sebuah parameter dengan

tipe string, dan satu baris pernyataan dalam prosedur dengan ruang lingkup Private

(Modul).

- Untuk memanggil Prosedur, dapat dilakukan dengan melengkapi sintaks diatas

dengan kode misalnya seperti berikut :

PesanNama (“Roby”) 

3. Tutorial :  Membuat program yang menggunakan Prosedur Sub

• Langkah pertama adalah buka program microsoft visual studio 2008 dengan cara klik Start > All program > Microsoft Visual Studio 2008.
• Langkah Kedua klik pada create project untuk memulai project baru, atau masuk ke menu File > New Project.
• Langkah ketiga pilih Windows Forms Application, anda bisa merubah nama project anda pada textbox di bagian bawah. Klik OK.
• Langkah keempat buatlah desain form seperti gambar di bawah ini. Lalu ubahlah propertiesnya seperti pada tabel berikut:

Objek	Text	Name
GroupBox	Jenis Bilangan
GroupBox	Contoh Bilangan
GroupBox	Hitung Bilangan
ComboBox	Pilih Bilangan	cboBilangan
ListBox		lstBilangan
Label1	Bilangan1
Label2	Bilangan2
Label3	Hasil
TextBox1		txtBil1
TextBox2		txtBil2
TextBox3		txtHasil
Button1	Lihat Bil	btnLihatBil
Button2	Exit	btnExit
Button3	Hitung	btnHitung

• Langkah kelima masukkan koding berikut

Public Class Bilangan Dim awal, akhir, hasil As String 'coding untuk tombol LihatBil (Memanggil prosedur ProsesBilangan) Private Sub btnLihatBil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLihatBil.Click ProsesBilangan(cboBilangan.SelectedItem) End Sub 'coding untuk tombol Hitung (memanggil prosedur ShowSum) Private Sub btnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHitung.Click ShowSum(txtBil1.Text, txtBil2.Text) End Sub 'prosedur untuk menghitung 2 bilangan Sub ShowSum(ByVal intNum1 As Integer, ByVal intNum2 As Integer) Dim intSum As Integer intSum = intNum1 + intNum2 txtHasil.Text = intSum End Sub 'prosedur ProsesBilangan Sub ProsesBilangan(ByVal strJenisBilangan As String) If strJenisBilangan = "Ganjil" Then lstBilangan.Items.Clear() Ganjil() ElseIf strJenisBilangan = "Genap" Then lstBilangan.Items.Clear() Genap() ElseIf strJenisBilangan = "Prima" Then lstBilangan.Items.Clear() Prima() ElseIf strJenisBilangan = "Fibonaci" Then lstBilangan.Items.Clear() Fibonacci() End If End Sub 'prosedur untuk mencari bilangan ganjil Sub Ganjil() Dim i As Integer awal = Val(InputBox("masukkan batasan awal", "Batasan")) akhir = Val(InputBox("masukkan batasan akhir", "Batasan")) For i = awal To akhir i = i + 0 If (i Mod 2 = 1) Then lstBilangan.Items.Add(i) End If Next End Sub 'prosedur untuk mencari bilangan genap Sub Genap() Dim i As Integer awal = Val(InputBox("masukkan batasan awal", "Batasan")) akhir = Val(InputBox("masukkan batasan akhir", "Batasan")) For i = awal To akhir i = i + 0 If (i Mod 2 = 0) Then lstBilangan.Items.Add(i) End If Next End Sub 'prosedur untuk mencari bilangan prima Sub Prima() Dim x, y, z As Integer awal = Val(InputBox("masukkan batasan awal", "Batasan")) akhir = Val(InputBox("masukkan batasan akhir", "Batasan")) If awal >= 2 Then For x = awal To akhir z = 0 For y = 2 To x hasil = x Mod y If hasil = 0 Then z = z + 1 End If Next If z <= 1 Then lstBilangan.Items.Add(x) End If Next Else MsgBox("Bilangan Prima dimulai dari 2") End If End Sub 'prosedur untuk mencari bilangan fibonacci Sub Fibonacci() Dim i, x, y, z As Integer akhir = Val(InputBox("masukkan batasan akhir", "Batasan")) y = 0 z = 1 lstBilangan.Items.Add(y) lstBilangan.Items.Add(z) For i = 0 To akhir x = y + z y = z z = x If x > akhir Then Exit For lstBilangan.Items.Add(x) Next End Sub 'coding untuk tombol exit Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click Me.Close() End Sub End Class

• Langkah keenam untuk mendapatkan hasil dari coding di atas kita tekan F5 pada keyboard anda, setelah diinputkan nilai maka hasilnya akan seperti berikut.
  
  
  

• Langkah ketujuh, jika telah selesai klik tombol exit untuk mengakhiri aplikasi.