Ứng dụng công nghệ GSM GPRS trong điều khiển và giám sát các hệ thống chiếu sáng

TRANG BÌA PHỤ BỘ GIÁO DỤC VÀ ĐÀO TẠO TRƯỜNG ĐẠI HỌC BÁCH KHOA HÀ NỘI LÊ THÁI HIỆP ỨNG DỤNG CÔNG NGHỆ GSM/GPRS TRONG ĐIỀU KHIỂN VÀ GIÁM SÁT CÁC HỆ THỐNG CHIẾU SÁNG Chuyên ngành: Thiết bị điện – Điện tử LUẬN VĂN THẠC SĨ KHOA HỌC KỸ THUẬT ĐIỆN HƯỚNG DẪN KHOA HỌC: PGS.TS LÊ VĂN DOANH Hà Nội - 2010 LỜI CAM ĐOAN Tôi xin cam đoan cơng trình nghiên cứu riêng Các số liệu, kết nêu luận văn trung thực chưa công bố cơng trình khác Tác giả luận văn Lê Thái Hiệp MỤC LỤC Trang TRANG BÌA PHỤ LỜI CAM ĐOAN MỤC LỤC DANH MỤC CÁC KÝ HIỆU VÀ CHỮ VIẾT TẮT DANH MỤC CÁC BẢNG 11 DANH MỤC CÁC HÌNH VẼ VÀ ĐỒ THỊ 12 MỞ ĐẦU 14 Tính cấp thiết đề tài 14 Ý nghĩa khoa học thực tiễn đề tài 15 Mục đích, đối tượng, phạm vi phương pháp nghiên cứu đề tài 15 3.1 Mục đích 15 3.2 Đối tượng nghiên cứu 15 3.3 Phạm vi nghiên cứu 15 3.4 Phương pháp nghiên cứu 15 Kết cấu luận văn 16 Chương I 18 CÁC VẤN ĐỀ CHUNG VỀ ĐIỀU KIỂN VÀ GIÁM SÁT HỆ THỐNG CHIẾU SÁNG CÔNG CỘNG 18 1.1 Hiện trạng hệ thống chiếu sáng công cộng thành phố Quy Nhơn 18 1.1.1 Đơn vị quản lý vận hành hệ thống chiếu sáng công cộng thành phố Quy Nhơn 18 1.1.2 Chiếu sáng số khu vực thành phố Quy Nhơn 19 1.1.3 Công tác điều khiển vận hành hệ thống chiếu sáng công cộng thành phố Quy Nhơn 24 1.2 Các phương pháp điều khiển vận hành hệ thống chiếu sáng công cộng 25 1.2.1 Phương pháp tắt xen kẽ để giảm công suất hệ thống chiếu sáng 25 1.2.2 Phương pháp điều chỉnh chấn lưu nhiều mức công suất để có hệ thống đèn nhiều cấp cơng suất 27 1.2.3 Phương pháp điều chỉnh điện áp tủ điều khiển chiếu sáng để tiết giảm công suất hệ thống chiếu sáng 30 1.3 Những hạn chế hệ thống chiếu sáng mà tủ điều khiển chiếu sáng làm việc độc lập 33 1.4 Vận hành điều khiển hệ thống chiếu sáng công cộng thông qua đường dây mạng điện thoại mạng điện cung cấp Hà Nội 34 1.4.1 Truyền thông Trung tâm điều khiển tủ điều khiển khu vực 35 1.4.2 Truyền thông tủ điều khiển khu vực tủ chiếu sáng 35 1.4.3 Các cấp điều khiển hệ thống điều khiển giám sát trung tâm 35 1.4.4 Ưu nhược điểm 37 1.5 Vận hành điều khiển hệ thống chiếu sáng công cộng thông qua mạng Internet mạng điện cung cấp thành phố Hồ Chí Minh 38 1.5.1 Truyền thông Trung tâm điều khiển tủ điều khiển khu vực 39 1.5.2 Ưu nhược điểm 39 Kết luận chương 39 Chương II 41 GIẢI PHÁP CÔNG NGHỆ CHO ĐIỀU KHIỂN VÀ GIÁM SÁT HỆ THỐNG CHIẾU SÁNG CÔNG CỘNG 41 2.1 Một số giải pháp điều khiển giám sát hệ thống chiếu sáng theo công nghệ đại 41 2.1.1 Điều khiển giám sát hệ thống chiếu sáng thông qua đường dây điện thoại kết hợp với mạng điện cung cấp 41 2.1.2 Điều khiển giám sát hệ thống chiếu sáng thông qua mạng Internet kết hợp với mạng điện cung cấp .42 2.1.3 Điều khiển giám sát hệ thống chiếu sáng thông qua mạng GSM/GPRS 43 2.1.4 So sánh cơng nghệ có nước 44 2.2 Tổng quan công nghệ GSM/GPRS 46 2.2.1 Tổng quan GSM: .47 2.2.2 Tổng quan GPRS .53 2.2.3 Tương quan công nghệ GSM/GPRS mạng viễn thông 58 2.3 Các thiết bị kỹ thuật hỗ trợ truyền thông theo công nghệ GSM/GPRS .59 2.4 Các giải pháp ứng dụng công nghệ GSM/GPRS giám sát điều khiển chiếu sáng công cộng 61 2.4.1 Điều khiển giám sát theo khu vực .61 2.4.2 Điều khiển giám sát theo điểm sáng 62 2.5 Mơ hình chung hệ thống chiếu sáng công cộng ứng dụng công nghệ GSM/GPRS 63 Kết luận chương 64 Chương III 65 XÂY DỰNG ỨNG DỤNG DỰA VÀO CÔNG NGHỆ GSM/GPRS ĐỂ ĐIỀU KHIỂN VÀ GIÁM SÁT HỆ THỐNG CHIẾU SÁNG CÔNG CỘNG TRÊN ĐỊA BÀN THÀNH PHỐ QUY NHƠN 65 3.1 Cấu trúc hệ thống 65 3.1.1 Cấu trúc chi tiết hệ thống 65 3.1.2 Cấu trúc tủ điều khiển chiếu sáng 66 3.1.3 Cấu trúc đèn .67 3.2 Xây dựng phần mềm 68 3.2.1 Các bước xây dựng phần mềm .68 3.2.2 Sơ đồ khối phần mềm 72 3.2.3 Lưu đồ thuật toán phần mềm 73 3.2.4 Các giao diện phần mềm 76 3.3 Phân tích tính hiệu 77 3.3.1 Hiệu kỹ thuật 77 3.3.2 Hiệu quản lý 78 3.3.3 Hiệu kinh tế 79 3.3.4 Tác động môi trường 79 Kết luận chương 79 KẾT QUẢ VÀ BÀN LUẬN 80 Kết thực 80 Các nhận xét 81 KẾT LUẬN VÀ KIẾN NGHỊ 82 Kết luận 82 Đóng góp kiến nghị sử dụng kết luận văn 82 2.1 Các đóng góp 82 2.2 Kiến nghị sử dụng kết luận văn .82 Hạn chế, hướng phát triển .83 TÀI LIỆU THAM KHẢO 84 PHỤ LỤC 88 DANH MỤC CÁC KÝ HIỆU VÀ CHỮ VIẾT TẮT Ký hiệu Ký hiệu I Iđèn U Uđèn Ulv P Wh Tên gọi Cường độ dòng điện Cường độ dòng điện qua đèn Điện áp Điện áp cấp cho đèn Điện áp làm việc Công suất tác dụng Chỉ số công tơ điện Chữ viết tắt Chữ viết tắt A AC ADSL AP ATM AUC English Tiếng Việt Alternating Current Asymmetric Digital Subscriber Line Attacked Processor Asynchronous Transfer Mode Authentication Center Dịng điện xoay chiều Đường th bao số khơng đối xứng Bộ xử lý gắn thêm Chế độ truyền không đồng Trung tâm nhận thực Border Gateway Base Station Controler Base Station Subsystem Base Tranceiver Station Cỗng đường biên Bộ điều khiển trạm gốc Phân hệ trạm gốc Trạm thu phát gốc Common Communication Services Code Division Multiple Access Charging Data Records Committee of European Post and Telecommunication Circuit Switch Public Data Các dịch vụ truyền thông chung B BG BSC BSS BTS C CCS CDMA CDR CEPT CSPDN Đa truy nhập phân chia theo mã Bản ghi liệu cước Ủy ban bưu viễn thông châu Âu Mạng liệu chuyển mạch công CtyTNHH D DC ĐK ĐKCS E EDGE EIR ETSI F FDMA FTP G G (2G;3G ) GGSN GMSC GPRS GSM GSN Network cộng Công ty trách nhiệm hữu hạn Direct Curent Dòng điện chiều Điều khiển Điều khiển chiếu sáng Enhanced Data rate for GSM Evolution Equipment Identity Register European Telecommunications Standard Institute Mạng thơng tin di động tồn cầu có tốc độ truyền dẫn cao Thanh ghi nhận dạng thiết bị Viện tiêu chuẩn viễn thông Châu Âu Frequence Division Multiple Đa truy cập phân chia theo tần Access số File Transfer Protocol Giao thức truyền tập tin Generation Gateway GPRS Support Node Gateway Mobile Service Switching Centre General Packet Radio Services Global System for Mobile communication GPRS Support Node Thế hệ Nút hỗ trợ cỗng GPRS Cổng chuyển mạch dịch vụ di động trung tâm Dịch vụ vô tuyến gói chung Thơng tin di động tồn cầu Home Location Register Human Machine Interface High – Pressure Sodium Hypertext Transfer Protocol Thanh ghi định vị thường trú Giao diện người máy Đèn Sodium cao áp Hệ thống chiếu sáng công cộng Giao thức Truyền Siêu văn Internet Protocol Industrial PC Integrated Servive Network InterWorking Function Chức tương tác mạng Nút hỗ trợ GPRS H HLR HMI HPS HTCSCC HTTP I IP IPC ISDN IWF K KT KTYC M ME Giao thức mạng Internet Máy tính cơng nghiệp Digital Mạng số đa dịch vụ Kiểm tra Kiểm tra yêu cầu Mobile Equipment Thiết bị di động MS MSC Mobile Station Mobile Switching Center Trạm di động Trung tâm chuyển mạch di động N NSS Network Subsystem and Switching Mạng phân hệ chuyển mạch O OMC Operations and Maintenance Center Application Programming Interface Open System Interconnection Operation and Support Subsystem OPC OSI OSS Trung tâm khai thác bảo dưỡng Giao diện khả trình ứng dụng Liên thơng hệ thống mở Phân hệ khai thác hỗ trợ P PAC Programmable Automation Controller Personal Computer Packet Control Unit Public Data Network Packet Data Protocol Programable Logic Controller Power Line Communication PC PCU PDN PDP PLC PLC PLC-RTU PLMN PS PSPDN PSTN Bộ điều khiển tự động hóa khả trình Máy tính cá nhân Đơn vị điều khiển gói Mạng liệu cơng cộng Giao thức liệu gói Thiết bị điều khiển khả trình Cơng nghệ truyền thông qua đường dây cung cấp điện Power Line Communication – Thiết bị đầu cuối điều khiển từ Remote Terminal Unit xa theo công nghệ truyền thông qua đường cung cấp điện Public Land Mobile Network Mạng di động mặt đất cơng cộng Packet Switch Bộ chuyển mạch gói Public Switched Packet Data Mạng chuyển mạch gói liệu Network công cộng Public Switched Telephone Mạng chuyển mạch thoại công Network cộng Q QoS Quality of Service Chất lượng dịch vụ Session Control Serving GPRS Support Node Subscriber Identity Module Điều khiển tác vụ giao tiếp Nút hỗ trợ dịch vụ GPRS Module nhận dạng thuê bao S SC SGSN SIM SMS SMTP Short Message Services Simple mail Transfer Protocol SS Switching Subsytem T TCP/IP TDMA TI TP TRAU TT TU Dịch vụ thông báo ngắn Giao thức chuyển thư tín đơn giản Phân hệ chuyển mạch Transmission Control Protocol/ Giao thức điều khiển truyền Internet Protocol liệu/Giao thức mạng Internet Time Division Multiple Access Đa truy cập phân chia theo thời gian Current Transformers Máy biến dòng điện Thành phố Transcoder/Rate Adaption Unit Khối mã hoá giải mã – thích nghi tốc độ Số thứ tự Voltage Transformers Máy biến điện áp V VLR VAS W WCDMA Visitor Location Register Value – Added Service Wideband Code Multiplex Access Thanh ghi định vị tạm trú Dịch vụ giá trị bổ sung Division Đa truy cập phân chia theo mã băng rộng 10 Phụ lục Mơ hình thống điều khiển giám sát sử dụng PAC Opto 22 Nguồn [31] 98 Phụ lục 6: Mơ hình hệ thống điều khiển giám sát từ xa Schneider Electric Nguồn [32] 99 Phụ lục 7: Mơ hình hệ thống điều khiển quản lý Schweitzer Engineering Laboratories (SEL) Nguồn [35] 100 Phụ lục 8: Mơ hình hệ thống điều khiển giám sát từ xa Teldat Nguồn [36],[37] 101 Phụ lục 9: Mã lệnh phần mềm Control Lighting 9.1 Mã lệnh chương trình Control Lighting for Server Phụ lục trình bày mã lệnh chương trình 9.1.1 Form Main Giao diện thiết kế Form Private Sub MDIForm_Unload(Cancel As Integer) End End Sub Mã lệnh: Option Explicit Dim StateBut11 As Boolean, StateBut12 As Boolean, StateBut13 As Boolean Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) Dim traloi As String traloi = MsgBox("Do you want to exit?", vbQuestion + vbYesNo, "Attention! ") If Val(traloi) = Then Cancel = True ' MsgBox traloi End Sub Private Sub mnuBackup_Click() ' fsaoluu End Sub Private Sub mnuPrintRecord_Click() Select Case KindControl Case PrintRecord "temptsaveroad" Case ' PrintRecord "viewpark" Case ' PrintRecord "viewart" End Select End Sub Private Sub mnuPrintReport_Click() Select Case KindControl Case PrintReport "viewroad" Case PrintReport "viewpark" Case PrintReport "viewart" End Select End Sub Private Sub Timer1_Timer() SetChedo End Sub Private Sub MDIForm_Activate() ' ChooseF123 End Sub Private Sub MDIForm_Initialize() F0dsTramdk.Show mnuWorkStations.Checked = True ChooseF123 dinhviForm 'MsgBox Toolbar.Buttons(1).Caption QuyenAdmin ChooseF123 F11StateofConnection.Show End Sub Private Sub MDIForm_Resize() dinhviForm End Sub Private Sub dinhviForm() Dim x As Integer, a As Integer, b As Integer x = 1500 'F11StateofConnection.Height = x a = 180 'Bo theo huong ngang b = 800 'Bo theo huong dung F0dsTramdk.Top = F0dsTramdk.Left = F0dsTramdk.Width = 3400 If (MDIf1.Height - Toolbar.Height) > (b + x) Then F0dsTramdk.Height = MDIf1.Height - Toolbar.Height - b - x Else F0dsTramdk.Height = MDIf1.Height End If ' ' Bao loi ' -F11StateofConnection.Left = F11StateofConnection.Width = F0dsTramdk.Width F11StateofConnection.Height = x F11StateofConnection.Top = F0dsTramdk.Height ' ' Road ' -F1road.Top = F1road.Left = F0dsTramdk.Width If (MDIf1.Width - F0dsTramdk.Width) > a Then F1road.Width = MDIf1.Width - F0dsTramdk.Width - a Else F1road.Width = a End If F1road.Height = F0dsTramdk.Height + x ' F2road.Top = F2road.Left = F0dsTramdk.Width If (MDIf1.Width - F0dsTramdk.Width) > a Then F2road.Width = MDIf1.Width - F0dsTramdk.Width - a Else F2road.Width = a End If F2road.Height = F0dsTramdk.Height + x ' F3road.Top = F3road.Left = F0dsTramdk.Width If (MDIf1.Width - F0dsTramdk.Width) > a Then F3road.Width = MDIf1.Width - F0dsTramdk.Width - a Else F3road.Width = a End If F3road.Height = F0dsTramdk.Height + x ' F4road.Top = F4road.Left = F0dsTramdk.Width If (MDIf1.Width - F0dsTramdk.Width) > a Then F4road.Width = MDIf1.Width - F0dsTramdk.Width - a Else F4road.Width = a End If F4road.Height = F0dsTramdk.Height + x ' ' Park ' F1park.Top = F1park.Left = F0dsTramdk.Width If (MDIf1.Width - F0dsTramdk.Width) > a Then F1park.Width = MDIf1.Width - F0dsTramdk.Width - a Else F1park.Width = a End If F1park.Height = F0dsTramdk.Height + x ' F2park.Top = F2park.Left = F0dsTramdk.Width If (MDIf1.Width - F0dsTramdk.Width) > a Then F2park.Width = MDIf1.Width - F0dsTramdk.Width - a Else 102 F2park.Width = a End If F2park.Height = F0dsTramdk.Height + x ' F3park.Top = F3park.Left = F0dsTramdk.Width If (MDIf1.Width - F0dsTramdk.Width) > a Then F3park.Width = MDIf1.Width - F0dsTramdk.Width - a Else F3park.Width = a End If F3park.Height = F0dsTramdk.Height + x ' ' Art ' F1art.Top = F1art.Left = F0dsTramdk.Width If (MDIf1.Width - F0dsTramdk.Width) > a Then F1art.Width = MDIf1.Width - F0dsTramdk.Width - a Else F1art.Width = a End If F1art.Height = F0dsTramdk.Height + x ' F2art.Top = F2art.Left = F0dsTramdk.Width If (MDIf1.Width - F0dsTramdk.Width) > a Then F2art.Width = MDIf1.Width - F0dsTramdk.Width - a Else F2art.Width = a End If F2art.Height = F0dsTramdk.Height + x ' F3art.Top = F3art.Left = F0dsTramdk.Width If (MDIf1.Width - F0dsTramdk.Width) > a Then F3art.Width = MDIf1.Width - F0dsTramdk.Width - a Else F3art.Width = a End If F3art.Height = F0dsTramdk.Height + x ' End Sub Private Sub TimerAutosave_Timer() ' SetServerToClient SetAutoSave End Sub Private Sub Toolbar_ButtonClick(ByVal Button As ComctlLib.Button) If Button.Index = 11 Then IndexBut = ChooseF123 IndexBut End If If Button.Index = 12 Then IndexBut = ChooseF123 IndexBut End If If Button.Index = 13 Then IndexBut = ChooseF123 IndexBut End If If Button.Index = 14 Then IndexBut = ChooseF123 IndexBut End If Private Sub StateButs(ByVal IndexBut As Integer, ValButTrue As Boolean) Select Case IndexBut Case 11 StateBut11 = ValButTrue StateBut12 = Not ValButTrue StateBut13 = Not ValButTrue Case 12 StateBut11 = Not ValButTrue StateBut12 = ValButTrue StateBut13 = Not ValButTrue Case 13 StateBut11 = Not ValButTrue StateBut12 = ValButTrue StateBut13 = Not ValButTrue End Select End Sub Public Sub ChooseF123(ByVal IndexBut As Integer) ' On Error GoTo ErrorState Select Case IndexBut Case 'Supervise Select Case KindControl Case F1road.Visible = True F2road.Visible = False F3road.Visible = False F4road.Visible = False F1park.Visible = False F2park.Visible = False F3park.Visible = False F1art.Visible = False F2art.Visible = False F3art.Visible = False Case F1road.Visible = False F2road.Visible = False F3road.Visible = False F4road.Visible = False F1park.Visible = True F2park.Visible = False F3park.Visible = False F1art.Visible = False F2art.Visible = False F3art.Visible = False Case F1road.Visible = False F2road.Visible = False F3road.Visible = False F4road.Visible = False F1park.Visible = False F2park.Visible = False F3park.Visible = False F1art.Visible = True F2art.Visible = False F3art.Visible = False End Select If (Button.Index = 11) Or (Button.Index = 12) Or (Button.Index = 13) Or (Button.Index = 14) Then dinhviForm End If ' If Button.Index = Then Select Case IndexBut Case Select Case KindControl Case PrintReport "viewroad" Case PrintReport "viewpark" Case PrintReport "viewart" End Select Case Select Case KindControl Case PrintRecord "temptsaveroad" Case PrintRecord "temptsavepark" Case PrintRecord "temptsaveart" End Select End Select End If End Sub Case 'Control Select Case KindControl Case F1road.Visible = False F2road.Visible = True F3road.Visible = False F4road.Visible = False F1park.Visible = False F2park.Visible = False F3park.Visible = False F1art.Visible = False F2art.Visible = False F3art.Visible = False F2road.LoadValueDK Case F1road.Visible = False F2road.Visible = False F3road.Visible = False F4road.Visible = False F1park.Visible = False F2park.Visible = True F3park.Visible = False F1art.Visible = False F2art.Visible = False F3art.Visible = False Case F1road.Visible = False F2road.Visible = False F3road.Visible = False F4road.Visible = False F1park.Visible = False F2park.Visible = False F3park.Visible = False F1art.Visible = False F2art.Visible = True F3art.Visible = False End Select 103 Case 'Report Select Case KindControl Case F1road.Visible = False F2road.Visible = False F3road.Visible = True F4road.Visible = False F1park.Visible = False F2park.Visible = False F3park.Visible = False F1art.Visible = False F2art.Visible = False F3art.Visible = False Case F1road.Visible = False F2road.Visible = False F3road.Visible = False F4road.Visible = False F1park.Visible = False F2park.Visible = False F3park.Visible = True F1art.Visible = False F2art.Visible = False F3art.Visible = False Case F1road.Visible = False F2road.Visible = False F3road.Visible = False F4road.Visible = False F1park.Visible = False F2park.Visible = False F3park.Visible = False F1art.Visible = False F2art.Visible = False F3art.Visible = True End Select Case 'Report Select Case KindControl Case F1road.Visible = False F2road.Visible = False F3road.Visible = False F4road.Visible = True F1park.Visible = False F2park.Visible = False F3park.Visible = False F1art.Visible = False F2art.Visible = False F3art.Visible = False Case F1road.Visible = False F2road.Visible = False F3road.Visible = False F4road.Visible = False F1park.Visible = False F2park.Visible = False F3park.Visible = True F1art.Visible = False F2art.Visible = False F3art.Visible = False Case F1road.Visible = False F2road.Visible = False F3road.Visible = False F4road.Visible = False F1park.Visible = False F2park.Visible = False F3park.Visible = False F1art.Visible = False F2art.Visible = False F3art.Visible = True End Select End Select Exit Sub ErrorState: End Sub Private Sub mnuMDIexit_Click() End End Sub Private Sub mnusetting_Click() F8setting.Show End Sub Private Sub mnuWorkStations_Click() If mnuWorkStations.Checked = False Then F0dsTramdk.Show dinhviForm mnuWorkStations.Checked = True Else F0dsTramdk.Hide mnuWorkStations.Checked = False End If End Sub Private Sub mnuAdmin_Click() f7admin.Show End Sub Private Sub mnuUser_Click() f6user.Show End Sub Private Sub mnuInfor_Click() f4infor.Show End Sub Private Sub QuyenAdmin() If Adminlogon = Then mnuAdmin.Enabled = True mnuUser.Enabled = False mnusetting.Enabled = True Else mnuAdmin.Enabled = False mnuUser.Enabled = True mnusetting.Enabled = False End If End Sub '##################################################################### 9.1.2 Form Start Giao diện thiết kế Form: Mã lệnh: Option Explicit End Sub '###################################################################### Public Sub mnuWorkStationCheck0() mnuWorkStations.Checked = False End Sub Public Sub mnuWorkStationCheck1() mnuWorkStations.Checked = True End Sub Private Sub mnuMDImain_Click() F0dsTramdk.Show dinhviForm End Sub Private Sub mnuMDIclose_Click() MDIf1.Hide ' dkmenuMDI = False Private Sub Cmdclose_Click() End End Sub Private Sub Cmdinfor_Click() f4infor.Show End Sub Private Sub Cmdlogon_Click() f5logon.Show End Sub Private Sub Command1_Click() FSetParameters.Show Form_Initialize End Sub Private Sub Form_Initialize() '%%%%%%%%%%%%%%%%%%%%%%%%%%%% 104 Khoitaogiatridau '%%%%%%%%%%%%%%%%%%%%%%%%%%%% localname = "(local)" Frame1f0.Left = (F0.Width - Frame1f0.Width) / 'auto set Frame1,2f0 at center Frame2f0.Left = (F0.Width - Frame2f0.Width) / FrameReset.Left = (F0.Width - FrameReset.Width) / 9.1.4 Form Workstations list Giao diện thiết kế Form: ' SQLServerName = localname LoadthongsoServer F3progress0.Show FrameReset.Visible = False If StateConnect = False Then Cmdlogon.Enabled = False FrameReset.Visible = True FrameReset.Left = (F0.Width - FrameReset.Width) / End If If StateConnect Then Cmdlogon.Enabled = True ReadTimeSaoluu ReadTimeConnectServerClient SetThoidiemAutoSave SetThoidiemConnectServerClient End If End Sub ' Private Sub Form_Resize() Frame1f0.Left = (F0.Width - Frame1f0.Width) / Frame2f0.Left = (F0.Width - Frame2f0.Width) / FrameReset.Left = (F0.Width - FrameReset.Width) / End Sub 9.1.3 Form Logon Giao diện thiết kế Form: Mã lệnh: Option Explicit Private Sub Form_Activate() ReLoaddstramdk End Sub Private Sub Form_Initialize() ReLoaddstramdk MSHfgroad_Click End Sub Private Sub Form_Load() DinhdangluoiArt DinhdangluoiPark DinhdangluoiRoad MDIf1.mnuWorkStationCheck1 End Sub Private Sub Form_Unload(Cancel As Integer) MDIf1.mnuWorkStationCheck0 End Sub Private Sub Form_Resize() VitriSStab0 VitriluoiArt VitriluoiPark VitriluoiRoad End Sub Mã lệnh: Option Explicit Private Sub Form_Load() Text2pass.Locked = True End Sub Private Sub Image1_Click() If XacnhanAccont(Trim(Text1user.Text), Trim(Text2pass.Text)) = True Then WriteUserLogon f5logon.Hide ' f10Location.Show F0.Hide MDIf1.Show Else Labwarning.Caption = "User name or Password is wrong Try again!" End If End Sub Private Sub Image2_Click() f5logon.Hide End Sub Private Sub Text1user_GotFocus() Labwarning.Caption = "" End Sub Private Sub Text1user_LostFocus() Text2pass.Locked = False End Sub Private Sub Text2pass_GotFocus() Labwarning.Caption = "" End Sub Private Sub Text2pass_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Image1_Click End If End Sub Public Sub VitriSStab0() SSTab0.Left = SSTab0.Width = F0dsTramdk.Width SSTab0.Top = SSTab0.Height = F0dsTramdk.Height End Sub Private Sub SSTab0_Click(PreviousTab As Integer) KindControl = SSTab0.Tab MDIf1.ChooseF123 Select Case KindControl Case Firsroad Case Firspark Case Firsart End Select MDIf1.ChooseF123 IndexBut End Sub '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ' Road '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Private Sub VitriluoiRoad() MSHfgroad.Left = 100 MSHfgroad.Top = 400 MSHfgroad.Width = SSTab0.Width - 300 If SSTab0.Height > 800 Then MSHfgroad.Height = SSTab0.Height - 800 Else MSHfgroad.Height = End If End Sub Private Sub DinhdangluoiRoad() MSHfgroad.Clear MSHfgroad.Rows = MSHfgroad.Cols = MSHfgroad.TextMatrix(0, 0) = "" MSHfgroad.TextMatrix(0, 1) = "Mã tủ ĐK" MSHfgroad.TextMatrix(0, 2) = "Tên tủ ĐK" MSHfgroad.ColWidth(0) = 300 MSHfgroad.ColWidth(1) = 900 105 MSHfgroad.ColWidth(2) = 4000 End Sub Public Sub DanhsachTramdkRoad() ' On Error GoTo StateError Dim i As Integer, j As Integer Dim str As String i=1 str = "select * from vtramdk order by matramdk" Set rs1 = New ADODB.Recordset MSHfgroad.Rows = rs1.Open str, db, adOpenDynamic, adLockReadOnly If rs1.RecordCount Then With rs1 If Not (.BOF And EOF) Then Do Until rs1.EOF MSHfgroad.AddItem "" MSHfgroad.TextMatrix(i, 0) = "" & Fields(2).Value MSHfgroad.TextMatrix(i, 1) = "" & Fields(0).Value MSHfgroad.TextMatrix(i, 2) = "" & Fields(1).Value i=i+1 MoveNext Loop MoveFirst Else Exit Sub End If End With End If rs1.Close Exit Sub StateError: Baoloi = "Disconnect to data on Server!" & Chr(13) & Chr(10) & Baoloi 'Chr(13)la Enter, Chr(10) la ve dau dong F11StateofConnection.TextBaoloi = Baoloi End Sub Private Sub MSHfgroad_Click() ' On Error GoTo StateError If MSHfgroad.Row > Then ChontramdkRoad = MSHfgroad.Row End If 'MsgBox MSHfgroad.Row Matramdk0 = MSHfgroad.TextMatrix(ChontramdkRoad, 1) Matramdk0 = Trim(Matramdk0) F2road.Form_Activate0 Exit Sub StateError: End Sub Private Sub Firsroad() ChontramdkRoad = DanhsachTramdkRoad Matramdk0 = MSHfgroad.TextMatrix(ChontramdkRoad, 1) Matramdk0 = Trim(Matramdk0) F2road.Form_Activate0 End Sub '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%' Park '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Private Sub VitriluoiPark() MSHfgpark.Left = 100 MSHfgpark.Top = 400 MSHfgpark.Width = SSTab0.Width - 300 If SSTab0.Height > 800 Then MSHfgpark.Height = SSTab0.Height - 800 Else MSHfgpark.Height = End If End Sub Private Sub DinhdangluoiPark() MSHfgpark.Clear MSHfgpark.Rows = MSHfgpark.Cols = MSHfgpark.TextMatrix(0, 0) = "" MSHfgpark.TextMatrix(0, 1) = "Mã tủ ĐK" MSHfgpark.TextMatrix(0, 2) = "Tên tủ ĐK" MSHfgpark.ColWidth(0) = 300 MSHfgpark.ColWidth(1) = 900 MSHfgpark.ColWidth(2) = 4000 End Sub Private Sub DanhsachTramdkPark() ' On Error GoTo StateError Dim i As Integer, j As Integer Dim str As String i=1 str = "select * from vcvtramdk order by matramdk" Set rs1 = New ADODB.Recordset MSHfgpark.Rows = rs1.Open str, db, adOpenDynamic, adLockReadOnly If rs1.RecordCount Then With rs1 If Not (.BOF And EOF) Then Do Until rs1.EOF MSHfgpark.AddItem "" MSHfgpark.TextMatrix(i, 0) = "" & Fields(2).Value MSHfgpark.TextMatrix(i, 1) = "" & Fields(0).Value MSHfgpark.TextMatrix(i, 2) = "" & Fields(1).Value i=i+1 MoveNext Loop MoveFirst Else Exit Sub End If End With End If rs1.Close Exit Sub StateError: Baoloi = "Disconnect to data on Server!" & Chr(13) & Chr(10) & Baoloi 'Chr(13)la Enter, Chr(10) la ve dau dong F11StateofConnection.TextBaoloi = Baoloi End Sub Private Sub MSHfgPark_Click() On Error GoTo StateError If MSHfgpark.Row > Then ChontramdkPark = MSHfgpark.Row End If 'MsgBox MSHfgPark.Row Matramdk0 = MSHfgpark.TextMatrix(ChontramdkPark, 1) Matramdk0 = Trim(Matramdk0) F2park.Form_Activate0 Exit Sub StateError: End Sub Private Sub Firspark() ChontramdkPark = DanhsachTramdkPark Matramdk0 = MSHfgpark.TextMatrix(ChontramdkPark, 1) Matramdk0 = Trim(Matramdk0) F2park.Form_Activate0 End Sub '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ' Art '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Private Sub VitriluoiArt() MSHfgart.Left = 100 MSHfgart.Top = 400 MSHfgart.Width = SSTab0.Width - 300 If SSTab0.Height > 800 Then MSHfgart.Height = SSTab0.Height - 800 Else MSHfgart.Height = End If End Sub Private Sub DinhdangluoiArt() MSHfgart.Clear MSHfgart.Rows = MSHfgart.Cols = MSHfgart.TextMatrix(0, 0) = "" MSHfgart.TextMatrix(0, 1) = "Mã tủ ĐK" MSHfgart.TextMatrix(0, 2) = "Tên tủ ÑK" MSHfgart.ColWidth(0) = 300 MSHfgart.ColWidth(1) = 900 MSHfgart.ColWidth(2) = 4000 End Sub Private Sub DanhsachTramdkArt() ' On Error GoTo StateError Dim i As Integer, j As Integer Dim str As String i=1 str = "select * from varttramdk order by matramdk" Set rs1 = New ADODB.Recordset MSHfgart.Rows = rs1.Open str, db, adOpenDynamic, adLockReadOnly If rs1.RecordCount Then With rs1 If Not (.BOF And EOF) Then Do Until rs1.EOF MSHfgart.AddItem "" MSHfgart.TextMatrix(i, 0) = "" & Fields(2).Value MSHfgart.TextMatrix(i, 1) = "" & Fields(0).Value MSHfgart.TextMatrix(i, 2) = "" & Fields(1).Value i=i+1 MoveNext Loop MoveFirst Else 106 Exit Sub End If End With End If rs1.Close Exit Sub StateError: Baoloi = "Disconnect to data on Server!" & Chr(13) & Chr(10) & Baoloi 'Chr(13)la Enter, Chr(10) la ve dau dong F11StateofConnection.TextBaoloi = Baoloi End Sub Private Sub MSHfgArt_Click() On Error GoTo StateError If MSHfgart.Row > Then ChontramdkArt = MSHfgart.Row End If 'MsgBox MSHfgArt.Row Matramdk0 = "" & MSHfgart.TextMatrix(ChontramdkArt, 1) Matramdk0 = Trim(Matramdk0) F2art.Form_Activate0 Exit Sub StateError: End Sub Private Sub Firsart() ChontramdkArt = DanhsachTramdkArt Matramdk0 = MSHfgart.TextMatrix(ChontramdkArt, 1) Matramdk0 = Trim(Matramdk0) F2art.Form_Activate0 End Sub Private Sub ReLoaddstramdk() Select Case KindControl Case DanhsachTramdkRoad Case DanhsachTramdkPark Case DanhsachTramdkArt End Select End Sub VitriFrameS a End Sub Private Sub Timer1_Timer() ClickButRoad End Sub Private Sub CmdDown1_Click() DemClickDown ClickButRoad HideShowBut End Sub Private Sub CmdDown2_Click() DemClickDown ClickButRoad HideShowBut End Sub Private Sub CmdUp1_Click() DemClickUp ClickButRoad HideShowBut End Sub Private Sub CmdUp2_Click() DemClickUp ClickButRoad HideShowBut End Sub Private Sub Form_Activate() ClickButRoad HideShowBut End Sub Private Sub Form_Initialize() DemClickcu = DemClick = ClickButRoad End Sub Private Sub Form_Resize() VitriFrameSview VitriBut VitriFrameS ActiveHScroll End Sub 9.1.5 Form Supervise Các form Supervise tương tự Có ba form Supervise ba đối Private Sub VitriFrameSview() If F1road.Width > LabSWindow.Width Then tượng: hệ thống đèn đường (ký hiệu LabSWindow.Left = (F1road.Width - LabSWindow.Width) / Else = 255 Road); hệ thống đèn công viên (ký hiệu EndLabSWindow.Left If FrameSview.Left = Park); hệ thống đèn mỹ thuật (ký hiệu FrameSview.Top = LabSWindow.Height FrameSview.Width = F1road.Width Art) If F1road.Height > 1000 Then FrameSview.Height = F1road.Height - 1000 Form Supervise Lighting for Road Else FrameSview.Height = 1000 Giao diện thiết kế Form: End If End Sub Mã lệnh: Option Explicit Dim DemClick As Integer, DemClickcu As Integer Private Sub HScroll_Change() Dim a As Double ' MsgBox HScroll.Value a = (3 * FrameS11.Width) - FrameSview.Width a = a / HScroll.Max a = a * HScroll.Value ' MsgBox a Private Sub VitriFrameS(ByVal LeftFrame11 As Integer) Dim a As Integer a = FrameSview.Width - (3 * FrameS11.Width) a=a\3 If a < Then a = If FrameSview.Width >= (3 * FrameS11.Width) Then FrameS11.Left = a \ Else FrameS11.Left = -LeftFrame11 End If FrameS21.Left = FrameS11.Left FrameS31.Left = FrameS11.Left FrameS12.Left = FrameS11.Left + FrameS11.Width + a FrameS13.Left = FrameS12.Left + FrameS12.Width + a FrameS22.Left = FrameS12.Left FrameS23.Left = FrameS13.Left FrameS32.Left = FrameS12.Left FrameS33.Left = FrameS13.Left ' End If a = FrameSview.Height - (3 * FrameS11.Height) a=a\3 If a < Then a = FrameS11.Top = a \ FrameS12.Top = FrameS11.Top FrameS13.Top = FrameS11.Top FrameS21.Top = FrameS11.Top + FrameS11.Height + a FrameS31.Top = FrameS21.Top + FrameS21.Height + a 107 FrameS22.Top = FrameS21.Top FrameS32.Top = FrameS31.Top FrameS23.Top = FrameS21.Top FrameS33.Top = FrameS31.Top ' End If End Sub Exit Sub End If End With rs1.Close rs2.Close End Sub Private Sub VitriBut() Dim Wbut, Hbut As Integer Hbut = 255 Wbut = 615 ' CmdUp1.Left = CmdUp1.Width = Wbut CmdUp1.Top = FrameSview.Top - Hbut CmdUp1.Height = Hbut CmdUp2.Left = FrameSview.Width - Wbut CmdUp2.Width = Wbut CmdUp2.Top = FrameSview.Top - Hbut CmdUp2.Height = Hbut CmdDown1.Left = CmdDown1.Width = Wbut CmdDown1.Top = FrameSview.Height + LabSWindow.Height CmdDown1.Height = Hbut CmdDown2.Left = FrameSview.Width - Wbut CmdDown2.Width = Wbut CmdDown2.Top = FrameSview.Height + LabSWindow.Height CmdDown2.Height = Hbut ' -HScroll.Left = Wbut If FrameSview.Width > * Wbut Then HScroll.Width = FrameSview.Width - * Wbut Else HScroll.Width = Wbut End If HScroll.Top = CmdDown1.Top HScroll.Height = Hbut End Sub Public Sub LoadValueS12(ByVal Smatramdk As String) Dim a As String Dim str As String, str1 As String str1 = "select * from chedo where matramdk = '" + Smatramdk + "'" Set rs1 = New ADODB.Recordset rs1.Open str1, db, adOpenDynamic, adLockReadOnly str = "select * from viewroad where matramdk = '" + Smatramdk + "'" Set rs2 = New ADODB.Recordset rs2.Open str, db, adOpenDynamic, adLockReadOnly With rs2 If Not (.BOF And EOF) Then Lbs12matramdk.Caption = "" & Fields("matramdk").Value LbS12tentramdk.Caption = "" & Fields("tentramdk").Value a = Trim(.Fields("onoff").Value) If a = "on" Then ImageS12on.Visible = True ImageS12off.Visible = False Else ImageS12on.Visible = False ImageS12off.Visible = True End If If (Trim(.Fields("onoff").Value)) = (Trim(rs1.Fields("setonoff").Value)) Then Lb12Warning.Visible = False Else Lb12Warning.Visible = True End If If (Trim(.Fields("chedo").Value)) = (Trim(rs1.Fields("setchedo").Value)) Then Lb12Warning.Visible = False Else Lb12Warning.Visible = True End If LbS12chedo.Caption = "" & Trim(.Fields("chedo").Value) LbS12Uab.Caption = "" & Fields("Uab").Value & " V" LbS12Ubc.Caption = "" & Fields("Ubc").Value & " V" LbS12Uac.Caption = "" & Fields("Uac").Value & " V" LbS12Ua.Caption = "" & Fields("Ua").Value & " V" LbS12Ub.Caption = "" & Fields("Ub").Value & " V" LbS12Uc.Caption = "" & Fields("Uc").Value & " V" LbS12.Caption = "" & Fields("Ulv").Value & " V" LbS12Ia.Caption = "" & Fields("Ia").Value & " A" LbS12Ib.Caption = "" & Fields("Ib").Value & " A" LbS12Ic.Caption = "" & Fields("Ic").Value & " A" LbS12P.Caption = "" & Fields("P").Value & " W" LbS12Wh.Caption = "" & Fields("Wh").Value & " kWh" LbS12Cosphi.Caption = "" & Fields("cosphi").Value Else Exit Sub End If End With rs1.Close rs2.Close End Sub Private Sub ActiveHScroll() If FrameS13.Left + FrameS13.Width > FrameSview.Width Then HScroll.Visible = True Else HScroll.Visible = False End If End Sub '################################################################## Public Sub LoadValueS11(ByVal Smatramdk As String) Dim a As String Dim str As String, str1 As String str1 = "select * from chedo where matramdk = '" + Smatramdk + "'" Set rs1 = New ADODB.Recordset rs1.Open str1, db, adOpenDynamic, adLockReadOnly str = "select * from viewroad where matramdk = '" + Smatramdk + "'" Set rs2 = New ADODB.Recordset rs2.Open str, db, adOpenDynamic, adLockReadOnly With rs2 If Not (.BOF And EOF) Then Lbs11matramdk.Caption = "" & Fields("matramdk").Value LbS11tentramdk.Caption = "" & Fields("tentramdk").Value a = Trim(.Fields("onoff").Value) If a = "on" Then ImageS11on.Visible = True ImageS11off.Visible = False Else ImageS11on.Visible = False ImageS11off.Visible = True End If If (Trim(.Fields("onoff").Value)) = (Trim(rs1.Fields("setonoff").Value)) Then Lb11Warning.Visible = False Else Lb11Warning.Visible = True End If If (Trim(.Fields("chedo").Value)) = (Trim(rs1.Fields("setchedo").Value)) Then Lb11Warning.Visible = False Else Lb11Warning.Visible = True End If LbS11chedo.Caption = "" & Trim(.Fields("chedo").Value) LbS11Uab.Caption = "" & Fields("Uab").Value & " V" LbS11Ubc.Caption = "" & Fields("Ubc").Value & " V" LbS11Uac.Caption = "" & Fields("Uac").Value & " V" LbS11Ua.Caption = "" & Fields("Ua").Value & " V" LbS11Ub.Caption = "" & Fields("Ub").Value & " V" LbS11Uc.Caption = "" & Fields("Uc").Value & " V" LbS11.Caption = "" & Fields("Ulv").Value & " V" LbS11Ia.Caption = "" & Fields("Ia").Value & " A" LbS11Ib.Caption = "" & Fields("Ib").Value & " A" LbS11Ic.Caption = "" & Fields("Ic").Value & " A" LbS11P.Caption = "" & Fields("P").Value & " W" LbS11Wh.Caption = "" & Fields("Wh").Value & " kWh" LbS11Cosphi.Caption = "" & Fields("cosphi").Value Else Public Sub LoadValueS13(ByVal Smatramdk As String) Dim a As String Dim str As String, str1 As String str1 = "select * from chedo where matramdk = '" + Smatramdk + "'" Set rs1 = New ADODB.Recordset rs1.Open str1, db, adOpenDynamic, adLockReadOnly str = "select * from viewroad where matramdk = '" + Smatramdk + "'" Set rs2 = New ADODB.Recordset rs2.Open str, db, adOpenDynamic, adLockReadOnly With rs2 If Not (.BOF And EOF) Then Lbs13matramdk.Caption = "" & Fields("matramdk").Value LbS13tentramdk.Caption = "" & Fields("tentramdk").Value a = Trim(.Fields("onoff").Value) If a = "on" Then ImageS13on.Visible = True ImageS13off.Visible = False Else ImageS13on.Visible = False ImageS13off.Visible = True End If If (Trim(.Fields("onoff").Value)) = (Trim(rs1.Fields("setonoff").Value)) Then Lb13Warning.Visible = False Else Lb13Warning.Visible = True End If If (Trim(.Fields("chedo").Value)) = (Trim(rs1.Fields("setchedo").Value)) Then Lb13Warning.Visible = False Else Lb13Warning.Visible = True End If LbS13chedo.Caption = "" & Trim(.Fields("chedo").Value) LbS13Uab.Caption = "" & Fields("Uab").Value & " V" LbS13Ubc.Caption = "" & Fields("Ubc").Value & " V" 108 ImageS22off.Visible = True End If If (Trim(.Fields("onoff").Value)) = (Trim(rs1.Fields("setonoff").Value)) Then Lb22Warning.Visible = False Else Lb22Warning.Visible = True End If If (Trim(.Fields("chedo").Value)) = (Trim(rs1.Fields("setchedo").Value)) Then Lb22Warning.Visible = False Else Lb22Warning.Visible = True End If LbS22chedo.Caption = "" & Trim(.Fields("chedo").Value) LbS22Uab.Caption = "" & Fields("Uab").Value & " V" LbS22Ubc.Caption = "" & Fields("Ubc").Value & " V" LbS22Uac.Caption = "" & Fields("Uac").Value & " V" LbS22Ua.Caption = "" & Fields("Ua").Value & " V" LbS22Ub.Caption = "" & Fields("Ub").Value & " V" LbS22Uc.Caption = "" & Fields("Uc").Value & " V" LbS22.Caption = "" & Fields("Ulv").Value & " V" LbS22Ia.Caption = "" & Fields("Ia").Value & " A" LbS22Ib.Caption = "" & Fields("Ib").Value & " A" LbS22Ic.Caption = "" & Fields("Ic").Value & " A" LbS22P.Caption = "" & Fields("P").Value & " W" LbS22Wh.Caption = "" & Fields("Wh").Value & " kWh" LbS22Cosphi.Caption = "" & Fields("cosphi").Value LbS13Uac.Caption = "" & Fields("Uac").Value & " V" LbS13Ua.Caption = "" & Fields("Ua").Value & " V" LbS13Ub.Caption = "" & Fields("Ub").Value & " V" LbS13Uc.Caption = "" & Fields("Uc").Value & " V" LbS13.Caption = "" & Fields("Ulv").Value & " V" LbS13Ia.Caption = "" & Fields("Ia").Value & " A" LbS13Ib.Caption = "" & Fields("Ib").Value & " A" LbS13Ic.Caption = "" & Fields("Ic").Value & " A" LbS13P.Caption = "" & Fields("P").Value & " W" LbS13Wh.Caption = "" & Fields("Wh").Value & " kWh" LbS13Cosphi.Caption = "" & Fields("cosphi").Value Else Exit Sub End If End With rs1.Close rs2.Close End Sub Public Sub LoadValueS21(ByVal Smatramdk As String) Dim a As String Dim str As String, str1 As String str1 = "select * from chedo where matramdk = '" + Smatramdk + "'" Set rs1 = New ADODB.Recordset rs1.Open str1, db, adOpenDynamic, adLockReadOnly str = "select * from viewroad where matramdk = '" + Smatramdk + "'" Set rs2 = New ADODB.Recordset rs2.Open str, db, adOpenDynamic, adLockReadOnly With rs2 If Not (.BOF And EOF) Then Lbs21matramdk.Caption = "" & Fields("matramdk").Value LbS21tentramdk.Caption = "" & Fields("tentramdk").Value a = Trim(.Fields("onoff").Value) If a = "on" Then ImageS21on.Visible = True ImageS21off.Visible = False Else ImageS21on.Visible = False ImageS21off.Visible = True End If If (Trim(.Fields("onoff").Value)) = (Trim(rs1.Fields("setonoff").Value)) Then Lb21Warning.Visible = False Else Lb21Warning.Visible = True End If If (Trim(.Fields("chedo").Value)) = (Trim(rs1.Fields("setchedo").Value)) Then Lb21Warning.Visible = False Else Lb21Warning.Visible = True End If LbS21chedo.Caption = "" & Trim(.Fields("chedo").Value) LbS21Uab.Caption = "" & Fields("Uab").Value & " V" LbS21Ubc.Caption = "" & Fields("Ubc").Value & " V" LbS21Uac.Caption = "" & Fields("Uac").Value & " V" LbS21Ua.Caption = "" & Fields("Ua").Value & " V" LbS21Ub.Caption = "" & Fields("Ub").Value & " V" LbS21Uc.Caption = "" & Fields("Uc").Value & " V" LbS21.Caption = "" & Fields("Ulv").Value & " V" LbS21Ia.Caption = "" & Fields("Ia").Value & " A" LbS21Ib.Caption = "" & Fields("Ib").Value & " A" LbS21Ic.Caption = "" & Fields("Ic").Value & " A" LbS21P.Caption = "" & Fields("P").Value & " W" LbS21Wh.Caption = "" & Fields("Wh").Value & " kWh" LbS21Cosphi.Caption = "" & Fields("cosphi").Value Else Exit Sub End If End With rs1.Close rs2.Close End Sub Public Sub LoadValueS22(ByVal Smatramdk As String) Dim a As String Dim str As String, str1 As String str1 = "select * from chedo where matramdk = '" + Smatramdk + "'" Set rs1 = New ADODB.Recordset rs1.Open str1, db, adOpenDynamic, adLockReadOnly str = "select * from viewroad where matramdk = '" + Smatramdk + "'" Set rs2 = New ADODB.Recordset rs2.Open str, db, adOpenDynamic, adLockReadOnly With rs2 If Not (.BOF And EOF) Then Lbs22matramdk.Caption = "" & Fields("matramdk").Value LbS22tentramdk.Caption = "" & Fields("tentramdk").Value a = Trim(.Fields("onoff").Value) If a = "on" Then ImageS22on.Visible = True ImageS22off.Visible = False Else ImageS22on.Visible = False Else Exit Sub End If End With rs1.Close rs2.Close End Sub Public Sub LoadValueS23(ByVal Smatramdk As String) Dim a As String Dim str As String, str1 As String str1 = "select * from chedo where matramdk = '" + Smatramdk + "'" Set rs1 = New ADODB.Recordset rs1.Open str1, db, adOpenDynamic, adLockReadOnly str = "select * from viewroad where matramdk = '" + Smatramdk + "'" Set rs2 = New ADODB.Recordset rs2.Open str, db, adOpenDynamic, adLockReadOnly With rs2 If Not (.BOF And EOF) Then Lbs23matramdk.Caption = "" & Fields("matramdk").Value LbS23tentramdk.Caption = "" & Fields("tentramdk").Value a = Trim(.Fields("onoff").Value) If a = "on" Then ImageS23on.Visible = True ImageS23off.Visible = False Else ImageS23on.Visible = False ImageS23off.Visible = True End If If (Trim(.Fields("onoff").Value)) = (Trim(rs1.Fields("setonoff").Value)) Then Lb23Warning.Visible = False Else Lb23Warning.Visible = True End If If (Trim(.Fields("chedo").Value)) = (Trim(rs1.Fields("setchedo").Value)) Then Lb23Warning.Visible = False Else Lb23Warning.Visible = True End If LbS23chedo.Caption = "" & Trim(.Fields("chedo").Value) LbS23Uab.Caption = "" & Fields("Uab").Value & " V" LbS23Ubc.Caption = "" & Fields("Ubc").Value & " V" LbS23Uac.Caption = "" & Fields("Uac").Value & " V" LbS23Ua.Caption = "" & Fields("Ua").Value & " V" LbS23Ub.Caption = "" & Fields("Ub").Value & " V" LbS23Uc.Caption = "" & Fields("Uc").Value & " V" LbS23.Caption = "" & Fields("Ulv").Value & " V" LbS23Ia.Caption = "" & Fields("Ia").Value & " A" LbS23Ib.Caption = "" & Fields("Ib").Value & " A" LbS23Ic.Caption = "" & Fields("Ic").Value & " A" LbS23P.Caption = "" & Fields("P").Value & " W" LbS23Wh.Caption = "" & Fields("Wh").Value & " kWh" LbS23Cosphi.Caption = "" & Fields("cosphi").Value Else Exit Sub End If End With rs1.Close rs2.Close End Sub Public Sub LoadValueS31(ByVal Smatramdk As String) Dim a As String Dim str As String, str1 As String str1 = "select * from chedo where matramdk = '" + Smatramdk + "'" Set rs1 = New ADODB.Recordset rs1.Open str1, db, adOpenDynamic, adLockReadOnly str = "select * from viewroad where matramdk = '" + Smatramdk + "'" 109 Set rs2 = New ADODB.Recordset rs2.Open str, db, adOpenDynamic, adLockReadOnly With rs2 If Not (.BOF And EOF) Then Lbs31matramdk.Caption = "" & Fields("matramdk").Value LbS31tentramdk.Caption = "" & Fields("tentramdk").Value a = Trim(.Fields("onoff").Value) If a = "on" Then ImageS31on.Visible = True ImageS31off.Visible = False Else ImageS31on.Visible = False ImageS31off.Visible = True End If If (Trim(.Fields("onoff").Value)) = (Trim(rs1.Fields("setonoff").Value)) Then Lb31Warning.Visible = False Else Lb31Warning.Visible = True End If If (Trim(.Fields("chedo").Value)) = (Trim(rs1.Fields("setchedo").Value)) Then Lb31Warning.Visible = False Else Lb31Warning.Visible = True End If LbS31chedo.Caption = "" & Trim(.Fields("chedo").Value) LbS31Uab.Caption = "" & Fields("Uab").Value & " V" LbS31Ubc.Caption = "" & Fields("Ubc").Value & " V" LbS31Uac.Caption = "" & Fields("Uac").Value & " V" LbS31Ua.Caption = "" & Fields("Ua").Value & " V" LbS31Ub.Caption = "" & Fields("Ub").Value & " V" LbS31Uc.Caption = "" & Fields("Uc").Value & " V" LbS31.Caption = "" & Fields("Ulv").Value & " V" LbS31Ia.Caption = "" & Fields("Ia").Value & " A" LbS31Ib.Caption = "" & Fields("Ib").Value & " A" LbS31Ic.Caption = "" & Fields("Ic").Value & " A" LbS31P.Caption = "" & Fields("P").Value & " W" LbS31Wh.Caption = "" & Fields("Wh").Value & " kWh" LbS31Cosphi.Caption = "" & Fields("cosphi").Value Else Exit Sub End If End With rs1.Close rs2.Close End Sub Public Sub LoadValueS32(ByVal Smatramdk As String) Dim a As String Dim str As String, str1 As String str1 = "select * from chedo where matramdk = '" + Smatramdk + "'" Set rs1 = New ADODB.Recordset rs1.Open str1, db, adOpenDynamic, adLockReadOnly str = "select * from viewroad where matramdk = '" + Smatramdk + "'" Set rs2 = New ADODB.Recordset rs2.Open str, db, adOpenDynamic, adLockReadOnly With rs2 If Not (.BOF And EOF) Then Lbs32matramdk.Caption = "" & Fields("matramdk").Value LbS32tentramdk.Caption = "" & Fields("tentramdk").Value a = Trim(.Fields("onoff").Value) If a = "on" Then ImageS32on.Visible = True ImageS32off.Visible = False Else ImageS32on.Visible = False ImageS32off.Visible = True End If If (Trim(.Fields("onoff").Value)) = (Trim(rs1.Fields("setonoff").Value)) Then Lb32Warning.Visible = False Else Lb32Warning.Visible = True End If If (Trim(.Fields("chedo").Value)) = (Trim(rs1.Fields("setchedo").Value)) Then Lb32Warning.Visible = False Else Lb32Warning.Visible = True End If LbS32chedo.Caption = "" & Trim(.Fields("chedo").Value) LbS32Uab.Caption = "" & Fields("Uab").Value & " V" LbS32Ubc.Caption = "" & Fields("Ubc").Value & " V" LbS32Uac.Caption = "" & Fields("Uac").Value & " V" LbS32Ua.Caption = "" & Fields("Ua").Value & " V" LbS32Ub.Caption = "" & Fields("Ub").Value & " V" LbS32Uc.Caption = "" & Fields("Uc").Value & " V" LbS32.Caption = "" & Fields("Ulv").Value & " V" LbS32Ia.Caption = "" & Fields("Ia").Value & " A" LbS32Ib.Caption = "" & Fields("Ib").Value & " A" LbS32Ic.Caption = "" & Fields("Ic").Value & " A" LbS32P.Caption = "" & Fields("P").Value & " W" LbS32Wh.Caption = "" & Fields("Wh").Value & " kWh" LbS32Cosphi.Caption = "" & Fields("cosphi").Value Else Exit Sub End If End With rs1.Close rs2.Close End Sub Public Sub LoadValueS33(ByVal Smatramdk As String) Dim a As String Dim str As String, str1 As String str1 = "select * from chedo where matramdk = '" + Smatramdk + "'" Set rs1 = New ADODB.Recordset rs1.Open str1, db, adOpenDynamic, adLockReadOnly str = "select * from viewroad where matramdk = '" + Smatramdk + "'" Set rs2 = New ADODB.Recordset rs2.Open str, db, adOpenDynamic, adLockReadOnly With rs2 If Not (.BOF And EOF) Then Lbs33matramdk.Caption = "" & Fields("matramdk").Value LbS33tentramdk.Caption = "" & Fields("tentramdk").Value a = Trim(.Fields("onoff").Value) If a = "on" Then ImageS33on.Visible = True ImageS33off.Visible = False Else ImageS33on.Visible = False ImageS33off.Visible = True End If If (Trim(.Fields("onoff").Value)) = (Trim(rs1.Fields("setonoff").Value)) Then Lb33Warning.Visible = False Else Lb33Warning.Visible = True End If If (Trim(.Fields("chedo").Value)) = (Trim(rs1.Fields("setchedo").Value)) Then Lb33Warning.Visible = False Else Lb33Warning.Visible = True End If LbS33chedo.Caption = "" & Trim(.Fields("chedo").Value) LbS33Uab.Caption = "" & Fields("Uab").Value & " V" LbS33Ubc.Caption = "" & Fields("Ubc").Value & " V" LbS33Uac.Caption = "" & Fields("Uac").Value & " V" LbS33Ua.Caption = "" & Fields("Ua").Value & " V" LbS33Ub.Caption = "" & Fields("Ub").Value & " V" LbS33Uc.Caption = "" & Fields("Uc").Value & " V" LbS33.Caption = "" & Fields("Ulv").Value & " V" LbS33Ia.Caption = "" & Fields("Ia").Value & " A" LbS33Ib.Caption = "" & Fields("Ib").Value & " A" LbS33Ic.Caption = "" & Fields("Ic").Value & " A" LbS33P.Caption = "" & Fields("P").Value & " W" LbS33Wh.Caption = "" & Fields("Wh").Value & " kWh" LbS33Cosphi.Caption = "" & Fields("cosphi").Value Else Exit Sub End If End With rs1.Close rs2.Close End Sub '############################################################## Private Sub DemClickDown() Dim a As Double a = DemRecord("viewroad") 'MsgBox "DemRecord = " & a a=a/9 DemClickcu = DemClick If DemClick < a Then DemClick = DemClick + End If 'MsgBox DemClick End Sub Private Sub DemClickUp() DemClickcu = DemClick If DemClick > Then DemClick = DemClick - End If ' MsgBox DemClick End Sub Private Sub HideShowBut() Dim a As Double a = DemRecord("viewroad") a=a/9 If DemClick < a Then CmdDown1.Visible = True CmdDown2.Visible = True Else CmdDown1.Visible = False CmdDown2.Visible = False End If If DemClick > Then CmdUp1.Visible = True CmdUp2.Visible = True Else CmdUp1.Visible = False 110 CmdUp2.Visible = False End If End Sub LbTentramdk.Caption = "" & rs.Fields(1).Value 9.1.6 Form Control Các form Control tương tự Có ba form Control ba đối tượng: hệ thống đèn đường (ký hiệu Road); hệ thống đèn công viên (ký hiệu Park); hệ thống đèn mỹ thuật (ký hiệu Art) Form Control Lighting for Road Giao diện thiết kế Form: Mã lệnh: Option Explicit Private Sub Command1_Click() SaveValueDK SaveValueTextDK SaveValueUlv LoadValueDK End Sub Private Sub Form_Resize() Vitritext End Sub Public Sub Form_Activate0() LoadValueDK LoadValuechoCheckmoi LoadValueTextmoi End Sub Private Sub Vitritext() If F2road.Width > LbControlwindow.Width Then LbControlwindow.Left = (F1road.Width - LbControlwindow.Width) / Else LbControlwindow.Left = End If If F2road.Width > (Frame1.Width + * Command1.Width) Then Frame1.Left = (F1road.Width - Frame1.Width) / ElseIf F2road.Width > (Frame1.Width + 1.5 * Command1.Width) Then Frame1.Left = (F1road.Width - Frame1.Width + 1.5 * Command1.Width) / Else Frame1.Left = 1.5 * Command1.Width End If Frame2.Left = Frame1.Left Command1.Left = Frame1.Left - 1.5 * Command1.Width Label17.Left = Command1.Left LbMatramdk.Top = Frame1.Top - LbMatramdk.Height LbMatramdk.Left = Frame1.Left LbTentramdk.Top = LbMatramdk.Top LbTentramdk.Left = LbMatramdk.Left + LbMatramdk.Width If LbMatramdk.Top > LbControlwindow.Height Then LbControlwindow.Visible = True Else LbControlwindow.Visible = False End If End Sub Public Sub LoadValueDK() ' On Error GoTo StateError Dim i As Integer Dim str As String, a As String i=1 str = "select * from vchedo where matramdk = '" + Matramdk0 + "'" Set rs = New ADODB.Recordset rs.Open str, db, adOpenDynamic, adLockReadOnly If Not rs.EOF Then LbMatramdk.Caption = "" & rs.Fields(0).Value i = rs.Fields(2).Value Checkcu0.Value = Abs(i) i = rs.Fields(4).Value Checkcu30.Value = Abs(i) i = rs.Fields(6).Value Checkcu50.Value = Abs(i) i = rs.Fields(8).Value Checkcu70.Value = Abs(i) i = rs.Fields(10).Value Checkcu100.Value = Abs(i) a = Format(Trim(rs.Fields(3).Value), "dd/mm/yyyy hh:mm:ss") Lb0.Caption = "" & Mid(a, 12, 5) a = Format(Trim(rs.Fields(5).Value), "dd/mm/yyyy hh:mm:ss") Lb30.Caption = "" & Mid(a, 12, 5) a = Format(Trim(rs.Fields(7).Value), "dd/mm/yyyy hh:mm:ss") Lb50.Caption = "" & Mid(a, 12, 5) a = Format(Trim(rs.Fields(9).Value), "dd/mm/yyyy hh:mm:ss") Lb70.Caption = "" & Mid(a, 12, 5) a = Format(Trim(rs.Fields(11).Value), "dd/mm/yyyy hh:mm:ss") Lb100.Caption = "" & Mid(a, 12, 5) Else MsgBox "No data!", vbExclamation, "Warning!" End If rs.Close ' str = "select * from datUlv where matramdk = '" + Matramdk0 + "'" Set rs = New ADODB.Recordset rs.Open str, db, adOpenDynamic, adLockReadOnly If Not rs.EOF Then LbUlvcu.Caption = "" & rs.Fields("Ulv").Value TextUlv = "" & rs.Fields("Ulv").Value Else MsgBox "No data!", vbExclamation, "Warning!" End If rs.Close Exit Sub StateError: Baoloi = "Disconnect to data on Server!" & Chr(13) & Chr(10) & Baoloi 'Chr(13)la Enter, Chr(10) la ve dau dong F11StateofConnection.TextBaoloi = Baoloi End Sub Private Sub SaveValueDK() ' On Error GoTo StateError Dim i As Integer Dim str As String i = Checkmoi0.Value str = "update chedo Set on0 =" & i & " where matramdk = '" + Trim(Matramdk0) + "'" db.Execute str i = Checkmoi30.Value str = "update chedo Set on30 =" & i & " where matramdk = '" + Trim(Matramdk0) + "'" db.Execute str i = Checkmoi50.Value str = "update chedo Set on50 =" & i & " where matramdk = '" + Trim(Matramdk0) + "'" db.Execute str i = Checkmoi70.Value str = "update chedo Set on70 =" & i & " where matramdk = '" + Trim(Matramdk0) + "'" db.Execute str i = Checkmoi100.Value str = "update chedo Set on100 =" & i & " where matramdk = '" + Trim(Matramdk0) + "'" db.Execute str Exit Sub StateError: Baoloi = "Disconnect to data on Server!" & Chr(13) & Chr(10) & Baoloi 'Chr(13)la Enter, Chr(10) la ve dau dong F11StateofConnection.TextBaoloi = Baoloi End Sub Private Sub SaveValueTextDK() ' On Error GoTo StateError Dim str As String, a As String, b As String a = Now() a = Mid(a, 1, 11) b = a & Lenght2(Text0h) & ":" & Lenght2(Text0ph) & ":00" str = "update chedo Set giobat0 ='" & Format$(b, "mm/dd/yyyy hh:mm:ss") & "' where matramdk = '" + Matramdk0 + "'" db.Execute str b = a & Lenght2(Text30h) & ":" & Lenght2(Text30ph) & ":00" str = "update chedo Set giobat30 ='" & Format$(b, "mm/dd/yyyy hh:mm:ss") & "' where matramdk = '" + Matramdk0 + "'" db.Execute str b = a & Lenght2(Text50h) & ":" & Lenght2(Text50ph) & ":00" str = "update chedo Set giobat50 ='" & Format$(b, "mm/dd/yyyy hh:mm:ss") & "' where matramdk = '" + Matramdk0 + "'" db.Execute str b = a & Lenght2(Text70h) & ":" & Lenght2(Text70ph) & ":00" str = "update chedo Set giobat70 ='" & Format$(b, "mm/dd/yyyy hh:mm:ss") & "' where matramdk = '" + Matramdk0 + "'" db.Execute str b = a & Lenght2(Text100h) & ":" & Lenght2(Text100ph) & ":00" 111 str = "update chedo Set giobat100 ='" & Format$(b, "mm/dd/yyyy hh:mm:ss") & "' where matramdk = '" + Matramdk0 + "'" db.Execute str Exit Sub StateError: Baoloi = "Disconnect to data on Server!" & Chr(13) & Chr(10) & Baoloi 'Chr(13)la Enter, Chr(10) la ve dau dong F11StateofConnection.TextBaoloi = Baoloi End Sub LoadValueTextmoi Exit Sub End If If i < Then MsgBox "Please, try again!", vbExclamation, "Warning!" LoadValueTextmoi Exit Sub End If Exit Sub ErrorState: MsgBox "Please, try again!", vbExclamation, "Warning!" LoadValueTextmoi End Sub Private Sub SaveValueUlv() ' On Error GoTo StateError Dim str As String, a As Integer a = CInt(TextUlv) str = "update datUlv Set Ulv ='" & a & "' where matramdk = '" + Matramdk0 + "'" db.Execute str a = 160 str = "update datUlv Set Umin ='" & a & "' where matramdk = '" + Matramdk0 + "'" db.Execute str a = 225 str = "update datUlv Set Umax ='" & a & "' where matramdk = '" + Matramdk0 + "'" db.Execute str Exit Sub StateError: Baoloi = "Disconnect to data on Server!" & Chr(13) & Chr(10) & Baoloi 'Chr(13)la Enter, Chr(10) la ve dau dong F11StateofConnection.TextBaoloi = Baoloi End Sub Private Sub KtraText30h() ' On Error GoTo ErrorState Dim a As String, i As Integer a = Trim(Text30h) i = CInt(a) If i > 23 Then MsgBox "Please, try again!", vbExclamation, "Warning!" LoadValueTextmoi Exit Sub End If If i < Then MsgBox "Please, try again!", vbExclamation, "Warning!" LoadValueTextmoi Exit Sub End If Exit Sub ErrorState: MsgBox "Please, try again!", vbExclamation, "Warning!" LoadValueTextmoi End Sub Private Function Lenght2(ByVal abc As String) As String If Len(abc) < Then Lenght2 = "0" & abc Else Lenght2 = abc End If End Function Private Sub LoadValuechoCheckmoi() Checkmoi0.Value = Checkcu0.Value Checkmoi30.Value = Checkcu30.Value Checkmoi50.Value = Checkcu50.Value Checkmoi70.Value = Checkcu70.Value Checkmoi100.Value = Checkcu100.Value End Sub Private Sub LoadValueTextmoi() ' On Error GoTo StateError Dim str As String, a As String str = "select * from vchedo where matramdk = '" + Matramdk0 + "'" Set rs = New ADODB.Recordset rs.Open str, db, adOpenDynamic, adLockReadOnly If Not rs.EOF Then LbMatramdk.Caption = "" & rs.Fields(0).Value LbTentramdk.Caption = "" & rs.Fields(1).Value a = Format(Trim(rs.Fields(3).Value), "dd/mm/yyyy hh:mm:ss") Text0h = "" & Mid(a, 12, 2) a = Format(Trim(rs.Fields(5).Value), "dd/mm/yyyy hh:mm:ss") Text30h = "" & Mid(a, 12, 2) a = Format(Trim(rs.Fields(7).Value), "dd/mm/yyyy hh:mm:ss") Text50h = "" & Mid(a, 12, 2) a = Format(Trim(rs.Fields(9).Value), "dd/mm/yyyy hh:mm:ss") Text70h = "" & Mid(a, 12, 2) a = Format(Trim(rs.Fields(11).Value), "dd/mm/yyyy hh:mm:ss") Text100h = "" & Mid(a, 12, 2) '========================================================== a = Format(Trim(rs.Fields(3).Value), "dd/mm/yyyy hh:mm:ss") Text0ph = "" & Mid(a, 15, 2) a = Format(Trim(rs.Fields(5).Value), "dd/mm/yyyy hh:mm:ss") Text30ph = "" & Mid(a, 15, 2) a = Format(Trim(rs.Fields(7).Value), "dd/mm/yyyy hh:mm:ss") Text50ph = "" & Mid(a, 15, 2) a = Format(Trim(rs.Fields(9).Value), "dd/mm/yyyy hh:mm:ss") Text70ph = "" & Mid(a, 15, 2) a = Format(Trim(rs.Fields(11).Value), "dd/mm/yyyy hh:mm:ss") Text100ph = "" & Mid(a, 15, 2) Else MsgBox "No data!", vbExclamation, "Warning!" End If rs.Close Exit Sub StateError: Baoloi = "Disconnect to data on Server!" & Chr(13) & Chr(10) & Baoloi 'Chr(13)la Enter, Chr(10) la ve dau dong F11StateofConnection.TextBaoloi = Baoloi End Sub '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Private Sub KtraText0h() ' On Error GoTo ErrorState Dim a As String, i As Integer a = Trim(Text0h) i = CInt(a) If i > 23 Then MsgBox "Please, try again!", vbExclamation, "Warning!" Private Sub KtraText50h() ' On Error GoTo ErrorState Dim a As String, i As Integer a = Trim(Text50h) i = CInt(a) If i > 23 Then MsgBox "Please, try again!", vbExclamation, "Warning!" LoadValueTextmoi Exit Sub End If If i < Then MsgBox "Please, try again!", vbExclamation, "Warning!" LoadValueTextmoi Exit Sub End If Exit Sub ErrorState: MsgBox "Please, try again!", vbExclamation, "Warning!" LoadValueTextmoi End Sub Private Sub KtraText70h() ' On Error GoTo ErrorState Dim a As String, i As Integer a = Trim(Text70h) i = CInt(a) If i > 23 Then MsgBox "Please, try again!", vbExclamation, "Warning!" LoadValueTextmoi Exit Sub End If If i < Then MsgBox "Please, try again!", vbExclamation, "Warning!" LoadValueTextmoi Exit Sub End If Exit Sub ErrorState: MsgBox "Please, try again!", vbExclamation, "Warning!" LoadValueTextmoi End Sub 112 ... PHÁP CÔNG NGHỆ CHO ĐIỀU KHIỂN VÀ GIÁM SÁT HỆ THỐNG CHIẾU SÁNG CÔNG CỘNG 41 2.1 Một số giải pháp điều khiển giám sát hệ thống chiếu sáng theo công nghệ đại 41 2.1.1 Điều khiển giám sát. .. theo công nghệ GSM/ GPRS .60 Hình - 11: Mơ hình điều khiển giám sát hệ thống chiếu sáng theo khu vực ứng dụng công nghệ GSM/ GPRS 61 Hình - 12: Mơ hình điều khiển giám sát hệ thống chiếu. .. sáng công cộng ứng dụng công nghệ GSM/ GPRS 63 Kết luận chương 64 Chương III 65 XÂY DỰNG ỨNG DỤNG DỰA VÀO CÔNG NGHỆ GSM/ GPRS ĐỂ ĐIỀU KHIỂN VÀ GIÁM SÁT HỆ THỐNG CHIẾU SÁNG CÔNG