I E= T*R
Lệnh gán tham khảo đến đối tượng
Nhưđã được trình bày trong chương 5, biến đối tượng (có kiểu là Object hay tên class module nào đó) chỉchứa tham khảo đến đối tượng chứkhông chứa trực tiếp đối tượng. Khi mới định nghĩa, những biến này chưa tham khảo đến
đối tượng cụthểnào, do đó trước khi dùng chúng, ta phải gán tham khảo của
đối tượng cụthểvào biến. Cú pháp :
Set lvar =expr
biểu thức bên phải sẽđược tính đểtạo ra kết quả là 1 tham khảo đến đối tượng, tham khảo này sẽ được gán vào ô nhớdo lvar qui định. Trước khi gán, VB sẽkiểm tra kiểu của 2 phần tử(qui tắc kiểm tra sẽđược trình bày sau).
lvar thường là 1 biến đối tượng cơ bản, nhưng có thểđệqui theo qui tắc :
o nếu lvar là biến dãy thì 1 phần tửdãy có thểlà lvar.
o nếu lvar là biến dữliệu người dùng thì 1 field của nó có thểlà lvar.
o nếu lvar là biến đối tượng thì 1 thuộc tính của đối tượng có thểlà lvar. Ví dụ:
Set objClipbd = New Clipboard
Chương 8 : Các lệnh thực thi VB
Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM
Môn : Tin học
Slide 214
8.3 Lệnh kiểm tra điều kiện luận lý IF
Cho phép dựa vào kết quả luận lý (tínhđược từ1 biểu thức luận lý) đểquyết
định thi hành 1 trong 2 nhánh lệnh. Sau khi thực hiện 1 trong 2 nhánh lệnh, chương trình sẽ tiếp tục thi hành lệnh ngay sau lệnh IF. Có nhiều cú pháp khác nhau :
Cú pháp 1a :
If condition ThenStatement1[Else Statement2]
conditionlà 1 biểu thức luận lý miêu tả điều kiện cần kiểm tra, nó có kết quảTrue/False.
Statement1, Statement2là lệnh thực thi VB bất kỳ.
nếu kết quảlà True thì thi hànhStatement1.
nếu kết quảlà False và có dùng Else thì thi hànhStatement2. Ví dụ:
If blnThaybenh Then MsgBox("Thầy bệnh. Sinh viên vềnghỉ")
Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM Môn : Tin học Slide 215 Lệnh kiểm tra điều kiện luận lý IF (tt) Cú pháp 2 : If condition Then [Statement]+ End If
conditionlà 1 biểu thức luận lý miêu tả điều kiện cần kiểm tra, nó có kết quảTrue/False.
[Statement]+là danh sách các lệnh thực thi VB bất kỳ.
nếu kết quả là True thì thi hành các lệnh [Statement]+, nếu kết quả là False thi thôi.
Ví dụ:
If del >=0 Then
x1 = (-b-sqr(del))/(2*a) x2 = (-b+sqr(del))/(2*a)
MsgBox("x1= " & x1 & " ,x2= " & x2) End If
Chương 8 : Các lệnh thực thi VB
Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM Môn : Tin học Slide 216 Lệnh kiểm tra điều kiện luận lý IF (tt) Cú pháp 3 : If condition Then [Statement1]+ Else [Statement2]+ End If
conditionlà 1 biểu thức luận lý miêu tả điều kiện cần kiểm tra, nó có kết quảTrue/False.
[Statement1]+, [Statement2]+là danh sách các lệnh thực thi VB bất kỳ.
nếu kết quả là True thì thi hành các lệnh [Statement1]+, nếu kết quả là False thì thi hành các lệnh [Statement2]+.
Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM Môn : Tin học Slide 217 Ví dụ: If del >=0 Then x1 = (-b-sqr(del))/(2*a) x2 = (-b+sqr(del))/(2*a)
MsgBox("x1= " & x1 & " ,x2= " & x2) Else
MsgBox("Phương trình vô nghiệm") End If
Ví dụ: hiệu chỉnh trịphần tử Display khi người dùng nhập thêm ký sốd If (blnFpoint) Then ' phần lẻ
bytPosDigit = bytPosDigit + 1
dblDispValue = dblDispValue + intPosNeg * d * (10 ^ -bytPosDigit) Else ' phần nguyên
dblDispValue = dblDispValue * 10 + intPosNeg * d End If