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 S5 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 S6 : 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()