ỨNG DỤNG PHƯƠNG THỨC THIẾT LẬP

Một phần của tài liệu Lập trình VB.NET trực quan (Trang 52 - 54)

Bài mẫu 8. Hãy xác định và cài đặt các phương thức thiết lập cho lớp phân số.

Lớp phân số có hai thuộc tính tử số và mẫu số.

- Phương thức thiết lập mặc định: tử số được lấy mặc định là 0 và mẫu số được lấy mặc định là 1.

- Phương thức thiết lập khi biết tử số: tử số được gán giá trị tương ứng với giá trị của đối số đầu vào và mẫu số được lấy mặc định là 1.

- Phương thức thiết lập khi biết đầy đủ thông tin: tử số và mẫu số được gán giá trị tương ứng với giá trị của các đối số đầu vào. - Phương thức thiết lập sao chép: nhận tham số đầu vào là một

đối tượng cùng thuộc về lớp phân số và tạo ra một đối tượng phân số mới giống hoàn toàn đối tượng phân số đối số tương ứng.

Chương trình minh họa

ĐƠN THỂ LỚP PHÂN SỐ Public Class CPhanSo

‘Các thuộc tính

Private Tu As Integer Private Mau As Integer

‘ Phương thức thiết lập mặc định Public Sub New()

Tu = 0 Mau = 1 End Sub

‘ Phương thức thiết lập khi biết tử số Public Sub New(ByVal t As Integer)

Tu = t Mau = 1 End Sub

‘ Phương thức thiết lập khi biết đầy đủ thông tin Public Sub New(ByVal t As Integer,

ByVal m As Integer) Tu = t

Mau = m End Sub

‘ Phương thức thiết lập sao chép Public Sub New(ByRef ps As CPhanSo)

Tu = ps.Tu Mau = ps.Mau End Sub

Public Sub Nhap()

Console.Write("Nhap tu: ")

Tu = Console.ReadLine()

Console.Write("Nhap mau: ")

Mau = Console.ReadLine() End Sub

Public Sub Xuat()

Console.WriteLine(Tu & "/" & Mau) End Sub

End Class

HƯỚNG DẪN SỬ DỤNG CONSTRUCTOR Module Module1

Dim a As New CPhanSo a.Xuat()

Dim b As New CPhanSo(1)

b.Xuat()

Dim c As New CPhanSo(1, 2)

c.Xuat()

Dim d As New CPhanSo(c)

d.Xuat()

End Sub End Module

Một phần của tài liệu Lập trình VB.NET trực quan (Trang 52 - 54)

Tải bản đầy đủ (PDF)

(89 trang)