CONTOH APLIKASI PROCEDURE & SUB PROCEDURE DI VB 2010
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.
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 Sub rutin 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 (“IpulBurhan”)
Contoh program yang menggunakan Prosedur Sub.Berikut ini adalah langkah-langkahnya :
1. Buka Visual Basic 2010 anda seperti gambar di bawah ini
2. Kemudian klik " New project " Seperti gambar di bawah ini
3. Setelah di klik maka akan mucul gambar di bawah ini kemudian klik " Windows Form Application "
4. Kemudian akan muncul form kosong seperti gambar di bawah ini
5. Setelah itu anda sorot ke arah kiri pada form ada atau cari " Toolbox" kemudian pilih "Button" , "ListBox" , "GroupBox" , " Label" , "ComboBox" seperti gambar di bawah ini
6. maka hasilnya akan muncul form seperti gambar di bawah ini
CATATAN : "Ganti semua properti seperti ListBox1, Button1 dan yang lainnya menjadi seperti gambar di bawah ini "
Objek
|
Text
|
Name
|
GroupBox
|
Jenis Bilangan
|
|
GroupBox
|
Hasil Bilangan
|
|
GroupBox
|
KALKULATOR SEDERHANA
|
|
ComboBox
|
Pilih Bilangan
|
cboBilangan
|
ListBox
|
|
lstBilangan
|
Label1
|
Bilangan1
|
|
Label2
|
Bilangan2
|
|
Label3
|
Hasil
|
|
TextBox1
|
|
txtbilangan1
|
TextBox2
|
|
txtbilangan2
|
TextBox3
|
|
txthasil
|
Button1
|
Lihat Bil
|
btnLihatBil
|
Button2
|
Exit
|
btnExit
|
Button3
|
Hitung
|
btnhitung
|
7. Kemudian copy script di bawah ini .
Public Class Bilangan
Dim awal, akhir, hasil As String
Dim x, y, z As Integer
Dim i As Integer
'prosedur untuk mencari bilangan ganjil
Private Sub Ganjil()
lstBilangan.Items.Clear()
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
Private Sub Genap()
lstBilangan.Items.Clear()
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
Private Sub Prima()
lstBilangan.Items.Clear()
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 Fibonaci
Private Sub Fibonaci()
lstBilangan.Items.Clear()
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 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
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub
' prosedur Proses Bilangan
Sub ProsesBilangan(ByVal strNamaBilangan As String)
If cboBilangan.SelectedItem = "Ganjil" Then
Ganjil()
ElseIf cboBilangan.SelectedItem = "Genap" Then
Genap()
ElseIf cboBilangan.SelectedItem = "Prima" Then
Prima()
ElseIf cboBilangan.SelectedItem = "Fibonaci" Then
Fibonaci()
End If
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
'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(txtbilangan1.Text, txtbilangan2.Text)
End Sub
End Class
8. Maka hasilnya akan seperti gambar di bawah ini
Selamat mencoba ... (^_^)
幸運を... (^_^)
