LẬP TRÌNH ỨNG DỤNG

IX. MỘT VÀI LĨNH VỰC TIÊU BIỂU ỨNG DỤNG PLC

LẬP TRÌNH ỨNG DỤNG

I.PHÂN TÍCH CÁC NGÕ VÀO RA  Qui ước

Bãi xe chứa tối đa 100 xe.

 Khi bãi xe trống đèn xanh sáng cho phép xe vào, khi bãi xe đầy, đèn đỏ sáng báo hiệu xe khơng được vào.

 Cảm biến S1 là cảm biến từ đặt dưới mặt đất trước cửa vào để nhận biết cĩ xe vào bãi xe.

 Cảm biến S5 là cảm biến quang đặt sau cửa vào để biết xe đã vào bãi xe để đĩng cửa vào đồng thời S₅ cũng là cảm biến phân loại cho xe 4 chỗ vào bãi xe.

 Cảm biến S4 là cảm biến quang đặt ở độ cao 2m để loại bỏ sự phân loại cho xe 4 chỗ vào. Khi đồng thời chỉ 2 cảm biến S4 và S5 nhận biết được tín hiệu tức là cĩ xe 7 chỗ vào bãi xe.

 Cảm biến S3 là cảm biến quang đặt cách cảm biến quang S5 một khoảng cách khoảng 4m để loại bỏ sự phân loại của xe 4 chỗ và xe 7 chỗ vào bãi xe. Khi đồng thời cả 3 cảm biến S5, S4 và S3 nhận biết được tín hiệu tức là cĩ xe 12 chỗ vào bãi xe.

 Cảm biến S2 là cảm biến quang đặt cách cảm biến quang S5 một khoảng cách khoảng 8m để loại bỏ sự phân loại xe 4 chỗ, xe 7 chỗ và xe 12 chỗ vào bãi xe. Khi

đồng thời cả 4 cảm biến S5, S4, S3 và S2 nhận biết được tín hiệu tức là cĩ xe 30 chỗ vào bãi xe.

 Cảm biến S6 là cảm biến từ đặt dưới mặt đất trước cửa ra để nhận biết cĩ xe ra.

Cảm biến S10 là cảm biến quang đặt sau cửa ra để biết xe đã ra khỏi bãi xe để đĩng cửa ra đồng thời S10 cũng là cảm biến phân loại cho xe 4 chỗ ra khỏi bãi xe.

 Cảm biến S9 là cảm biến quang đặt ở độ cao 2m để loại bỏ sự phân loại cho xe 4 chỗ ra khỏi bãi xe. Khi đồng thời chỉ 2 cảm biến S10 và S9 nhận biết được tín hiệu tức là cĩ xe 7chỗ ra khỏi bãi xe.

 Cảm biến S8 là cảm biến quang đặt cách cảm biến quang S10 một khoảng cách khoảng 4m để loại bỏ sự phân loại của xe 4 chỗ và xe 7 chỗ ra khỏi bãi xe.Khi đồng thời cả 3 cảm biến S10, S9 và S8 nhận biết được tín hiệu tức là cĩ xe 12 chỗ ra khỏi bãi xe.

 Cảm biến S7 là cảm biến quang đặt cách cảm biến quang S10 một khoảng cách khoảng 8m để loại bỏ sự phân loại xe 4 chỗ, xe 7 chỗ và xe 12 chỗ ra khỏi bãi xe. Khi đồng thời cả 4 cảm biến S10, S9, S8 và S7 nhận biết được tín hiệu tức là cĩ xe 30 chỗ ra khỏi bãi xe.

 Qui định các ngõ vào ra , Timer và Counter  Các ngõ vào :  Cảm biến S1: I0.0 = 0 : khơng cĩ xe I0.0 = 1 : cĩ xe  Cảm biến S2 : I0.1 = 0 : khơng cĩ xe I0.1 = 1 : cĩ xe  Cảm biến S3 : I0.2 = 0 : khơng cĩ xe I0.2 = 1 : cĩ xe  Cảm biến S4 : I0.3 = 0 : khơng cĩ xe I0.3 = 1 :cĩ xe  Cảm biến S5 : I0.4 = 0 : khơng cĩ xe I0.4 = 1 : cĩ xe  Cảm biến S₆ : I0.5 = 0 : khơng cĩ xe I0.5 = 1 : cĩ xe  Cảm biến S7 : I0.6 = 0 : khơng cĩ xe I0.6 = 1 : cĩ xe  Cảm biến S8 : I0.7 = 0 : khơng cĩ xe I0.7 = 1 : cĩ xe  Cảm biến S9 : I1.0 = 0 : khơng cĩ xe

 Cảm biến S10:

