مبتدی: تعریف اشیا

[leilast]

سلام
من مدتی هست که کد ننوشتم و مباحث شی ء گرایی رو فراموش کردم. الان یک کد خیلی ساده برای شروع نوشتم اما موقع اجرا چیزی اجرا نمیشه.
میشه بگید اشکال کجاس؟
ublic Class library Private Name_Book As String
Private Subject_book As String
Private Id_book As Integer
Private Count As Integer = 5
Private Capacity As Integer
Public Sub Insert()
Count += 1
If Capacity > 10 Then
Label1.Text = "full"
Count -= 1
Else
Label1.Text = "insert is done"
Label2.Text = Count
End If
End Sub
Public Sub library_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub BtnInsert_Click(sender As Object, e As EventArgs) Handles BtnInsert.Click
Dim libr As New library
libr.Insert()
End Sub
End Class

[peyman_Esi]

میشه لطفا اروری که میده را بنویسی

[leilast]

اروری نمیده ولی InsertBottunرو که میزنم هیچ اتفاقی نمیفته. در واقع متد insert اصلا اجرا نمی شه.

[leilast]

من کمی کدم رو ویرایش کردم اما باز هم چیزی اجرا نشد
می خواستم اگر ممکنه پیشنهادی بدید تا من از این مرحله رد شم.
اگر نمونه کد کوچک دارین که واضح باشه من خودم متوجه بشم هم خوبه.
اینم کد اصلاح شده

Public Class Library
Private Name_Book As String
Private Subject_book As String
Private Id_book As Integer
Private Count As Integer = 5
Public Event Full()
Public Property Capacity() As Integer
Get
Return Capacity
End Get
Set(value As Integer)
If value = Count Then RaiseEvent Full()
Label1.Text = "full"
End Set
End Property
Public Sub Insert()
While Count < 10
Count += 1
TextBox1.Text = "insert is done"
End While
End Sub
Public Sub Library_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim Capacity As Integer = 10
End Sub
Private Sub BtnInsert_Click(sender As Object, e As EventArgs) Handles BtnInsert.Click
Dim libr As New Library
libr.Insert()
End Sub
End Class

[محمد آشتیانی]

سلام
پروژتون رو ضمیمه کنید لطفا

[leilast]

متاسفانه چند بار تلاش کردم اما پروژه ضمبمه نمیشه چون حجمش زیاده.
من با ویژوال استودیو ۲۰۱۷ نوشتم.
امکانش هست ایمیلتون رو بدید تا براتون بفرستم.

[محمد آشتیانی]

سلام
اول اینکه کلاس Library رو در یک کلاس مجزا بسازید و نه در کلاس فرم


Public Class Library

Public Property Capacity() As Integer
Private Property Count as Integer = 5

Public Function Insert() As string


count += 1


If count > Capacity Then
Return "Full"
Else
Return "Insert is done"
End If


End Function


End Class


در مرحله بعد ، طبیعیه وقتی شما در رویداد کلیک باتن یک instance از کلاس می سازید ، شمارنده شما مقدارش با هر کلیک اضافه نمیشه ، بنابراین instance کلاس library باید در سطح فرم باشه و با هرکلیک متد insert فراخوانی بشه صرفا (مثال زیر)


Public Class Form1


Private libraryClass As New Library


Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
libraryClass.Capacity = 10
End Sub


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Label1.Text = libraryClass.Insert()
End Sub


End Class



نیازی به فرستادن پروژه نیست.