Presedur, Fungsi dan Property pada VB

Presedur, Fungsi dan Property pada VBPada visual basic penulisan program dilakukan dengan blok blok komponen. Kelompok2 program disebut prosedur. Setiap kali suatu prosedur dipanggil, maka rutin  program yang ada diantara judul prosedur dan akhir prosedur akan dieksekusi.
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
berulang-ulang sesuai kebutuhan
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

Subscribe to receive free email updates:

0 Response to "Presedur, Fungsi dan Property pada VB"

Post a Comment