I1.1 = 0 : khơng cĩ xe I1.1 = 1 : cĩ xe

 Cơng tắc hành trình dưới tại cửa vào (CT1) I1.2 = 0 : khi khơng bị thanh gạt tác động

I1.2 = 1 : khi bị thanh gạt tác động

 Cơng tắc hành trình trên tại cửa vào (CT2) I1.3 = 0 : khi khơng bị thanh gạt tác động

I1.3 = 1 : khi bị thanh gạt tác động

 Cơng tắc hành trình dưới tại cửa ra (CT3) I1.4 = 0 : khi khơng bị thanh gạt tác động

I1.4 = 1 : khi bị thanh gạt tác động

 Cơng tắc hành trình trên tại cửa ra (CT4) I1.5 = 0 : khi khơng bị thanh gạt tác động

I1.5 = 1 : khi bị thanh gạt tác động

 Các ngõ ra :  Cửa vào : Q0.0 = 0 : khơng mở cửa Q0.0 = 1 : mở cửa Q0.1 = 0 : khơng đĩng cửa Q0.1 = 1 : đĩng cửa  Cửa ra : Q0.2 = 0 : khơng mở cửa Q0.2 = 1 : mở cửa Q0.3 = 0 : khơng đĩng cửa Q0.3 = 1 : đĩng cửa  Đèn xanh : Q0.4 = 0 : đèn xanh tắt Q0.4 = 1 : đèn xanh sáng

 Đèn đỏ : Q0.5 = 0 : đèn đỏ tắt Q0.5 = 1 : đèn đỏ sáng  Đèn chiếu sáng : Q0.6 = 0 : khơng bật đèn Q0.6 = 1 : bật đèn  Sự cố : Q1.0 = 0 : khơng cĩ sự cố Q1.0 = 1 : cĩ sự cố Counter :

 C48 đếm xe 4 chỗ hiện cĩ trong bãi xe.

 C49 đếm xe 7 chỗ hiện cĩ trong bãi xe.

 C50 đếm xe 12 chỗ hiện cĩ trong bãi xe.

 C51 đếm xe 30 chỗ hiện cĩ trong bãi xe.

 C52 chứa kết quả của xe 7 chỗ nhân 2.

 C53 chứa kết quả của xe 12 chỗ nhân 3.

 C54 chứa kết quả của xe 30 chỗ nhân 4.

 C55 chứa kết quả cộng của C48 và C52

 C56 chứa kết quả cộng của C53 và C54

 C57 chứa kết quả cộng của C55 và C56 (C57 chứa tổng số xe hiện cịn trong bãi xe).

Timer :

 T37 là thời gian tối đa để mở cửa vào.

Bắt đầu Cĩ xe vào Mở cửa vào Mở xong Ngừng mở Kích Timer <10s Xe đã vào Phân loại xe vào Xe 4 chỗ Xe 7 chỗ Xe 12 chỗ Xe 30 chỗ Đếm xe vào ( xe 4 chỗ + xe 7 chỗ x 2 + xe 12chỗ x 3 + xe 30chỗ x 4) Hiệu số Cĩ xe ra Mở cửa ra Mở xong Ngừng mở Kích Timer <10s Xe đã ra Phân loại xe ra Tính tiền Y Y N N Đĩng cửa vào Đĩng xong Đếm xe ra ( xe 4 chỗ + xe 7 chỗ x 2 + xe 12chỗ x 3 + xe 30chỗ x 4) Đĩng cửa ra Đĩng xong Ngưng đĩng Kết thúc N Y N Y Y N Xekhácvào ^Y N Y Y Y Y N N N Xe khác ra Y Y Y Y Y Y Y Y N N Y <100 Đèn xanh CAR EMPTY Đèn đỏ CAR FULL PART Y N Ngưng đĩng N N II. LƯU ĐỒ GIẢI THUẬT

IV.VIẾT CODE CHO GIAO DIỆN

Code Form Giao diện giao tiếp

Option Explicit

Dim Nhan() As Byte

