Blok perintah yang dijalankan dan dapat mengembalikan nilai disebut

Ada dua keuntungan dari prosedur:

1.  Program terbagi menjadi komponen komponen yang mandiri. Sehingga mudah untuk melacak atau memperbaiki kesalahan (error)

2.     Prosedur yang terdapat dalam suatu program dapat dipakai secara

Dalam visual basic prosedur dibagi 3:

1.      Sub prosedur

2.      Function prosedur

3.      Property prosedur

Sub prosedur

Suatu blok program atau perintah yang dijalankan sebagai tanggapan atas terbentuknya kejadian(event)

Bentuk penulisan dari sub prosedur:

[Private], [public], [static] sub nama prosedur (parameter)

……….blok perintah/program………

End sub

Contoh:

                     private sub form_click()

                     ……………..

                     end sub

Default dari vb adalah public kecuali sudah dituliskan private atau static. Public artinya umum maksudnya programnya bisa dipanggil dari bagian mana saja dalam program.

Cara pemanggilan:

Call nama prosedur (parameter1, parameter2)
Atau
Nama prosedur parameter1, parameter2

Sub prosedur bisa berupa:

1.      General Prosedur

2.      Event Prosedur

GENERAL PROSEDUR

Prosedur umum yang digunakan untuk menghasilkan proses atau pernyataan umum yang bisa dipakai oleh event event prosedur pada tubuh program. Dengan demikian kita tidak perlu menuliskan kode program secara berulang-ulang.

Sekali didefinisikan general prosedur akan dijalankan oleh aplikasi. Tidak seperti event prosedur yang hanya akan dijalankan ketika suatu event terjadi

Pendeklarasian variabel diletakkan pada code editor dimana pada general prosedur dapat ditambahkan perintah option explicit. Jika option explicit disertakan maka seluruh variabel yang digunakan harus dideklarasikan terlebih dahulu.

Contoh:

Deklarasikan suatu variabel pada general prosedur masing2 bil_1 sedang variabel bil_2 tidak perlu dideklarasikan. Pastikan pada code editor terdapat perintah option explicit. Selanjutnya buat prosedur form_click dan ketik listing programnya sbb:

Option explicit

Public bil_1,

Private sub form_ click()

Bil_1 = 3

Bil_2 = 7

Print “nilai variabel bil_1 : “ & bil_1

Print “ nilai variabel bil_2: “ & bil_2

end sub

EVENT PROSEDUR

Digunakan untuk mengatur kontrol oleh suatu event (kejadian) dari pemakai program

Beberpa event yang sering digunakan: activate, click, change, drag, double click, enter, dll

Karena tugas dari event prosedur adalah untuk menanggapi event dari pemakai, maka biasanya event prosedur diberi nama sesuai dengan eventnya.

Bentuk penulisan event prosedur

Private sub nama kontrol_nama event (parameter)

…….pernyataan……

End sub

contoh:

private sub form_click()

dim a as byte

dim b as byte

for a = 3 to 1 step -1

for b = a to 1 step -1

next b

next a

end sub

(error)

private sub form_click()

dim a as integer

dim b as integer

for a = 3 to 1 step -1

for b = a to 1 step -1

next b

print b;

next a

print

end sub

FUNCTION PROSEDUR

Adalah  suatu prosedur yang akan mengembalikan suatu nilai. Prosedur ini lebih banyak digunakan untuk  rutin program untuk berhitung. Visual basic 6.0 menyediakan beberapa internal function prosedur sehingga pemakai program tidak perlu lagi untuk menuliskan prosedur  untuk fungsi tersebut. Beberap fungsi yang telah tersedia: sin, cos, mod, int, sqr, dll

Bentuk penulisan:

[private] [public] [static] function nama (parameter) [as type]

………….pernyataan

End function

Sebuah function presedur dapt dipanggil dengan menggabungkan pernyataan lain sbb:

Variabel = nama_function_presedur

Cara lain untuk memanggil function prosedur:

Call nama_function_prosedur (parameter)

Atau

Nama_function_prosedur (parameter)

Contoh:

Private  sub form_click()

Dim panjang, lebar

Panjang = inputbox (“panjang bidang”)

Lebar = input box (“lebar bidang”)

Print panjang bidang : “ & panjang

Print lebar bidang :  “ & lebar

Print “luas bidang :  “ ;

Print luas (panjang, lebar)

End sub

Function luas (p, l)

Luas = p * l

End function

PROPERTY PROSEDUR

Ada tiga property prosedur yang terdapt pada vb 6.0 yaitu:

1.      Property let (untuk mengatur nilai pada property)

2.      Property get(untuk mengembalikan nilai pada property)

3.      Property set(untuk mengatur referensi pada objek)

latihan Property 

Kode program

Dim CurrentColor As String

Const BLACK = vbBlack, RED = vbRed

Const GREEN = vbGreen, BLUE = vbBlue

Private Sub Command1_Click()

PenColor = Combo1.Text

Form1.BackColor = CurrentColor

End Sub

Private Sub Command2_Click()

Form1.Caption = "BackColor is " & PenColor

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Form_Load()

Combo1.AddItem "BLACK"

Combo1.AddItem "RED"

Combo1.AddItem "GREEN"

Combo1.AddItem "BLUE"

End Sub

Property Let PenColor(ColorName As String)

    Select Case ColorName

        Case "RED"

            CurrentColor = vbRed

        Case "GREEN"

            CurrentColor = vbGreen

        Case "BLUE"

            CurrentColor = vbBlue

        Case Else

            CurrentColor = vbBlack

    End Select

End Property

Property Get PenColor() As String

Select Case CurrentColor

        Case vbRed

            PenColor = "RED"

        Case vbGreen

            PenColor = "GREEN"

        Case vbBlue

            PenColor = "BLUE"

        Case Else

            PenColor = "BLACK"

    End Select

End Propert

Baca juga relasi berikut: