Tham khảo tài liệu 'hướng dẫn lập trình chương 7: sử dụng phát biếu lặp và bộ định thời', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Hướng dẫn lập trình Chương 7 Sử dụng phát biếu lặp và bộ định thời Chương 7 Sử dụng phát biểu lặp và bộ định thời TIMER ------oOo----- Nội dung thảo luận - Sử dụng vòng lặp For . Next - Hiển thị kết xuất trong ô TextBox nhiều dòng bằng phép nối chuỗi - Sử dụng lệnh Do . Loop - Sử dụng đối tượng định thời Timer để thực thi mã lệnh tại một thời điểm - Tạo chương trình đồng hồ số và công cụ đặt mật khẩu định thời 1. Vòng lặp Vòng lặp này cho phép bạn thực thi lặp lại một nhóm hay nhiều lệnh trong một số lần nhất đinh. Cú pháp For bien batdau To ketthuc Khối lệnh gọi thực thi Next Ví dụ For i 1 to 4 Beep Next i Đoạn mã trên đây sẽ phát ra bốn tiếng bíp bằng một vòng lặp for thay vì viết bốn hàm beep . . Hiển thị biến đếm của lệnh FOR trong điều khiển TEXTBOX Biến đếm của vòng lặp FOR cũng như nhiều biến khác. Ta có thể sử dụng nó để gán hay hiển thị. Ví dụ MyForLoop sau đây sẽ hiển thị giá trị của biến đếm trong một ô texbox. Textbox này không chỉ có một dòng mà sẽ có nhiều dòng nhờ thay đổi thuộc tính MultiLine thành TRUE. Bạn cũng có thể tạo thanh cuộn đứng cho textbox bằng cách tạo thuộc tính ScrollsBar thành VERTICAL. Tìm hiểu chương trình Chương trình khá đơn giản thế này Chương trình có một ô textbox được thiết kế ở chế độ nhiều dòng và một nút. Khi người dùng click vào nút trên thì chương trình thực hiện vòng lặp for và điền thông tin dòng thứ cùng với chỉ số biến đếm i từng dòng một. Biên soạn Phạm Đức Lập - 1 - Add cnt-44-dh VIMARU Hướng dẫn lập trình Chương 7 Sử dụng phát biếu lặp và bộ định thời Thiết kế giao diện Bạn tạo mới một giải pháp và add một dự án có cùng tên là MyForLoop. Thiết kế giao diện như sau Đặt các thuộc tính cho đối tượng Texbox1 Name - txtline MultiLine - TRUE ScrollsBar - VERTICAL. Buttonl Name - btnloop Text - Lặp Viết mã Bạn tạo thủ tục btnioop_ciick bằng cách double click vào nút lặp trên form và nhập vào đoạn mã sau Dim i As Integer Dim ch As String ch Chr 13 Chr 10 For i 1 To 23 .