' KHAI BAO BIEN DE KET NOI CSDL Dim sqlLuuDL As String

Public rsLuuDL As New ADODB.Recordset Dim sqlXera As String

Public rsCapnhatXera As New ADODB.Recordset Dim sqlPhanloaixe As String

Dim rsPhanloaixe As New ADODB.Recordset Public Soxe As String

Public Loaixe As String Dim sott As Integer Public ngayvao As Date Dim giovao As String Dim ngayra As Date Dim giora As String

Public thanhtien As Double Public thoigian As String

Private Sub Chitiet_Click() Load Baixe

Baixe.Show End Sub

Private Sub ClosePort_Click()

If MSComm1.PortOpen = True Then MSComm1.PortOpen = False OPENPORT.Enabled = True

End If End Sub

Private Sub CmbXera_Click() Dim soxe1 As String soxe1 = CmbXera.Text

rsCapnhatXera.Find "[so xe] = '" & soxe1 & "'", , , adBookmarkFirst If Not rsCapnhatXera.EOF Then

txtLoaixera.Text = rsCapnhatXera.Fields(1) End If

End Sub

Private Sub CmbXera_Change() Dim soxe1 As String

soxe1 = CmbXera.Text

rsCapnhatXera.Find "[so xe] = '" & soxe1 & "'", , , adBookmarkFirst If Not rsCapnhatXera.EOF Then

txtLoaixera.Text = rsCapnhatXera.Fields(1) End If

End Sub

Private Sub cmdBoqua_Click() txtSoxevao.Text = ""

CmbLoaixevao.Text = "Chon loai xe" CmbXera.Text = "Xe ra"

txtLoaixera.Text = "Chon loai xe" txtSoxevao.Enabled = False CmbLoaixevao.Enabled = False CmbXera.Enabled = False txtLoaixera.Enabled = False

Private Sub CmdPhanloaixe_Click() Load Form5

Form5.Show End Sub

Private Sub lbxevao_Click()

txtSoxevao.Enabled = True CmbLoaixevao.Enabled = True CmbXera.Enabled = False txtLoaixera.Enabled = False lbxevao.ForeColor = &HFF0000 txtLoaixera.Text = "Loai xe ra" CmbXera.Text = "Xe ra" txtSoxevao.Text = ""

CmdLuuRa.Enabled = False CmdLuuVao.Enabled = True cmdBoqua.Enabled = True End Sub

Private Sub lbxera_Click()

CmdLuuVao.Enabled = False CmdLuuRa.Enabled = True cmdBoqua.Enabled = True txtSoxevao.Text = "Xe vao" txtSoxevao.Enabled = False CmbLoaixevao.Enabled = False CmbXera.Enabled = True txtLoaixera.Enabled = True txtLoaixera.Locked = True lbxera.ForeColor = &HFF0000

rsCapnhatXera.Sort = "[so xe] ASC" If rsCapnhatXera.RecordCount > 0 Then rsCapnhatXera.MoveFirst

Do While Not rsCapnhatXera.EOF

CmbXera.AddItem rsCapnhatXera.Fields(2) rsCapnhatXera.MoveNext Loop rsCapnhatXera.MoveFirst CmbXera.Text = rsCapnhatXera.Fields(2) txtLoaixera.Text = rsCapnhatXera.Fields(1) End If End Sub

Private Sub CmdLuuVao_Click() Dim Error As Integer

TIEP.Enabled = True

sqlLuuDL = "select * from chitiet" Error = kiemtra

Set rsLuuDL = LayDL(sqlLuuDL) If Error = 0 Then

If Val(CmbLoaixevao.Text) = False Then

MsgBox "Loai xe vao chi duoc chon gia tri tu 1 den 4 " CmbLoaixevao.Text = ""

Exit Sub End If

If Val(CmbLoaixevao.Text) > 4 Then

MsgBox "Loai xe khong duoc lon hon 4" CmbLoaixevao.Text = ""

GhiDL rsLuuDL LuuDL rsLuuDL txtSoxevao.Text = "" CmbLoaixevao.Text = "" End If If Error = 1 Then

MsgBox "Vui long nhap so xe!" Exit Sub

End If

If Error = 2 Then

MsgBox "Vui long chon loai xe!" Exit Sub

End If

If Error = 3 Then

