Variable Scoope

Variable yang dinyatakan sebagai Public mempunyai scoope global. Artinya semua bagian, bagian sub procedure baik yang terdapat pada Modul, Form ataupun Class bisa membaca variable ini. Lihat contoh menyatakan variable di bawah ini:

'-- kode pada Module1
Public lBil As Long

'-----------------------------------


Variable yang dinyatakan dengan kata Private mempunyai daya tembus terhadap sub-sub prosedur yang lebih local. Misal pada form ini variable sNama di nyatakan secara Private, artinya variable ini dapat dibaca dari prosedur command2_click()

Variable yang dinyatakan dengan kata Dim (tidak selalu: baca-dengan Dim lebih baik perhatikan tempat di mana variable tersebut didefenisikan, karena bisa saja dim dipakai di area private. Untuk menjaga agar kode program agar tidak banyak bug, lebih baik gunakan Dim pada area local) merupakan variable local. Lihat pernyataan variable pada sub command5_click(). Variable sHalo hanya tidak mempunyai daya tembus ke mana-mana. Tetapi hanya dalam sub prosedur itu saja.

Tips: Untuk mengurasi kesalahan (debug) kode program yang kita buat, para petinggi programmer menganjurkan agar sedapat mungkin menggunakan variable yang paling local.
Sedapat mungkin juga gunakan option explicit artinya kita memerintah Visual Basic agar semua variable harus didefenisikan terlebih dahulu.


'---kode pada form1
Option Explicit
                                                                                                                                                                        Public bBenar As Boolean
Private sNama As String
Private sAlamat As String

Private Sub Command2_Click()  
  sAlamat = "jln Denai"
  MsgBox sAlamat
End Sub

Private Sub Command3_Click()
  MsgBox Module1.lBil
End Sub

Private Sub Command4_Click()
  Form2.Show
End Sub

Private Sub Form_Load()
  bBenar = False
End Sub


Private Sub Command5_Click()
  Dim sHalo As String
  sHalo = "Halo belajar Visual Basic"
  MsgBox sHalo
End Sub
'-----------------------------------


'---kode pada form2
Private Sub Command1_Click()
  Module1.lBil = 100
  MsgBox Module1.lBil
End Sub

Private Sub Command2_Click()
   MsgBox Form1.bBenar
End Sub
'---------------------------------------




Download Kode di sini

0 komentar:

Poskan Komentar

Starcraft Pointer
 
Web Design by : Givo-Alfajri ..!! ®