Modul
Isi
Indeks 🔎︎

# Pernyataan Statis

Mendeklarasikan variabel atau array pada level prosedur dalam subrutin atau fungsi, sehingga nilai-nilai variabel atau array dipertahankan setelah keluar dari subrutin atau fungsi. Konvensi pernyataan samar juga valid.

Pernyataan Statis tidak dapat digunakan untuk mendefinisikan variabel array. Array harus ditentukan sesuai dengan ukuran tetap.

## Sintaksis:

    Global VarName[(start To end)] [As VarType][, VarName2[(start To end)] [As VarType][,...]]

## Contoh:

    Sub ExampleStatic

    Dim iCount As Integer, iResult As Integer

        For iCount = 0 To 2

            iResult = InitVar()

        Next iCount

        MsgBox iResult,0,"Jawabannya adalah"

    End Sub

    'Fungsi untuk inisialisasi variabel statis

    Function InitVar() As Integer

        Static iInit As Integer

        Konstanta iMinimum Sebagai Integer = nilai pengembalian minimum fungsi ini

        Jika iInit = 0 Lalu 'periksa apakah diinisialisasi

            iInit = iMinimum

        Else

            iInit = iInit + 1

        End If

        InitVar = iInit

    End Function