MsgBox "So xe chi duoc nhap 7 ki tu!" txtSoxevao.Text = ""

Exit Sub End If

If Error = 4 Then

MsgBox "Loai xe chi duoc chon tu 1 den 4!" CmbLoaixevao.Text = ""

Exit Sub End If End Sub

Private Sub GhiDL(rs As ADODB.Recordset) Dim s As String

Dim MALN As Variant Dim tam As Variant

Set rsDem = LayDL(s) MALN = 0

Do While (Not rsDem.EOF) tam = rsDem![stt]

If (MALN < tam) Then MALN = tam End If rsDem.MoveNext Loop MALN = MALN + 1 rs.Fields(0) = MALN rs.Fields(1) = CmbLoaixevao.Text rs.Fields(2) = txtSoxevao.Text rs.Fields(3) = Date rs.Fields(4) = Time rs.Fields(5) = 0 rs.Fields(6) = 0 rs.Fields(7) = 0 rs.Fields(8) = 0 Set rsDem = Nothing End Sub

Private Sub Sco_Click()

Timer18.Enabled = False MSComm1.Output = "a" Timer18.Enabled = True sco.Enabled = False End Sub

End End Sub

Private Sub Form_mousemove(button As Integer, shift As Integer, X As Single, Y As Single)

lbxevao.FontUnderline = False lbxevao.ForeColor = &HFF& End Sub

Private Sub lbxevao_mousemove(button As Integer, shift As Integer, X As Single, Y As Single) lbxevao.FontUnderline = True lbxevao.ForeColor = &HC000C0 lbxera.FontUnderline = False lbxera.ForeColor = &HFF0000 End Sub

Private Sub lbxera_mousemove(button As Integer, shift As Integer, X As Single, Y As Single) lbxera.FontUnderline = True lbxera.ForeColor = &HC000C0 lbxevao.FontUnderline = False lbxevao.ForeColor = &HFF0000 End Sub

Private Sub Form_Load()

'---'

cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\baigiuxe.mdb;Persist Security Info=False"

cnn.CursorLocation = adUseClient cnn.Open

txtSoxevao.Enabled = False CmbXera.Enabled = False

txtLoaixera.Enabled = False txtSoxevao.Text = " Xe vao" CmdLuuVao.Enabled = False CmdLuuRa.Enabled = False cmdBoqua.Enabled = False Dim i As Integer For i = 1 To 4 Me.CmbLoaixevao.AddItem i Next i '---' MSComm1.CommPort = 1 MSComm1.Settings = "9600,N,8,1" MSComm1.InputLen = 0 MSComm1.RThreshold = 11 MSComm1.InputMode = comInputModeBinary MSComm1.PortOpen = True OPENPORT.Enabled = True CLOSEPORT.Enabled = False Timer18.Enabled = True End Sub

Private Sub OpenPort_Click()

If MSComm1.PortOpen = True Then MSComm1.PortOpen = False End If

MSComm1.PortOpen = True Timer18.Enabled = True Timer19.Enabled = True

Private Sub MSComm1_OnComm()

If MSComm1.InBufferCount >= 11 Then MSComm1.InputLen = 0 Nhan() = MSComm1.Input Dim i, j, k, l, m, n, o, p, q, r, s As Integer i = Nhan(0) j = Nhan(1) k = Nhan(2) l = Nhan(3) m = Nhan(4) n = Nhan(5) o = Nhan(6) p = Nhan(7) q = Nhan(8) r = Nhan(9) s = Nhan(10)

Text3.Text = o 'xe 4 cho Text4.Text = p 'xe 7 cho Text5.Text = q 'xe 12 cho Text6.Text = r 'xe 30 cho Text7.Text = s 'tong so xe If i = 1 Then 'mo cua vao Timer1.Enabled = True Cuavao.Text = " MỞ "

If XanhVao.Visible = False Then XanhVao.Visible = True TatXanhVao.Visible = False DoVao.Visible = False TatDoVao.Visible = True End If

CTraiVao.Width = CTraiVao.Width - 1 CPhaiVao.Width = CPhaiVao.Width - 1 CPhaiVao.Left = CPhaiVao.Left + 1

Loop Until CTraiVao.Width = 15 And CPhaiVao.Width = 15 End If

End If

