kl la duy dao 2015 621 387

SVTH: Lã Duy Đạo Khoa Điện – Điện Tử GIỚI THIỆU ĐỀ TÀI Lý chọn đề tài Ngày hệ thống mạng điện thoại di động thiết bị điện thoại di động ngày phổ biến sống Cùng với nhu cầu sống ngày tăng Từ hình thành, nảy sinh ý tưởng việc điều khiển thiết bị tự động nhà thông qua tin nhắn SMS Ý nghĩa khoa học đề tài Ngày với tiến khoa học kỹ thuật, thiết bị điện tử đời ngày nhiều chủng loại tính sử dụng Bên cạnh nhu cầu sử dụng thiết bị cách tự động ngày cao, người ngày muốn có nhiều thiết bị giải trí thiết bị sinh hoạt với kỹ thuật cơng nghệ ngày cao, mơ hình ngơi nhà tự động điều khiển từ xa phát triển mạnh mẽ Xây dựng mơ hình ngơi nhà thơng minh, tự động hồn tồn cịn cho phép điều khiển từ xa thông qua điều khiển trung tâm Mục đích nghiên cứu Đồ án nghiên cứu, khảo sát thực với mục đích áp dụng kiến thức học nhà trường để thiết kế, tạo hệ thống điều khiển tự động từ xa tin nhắn SMS hoàn chỉnh Hệ thống tích hợp module điều khiển giám sát, module đo nhiệt độ phát người module công suất cho cho thiết bị nhà Với module đo nhiệt độ cảm biến nhiệt độ gởi thơng tin liệu xử lí trung tâm Và có hỏa hoạn sảy tự động thi hành thao tác cần thiết lập trình sẵn để bảo vệ ngơi nhà Giới hạn đề tài Để thực thi hệ thống điều khiển thiết bị từ xa thông qua tin nhắn SMS áp dụng cho ngơi nhà hồn chỉnh nói phức tạp tốn Để đáp ứng việc điều khiển toàn thiết bị địi hỏi phải có lượng thời gian, Điều khiển thiết bị qua tin nhắn SMS SVTH: Lã Duy Đạo Khoa Điện – Điện Tử kiến thức định Bên cạnh cịn vấn đề tài Với lượng thời gian kiến thức có hạn, đề tài em thực thực thi phần hệ thống hồn chỉnh Đó điều khiển đóng mở đèn, đo hiển thị nhiệt độ, phát người vào nhà Ngồi cịn có chức báo cháy xảy hỏa hoạn Điều khiển thiết bị qua tin nhắn SMS SVTH: Lã Duy Đạo Khoa Điện – Điện Tử CHƯƠNG TRUYỀN DỮ LIỆU VÀ GIAO TIẾP MÁY TÍNH 1.1 Tổng quát tin nhắn SMS 1.1.1 Giới thiệu SMS SMS từ viết tắt Short Message Service Đó cơng nghệ cho phép gửi nhận tín nhắn điện thoại với SMS xuất Châu âu vào năm 1992 Ở thời điểm đó, bao gồm chuẩn GSM (Global System for Mobile Communications) Một thời gian sau đó, phát triển sang công nghệ wireless CDMA TDMA Các chuẩn GSM SMS có nguồn gốc phát triển ETSI ETSI chữ viết tắt European Telecommunications Standards Institute Ngày 3GPP (Third Generation Partnership Project) giữ vai trị kiểm sốt phát triển trì chuẩn GSM SMS Như nói tên đầy đủ SMS Short Message Service, từ cụm từ đó, thấy liệu lưu giữ tin nhắn SMS giới hạn Một tin nhắn SMS chứa tối đa 140 byte (1120 bit) liệu Vì vậy, tin nhắn SMS chứa : * 160 kí tự mã hóa kí tự bit sử dụng (mã hóa kí tự bit phù hợp với mã hóa lí tự latin chẳng hạn lí tự alphabet tiếng Anh) * 70 kí tự mã hóa kí tự 16 bit Unicode UCS2 sử dụng (các tin nhắn SMS khơng chứa kí tự latin kí tự chữ Trung Quốc phải sử dụng mã hóa kí tự 16 bit) Tin nhắn SMS dạng text hỗ trợ nhiều ngơn ngữ khác Nó hoạt động tốt với nhiều ngơn ngữ mà có hỗ trợ mã Unicode , bao gồm Arabic, Trung Quốc, Nhật Hàn Quốc Bên cạnh gữi tin nhắn dạng text tin nhắn SMS cịn mang liệu dạng binary Nó cịn cho phép gửi nhạc chng, hình ảnh nhiều tiện ích khác tới điện thoại khác Một ưu điểm trội SMS hỗ trợ điện thoại có sử dụng GSM hồn tồn Hầu hết tất tiện ích cộng thêm gồm dịch vụ gửi tin nhắn giá rẻ cung cấp, sử dụng thơng qua sóng mang wireless Điều khiển thiết bị qua tin nhắn SMS SVTH: Lã Duy Đạo Khoa Điện – Điện Tử Không giống SMS, công nghệ mobile WAP mobile Java khơng hỗ trợ nhiều model điện thoại Sử dụng tin nhắn SMS ngày phát triển trở lên rộng khắp:  Các tin nhắn SMS gửi đọc thời điểm Ngày nay, hầu hết người có điện thoại di động riêng mang theo người ngày Với điện thoại di động, bạn gửi đọc tin nhắn SMS lúc bạn muốn, không gặp khó khăn bạn văn phịng hay xe bus hay nhà  Tin nhắn SMS gửi tới điện thoại mà tắt nguồn Nếu không cho gọi bạn gửi tin nhắn SMS đến bạn bạn chí người tắt nguồn máy điện thoại lúc bạn gửi tin nhắn Hệ thống SMS mạng điện thoại lưu trữ tin nhắn sau gửi tới người bạn điện thoại người bạn mở nguồn  Các tin nhắn SMS gây phiền phức bạn giữ liên lạc với người khác Việc đọc viết tin nhắn SMS khơng gây ồn Trong đó, bạn phải chạy khỏi rạp hát, thự viện hay nơi để thực điện thoại hay trả lời gọi Bạn không cần phải làm tin nhắn SMS sử dụng  Các điện thoại di động chúng thay đổi sóng mang Wireless khác Tin nhắn SMS công nghệ thành công trưởng thành Tất điện thoại mobile ngày có hỗ trợ Bạn khơng trao đổi tin nhắn SMS người sử dụng mobile nhà cung cấp dịch vụ mạng sóng mang wireless, mà đồng thời bạn trao đổi với người sử dụng khác nhà cung cấp dịch vụ khác  SMS công nghệ phù hợp với ứng dụng Wireless sử dụng với Nói do: Thứ nhất, tin nhắn SMS hỗ trợ 100% điện thoại có sử dụng công nghệ GSM Xây dựng ứng dụng wireless cơng nghệ SMS Điều khiển thiết bị qua tin nhắn SMS SVTH: Lã Duy Đạo Khoa Điện – Điện Tử phát huy tối đa ứng dụng dành cho người sử dụng Thứ hai, tin nhắn SMS cịn tương thích với việc mang liệu binary bên cạnh gửi text Nó sử dụng để gửi nhạc chng, hình ảnh, hoạt họa  Thứ ba, tin nhắn SMS hỗ trợ việc tri trả dịch vụ trực tuyến Nghĩa cho phép thực việc chi trả dịch vụ trực tuyến cách thuận lợi Ví dụ như, bạn muốn phát triển ứng dụng download nhạc chng mang tính thương mại thu phí sử dụng từ người sử dụng cho lần download nhạc chuông Một cách thuận lợi để thực thi ứng dụng sử dụng số điện thoại từ nhà cung cấp mạng có khả tri trả ngược lại tới tiện ích thơng qua việc sử dụng sóng mang wireless Và để tải nhạc chuông người sử dụng phải soạn tin nhắn có nội dụng cấu trúc tin nhắn qui định nhà cung cấp dịch vụ gửi tin nhắn tới số điện thoại tích hợp sẵn chức tri trả trực tuyến mà người phát triển ứng dụng xây dựng Ứng dụng SMS mà bạn sử dụng sau gửi trả lại cho bạn hay nhiều tin nhắn SMS có kèm theo nhạch chuông (chẳng hạn) thông báo chi phí phải trả cho việc sử dụng ứng dụng Chi phí gồm chi phí sử dụng dịch vụ hàng tháng điện thoại di động khấu trừ từ thẻ card dùng di động bạn Nó tùy thuộc vào thỏa thuận bạn người phát triển ứng dụng 1.1.2 Cấu trúc tin nhắn SMS Nội dung tin nhắn SMS gửi chia làm phần sau: Message Body Instructions to SIM Instructions to handset Instructions to SMSC Instructions to air interface Điều khiển thiết bị qua tin nhắn SMS SVTH: Lã Duy Đạo Khoa Điện – Điện Tử - Instructions to air interface: thị liệu kết nối với air interface (giao diện khơng khí) - Instructions to SMSC: thị liệu kết nối với trung tâm tin nhắn SMSC (short message service centre) - Instructions to handset: thị liệu kết nối bắt tay - Instructions to SIM (optional): thị liệu kết nối, nhận biết SIM (Subscriber Identity Modules) - Message body: nội dung tin nhắn SMS 1.2 Tổng quát hệ thống truyền liệu Không giống với việc truyền thông tin cách phát thu tín hiệu tương tự âm hình ảnh, việc truyền liệu thực cách phát (liên tiếp) mã nhị phân lên đường truyền Các mã tạo ra, lưu trữ xử lí máy tính ngoại vi Đường truyền dùng để truyền liệu đường truyền số (digital) nghĩa tín hiệu hai trạng thái khác biệt biểu thị mức logic Trong tín hiệu tương tự chiếm trạng thái dải liên tục Cấu trúc hệ thống thông tin Sơ lược khối hệ thống: Nguồn Khối Khối tín hiệu Truyền Nhận tin Cơ cấu chấp hành tin Hình 1.2 Sơ đồ hệ thống thơng tin Nguồn tín hiệu: Là tín hiệu cần truyền đi, tín hiệu khơng điện tín hiệu điện Do vậy, cần phải có chuyển đổi tín hiệu khơng điện thành tín hiệu điện trước đưa lên đường truyền Điều khiển thiết bị qua tin nhắn SMS SVTH: Lã Duy Đạo Khoa Điện – Điện Tử Thông thường dùng cảm biến để dị lấy tín hiệu thực q trình chuyển đổi thành tín hiệu điện Khối truyền tin: Nhận tín hiệu điện từ nguồn tín hiệu đưa đến sau thực biến đổi cho phù hợp với đường truyền trước phát lên Khối thường gồm: mạch điều chế tín hiệu, dồn kênh, phát tín hiệu Đường truyền: Có nhiều dạng đường truyền hữu tuyến, vô tuyến, tương tự, số Bản chất đường truyền có ảnh hưởng nhiều khối khác sơ đồ Khối nhận tin: Nhận lấy tín hiệu từ đường truyền gửi xuống thực việc chuyển đổi nhằm lấy lại thông tin ban đầu Khối nhận tin thường gồm: giải điều chế tín hiệu (tách sóng mang), phân kênh tín hiệu Cơ cấu chấp hành: Nhận tín hiệu từ khối nhận tin đưa đến sau biến đổi đại lượng điện đầu vào thành đại lượng đồng dạng với đại lượng vào nguồn tín hiệu Cơ cấu chấp hành hình hiển thị loa, rờle dể đóng ngắt thiết bị  1.3 Kỹ thuật ghép nối giao tiếp máy tính 1.3.1 Cổng nối tiếp RS232: 1.3.1.1 Giới thiệu: Giao thức truyền thông nối tiếp đường cho phép thiết bị khác giao tiếp với giới bên ngồi Nó gọi nối tiếp bit liệu truyền theo kiểu nối tiếp đường dây đơn Một máy tính để bàn có port nối tiếp biết tới port truyền thông hay port COM sử dụng để kết nối modem chẳng hạn hay thiết bị khác, có nhiều cổng (port) COM máy tính để bàn Các Port nối tiếp Điều khiển thiết bị qua tin nhắn SMS SVTH: Lã Duy Đạo Khoa Điện – Điện Tử điều khiển CHIP đặc biệt gọi UART (Universal Asynchronous Receiver Transmitter) Các ứng dụng khác sử dụng chân khác port nối tiếp chủ yếu dựa vào chức yêu cầu Nếu bạn cần kết nối máy tính (PC) bạn chẳng hạn tới thiết bị khác dùng Port nối tiếp bạn phải đọc sổ tay hướng dẫn cho thiết bị để biết chân hai mặt kết nối với thiết lập cần thiết Các lợi giao thức truyền thông nối tiếp: Giao thức truyền thơng nối tiếp có vài lợi so với với giao thức truyền thông song song Một lợi khoảng cách truyền dẫn, kết nối nối tiếp gửi liệu tới thiết bị điều khiển xa so với kết nối song song Và cáp kết nối kết nối nối tiếp đơn giản so với kết nối song song sử dụng số dây Kết nối nối tiếp sử dụng cho giao tiếp hồng ngoại, ngày thiết bị laptop máy in giao tiếp thơng qua đường hồng ngoại 1.3.1.2 Các loại kết nối: Có hai loại kết nối chân 25 chân, hai gọi đầu cắm loại D (D-Type plug) D-Type plug đực mà Các thiết bị sử dụng cáp nối tiếp để phục vụ cho việc giao tiếp chia làm hai loại: * DTE (Data Terminal Equipment) Ví dụ DTE máy tinh, máy in thiết bị đầu cuối * DEC (Data Communication Equipment) Ví dụ DEC modem 1.3.1.3 Các phương pháp giao tiếp Có hai phương pháp giao tiếp cho chuẩn giao tiếp truyền thông nối tiếp, đồng bất đồng Giao tiếp truyền thông nối tiếp đồng bộ: Trong giao tiếp truyền thông nối tiếp đồng bộ, nhận phải biết đọc bit tới từ bên gửi, điều đạt cách phối hợp xung Clock bên phát bên thu Điều khiển thiết bị qua tin nhắn SMS SVTH: Lã Duy Đạo Khoa Điện – Điện Tử Trong hầu hết dạng GTTTNT, khơng có liệu sẵn sàng thời điểm cho để truyền kí tự nhồi gửi thay vào liệu truyền bên gửi bên nhận Tuy nhiên mắc mạch điện điều khiển dây nối thêm bên cần mắc thêm để phối hợp, chia sẻ tín hiệu xung Clock bên phát bên thu Giao tiếp truyền thông nối tiếp bất đồng bộ: Giao tiếp truyền thông nối tiếp bất đồng cho phép liệu truyền mà không cần phải gửi tín hiệu xung clock tới bên nhận từ bên gửi.Thay vào đó, bit đặc biệt thêm vào tới word để thực việc đồng liệu bên gửi bên nhận Khi word đưa tới UART phục vụ cho việc truyền bất đồng bộ, bit gọi "Start bit" thêm vào đầu word mà truyền Bit Start sử dụng để thông báo tới bên nhận word gửi tới, đẩy xung clock nhận vào trình đồng với xung clock truyền Sau Start Bit, bit liệu riêng word gửi, bit word truyền cách xác giống gian tất bit khác Khi toàn liệu word gửi, truyền cho Parity Bit mà tạo truyền Parity Bit sử dụng bên nhận để thực thi việc kiểm tra lỗi đơn giản Sau có tối thiểu Stop Bit gửi truyền Nếu Stop Bit không xuất mà cần đến UART coi tồn word bị hu thông báo Framing Error (một lỗi Frame) Phần cứng giao tiếp truyền thông nối tiếp chuẩn PC không hỗ trợ hoạt động đồng 1.3.2 Giao tiếp điện thoại với máy tính qua USB Modem Trong đề tài sử dụng việc kết nối Mobile với máy tính thơng qua chức USB Modem Mobile Motorola USB Modem có chức kết nối Internet cho máy tính giống ADSL Modem Nhưng đề tài không dùng USB Modem vào mục đích kết nối với Internet mà sử dụng với mục đích Điều khiển thiết bị qua tin nhắn SMS SVTH: Lã Duy Đạo 10 Khoa Điện – Điện Tử tạo cổng COM nối tiếp để truy xuất điều khiển Mobile với máy tính thơng qua tập lệnh AT Lúc Mobile có chức GSM Modem, cho phép lập trình để điều khiển việc gửi nhận tin nhắn SMS thông qua tập lệnh AT Hầu hết điện thoại hỗ trợ tập lệnh AT tích hợp GSM Modem phần cứng máy Muốn sử dụng chức USB Modem Mobile cần phải cài đặt Driver cho việc giao tiếp Mobile với máy tính Driver cung cấp hãng sản xuất Mobile Khi cài đặt Driver cho máy tính nhận cổng COM, cổng COM mặc định phải kiểm tra để biết COM Điều quan trọng để truy xuất giao tiếp Mobile máy tính Vì đề tài sử dụng Mobile có sẵn Motorola A1200 nên việc trình bày hướng theo quy định hãng Motorola Đối với số loại điện thoại khác lấy cổng COM cách cài đặt chương trình quản lý riêng theo hãng Trong đề tài việc giao tiếp với máy tính Mobile không thiết phải Motorola mà quan Mobile phải hỗ trợ trợ tập lệnh điều khiển AT Ví dụ Nokia có nhiều đời máy lập trình thơng qua tập lệnh AT Vì đề tài sử dụng điện thoại Mobile với chi phí thấp để ứng dụng thực tế Điều khiển thiết bị qua tin nhắn SMS SVTH: Lã Duy Đạo 57 Khoa Điện – Điện Tử If lenh Then Timerguithu.Interval = 10 ndbucdien = "ONTB4" Timerguithu.Enabled = True End If lenh = lenh = InStr(atinnhan, "OFFTB4") If lenh Then Timerguithu.Interval = 10 ndbucdien = "OFFTB4" Timerguithu.Enabled = True End If '===============CUOC GOI=============== lenh = lenh = InStr(atinnhan, "RING") If lenh Then MSComm1.Output = "ata" + Chr(13) End If '===============XOA BO DEM=============== For i = To 247 mtvsim900(i) = "" Next i=0 End Sub ===========XU LY TIN HIEU TU PIC DUA LEN MAY TINH========== Private Sub timerpic_Timer() Dim atinnhan As String Dim lenh, J As Integer '========================================== Điều khiển thiết bị qua tin nhắn SMS SVTH: Lã Duy Đạo Khoa Điện – Điện Tử 58 atinnhan = Join(mtvpic(), "") '==================NGAT TRUYEN RS232========== lenh = lenh = InStr(atinnhan, "XAC NHAN") If lenh Then Timerguithu.Enabled = False ndbucdien = "" End If '===================THIET BI CHAY======================= lenh = lenh = InStr(atinnhan, "CHAY") If lenh Then rec1.AddNew CHAY.FillColor = &HFF& 'MAU DO DANG HOAT DONG rec1!nhietdo = Mid(atinnhan, 1, 4) rec1!thoigian = Time rec1.Update Set DataGrid1.DataSource = rec1 lenh = Mid(atinnhan, 6, 5) lenh = Val(lenh) If lenh < 190 Then rec.AddNew TBCHAY.FillColor = &HFF& 'MAU DO LOI THIET BI rec!xacnhantuthietbi = "KHONG MO DUOC BOM" rec!thoigian = Time rec.Update Set DataGrid1.DataSource = rec MSComm1.Output = "AT+CMGS=" & Chr(34) & txtsdt.Text & Chr(34) & vbCr Điều khiển thiết bị qua tin nhắn SMS SVTH: Lã Duy Đạo Khoa Điện – Điện Tử 59 atb(1) = "CHAY, LOI KHONG MO DUOC BOM" Timerdelay.Enabled = True MSComm2.Output = "CHAY" Else rec.AddNew TBCHAY.FillColor = &HFF00& 'MAU XANH LOI THIET BI rec!xacnhantuthietbi = "MO THANH CONG BOM" rec!thoigian = Time rec.Update Set DataGrid1.DataSource = rec MSComm1.Output = "AT+CMGS=" & Chr(34) & txtsdt.Text & Chr(34) & vbCr atb(1) = "CHAY, MO THANH CONG BOM" Timerdelay.Enabled = True MSComm2.Output = "CHAY" End If End If '''''''''''''''''''''''''''''''''''''''''''''''''''''''''' lenh = lenh = InStr(atinnhan, "HET CHAY") If lenh Then rec1.AddNew CHAY.FillColor = &HFFFFFF 'MAU TRANG rec1!nhietdo = Mid(atinnhan, 1, 3) rec1!thoigian = Time rec1.Update Set DataGrid1.DataSource = rec1 lenh = Mid(atinnhan, 5, 4) lenh = Val(lenh) Điều khiển thiết bị qua tin nhắn SMS SVTH: Lã Duy Đạo Khoa Điện – Điện Tử 60 If lenh > 190 Then rec.AddNew TBCHAY.FillColor = &HFF& 'MAU DO LOI THIET BI rec!xacnhantuthietbi = "KHONG TAT DUOC BOM" rec!thoigian = Time rec.Update Set DataGrid1.DataSource = rec MSComm1.Output = "AT+CMGS=" & Chr(34) & txtsdt.Text & Chr(34) & vbCr atb(1) = "HET CHAY, LOI KHONG TAT DUOC BOM" Timerdelay.Enabled = True MSComm2.Output = "HETCHAY" Else rec.AddNew TBCHAY.FillColor = &HFFFFFF 'MAU TRANG rec!xacnhantuthietbi = "TAT THANH CONG BOM" rec!thoigian = Time rec.Update Set DataGrid1.DataSource = rec MSComm1.Output = "AT+CMGS=" & Chr(34) & txtsdt.Text & Chr(34) & vbCr atb(1) = "HETCHAY, TAT THANH CONG BOM" Timerdelay.Enabled = True MSComm2.Output = "HETCHAY" End If End If '===================CHOM============================= lenh = lenh = InStr(atinnhan, "CHOM") Điều khiển thiết bị qua tin nhắn SMS SVTH: Lã Duy Đạo 61 Khoa Điện – Điện Tử If lenh Then rec1.AddNew CHOM.FillColor = &HFF& rec1!phathiennguoi = "CO NGUOI VAO NHA" rec1!thoigian = Time rec1.Update Set DataGrid2.DataSource = rec1 MSComm1.Output = "AT+CMGS=" & Chr(34) & txtsdt.Text & Chr(34) & vbCr atb(1) = "CO NGUOI VAO NHA" Timerdelay.Enabled = True MSComm2.Output = "CHOM" End If '===================THIET BI 1======================= lenh = lenh = InStr(atinnhan, "ONTB1") If lenh Then rec.AddNew TB1.FillColor = &HFF00& 'MAU XANH DANG HOAT DONG rec!xacnhantuthietbi = "MO THIET BI 1" rec!thoigian = Time rec.Update Set DataGrid1.DataSource = rec lenh = lenh = InStr(atinnhan, "IP") If lenh Then lenh = lenh = Mid(atinnhan, 4, 5) lenh = Val(lenh) If lenh < 190 Then Điều khiển thiết bị qua tin nhắn SMS SVTH: Lã Duy Đạo 62 Khoa Điện – Điện Tử rec.AddNew TB5.FillColor = &HFF& 'MAU DO LOI THIET BI rec!xacnhantuthietbi = "KHONG MO DUOC THIET BI 1" rec!thoigian = Time rec.Update Set DataGrid1.DataSource = rec MSComm1.Output = "AT+CMGS=" & Chr(34) & txtsdt.Text & Chr(34) & vbCr atb(1) = "LOI KHONG MO DUOC THIET BI 1" Timerdelay.Enabled = True Else rec.AddNew TB5.FillColor = &HFFFFFF 'MAU DO LOI THIET BI rec!xacnhantuthietbi = "MO THANH CONG THIET BI 1" rec!thoigian = Time rec.Update Set DataGrid1.DataSource = rec MSComm1.Output = "AT+CMGS=" & Chr(34) & txtsdt.Text & Chr(34) & vbCr atb(1) = "MO THANH CONG THIET BI 1" Timerdelay.Enabled = True End If End If End If lenh = lenh = InStr(atinnhan, "OFFTB1") If lenh Then rec.AddNew TB1.FillColor = &HFFFFFF 'MAU TRANG DA TAT Điều khiển thiết bị qua tin nhắn SMS SVTH: Lã Duy Đạo 63 Khoa Điện – Điện Tử rec!xacnhantuthietbi = "DA TAT THIET BI 1" rec!thoigian = Time rec.Update Set DataGrid1.DataSource = rec lenh = lenh = InStr(atinnhan, "IP") If lenh Then lenh = lenh = Mid(atinnhan, 4, 5) lenh = Val(lenh) If lenh > 190 Then rec.AddNew TB5.FillColor = &HFF& 'MAU DO LOI THIET BI rec!xacnhantuthietbi = "KHONG TAT DUOC THIET BI 1" rec!thoigian = Time rec.Update Set DataGrid1.DataSource = rec MSComm1.Output = "AT+CMGS=" & Chr(34) & txtsdt.Text & Chr(34) & vbCr atb(1) = "LOI KHONG TAT DUOC THIET BI 1" Timerdelay.Enabled = True Else rec.AddNew TB5.FillColor = &HFFFFFF 'MAU DO LOI THIET BI rec!xacnhantuthietbi = "TAT THANH CONG THIET BI 1" rec!thoigian = Time rec.Update Set DataGrid1.DataSource = rec Điều khiển thiết bị qua tin nhắn SMS SVTH: Lã Duy Đạo 64 Khoa Điện – Điện Tử MSComm1.Output = "AT+CMGS=" & Chr(34) & txtsdt.Text & Chr(34) & vbCr atb(1) = "TAT THANH CONG THIET BI 1" Timerdelay.Enabled = True End If End If End If '===================THIET BI 2======================= lenh = lenh = InStr(atinnhan, "ONTB2") If lenh Then rec.AddNew TB2.FillColor = &HFF00& 'MAU XANH DANG HOAT DONG rec!xacnhantuthietbi = "MO THIET BI 1" rec!thoigian = Time rec.Update Set DataGrid1.DataSource = rec lenh = lenh = InStr(atinnhan, "IP") If lenh Then lenh = lenh = Mid(atinnhan, 4, 5) lenh = Val(lenh) If lenh < 190 Then rec.AddNew TB6.FillColor = &HFF& 'MAU DO LOI THIET BI rec!xacnhantuthietbi = "KHONG MO DUOC THIET BI 1" rec!thoigian = Time rec.Update Điều khiển thiết bị qua tin nhắn SMS SVTH: Lã Duy Đạo 65 Khoa Điện – Điện Tử Set DataGrid1.DataSource = rec MSComm1.Output = "AT+CMGS=" & Chr(34) & txtsdt.Text & Chr(34) & vbCr atb(1) = "LOI KHONG MO DUOC THIET BI 2" Timerdelay.Enabled = True Else rec.AddNew TB6.FillColor = &HFFFFFF 'MAU DO LOI THIET BI rec!xacnhantuthietbi = "MO THANH CONG THIET BI 1" rec!thoigian = Time rec.Update Set DataGrid1.DataSource = rec MSComm1.Output = "AT+CMGS=" & Chr(34) & txtsdt.Text & Chr(34) & vbCr atb(1) = "MO THANH CONG THIET BI 2" Timerdelay.Enabled = True End If End If End If lenh = lenh = InStr(atinnhan, "OFFTB2") If lenh Then rec.AddNew TB2.FillColor = &HFFFFFF 'MAU TRANG DA TAT rec!xacnhantuthietbi = "DA TAT THIET BI 2" rec!thoigian = Time rec.Update Set DataGrid1.DataSource = rec lenh = Điều khiển thiết bị qua tin nhắn SMS SVTH: Lã Duy Đạo 66 Khoa Điện – Điện Tử lenh = InStr(atinnhan, "IP") If lenh Then lenh = lenh = Mid(atinnhan, 4, 5) lenh = Val(lenh) If lenh > 190 Then rec.AddNew TB6.FillColor = &HFF& 'MAU DO LOI THIET BI rec!xacnhantuthietbi = "KHONG TAT DUOC THIET BI 2" rec!thoigian = Time rec.Update Set DataGrid1.DataSource = rec MSComm1.Output = "AT+CMGS=" & Chr(34) & txtsdt.Text & Chr(34) & vbCr atb(1) = "LOI KHONG TAT DUOC THIET BI 2" Timerdelay.Enabled = True Else rec.AddNew TB6.FillColor = &HFFFFFF 'MAU DO LOI THIET BI rec!xacnhantuthietbi = "TAT THANH CONG THIET BI 2" rec!thoigian = Time rec.Update Set DataGrid1.DataSource = rec MSComm1.Output = "AT+CMGS=" & Chr(34) & txtsdt.Text & Chr(34) & vbCr atb(1) = "TAT THANH CONG THIET BI 2" Timerdelay.Enabled = True End If End If Điều khiển thiết bị qua tin nhắn SMS SVTH: Lã Duy Đạo 67 Khoa Điện – Điện Tử End If '=================THIET BI 3========================= lenh = lenh = InStr(atinnhan, "ONTB3") If lenh Then rec.AddNew TB3.FillColor = &HFF00& 'MAU XANH DANG HOAT DONG rec!xacnhantuthietbi = "DA MO THIET BI 3" rec!thoigian = Time rec.Update Set DataGrid1.DataSource = rec End If lenh = lenh = InStr(atinnhan, "OFFTB3") If lenh Then rec.AddNew TB3.FillColor = &HFFFFFF 'MAU TRANG DA TAT rec!xacnhantuthietbi = "DA TAT THIET BI 3" rec!thoigian = Time rec.Update Set DataGrid1.DataSource = rec End If '================THIET BI 4========================== lenh = lenh = InStr(atinnhan, "ONTB4") If lenh Then rec.AddNew TB4.FillColor = &HFF00& 'MAU XANH DANG HOAT DONG rec!xacnhantuthietbi = "DA MO THIET BI 4" Điều khiển thiết bị qua tin nhắn SMS SVTH: Lã Duy Đạo 68 rec!thoigian = Time rec.Update Set DataGrid1.DataSource = rec End If lenh = lenh = InStr(atinnhan, "OFFTB4") If lenh Then TB4.FillColor = &HFFFFFF 'MAU TRANG DA TAT rec!xacnhantuthietbi = "DA TAT THIET BI 4" rec!thoigian = Time rec.Update Set DataGrid1.DataSource = rec End If '================XOA BO DEM=============== For i = To 247 mtvpic(i) = "" Next i=0 timerpic.Enabled = False End Sub Điều khiển thiết bị qua tin nhắn SMS Khoa Điện – Điện Tử SVTH: Lã Duy Đạo 69 Hình 4.2: Giao diện người dùng Điều khiển thiết bị qua tin nhắn SMS Khoa Điện – Điện Tử SVTH: Lã Duy Đạo 70 Khoa Điện – Điện Tử KẾT LUẬN Trong trình thực đề tài, em thu kết định sau: Mạch điện với module nhỏ mạch thiết kế, thi công hoàn chỉnh thử nghiệm nhiều lần động ổn định thực tế Trong đồ án này, em thực trình bày đầy đủ chức Như vậy, giúp người đọc nắm bắt, hiểu chức module cách dễ dàng Bên cạnh đó, nội dung đề tài trình bày chi tiết rõ ràng cách sử dụng từ ngữ thông dụng, hình ảnh kèm giúp người đọc dễ hiểu thực cách tương tự, đạt hiệu thời gian ngắn Hệ thống điều khiển thiết bị nhà từ xa thông qua tin nhắn SMS thực đề tài hệ thống với chức đạt sau: Hệ thống điều khiển thiết bị điện từ xa thông qua tin nhắn SMS Sau gửi tin nhắn với nội dụng tin nhắn đó, xử lí thực thi q trình xử lí, sau điều khiển thiết bị cách tự động Tin nhắn gửi từ người chủ nhà để điều khiển thiết bị điện người chủ nhà nhận tin nhắn trả ngược lại với nội dụng tin nhắn tình trạng thiết bị ngơi nhà Hệ thống có khả bảo vệ tốt, nghĩa người sử dụng phải biết sử dụng mật tin nhắn SMS Hệ thống có chức cảnh báo cố Ngồi cịn có khả gửi tin nhắn ngược lại cho chủ nhà tự động thi hành thao tác lập trình sẵn có hỏa hoạn sảy Điều khiển thiết bị qua tin nhắn SMS SVTH: Lã Duy Đạo 71 Khoa Điện – Điện Tử TÀI LIỆU THAM KHẢO [1] Hồng Minh Sơn Mạng Truyền Thơng Cơng Nghiệp NXB Khoa Học Và Kỹ Thuật 2006 [2] Nguyễn Tăng Cường, Phan Quốc Thắng Cấu Trúc Và Lập Trình Họ Vi Điều Khiển 8051 Nhà Xuất Bản Khoa Học Và Kĩ Thuật, Hà Nội 2004 [3] Đậu Quang Tuấn Tự Học Lập Trình Visual Basic 6.0 Nhà Xuất Bản Giao Thông Vận Tải 2006 [4] SIMCom SIM900 Hardware Design 1.01 (26-12-2009) Điều khiển thiết bị qua tin nhắn SMS ... bị qua tin nhắn SMS SVTH: Lã Duy Đạo 26 Khoa Điện – Điện Tử 3.3.3.3 Sơ đồ khối: Hình 3.3.3.3 Sơ đồ khối PIC16F877A Điều khiển thiết bị qua tin nhắn SMS SVTH: Lã Duy Đạo 27 Khoa Điện – Điện Tử... người vào nhà Ngoài cịn có chức báo cháy xảy hỏa hoạn Điều khiển thiết bị qua tin nhắn SMS SVTH: Lã Duy Đạo Khoa Điện – Điện Tử CHƯƠNG TRUYỀN DỮ LIỆU VÀ GIAO TIẾP MÁY TÍNH 1.1 Tổng quát tin nhắn SMS... rẻ cung cấp, sử dụng thông qua sóng mang wireless Điều khiển thiết bị qua tin nhắn SMS SVTH: Lã Duy Đạo Khoa Điện – Điện Tử Không giống SMS, công nghệ mobile WAP mobile Java khơng hỗ trợ nhiều