Định nghĩa và sử dụng kiểu dữ liệu mới kiểu bản ghi

Định nghĩa và sử dụng kiểu dữ liệu mới - Kiểu bản ghi

Định nghĩa và sử dụng kiểu
dữ liệu mới - Kiểu bản ghi
Bởi:
Khoa CNTT ĐHSP KT Hưng Yên
Thực hành: Định nghĩa kiểu dữ liệu mới để biến thuộc kiểu dữ liệu này có thể lưu trữ
được các thông tin về một cuốn sách (Tên sách, Tên tác giả, năm xuất bản, giá).
Hướng dẫn: Kiểu dữ liệu mới nên định nghĩa trong Module, còn nếu định nghĩa trong
Form thì chỉ có thể ở dạng Private (tức chỉ sử dụng cục bộ trong Form) mà không thể
ở dạng Public (Sử dụng trong mọi Form).
Minh hoạ: Tạo module mới: Vào menu Project → Add Module. Lưu module này với
tên : modDataTypes.bAs
Gõ đoạn lệnh dưới đây vào trong module vừa tạo:
Option Explicit
'/// Định nghĩa kiểu dữ liệu mới : KieuSach
Public Type KieuSach
TenSach As String
TacGia As String
NamXB AsInteger
Gia As Single
End Type
Gõ đoạn lệnh dưới đây trong thủ tục Form_Load:
Option Explicit

1/2


Định nghĩa và sử dụng kiểu dữ liệu mới - Kiểu bản ghi

Dim Sach As KieuSach

Dim KhoSach(100) As KieuSach
Private SubForm_Load()
Sach.TenSach = "Lập trình VB thật là đơn giản"
Sach.TacGia = "Software Team - UTEHY"
Sach.NamXB = 2006
Sach.Gia = 45000
'/// Gán một số giá trị cho phần tử có chỉ số là 1 cho mảng
KhoSach(1).TenSach = "Bài tập Visual Basic"
KhoSach(1).TacGia = "Software Team - UTEHY"
KhoSach(1).NamXB = 2006
KhoSach(1).Gia = 34500
MsgBox Sach.TenSach & " giá : " & Sach.Gia
MsgBox KhoSach(1).TenSach & " Giá : " & KhoSach(1).Gia
End sub
• Ghi chú:
• Đoạn chương trình trên định nghĩa kiểu bản ghi (tương tự như Record trong
PAscal hay struct trong C/C++) bằng câu lệnh Type, từ khoá Public đứng
trước để chỉ ra rằng kiểu dữ liệu này có thể được dùng trong mọi Form, mọi
module. Còn nếu sử dụng từ khoá Private thay vì Public thì kiểu dữ liệu mới
này chỉ được sử dụng trong chính module đó mà thôi.
• Đoạn code tiếp theo khai báo 2 biến thuộc kiểu dữ liệu vừa định nghĩa. Một là
biến thông thường, biến thứ hai là một mảng.
? Kiểu dữ liệu mảng thường được thao tác kết hợp với vòng lặp. Các ví dụ thêm về
mảng kết hợp với vòng lặp sẽ được đề cập ở các phần tiếp sau.

2/2