 | Artikel Visual Basic |
| Basis Data - Database |
| Pemrograman Grafis |
| E-Book Tutorial |
| Video Kursus - Tutorial |
| Software - Open Source code |
| W E B Programming |
| Windows System |
| XBasicFramework |
| Berbagi Pengalaman |
| Quick Basic |
|
Software gratis! Open Source
Code
|
|
|
|
|
MENU>Artikel Visual Basic>Visual Basic 6.0>Variable Scoope
|
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
Untuk memperoleh penjelasan lebih detail anda
bisa baca E-Book saya yang berjudul TRIK DASAR
BELAJAR VISUAL BASIC 6.0
klik di sini
|
|