Static Statement

āĻāĻ•āϟāĻŋ āϏāĻžāĻŦāϰ⧁āϟāĻŋāύ āĻ…āĻĨāĻŦāĻž āĻĢāĻžāĻ‚āĻļāύ⧇āϰ āĻŽāĻ§ā§āϝ⧇ āĻŦāĻŋāĻĻā§āϝāĻŽāĻžāύ āĻĒā§āϰāϏāĻŋāϜāĻžāϰ⧇ āĻāĻ•āϟāĻŋ āϭ⧇āϰāĻŋā§Ÿā§‡āĻŦāϞ āĻ…āĻĨāĻŦāĻž āĻ…ā§āϝāĻžāϰ⧇ āĻĄāĻŋāĻ•ā§āĻ˛ā§‡ā§ŸāĻžāϰ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇, āϝāĻžāϤ⧇ āϭ⧇āϰāĻŋā§Ÿā§‡āĻŦāϞ āĻ…āĻĨāĻŦāĻž āĻĢāĻžāĻ‚āĻļāύ⧇āϰ āĻŽāĻžāύ⧇āϰ āĻŦā§āϝāĻŦāĻšāĻžāϰ āϏāĻžāĻŦāϰ⧁āϟāĻŋāύ āĻ…āĻĨāĻŦāĻž āĻĢāĻžāĻ‚āĻļāύ āĻĨ⧇āϕ⧇ āĻĒā§āϰāĻ¸ā§āĻĨāĻžāύ āĻ•āϰāĻžāϰ āĻĒāϰ⧇āĻ“ āĻ…āĻŦā§āϝāĻžāĻšāϤ āϰāĻžāĻ–āĻž āϝāĻžā§ŸāĨ¤ Dim āĻ¸ā§āĻŸā§‡āϟāĻŽā§‡āĻ¨ā§āϟ āύāĻŋ⧟āĻŽāĻžāĻŦāϞ⧀āĻ“ āĻŦ⧈āϧāĨ¤

āϏāϤāĻ°ā§āĻ•āϤāĻžāĻŽā§‚āϞāĻ• āφāχāĻ•āύ

āĻ¸ā§āĻŸā§āϝāĻžāϟāĻŋāĻ• āĻ¸ā§āĻŸā§‡āϟāĻŽā§‡āĻ¨ā§āϟ āϭ⧇āϰāĻŋā§Ÿā§‡āĻŦāϞ āĻ…ā§āϝāĻžāϰ⧇ āύāĻŋāĻ°ā§āϧāĻžāϰāĻŖ āĻ•āϰāĻžāϰ āϜāĻ¨ā§āϝ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻ•āϰāĻž āϝāĻžā§Ÿ āύāĻžāĨ¤ āĻ…ā§āϝāĻžāϰ⧇āϏāĻŽā§‚āĻš āĻ…āĻŦāĻļā§āϝāχ āĻāĻ•āϟāĻŋ āύāĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āϟ āφāĻ•āĻžāϰ āĻ…āύ⧁āϏāĻžāϰ⧇ āωāĻ˛ā§āϞ⧇āĻ–āĻŋāϤ āĻšāĻŦ⧇āĨ¤


āϏāĻŋāύāĻŸā§āϝāĻžāĻ•ā§āϏ:


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

āωāĻĻāĻžāĻšāϰāĻŖ:


Sub ExampleStatic
Dim iCount As Integer, iResult As Integer
    For iCount = 0 To 2
        iResult = InitVar()
    Next iCount
    MsgBox iResult,0,"The answer is"
End Sub
 
āύāĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āϟ āϚāϞāĻ• āĻļ⧁āϰ⧁ āĻ•āϰāĻžāϰ āϜāĻ¨ā§āϝ REM āĻĢāĻžāĻ‚āĻļāύ
Function InitVar() As Integer
    Static iInit As Integer
    Const iMinimum as Integer = 40 REM āĻĢāĻžāĻ‚āĻļāύ⧇āϰ āϏāĻ°ā§āĻŦāύāĻŋāĻŽā§āύ āĻĒā§āϰāĻĻāĻžāύ āĻŽāĻžāύ
    if iInit = 0 then REM check if initialized
        iInit = iMinimum
    Else
        iInit = iInit + 1
    End If
    InitVar = iInit
End Function

Please support us!