C# と VB.NET の質問掲示板

Public Class Form1
    Dim dx As computer = New computer()
    Dim n As String
    Dim p As Integer
    



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        n = TextBox1.Text 'TextBox1に文字数ｎを代入

        p = Integer.Parse(n) '文字数ｎを数値に変換

        dx.memorycapa = p 'インスタンスdxのプロパティに数値ｐを代入
        
        dx.showmemory() 'showmemory()メソッドを実行
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Clear()

    End Sub
End Class
Class computer
    Private memory As Integer = 512
    Public Property memorycapa()
        Get
            Return memory
        End Get
        Set(ByVal value)
            If value > 248 And value < 2048 Then memory = value

        End Set
    End Property
    Sub showmemory()
        MessageBox.Show(memory)
    End Sub
End Class

オブジェクト指向のプロパティがよくわかりかねるのでコードを書いてみました。
プロパティは、フィールドがカプセル化されているときに直接アクセスできるメソッドであるとのことですが、
下記のコードは、TextBox1にメモリ容量を書き込み、value > 248 And value < 2048 の範囲であれば、その数値が
MessageBox.で表示され、この範囲を超えると512が表示されると思うのですが、例えば、640を入力して、その後
範囲外の数値を入力すると、その直前に入力した640が表示されつづけます。
512にならなくても問題はないと思いますが、プロパティとはこのようなものという理解でよいのでしょうか


Public Class Form1
    Dim dx As computer = New computer()
    Dim n As String
    Dim p As Integer
    



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        n = TextBox1.Text 'TextBox1に文字数ｎを代入

        p = Integer.Parse(n) '文字数ｎを数値に変換

        dx.memorycapa = p 'インスタンスdxのプロパティに数値ｐを代入
        
        dx.showmemory() 'showmemory()メソッドを実行
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Clear()

    End Sub
End Class
Class computer
    Private memory As Integer = 512
    Public Property memorycapa()
        Get
            Return memory
        End Get
        Set(ByVal value)
            If value > 248 And value < 2048 Then memory = value

        End Set
    End Property
    Sub showmemory()
        MessageBox.Show(memory)
    End Sub
End Class

 
> くだんさんも書かれてますが、なにがわからなかったのか、どうわかるようになったのかを
> 書いてくださるとありがたいです。
> 回答する側は質問者と一緒になって考えていますし、どう解決したのかが知りたくて回答を
> 考えている部分もあります。
> 改めて考えたらちょっとした勘違いであったとか、見直してみたらちゃんと理解できたとか
> そういった些細なことでもいいので、書いてもらえると回答者としてはありがたいです。

すみません。見直した結果問題なかったということでした。
今後はよく考えてから質問したいと思います。ご迷惑かけました。m(_ _)m