Visual Basic 6 - chương 6

Trong chương 5 ta học qua các điểm căn bản về việc dùng variables. Vì công việc chính của mộtchương trình là xử lý data chứa trong variables, cho nên nếu VB6 cho ta càng nhiều phương tiện đểlàm việc với variables thì càng tiện lợi. Trong chương nầy ta sẽ học:
Nội dung trích xuất từ tài liệu:
Visual Basic 6 - chương 6 Chương Sáu - Dùng dữ kiệnTrong chương 5 ta học qua các điểm căn bản về việc dùng variables. Vì công việc chính của mộtchương trình là xử lý data chứa trong variables, cho nên nếu VB6 cho ta càng nhiều phương tiện đểlàm việc với variables thì càng tiện lợi. Trong chương nầy ta sẽ học: Boolean variable, tại sao nó hữu dụng• Variant variable, cách làm việc với nó.• Cách biến đổi (convert) từ loại data type nầy qua loại data khác• Arrays của variables và Arrays của controls• Cách tạo một data type theo ý mình•Boolean VariablesBoolean là loại data chỉ có thể lấy một trong hai values: True hay False. Khi học về StatementIF...THEN trong chương 4, ta đã nói sơ qua về Boolean data type. Cái phần ở giữa hai chữ IF vàTHEN được gọi là Logical Expression và kết quả của một Logical Expression là một Booleanvalue. Nếu điều kiện đuợc thỏa mãn thì value là True, nếu không thì là False.Bạn hỏi nếu một variable chỉ có thể có hai values, tại sao ta không thể dùng Integer và giới hạncách dùng trong vòng hai values 1 và 0 thôi, cần gì phải đặt ra Boolean data type. Làm như vậy cũngđược, nhưng cái khác biệt chính là khi ta operate trên 2 variables ta phải biết rõ rằng để làm việcvới Integer ta dùng +, -, *, \ trong khi với Boolean ta dùng OR, AND, NOT, XOR. Thử xem thí dụdưới đây: Use Integer with values 1 or 0 Dim IAnumber As Integer Dim IBnumber As Integer Dim IAge As Integer Dim sPersonalWorth As Single If (IAge >= 18) Then IAnumber = 1 Else IAnumber = 0 End If If (sPersonalWorth > 1000000) Then IBnumber = 1 Else IBnumber = 0 End If If (IAnumber = 1) And (IBnumber = 1) Then StandForTheElection End If ================================== Use Boolean Dim bAdult As Boolean Dim bRich As Boolean 1 Dim IAge As Integer Dim sPersonalWorth As Single bAdult = (IAge >= 18) bRich = (sPersonalWorth > 1000000) If bAdult And bRich Then StandForTheElection End IfTrong thí dụ trên, ta lập trình để nếu một người thỏa mãn hai điều kiện: vừa trưởng thành (18 tuổitrở lên) , vừa giàu có (có trên 1 triệu bạc) thì có thể ra ứng cửNếu ta dùng Integer, thứ nhất chương trình đọc khó hiểu, thứ hai cái Logical Expression của IFstatement vẫn phài làm việc với operator AND.Trong khi đó nếu dùng Boolean thì chương trình có vẻ tự nhiên và dễ đọc như tiếng Anh thôngthường.Variant VariablesVariant variable có thể chứa Text String, Number, Date, thậm chí cả một Array (một loạt nhiềuvariables cùng data type). Nhìn thoáng qua nó rất tiện dụng, nhưng khi một Variant variable đượcdùng nhiều chỗ, trong nhiều tình huống khác nhau, bạn phải thận trọng. Lý do là vì variant variablecó thể chứa những loại data types khác nhau, nên khi bạn operate hai variable có data type khácnhau, Visual Basic 6 cố gắng biến đổi một trong hai variable thành data type của variable kia để làmviệc, kết quả là thỉnh thoảng bạn sẽ bị kẹt.Các tay Software Engineers thuần túy rất ghét lập trình với data không đuợc Declare rõ ràng. Họkhông muốn bị hố vì vô tình. Thà rằng để Language Compiler bắt gặp trước những trường hợp bạnvô tình operate trên hai variables có data type khác nhau. Có khi ta bực mình vì Compiler khó tánh,nhưng sẽ tránh bị những surprise (ngạc nhiên) tốn kém sau nầy. Các ngôn ngữ lập trình gắt gao ấyđuợc gọi là strongly typed languages, chẳng hạn như Pascal, C++, Java .v.v.. Sau nầy nếu tadùng .NET thì các ngôn ngữ C#, VB.NET (VB7) đều là strongly typed. Trong VB7, Microsoft cholưu đài biệt tích Variant variables của VB6.Công việc Declare một Variant variable cũng giống như Declare một data type khác. Chỉ có điều tacó thể biết data type thật sự đang được chứa bên trong một Varaint variable bằng cách dùngFunction VarType như dưới đây: Private Sub cmdShowDataTypes_Click() Dim sMess As String Dim vVariant As Variant vVariant = Nguoi Tinh khong chan dung Assign a String to vVariant sMess = VarType(vVariant) & vbCrLf use vbCrLF to display the next string on a new line vVariant = 25 Assign an Integer to vVariant sMess = sMess & VarType(vVariant) & vbCrLf vVariant = True Assign an Boolean value to vVariant sMess = sMess & VarType(vVariant) & vbCrLf Assign an Date to vVariant vVariant = #1/1/2001# enclose a Date string with #, instead of as for normal Text String sMess = sMess & VarType(vVariant) MsgBox sMess 2 End SubKhi ta click button ShowDataTypes chương trình sẽ display giá trị của các Data Types trong mỗitrường hợp:Sau đây là bảng liệt kê những VarTypes thông dụng: Giá trị VarType Chú thích 0-vbEmpty Không có gì trong variant Không có valid (hợp lệ) data trong variant 1-vbNull Variant chứa Integer 2-vbInteger Variant chứa Single 4-vbSingle Variant chứa Date/Time 7-vbDate Variant chứa String 8-vbString Variant chứa một Object 9-vbObject ...