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!