Kod untuk class Product

Kod di bawah adalah kod lengkap untuk class Product. Seperti yang anda lihat, ia bermula dengan satu kenyataan class yang mengisytiharkan class Product dengan pengubahsuai akses Public. Ini pengubahsuai acces membolehkan class lain mengakses class ini.

Kod dalam class mentakrifkan ahli-ahli class Produk.

Tiga kenyataan pertama di dalam class ini adalah pengisytiharan untuk tiga pembolehubah class, yang dipanggil bidang(fields). Seperti yang anda boleh lihat, bidang ini digunakan untuk menyimpan data untuk properties Code, Description, dan Price. Kerana pembolehubah ini ditakrifkan dengan pengubahsuai akses peribadi, mereka tidak boleh dirujuk dari luar class.

Selepas bidang adalah deklarasi untuk kedua-dua pengeluar kelas Produk. The pembina pertama, yang tidak menerima sebarang hujah, mewujudkan contoh kelas Produk dan kepada asal medan untuk nilai lalai. The cantructor kedua mewujudkan contoh kelas dan kepada asal dengan nilai-nilai yang diluluskan melalui parameter kod, penerangan, dan harga.

Seterusnya adalah deklarasi untuk tiga properties kelas Product. Ciri-ciri ini menyediakan akses kepada nilai-nilai yang disimpan di dalam tiga bidang. Dalam setiap perisytiharan property adalah dua prosedur yang mendapatkan dan menetapkan nilai property itu.

Terakhir adalah perisytiharan bagi kaedah GetDisplayText, yang menerima parameter String yang dinamakan Sep. Kaedah ini mengembalikan String yang menggabung nilai properties Code,Description, dan Price, dipisahkan oleh nilai pas melalui parameter Sep ini.

Perhatikan bahawa anda sentiasa menggunakan pengubahsuai akses Public untuk mengenal pasti properties dan method yang boleh diakses dari kelas lain. Sebaliknya, anda menggunakan acess pengubahsuai Private untuk mengisytiharkan bidang yang anda tidak mahu untuk diakses dari kelas lain. Dalam kes itu, sebagai contoh, dalam bidang hanya boleh diakses walaupun ciri-ciri yang ditakrifkan oleh kelas. Anda juga boleh menggunakan akses pengubahsuai Private untuk properties kod dan kaedah yang anda tidak mahu diakses dari kelas lain.

Kelas Product

 

Public Class Product             Private m_Code As String             Private m_Description As String             Private m_Price As Decimal             Public Sub New()             End Sub             Public Sub New(ByVal code As String, ByVal description As String, ByVal price As Decimal)                         Me.Code=code                         Me.Description=description                         Me.Price=price             End Sub             Public Property Code() As String                         Get                                     Return m_Code                         End Get                         Set(ByVal value As String)                                     m_code=value                         End Set             End Property             Public Property Description() As String                         Get                                     Return m_Description                         End Get                         Set(ByVal value As String)                                     m_Description=value                         End Set             End Property             Public Property Price() As String                         Get                                     Return m_Price                         End Get                         Set(ByVal value As String)                                     m_Price=value                         End Set             End Property             Public Function GetDisplayText(ByVal sep As String) As String             Dim text As String=Code & sep & FormatCurrency(Price) & sep & Description             Return text             End Function End Class