If i = 2 Then 'dong cua vao Timer1.Enabled = True Cuavao.Text = " ĐĨNG " If XanhVao.Visible = True Then XanhVao.Visible = False TatXanhVao.Visible = True DoVao.Visible = True TatDoVao.Visible = False End If

If CTraiVao.Width = 15 And CPhaiVao.Width = 15 Then Do

CTraiVao.Width = CTraiVao.Width + 1 CPhaiVao.Width = CPhaiVao.Width + 1 CPhaiVao.Left = CPhaiVao.Left - 1

Loop Until CTraiVao.Width = 495 And CPhaiVao.Width = 495 End If

End If

If j = 1 Then 'mo cua ra Timer2.Enabled = True Cuara.Text = " MỞ " If XanhRa.Visible = False Then XanhRa.Visible = True

End If

If CTraiRa.Width = 495 And CPhaiRa.Width = 495 Then Do

CTraiRa.Width = CTraiRa.Width - 1 CPhaiRa.Width = CPhaiRa.Width - 1 CPhaiRa.Left = CPhaiRa.Left + 1

Loop Until CTraiRa.Width = 15 And CPhaiRa.Width = 15 End If

End If

If j = 2 Then 'dong cua ra

Timer2.Enabled = True Cuara.Text = " ĐĨNG " If XanhRa.Visible = True Then XanhRa.Visible = False TatXanhRa.Visible = True DoRa.Visible = True TatDoRa.Visible = False End If

If CTraiRa.Width = 15 And CPhaiRa.Width = 15 Then Do

CTraiRa.Width = CTraiRa.Width + 1 CPhaiRa.Width = CPhaiRa.Width + 1 CPhaiRa.Left = CPhaiRa.Left - 1

Loop Until CTraiRa.Width = 495 And CPhaiRa.Width = 495 End If

End If

If k = 1 Then 'bai xe trong Timer3.Enabled = True

TTrang.Text = " TRỐNG XE " If XanhTrong.Visible = False Then

TatXanhTrong.Visible = False DoDay.Visible = False

TatDoDay.Visible = True End If

End If

If k = 2 Then 'bai xe day

Timer3.Enabled = True TTrang.Text = " ĐẦY XE " If XanhTrong.Visible = True Then XanhTrong.Visible = False TatXanhTrong.Visible = True DoDay.Visible = True TatDoDay.Visible = False End If End If

If l = 1 Then ' mo den chieu sang Timer5.Enabled = True HTDen.Text = " MỞ " If XanhDen.Visible = False Then XanhDen.Visible = True TatXanhDen.Visible = False DoDen.Visible = False TatDoDen.Visible = True End If End If

If l = 2 Then 'tat den chieu sang Timer5.Enabled = True HTDen.Text = " TẮT "

DoDen.Visible = True TatDoDen.Visible = False End If End If If m = 1 Then CmbLoaixevao.Text = "1" End If If m = 2 Then CmbLoaixevao.Text = "2" End If If m = 3 Then CmbLoaixevao.Text = "3" End If If m = 4 Then CmbLoaixevao.Text = "4" End If If n = 1 Then txtLoaixera.Text = "1" End If If n = 2 Then txtLoaixera.Text = "2" End If If n = 3 Then txtLoaixera.Text = "3" End If If n = 4 Then txtLoaixera.Text = "4" End If End Sub

Dim gio1 As Integer Dim phut1 As Integer Dim tam1 As Integer Dim tam2 As Integer Dim tam3 As Integer Dim gio2 As Integer Dim phut2 As Integer Dim gio3 As Integer Dim phut3 As Integer Dim Gia As Double

sqlXera = "select [so xe], [loai xe] from chitiet where [so xe] like '" & CmbXera.Text & "' and [loai xe] like '" & txtLoaixera.Text & "' "

Set rsCapnhatXera = LayDL(sqlXera)

If (rsCapnhatXera.BOF = True And rsCapnhatXera.EOF = True) Then MsgBox ("Khong co so xe nay, hay chon trong combo so xe!") Else

rsCapnhatXera.MoveFirst sqlXera = "select * from chitiet" Set rsCapnhatXera = LayDL(sqlXera)

sqlXera = "select stt from chitiet where [so xe] = '" & Soxe & "' and [loai xe]='" & Loaixe & "' "

sott = rsCapnhatXera.Fields(0) Soxe = CmbXera.Text

Loaixe = txtLoaixera.Text

