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