ĐÒ ÁN TỐT NGHIỆP HÀM GIỮ XE TỰ ĐỌNG

TRƯỜNG ĐẠI HỌC TÔN ĐỨC THẮNG KHOA ĐIỆN – ĐIỆN TỬ  ĐỒ ÁN TỐT NGHIỆP HẦM GIỮ XE TỰ ĐỘNG GVHD : TH.S NGÔ THANH HẢI SVTH : NGUYỄN ĐĂNG KAVỐST Lớp : 08DD3N Khoá : 08 TP Hồ Chí Minh, tháng năm 2009 BẢNG NHẬN XÉT CỦA GIÁO VIÊN HƯỚNG DẪN Giảng viên hướng dẫn : TH.S NGÔ THANH HẢI Sinh viên thực : NGUYỄN ĐĂNG KAVỐST Lớp : 08DD3N Khoá : 2004 – 2009 Khoa : ĐIỆN – ĐIỆN TỬ Tên đề tài : HẦM GIỮ XE TỰ ĐỘNG NHẬN XÉT CỦA GIÁO VIÊN HƯỚNG DẪN TP.HCM Ngày Tháng Năm 2009 Giáo viên hướng dẫn Th.S NGÔ THANH HẢI BẢNG NHẬN XÉT CỦA GIÁO VIÊN PHẢN BIỆN Giảng viên hướng dẫn : TH.S NGÔ THANH HẢI Sinh viên thực : NGUYỄN ĐĂNG KAVỐST Lớp : 08DD3N Khoá : 2004 – 2009 Khoa : ĐIỆN – ĐIỆN TỬ Tên đề tài : HẦM GIỮ XE TỰ ĐỘNG NHẬN XÉT CỦA GIÁO VIÊN PHẢN BIỆN TP.HCM Ngày Tháng Năm 2009 Giáo viên phản biện GIỚI THIỆU LUẬN VĂN Ngày , đất nước ngày ổn định , sống người ngày cải thiện Khi mà kinh tế trì mức ổn định nhu cầu người ngày nâng cao Mỗi gia đình sắm cho xe Dù xe đời hay cũ cần có chỗ đậu xe Và nhu cầu thiết yếu người sống Ở thành phố lớn , mà hầu hết người sử dụng phương tiện xe làm phương tiện lưu thông cho Với xu , bãi đậu xe ngày mọc lên nhiều chiếm diện tích lớn Bên cạnh cần lượng nhân công trông giữ xe Với mục tiêu giảm thiểu diện tích bề mặt , với việc ứng dụng cơng nghệ vào việc quản lý Vì hình thành ý tưởng làm bãi đỗ xe tự động Trên giới có nhiều hãng sản xuất tiếng Với việc ứng dụng công nghệ tiên tiến tự động hóa , điện tử , cơng nghệ thơng tin mở hướng phát triển cho lĩnh vực đầy tiềm Bắt nguồn từ ý tưởng , em chọn đề tài thiết kế “hầm giữ xe tự động” Nội dung đề tài người dùng đem xe vào gởi bãi xe Chủ xe cần nhập biển số xe vào , hệ thống tự đem xe đưa vào hệ thống tự động đưa xe vào ngăn hầm chứa xe Khi lấy xe , chủ xe cần nhập biển số xe , hệ thống tự động vào ngăn chứa xe hầm chứa lấy xe Hướng phát triển thêm đề tài mở rộng thêm số tầng chứa để tăng số xe chứa Kết hợp với việc ứng dụng công nghệ xử lý ảnh vào trình xử lý biển số xe , hệ thống ngày tiên tiến đại GVHD : Th.S NGÔ THANH HẢI SVTH : NGUYỄN ĐĂNG KAVỐST MỤC LỤC CHƯƠNG : TÌM HIỂU VỀ MẠNG RS-485 1.1 Giới thiệu RS-485 : 1.2 Đặc điểm : 1.3 Topology mạng RS-485 : CHƯƠNG : GIỚI THIỆU CHUNG VỀ BỘ VI ĐIỀU KHIỂN 2.1 GIỚI THIỆU CHUNG : 2.2 LỊCH SỬ PHÁT TRIỂN CHƯƠNG : THIẾT KẾ VÀ THI CÔNG 16 3.1 Sơ lƣợc mơ hình khí : 16 3.1.1 Sơ lƣợt đề tài : 16 3.1.2 Thiết kế khí cho mơ hình : 16 3.2 Thiết kế mạch cho hệ thống : 24 3.2.1 Trạm : 24 3.2.2 Hoạt động mạch : 26 3.2.3 Mạch giao tiếp máy tính trạm : 32 3.3 LƢU ĐỒ GIẢI THUẬT CHƢƠNG TRÌNH VISUAL BASIC : 37 3.4 LƢU ĐỒ GIẢI THUẬT CHƢƠNG TRÌNH VI ĐIỀU KHIỂN : 42 3.5 HƢỚNG PHÁT TRIỂN CỦA ĐỀ TÀI : 44 PHỤ LỤC : 45 ĐỒ ÁN TỐT NGHIỆP GVHD : Th.S NGÔ THANH HẢI SVTH : NGUYỄN ĐĂNG KAVỐST CHƯƠNG : TÌM HIỂU VỀ MẠNG RS-485 1.1 Giới thiệu RS-485 : Chuẩn RS-232 dùng đƣờng truyền không cân tín hiệu lấy điểm chuẩn đƣờng mass chung , tốc độ truyền khoảng cách truyền bị giới hạn Tín hiệu từ máy tính theo chuẩn RS-232 có mức điện áp +-12V , phải đổi sang mức +-5V dùng vi mạch MAX232 Sau tín hiệu đơn đƣợc đổi sang tín hiệu vi sai dùng mạch MAX 485 Điện áp vi sai phải lớn 200mV Nếu Vab>200mV ta coi nhƣ mức logic đƣợc truyền Vab< -200mV logic đƣợc truyền Cơng nghệ truyền RS485 dễ xử lý Lắp đặt cáp xoắn kép (TP) không cần kiến thức chuyên gia Kiến trúc BUS cho phép thêm lấy trạm mà không làm ảnh hƣởng đến trạm khác Những mở rộng sau không làm ảnh hƣởng đến trạm hoạt động Giao tiếp IEA RS-485 cải tiến chuẩn RS-422A Đặc tính điện giống nhƣ chuẩn RS-422A RS-485 chuẩn truyền vi sai sử dụng dây cân Với RS-485 tốc độ truyền đạt tới 10Mbs chiều dài cáp lên tới 1.2 Km Điện áp vi sai ngõ từ +1.5V -> +5V logic mức mức logic mức từ -1.5V ->-5V Một đặc điển quan trọng RS-485 cung cấp đến 32 Driver receiver đƣờng truyền Điều cho phép tạo thành mạng cục Để có khả nhƣ , ngõ Driver RS-485 phải ngõ trang thái Và Slave trạng thái tổng trở cao khơng đƣợc chọn để giao tiếp Master Chỉ có trạm đƣợc chọn làm Master , trạm lại làm Slave Master đƣợc quyền truyền lúc , định Slave giao tiếp với Slave truyền sau nhận đƣợc lệnh Master Mọi Slave có địa riêng đƣờng truyền khơng đƣợc phép truyền khơng có u cầu từ Master 1.2 Đặc điểm : RS-485 chuẩn giao tiếp nối tiếp bất đồng cân , truyền thông tin dây xoắn đôi bán song công (Half _ Duplex) nghĩa thời điểm dây truyền thiết bị truyền , nhận RS-485 cho phép 32 truyền bus RS-485 có ngõ trạng thái RS-485 cho phép tốc độ truyền tối đa 10 Mbs 1.3 Topology mạng RS-485 : Tốc độ truyền , ta chọn tốc độ truyền sau : 9,6Kbps, 19,2Kbps, 45,45Kbps, 93,75Kbps, 187,5Kbps, 500Kbps, 1,5Mbps Các thành phần gắn vào bus đƣợc chia làm nhóm : Các thành phần có tốc độ truyền từ 9,6Kbps đến tối đa 1,5Mbps Các thành phần có tốc độ truyền từ 9,6Kbps đến tối đa 12Mbps Gắn nút : nút đƣợc gắn vào bus qua kết nối bus (bus connector) bus ĐỒ ÁN TỐT NGHIỆP GVHD : Th.S NGÔ THANH HẢI SVTH : NGUYỄN ĐĂNG KAVỐST Kết thúc cáp : bus Segment phải đƣợc kết thúc đầu tổng trở đặc tính Bộ kết thúc cáp (Bus terminator) đƣợc tích hợp RS-485 repeater , bus terminal , ILM bus connector va2 kích hoạt cần Trƣớc kích hoạt bus terminal phải cung cấp nguồn cho thành phần mạng Với bus terminal bus connector nguồn điện đƣợc cung cấp DTE đƣợc kết nối , trái lại RS-485 repeater , ILM terminal ln có nguồn điện riêng cho Kỹ thuật truyền RS-485 cho phép gắn tối đa 32 thiết bị (các DTE repeater ) bus Segment Chiều dài cáp tối đa đƣợc cho phép bở segment phụ thuộc vào tốc độ truyền cáp Lan đƣợc sử dụng Tốc độ truyền chiều dài cáp truyền dẫn RS-485 : BAUDRATE 9.6 19.2 93.75 187.5 500 1500 3000 6000 12000 ĐỒ ÁN TỐT NGHIỆP MAX SEGMENT LENGTH 1000m 1000m 1000m 1000m 400m 200m 100m 100m 100m MAX EXPANSION 10000m 10000m 10000m 10000m 4000m 2000m 1000m 1000m 1000m GVHD : Th.S NGÔ THANH HẢI ĐỒ ÁN TỐT NGHIỆP SVTH : NGUYỄN ĐĂNG KAVỐST GVHD : Th.S NGÔ THANH HẢI SVTH : NGUYỄN ĐĂNG KAVỐST CHƯƠNG : GIỚI THIỆU CHUNG VỀ BỘ VI ĐIỀU KHIỂN 2.1 GIỚI THIỆU CHUNG : MCS-51 họ vi điều khiển INTEL phát triển sản xuất Bộ điều khiển viết tắt Micro – controller , mạch tích hợp chip lập trình đƣợc ,dùng để điều khiển hoạt động hệ thống Theo tập lệnh ngƣời lập trình , vi điều khiển tiến hành đọc , lƣu trữ thông tin , xử lý thơng tin , đo thời gian tiến hành đóng mở cấu Một số nhà sản xuất đƣợc phép cung cấp IC tƣơng thích với sản phẩm MCS-51 INTEL Siemens , Advanced Micro Devices , Fujitsu , Philips , Atmel 2.2 LỊCH SỬ PHÁT TRIỂN Bộ vi điều khiển thực loại vi xử lý tập hợp vi xử lý nói chung Bộ vi điều khiển đƣợc phát triển từ vi xử lý , từ năm 70 phát triển hồn thiện cơng nghệ vi điện tử dựa kỹ thuật MOS (Metal-Oxide-Semiconductor) , mức độ tích hợp linh kiện bán dẫn chip ngày cao Năm 1971 xuất vi xử lý bit loại TMS 1000 công ty Texas Instrument vừa nơi phát minh vừa nhà sản xuất Nhìn tổng thể vi xử lý có chứa chip chức cần thiết để xử lý chƣơng trình theo trình tự ,cịn tất phận phụ trợ khác cần thiết nhƣ : nhớ liệu , nhớ chƣơng trình , khối điều khiển , khối hiển thị , điều khiển máy in , đồng hồ lịch linh kiện nằm bên đƣợc nối vào vi xử lý Mãi đến năm 1976 , công ty INTEL cho đời vi điều khiển đơn chip đầu tiêntren6 giới với tên gọi 8048 Bên cạnh xử lý trung tâm 8048 chứa nhớ liệu , nhớ chƣơng trình , đếm phát thời gian cổng vào Digital chip Các công ty khác lần lƣợt cho đời vi điều khiển bit tƣơng tự nhƣ 8048 hình thành họ vi điều khiển MCS-48 Đến năm 1980 , công ty INTEL cho đời hệ thứ hai vi điều khiển đơn chip với tên gọi 8051 Và sau hàng loạt vi điều khiển loại với 8051 đời hình thành họ vi điều khiển MCS- 8051 Đến họ vi điều khiển bit MCS-51 có đến 250 thành viên hầu hết công ty hàng đầu giới chế tạo Đứng đầu công ty INTEL nhiều công ty khác nhƣ : AMD , DALLAS , SIEMENS Ngoài cịn có cơng ty khác có họ vi điều khiển riêng nhƣ : Họ 68HCOS công ty MOTOROLA Họ ST62 công ty SGS – THOMSON Họ H8 công ty HITACHI ĐỒ ÁN TỐT NGHIỆP GVHD : Th.S NGÔ THANH HẢI SVTH : NGUYỄN ĐĂNG KAVỐST Họ PIC công ty MICROCHIP Các IC họ MCS-51 có đặc trƣng chung nhƣ sau :  4k byte ROM  128 byte RAM  port I/O bit  định thời/đếm 16 bit  Giao tiếp nối tiếp (UART)  64k nhớ chƣơng trình mở rộng  64k nhớ liệu mở rộng  Một xử lý luận lý trung tâm  210 bit đƣợc định địa trực tiếp  Bộ nhân chia bit Ngoài , tùy theo số hiệu sản xuất mà chúng có khác biệt nhớ định thời / đếm nhƣ so sánh dƣới : SỐ HIỆU SẢN BỘ NHỚ CHƢƠNG BỘ NHỚ DỮ LIỆU SỐ BỘ XUẤT TRÌNH TRÊN CHIP TRÊN CHIP ĐỊNH THỜI 8031 0K 128 Byte 8051 K ROM 128 Byte 8751 K EPROM 128 Byte 8951 K EEPROM 128 Byte 8032 0K 256 Byte 8052 K ROM 256 Byte 8752 K EPROM 256 Byte 8952 K EEPROM 256 Byte 2.3 Sơ lƣợt cấu trúc 8051 : ĐỒ ÁN TỐT NGHIỆP GVHD : Th.S NGÔ THANH HẢI ĐỒ ÁN TỐT NGHIỆP SVTH : NGUYỄN ĐĂNG KAVỐST 40 GVHD : Th.S NGÔ THANH HẢI ĐỒ ÁN TỐT NGHIỆP SVTH : NGUYỄN ĐĂNG KAVỐST 41 GVHD : Th.S NGÔ THANH HẢI SVTH : NGUYỄN ĐĂNG KAVỐST 3.4 LƢU ĐỒ GIẢI THUẬT CHƢƠNG TRÌNH VI ĐIỀU KHIỂN : TRẠM : ĐỒ ÁN TỐT NGHIỆP 42 GVHD : Th.S NGÔ THANH HẢI SVTH : NGUYỄN ĐĂNG KAVỐST TRAM : ĐỒ ÁN TỐT NGHIỆP 43 GVHD : Th.S NGÔ THANH HẢI SVTH : NGUYỄN ĐĂNG KAVỐST 3.5 HƢỚNG PHÁT TRIỂN CỦA ĐỀ TÀI : Ngày , đà phát triển giới nói chung đất nƣớc ta nói riêng Ở thành phố phát triển , ngƣời sử dụng xe làm phƣơng tiện lƣu thơng cho Vì cần có hầm giữ xe tự động để phục vụ nhu cầu ngƣời Cùng với phát triển kinh tế mạng lƣới sở hạ tầng , giao thông thuận lợi Nhiều tòa nhà cao tầng mọc lên , xây dựng hầm giữ xe tự động bên dƣới tòa cao ốc Một mặt tiết kiện đƣợc diện tích bề mặt Thứ hai tận dụng khoảng bên dƣới của toa 2nha2 Chúng ta mở rộng thêm nhiều tầng giữ xe Khi giữ đƣợc nhiều xe Cùng với phát triển khoa học công nghệ Chúng ta ứng dụng cơng nghệ xử lý ảnh vào việc xử lý biển số xe Khi dùng công nghệ , ngƣời dùng không cần phải nhập biển số xe , camera hệ thống tự quét biển số Khi tự cập thơng tin , liệu hệ thống vào máy tính Hạn chế đề tài hoạt động bán song công Khi gởi xe khơng lấy xe đƣợc ngƣợc lại ĐỒ ÁN TỐT NGHIỆP 44 GVHD : Th.S NGÔ THANH HẢI SVTH : NGUYỄN ĐĂNG KAVỐST PHỤ LỤC : CHƢƠNG TRÌNH VISUAL BASIC KẾT NỐI VỚI CƠ SỞ DỮ LIỆU : Public Class DataProvider Public DataProvider() Dim cn As OleDbConnection Function ketnoi() As OleDbConnection Dim cnStr As String cnStr = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = / /DBXe.mdb" cn = New OleDbConnection(cnStr) cn.Open() Return cn End Function Public Sub Dongketnoi() cn.Close() End Sub End Class Imports System.Data.OleDb Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label1.Text = "" Label2.Text = "" Label3.Text = "" Label4.Text = "" Label5.Text = "" Label6.Text = "" Label7.Text = "" Label8.Text = "" Label9.Text = "" Label10.Text = "" Label11.Text = "" Label12.Text = "" ĐỒ ÁN TỐT NGHIỆP 45 GVHD : Th.S NGÔ THANH HẢI SVTH : NGUYỄN ĐĂNG KAVỐST TextBox1.Focus() Dim ketnoi As New DataProvider() ketnoi.ketnoi() Dim cn As OleDbConnection cn = ketnoi.ketnoi() Dim strSQL As String strSQL = "select BienSo,ViTri from Gui" Dim da As New OleDbCommand(strSQL, cn) Dim dr As OleDbDataReader = da.ExecuteReader() Dim test As String test = "" While (dr.Read()) test = dr("ViTri") 'test = dr("ViTri") If test = "P1" Then PictureBox1.BackColor = Color.Blue Label1.Text = dr("BienSo") End If If test = "P2" Then PictureBox2.BackColor = Color.Blue Label2.Text = dr("BienSo") End If If test = "P3" Then PictureBox3.BackColor = Color.Blue Label3.Text = dr("BienSo") End If If test = "P4" Then PictureBox4.BackColor = Color.Blue Label4.Text = dr("BienSo") End If If test = "P5" Then PictureBox5.BackColor = Color.Blue ĐỒ ÁN TỐT NGHIỆP 46 GVHD : Th.S NGÔ THANH HẢI SVTH : NGUYỄN ĐĂNG KAVỐST Label5.Text = dr("BienSo") End If If test = "P6" Then PictureBox6.BackColor = Color.Blue Label6.Text = dr("BienSo") End If If test = "P7" Then PictureBox7.BackColor = Color.Blue Label7.Text = dr("BienSo") End If If test = "P8" Then PictureBox8.BackColor = Color.Blue Label8.Text = dr("BienSo") End If If test = "P9" Then PictureBox9.BackColor = Color.Blue Label9.Text = dr("BienSo") End If If test = "P10" Then PictureBox10.BackColor = Color.Blue Label10.Text = dr("BienSo") End If If test = "P11" Then PictureBox11.BackColor = Color.Blue Label11.Text = dr("BienSo") End If If test = "P12" Then PictureBox12.BackColor = Color.Blue Label12.Text = dr("BienSo") End If End While cn.Close() End Sub ĐỒ ÁN TỐT NGHIỆP 47 GVHD : Th.S NGÔ THANH HẢI SVTH : NGUYỄN ĐĂNG KAVỐST Dim arr(6) As String Public Sub Update1() Dim ketnoi As New DataProvider() ketnoi.ketnoi() Dim cn As OleDbConnection cn = ketnoi.ketnoi() Dim strSQL As String PictureBox1.BackColor = Color.Red Label1.Text = "" PictureBox2.BackColor = Color.Red Label2.Text = "" PictureBox3.BackColor = Color.Red Label3.Text = "" PictureBox4.BackColor = Color.Red Label4.Text = "" PictureBox5.BackColor = Color.Red Label5.Text = "" PictureBox6.BackColor = Color.Red Label6.Text = "" PictureBox7.BackColor = Color.Red Label7.Text = "" PictureBox8.BackColor = Color.Red Label8.Text = "" PictureBox9.BackColor = Color.Red Label9.Text = "" PictureBox10.BackColor = Color.Red Label10.Text = "" PictureBox11.BackColor = Color.Red Label11.Text = "" PictureBox12.BackColor = Color.Red Label12.Text = "" ĐỒ ÁN TỐT NGHIỆP 48 GVHD : Th.S NGÔ THANH HẢI SVTH : NGUYỄN ĐĂNG KAVỐST '''''''''''''''''''''' Set for position for car strSQL = "select BienSo,ViTri from Gui" Dim da As New OleDbCommand(strSQL, cn) Dim dr As OleDbDataReader = da.ExecuteReader() Dim test As String test = "" While (dr.Read()) test = dr("ViTri") 'test = dr("ViTri") If test = "P1" Then PictureBox1.BackColor = Color.Blue Label1.Text = dr("BienSo") End If If test = "P2" Then PictureBox2.BackColor = Color.Blue Label2.Text = dr("BienSo") End If If test = "P3" Then PictureBox3.BackColor = Color.Blue Label3.Text = dr("BienSo") End If If test = "P4" Then PictureBox4.BackColor = Color.Blue Label4.Text = dr("BienSo") End If If test = "P5" Then PictureBox5.BackColor = Color.Blue Label5.Text = dr("BienSo") End If If test = "P6" Then PictureBox6.BackColor = Color.Blue Label6.Text = dr("BienSo") End If If test = "P7" Then PictureBox7.BackColor = Color.Blue Label7.Text = dr("BienSo") ĐỒ ÁN TỐT NGHIỆP 49 GVHD : Th.S NGÔ THANH HẢI SVTH : NGUYỄN ĐĂNG KAVỐST End If If test = "P8" Then PictureBox8.BackColor = Color.Blue Label8.Text = dr("BienSo") End If If test = "P9" Then PictureBox9.BackColor = Color.Blue Label9.Text = dr("BienSo") End If If test = "P10" Then PictureBox10.BackColor = Color.Blue Label10.Text = dr("BienSo") End If If test = "P11" Then PictureBox11.BackColor = Color.Blue Label11.Text = dr("BienSo") End If If test = "P12" Then PictureBox12.BackColor = Color.Blue Label12.Text = dr("BienSo") End If End While End Sub Private Sub TextBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Enter End Sub Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then Dim ketnoi As New DataProvider() ketnoi.ketnoi() Dim cn As OleDbConnection ĐỒ ÁN TỐT NGHIỆP 50 GVHD : Th.S NGÔ THANH HẢI SVTH : NGUYỄN ĐĂNG KAVỐST cn = ketnoi.ketnoi() Dim strSQL As String Dim strSQLvitriranh As String strSQLvitriranh = "select Ten from ViTri where TinhTrang=1" Dim daranh As New OleDbCommand(strSQLvitriranh, cn) Dim drranh As OleDbDataReader = daranh.ExecuteReader() Dim vitriranhnext As String vitriranhnext = "" Dim vitriranh As String vitriranh = "" While (drranh.Read()) vitriranh = drranh("Ten") Exit While End While While (drranh.Read()) vitriranhnext = drranh("Ten") Exit While End While If vitriranh "" Then strSQL = "insert into gui values('" + TextBox1.Text + "','" + DateTimePicker1.Value + "','" + vitriranh + "')" Dim da As New OleDbCommand(strSQL, cn) If da.ExecuteNonQuery() Then MessageBox.Show("Them cong") TextBox3.Text = vitriranhnext ' cap nhat trang thai cua vitri Dim strCapnhatvitri As String strCapnhatvitri = "update ViTri set TinhTrang=0 where Ten='" + vitriranh + "'" Dim cm As New OleDbCommand(strCapnhatvitri, cn) cm.ExecuteNonQuery() Update1() End If Else MessageBox.Show("het cho roi") Return ĐỒ ÁN TỐT NGHIỆP 51 GVHD : Th.S NGÔ THANH HẢI SVTH : NGUYỄN ĐĂNG KAVỐST End If cn.Close() TextBox1.Text = "" End If End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End Sub Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click End Sub Private Sub Label13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.Click End Sub Private Sub TextBox2_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then Dim ketnoi As New DataProvider() ketnoi.ketnoi() Dim cn As OleDbConnection cn = ketnoi.ketnoi() Dim strSQLgui As String strSQLgui = "select * from gui where BienSo='" + TextBox2.Text + "'" Dim dagui As New OleDbCommand(strSQLgui, cn) Dim drgui As OleDbDataReader = dagui.ExecuteReader() Dim strBienso As String strBienso = "" Dim ngaygui As String ngaygui = "" Dim vitri As String vitri = "" ĐỒ ÁN TỐT NGHIỆP 52 GVHD : Th.S NGÔ THANH HẢI SVTH : NGUYỄN ĐĂNG KAVỐST While (drgui.Read()) strBienso = drgui("BienSo") ngaygui = drgui("NgayGui") vitri = drgui("ViTri") End While If strBienso = "" Then MessageBox.Show("Chiec khong co bai xe") Return End If Dim strSQL As String strSQL = "insert into quatrinhgui values('" + TextBox2.Text + "','" + ngaygui + "','" + DateTimePicker2.Value + "','" + vitri + "')" Dim daranh As New OleDbCommand(strSQL, cn) daranh.ExecuteNonQuery() daranh = New OleDbCommand("delete from gui where bienso='" + TextBox2.Text + "'", cn) daranh.ExecuteNonQuery() daranh = New OleDbCommand("update vitri set tinhtrang=1 where Ten='" + vitri + "'", cn) daranh.ExecuteNonQuery() Update1() cn.Close() TextBox2.Text = "" End If End Sub End Class ĐỒ ÁN TỐT NGHIỆP 53 GVHD : Th.S NGÔ THANH HẢI SVTH : NGUYỄN ĐĂNG KAVỐST DANH MỤC CÁC TÀI LIỆU THAM KHẢO [1] Hoàng Minh Sơn , 2006 , Mạng Truyền Thông Công Nghiệp , NXB Khoa Học Và Kỹ Thuật , Hà Nội [2] Ngô Diên Tập , 2006 , Vi Điều Khiển Với Lập Trình C , NXB Khoa Học Và Kỹ Thuật , Hà Nội [3] Phƣơng Lan , Trần Tiến Dũng , 2006 , Visual Basic 2005- Ngôn Ngữ Và Ứng Dụng , NXB Phƣơng Đông , TPHCM [4] Tống Văn On , Hoàng Đức Hải, 2001, Họ Vi Điều Khiển 8051, NXB Lao Động Xã Hội, Hà Nội [5] Trần Văn Sƣ , 2005 , Truyền Số Liệu Và Thông Tin Số , NXB Đại Học Quốc Gia TPHCM ĐỒ ÁN TỐT NGHIỆP 54