プロパティ

COBOL のプロパティ

      $set sourceformat(free) 
class-id MyClass.

    01 _size binary-long private.
    method-id get property #Size.
        procedure division returning ret as binary-long.
        set ret to _size
    end method.

    method-id set property #Size.
        procedure division using by value val as binary-long.
        if val < 0
            set _size to 0
        else
            set _size to val
        end-if
    end method.

end class.
 
class-id a.
    method-id main.
        01 foo type MyClass value new MyClass.
        add 1 to foo::Size
        display foo::Size
    end method.
end class a.

C# のプロパティ

private int _size;
 
public int Size 
{ 
  get 
  { 
    return _size; 
  } 
  set 
  { 
    if (value < 0)
    {    
      _size = 0; 
    }
    else
    {    
      _size = value; 
    }
  } 
}
foo.Size++;

VB.NET のプロパティ

Private _size As Integer
 
Public Property Size() As Integer
  Get 
    Return _size 
  End Get 
  Set (ByVal Value As Integer) 
    If Value < 0 Then 
      _size = 0 
    Else 
      _size = Value 
    End If 
  End Set 
End Property
 
foo.Size += 1

これらの例の一部は、ハーディング大学コンピュータ サイエンス学部の Frank McCown 博士が作成したもので、クリエイティブ コモンズ ライセンスに基づいて使用が許可されています。