08:33:02 BÀI 5: TIMER Chương trình đồng hồ Tạo khung nhập mật Định thời thoát user Tạo nhiều form Bài 1 09:56:11 Chương trình đồng hồ Giao diện thiết kế: Enabled = True: cho phép Timer chạy Interval = 1000: 1s chạy Timer Bài 2 09:56:11 Chương trình đồng hồ Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick lblClock.Text = Format(Now, "dd/MM/yyyy") + vbCrLf + Format(Now, "hh:mm:ss") End Sub Bài 3 Thiết kế ứng dụng đếm ngược thời gian: 09:56:11 Thiết kế ứng dụng đồng hồ thể thao: Bài 4 15:54:14 Nhập mật Label lblUser label PictureBox Textbox txtUser Textbox txtPassword Bài 5 15:54:14 Private Sub frmTimer_Load(sender As Object, e As EventArgs) Handles MyBase.Load PictureBox1.Image = System.Drawing.Image.FromFile _ ("E:\Visual Studio 2015\Projects\TimerSlide\Timer\Timer\noimage.jpg") End Sub Private Sub bttLogIn_Click(sender As Object, e As EventArgs) Handles bttLogIn.Click Dim user As String = txtUser.Text Dim pass As String = txtPassword.Text If (user = "abc") And (pass = "1") Then lblUser.Text = "User đăng nhập: " + user PictureBox1.Image = System.Drawing.Image.FromFile _ ("E:\Visual Studio 2015\Projects\TimerSlide\Timer\Timer\bike.png") ElseIf (user = "bcd") And (pass = "2") Then lblUser.Text = "User đăng nhập: " + user PictureBox1.Image = System.Drawing.Image.FromFile _ ("E:\Visual Studio 2015\Projects\TimerSlide\Timer\Timer\car.png") Else MessageBox.Show("Sai user hay password") End If End Sub Bài 6 15:54:14 Nhập mật Sửa chương trình: - Khi nhập user pass nút Log in chuyển thành Log out - Nhấn Log out gán lblUser = “” nút Log out chuyển thành Log in Sửa chương trình: - Định thời 30s tự động Log out Sửa chương trình: - Định thời 30s khơng làm tự động Log out Bài 7 15:54:14 Nhập mật Đọc nội dung file text: Dim FileNum As Integer Dim user_r, pass_r As String FileNum = FreeFile() FileOpen(FileNum, Application.StartupPath + "\user.txt", OpenMode.Input) Do Until EOF(FileNum) user_r = LineInput(FileNum) pass_r = LineInput(FileNum) Loop FileClose(FileNum) Các bước đọc nội dung file text: - Tìm file number cịn trống hàm FreeFile - Mở file hàm FileOpen(File_Number,Tên_file,Chế độ) - Đọc nội dung file kết thúc file - Đóng file Bài 8 15:54:14 Câu lệnh While End While q Dùng để lặp lặp lại công việc ĐiềuKiện True q Cú pháp: While ĐiềuKiện CácCâuLệnh [Exit While] End While q ĐiềuKiện biểu thức tính tốn đầu vịng lặp Nó trả True False Nếu trả True CácCâuLệnh thực End While đánh dấu kết thúc vòng lặp Exit While tùy chọn, dùng để kết thúc vòng lặp Bài 9 15:54:14 Dim Counter As Integer=1 While Counter Lặp ĐiềuKiện = False 15:54:14 Dim Counter As Integer = Do While Counter Add Windows Form Đặt tên form frmUser Hiện form frmUser: frmUser.Show Ẩn form frmUser: frmUser.Hide Đóng form frmUser: frmUser.Close Bài 14 14