Bài giảng Tin học - Chương 8: Các lệnh thực thi Visual basic cung cấp cho người học các kiến thức: Tổng quát về ngôn ngữ VB, các lệnh gán, các lệnh kiểm tra điều kiện & rẽ nhánh, các lệnh lặp, vấn đề lồng nhau giữa các lệnh, thoát đột ngột khỏi khỏi cấp điều khiển, lệnh gọi hàm/thủ tục. Mời các bạn cùng tham khảo nội dung chi tiết.
MÔN TIN HỌC Chương CÁC LỆNH THỰC THI VB 8.1 Tổng quát ngôn ngữ VB 8.2 Các lệnh gán 8.3 Các lệnh kiểm tra điều kiện & rẽ nhánh 8.4 Các lệnh lặp 8.5 Vấn đề lồng lệnh 8.6 Thoát đột ngột khỏi khỏi cấp điều khiển 8.7 Lệnh gọi hàm/thủ tục Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM Môn : Tin học Chương : Các lệnh thực thi VB Slide 209 8.1 Tổng quát lệnh thực thi VB Ta biết giải thuật để giải vấn đề trình tự cơng việc nhỏ hơn, ta thực trình tự cơng việc nhỏ giải vấn đề lớn VB (hay ngơn ngữ lập trình khác) cung cấp tập lệnh thực thi, lệnh thực thi dùng để miêu tả công việc nhỏ giải thuật với ý tưởng chung sau : Nếu tồn lệnh thực thi miêu tả cơng việc nhỏ giải thuật ta dùng lệnh thực thi Nếu công việc nhỏ q phức tạp khơng có lệnh thực thi miêu tả ta dùng lệnh gọi thủ tục (Function, Sub, Property) thủ tục trình tự lệnh thực cơng việc nhỏ Hầu hết lệnh thực thi có chứa biểu thức dùng kết biểu thức để định công việc cần thực ⇒ ta thường gọi lệnh thực thi cấu trúc điều khiển Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM Môn : Tin học Chương : Các lệnh thực thi VB Slide 210 105 Tổng quát lệnh thực thi VB (tt) Để dễ học, dễ nhớ dễ dùng, VB (cũng ngôn ngữ khác) cung cấp số lượng nhỏ lệnh thực thi : Nhóm lệnh khơng điều khiển : o Lệnh gán liệu vào biến o Lệnh gán tham khảo đến đối tượng vào biến tham khảo Nhóm lệnh tạo định : o Lệnh kiểm tra điều kiện luận lý If Then Else o Lệnh kiểm tra điều kiện số học Select Case Nhóm lệnh lặp : o Lệnh lặp Do Loop o Lệnh lặp For Next o Lệnh lặp For Each Next Nhóm lệnh gọi thủ tục : o Lệnh gọi thủ tục o Lệnh thoát khỏi cấu trúc điều khiển Exit Môn : Tin học Chương : Các lệnh thực thi VB Slide 211 Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM 8.2 Lệnh gán liệu Lệnh dùng nhiều chương trình lệnh gán giá trị liệu vào vùng nhớ để lưu trữ lại liệu hầu sử dụng lại sau Chúng ta thấy lệnh nhiều lần chương trước, nói rõ Cú pháp : lvar = expr biểu thức bên phải tính để tạo kết (1 giá trị cụ thể thuộc kiểu cụ thể), giá trị gán vào ô nhớ lvar qui định Trước gán, VB kiểm tra kiểu phần tử (qui tắc kiểm tra trình bày sau) lvar thường biến liệu bản, đệ qui theo qui tắc : o lvar biến dãy phần tử dãy lvar o lvar biến liệu người dùng field lvar o lvar biến đối tượng thuộc tính đối tượng lvar Ví dụ : dblDispValue = dblDispValue + intNegative * d * (10 ^ -bytPosDigit) Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM Môn : Tin học Chương : Các lệnh thực thi VB Slide 212 106 Lệnh gán tham khảo đến đối tượng Như trình bày chương 5, biến đối tượng (có kiểu Object hay tên class module đó) chứa tham khảo đến đối tượng không chứa trực tiếp đối tượng Khi định nghĩa, biến chưa tham khảo đến đối tượng cụ thể nào, trước dùng chúng, ta phải gán tham khảo đối tượng cụ thể vào biến Cú pháp : Set lvar = expr biểu thức bên phải tính để tạo kết tham khảo đến đối tượng, tham khảo gán vào ô nhớ lvar qui định Trước gán, VB kiểm tra kiểu phần tử (qui tắc kiểm tra trình bày sau) lvar thường biến đối tượng bản, đệ qui theo qui tắc : o lvar biến dãy phần tử dãy lvar o lvar biến liệu người dùng field lvar o lvar biến đối tượng thuộc tính đối tượng lvar Ví dụ : Set objClipbd = New Clipboard Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM Môn : Tin học Chương : Các lệnh thực thi VB Slide 213 8.3 Lệnh kiểm tra điều kiện luận lý IF Cho phép dựa vào kết luận lý (tính từ biểu thức luận lý) để định thi hành nhánh lệnh Sau thực nhánh lệnh, chương trình tiếp tục thi hành lệnh sau lệnh IF Có nhiều cú pháp khác : Cú pháp 1a : If condition Then Statement1 [Else Statement2 ] condition biểu thức luận lý miêu tả điều kiện cần kiểm tra, có kết True/False Statement1, Statement2 lệnh thực thi VB kết True thi hành Statement1 kết False có dùng Else thi hành Statement2 Ví dụ : If blnThaybenh Then MsgBox("Thầy bệnh Sinh viên nghỉ") Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM Môn : Tin học Chương : Các lệnh thực thi VB Slide 214 107 Lệnh kiểm tra điều kiện luận lý IF (tt) Cú pháp : If condition Then [Statement]+ End If condition biểu thức luận lý miêu tả điều kiện cần kiểm tra, có kết True/False [Statement]+ danh sách lệnh thực thi VB kết True thi hành lệnh [Statement]+, kết 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 Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM Môn : Tin học Chương : Các lệnh thực thi VB Slide 215 Lệnh kiểm tra điều kiện luận lý IF (tt) Cú pháp : If condition Then [Statement1]+ Else [Statement2]+ End If condition biểu thức luận lý miêu tả điều kiện cần kiểm tra, có kết True/False [Statement1]+, [Statement2]+ danh sách lệnh thực thi VB kết True thi hành lệnh [Statement1]+, kết False thi hành lệnh [Statement2]+ Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM Môn : Tin học Chương : Các lệnh thực thi VB Slide 216 108 Lệnh kiểm tra điều kiện luận lý IF (tt) 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 người dùng nhập thêm ký số d If (blnFpoint) Then ' phần lẻ bytPosDigit = bytPosDigit + dblDispValue = dblDispValue + intPosNeg * d * (10 ^ -bytPosDigit) Else ' phần nguyên dblDispValue = dblDispValue * 10 + intPosNeg * d End If Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM Môn : Tin học Chương : Các lệnh thực thi VB Slide 217 Lệnh kiểm tra điều kiện số học Select Cú pháp : Select Case condition Case expr1 [Statement1]+ Case expr2 [Statement2]+ Case Else [Statementn]+ End Select condition biểu thức số học miêu tả điều kiện cần kiểm tra, có giá trị số [Statement1]+, [Statement2]+ danh sách lệnh thực thi VB tùy giá trị điều kiện trùng với nhánh Case mà lệnh VB nhánh thi hành, sau VB thi hành lệnh sau lệnh Select Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM Môn : Tin học Chương : Các lệnh thực thi VB Slide 218 109 Lệnh kiểm tra điều kiện số học Select (tt) Thí dụ sau lệnh Select phục vụ việc thực nút lệnh trình MiniCalculator mà ta thực hành : Select Case bytOperationId Case IDC_ADD ' phép cộng dblDispValue = dblOldValue + dblDispValue txtDisplay.Text = Str(dblDispValue) Case IDC_SUB ' phép trừ dblDispValue = dblOldValue - dblDispValue txtDisplay.Text = Str(dblDispValue) Case IDC_MUL ' phép nhân dblDispValue = dblOldValue * dblDispValue txtDisplay.Text = Str(dblDispValue) Case IDC_DIV ' phép chia dblDispValue = dblOldValue / dblDispValue txtDisplay.Text = Str(dblDispValue) End Select Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM Môn : Tin học Chương : Các lệnh thực thi VB Slide 219 Lệnh kiểm tra điều kiện số học On GoSub VB cung cấp lệnh khác để kiểm tra điều kiện số học, yếu lệnh Select, lệnh On GoSub (thực lệnh ngôn ngữ Basic nguyên thủy, Microsoft thấy chưa sáng nên cung cấp thêm lệnh Select) Cú pháp sau : On condition GoSub label1, label2, label3, condition biểu thức số học nên có giá trị từ tới n, n số lượng nhãn lệnh liệt kê sau từ khóa GoSub giá trị condition i máy gọi 'subroutine' lệnh có nhãn labeli 'subroutine' danh sách gồm nhiều lệnh để thực công việc (có thể lớn, nhỏ) với đặc điểm lệnh cuối danh sách lệnh Return để trả điều khiển lệnh gọi GoSub Để xác định lệnh cần nhảy đến, VB cho phép dùng nhãn gợi nhớ (danh hiệu) hay nhãn số (số) kết hợp với lệnh cần tham khảo (đừng lạm dụng tính chất để đặt nhãn cho lệnh chương trình) Khoa Cơng nghệ Thơng tin Trường ĐH Bách Khoa Tp.HCM Môn : Tin học Chương : Các lệnh thực thi VB Slide 220 110 Lệnh kiểm tra điều kiện số học On GoSub (tt) Đoạn code sau có cơng dụng slide thí dụ dùng lệnh Select case (nếu IDC_ADD = 1, IDC_SUB = 2, IDC_MUL = 3, IDC_DIV = 4) : On bytOperationId GoSub LblAdd, LblSub, LblMul, LblDiv LblAdd: dblDispValue = dblOldValue + dblDispValue txtDisplay.Text = Str(dblDispValue) return ' trả đìều khiển lệnh GoSub LblSub: dblDispValue = dblOldValue - dblDispValue txtDisplay.Text = Str(dblDispValue) return ' trả đìều khiển lệnh GoSub LblMul: dblDispValue = dblOldValue * dblDispValue txtDisplay.Text = Str(dblDispValue) return ' trả đìều khiển lệnh GoSub LblDiv: dblDispValue = dblOldValue / dblDispValue txtDisplay.Text = Str(dblDispValue) return ' trả đìều khiển lệnh GoSub Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM Môn : Tin học Chương : Các lệnh thực thi VB Slide 221 Lệnh kiểm tra điều kiện số học On GoTo biến thể khác On GoSub On Goto, điều khiển không trả lại lệnh On Goto Đoạn code sau có công dụng slide trước : On bytOperationId GoTo LblAdd, LblSub, LblMul, LblDiv Continue: LblAdd: dblDispValue = dblOldValue + dblDispValue txtDisplay.Text = Str(dblDispValue) Goto Continue ' nhảy không điều kiện nhãn Continue LblSub: dblDispValue = dblOldValue - dblDispValue txtDisplay.Text = Str(dblDispValue) Goto Continue LblMul: dblDispValue = dblOldValue * dblDispValue txtDisplay.Text = Str(dblDispValue) Goto Continue LblDiv: dblDispValue = dblOldValue / dblDispValue txtDisplay.Text = Str(dblDispValue) Goto Continue Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM Môn : Tin học Chương : Các lệnh thực thi VB Slide 222 111 8.4 Lệnh lặp Do Loop Cú pháp : Do While condition [Statement]+ Loop condition biểu thức luận lý miêu tả điều kiện cần kiểm tra, có kết True/False [Statement]+ danh sách lệnh thực thi VB tính giá trị condition, kết True thi hành lệnh [Statement]+, lặp lại qui trình đến lúc condition có giá trị False ngừng vòng lặp ⇒ thích hợp cho việc lặp từ tới n lần Ví dụ : tính 10! giaithua = i=1 Do While i