sqlXera = "UPDATE chitiet SET [ngay ra] = '" & Date & _

"' WHERE [loai xe] = '" & Loaixe & "' and [so xe] = '" & Soxe & "'" 'and [stt] = '" & Val(sott) & "' "

Set rsCapnhatXera = LayDL(sqlXera)

sqlXera = "select [gio vao] from chitiet where [so xe] = '" & Soxe & "' and [loai xe] = '" & Loaixe & "'" 'and [stt] = '" & Val(sott) & "' "

Set rsCapnhatXera = LayDL(sqlXera) gio1 = (Hour(rsCapnhatXera![gio vao])) phut1 = (Minute(rsCapnhatXera![gio vao])) gio2 = Hour(Time)

phut2 = Minute(Time) gio3 = gio2 - gio1 phut3 = phut2 - phut1 tam1 = gio1 * 60 + phut1 tam2 = gio2 * 60 + phut2 tam3 = tam2 - tam1 gio3 = tam3 / 60

phut3 = tam3 - (gio3 * 60) thoigian = gio3 & " :" & phut3

sqlXera = "UPDATE chitiet SET [thoi gian goi (gio)] = '" & thoigian & _ "' WHERE [loai xe] = '" & Loaixe & "' and [so xe] = '" & Soxe & "'" 'and [stt] = '" & Val(sott) & "'" 'and [gio vao] = '" & giovao & "' "

Set rsCapnhatXera = LayDL(sqlXera)

sqlPhanloaixe = "select [gia tien (vnd/gio)] from phanloaixe where loai = '" & Loaixe & "'" 'and [stt] = '" & Val(sott) & "' "

Set rsPhanloaixe = LayDL(sqlPhanloaixe) Gia = rsPhanloaixe![gia tien (vnd/gio)] If Val(gio3 = 0) And Val(phut3) < 30 Then gio3 = 1

thanhtien = Val(Gia) * Val(gio3) End If

If (Val(phut3) > 15) And Val(gio3 > 0) Then thanhtien = Val(Gia) * (Val(gio3) + 1)

thanhtien = Val(Gia) * Val(gio3) End If

sqlXera = "UPDATE chitiet SET [thanh tien (vnd)]= '" & Val(thanhtien) & "' WHERE [loai xe] = '" & Loaixe & "' and [so xe] = '" & Soxe & "'" 'and [stt] = '" & Val(sott) & "' " 'and [gio vao] = '" & giovao & "' "

Set rsCapnhatXera = LayDL(sqlXera) soxe1 = Soxe

loaixe1 = Loaixe

sqlXera = "select [gio vao] from chitiet where [so xe] = '" & Soxe & "' and [loai xe] = '" & Loaixe & "'" 'and [stt] = '" & Val(sott) & "' "

Set rsCapnhatXera = LayDL(sqlXera) giovao1 = rsCapnhatXera![gio vao]

sqlXera = "select [ngay vao] from chitiet where [so xe] = '" & Soxe & "' and [loai xe] = '" & Loaixe & "'" 'and [stt] = '" & Val(sott) & "' "

Set rsCapnhatXera = LayDL(sqlXera) ngayvao1 = rsCapnhatXera![ngay vao] thoigian1 = thoigian thanhtien1 = thanhtien Load Form4 Form4.Show End If End Sub

Private Sub TIEP_Click() Load Form3 Form3.Show End Sub

Private Sub Thoat2_Click() Unload Me

End Sub

Private Sub Timer7_Timer() Dim X, Y

X = Right(FORM2.Caption, 1)

Y = Left(FORM2.Caption, Len(FORM2.Caption) - 1) FORM2.Caption = X + Y

End Sub

Private Sub Timer8_Timer() Tgian.Caption = Time End Sub

Private Sub Timer9_Timer() Ngay.Caption = Date End Sub

Private Sub Timer16_Timer() Dim U As String Dim V As String U = Left(Label2.Caption, 1) V = Right(Label2.Caption, Len(Label2.Caption) - 1) Label2.Caption = V + U End Sub

Private Sub Form_Unload(Cancel As Integer) Set rsLuuDL = Nothing

cnn.Close End Sub

Private Sub Timervao_Timer()

If lbxevao.ForeColor = vbBlue Then lbxera.ForeColor = vbRed Else lbxevao.ForeColor = vbBlue

End Sub

Private Sub XOA_Click()