Thiết kế hệ thống quản lý giám sát trạm biến áp mặt bẳng mỏ công ty cổ phần than hà lâm qua hệ thống gprs

Bộ giáo dục đào tạo Tr-ờng đại học mỏ - địa chất Phạm liêm Thiết kế hệ thống quản lý giám sát trạm biến áp mặt mỏ công ty cổ phần than hà lầm qua hệ thống gprs Luận văn thạc s kỹ thuật Hà nội - 2013 Bộ giáo dục đào tạo Tr-ờng đại học mỏ - địa chất Phạm liêm Thiết kế hệ thống quản lý giám sát trạm biến áp mặt mỏ công ty cổ phần than hà lầm qua hệ thống gprs Chuyên ngành: Tự Động Hóa Mà số: 60.52.60 Luận văn thạc s kỹ thuật Ng-ời h-ớng dẫn khoa häc TS Khỉng cao phong Hµ NéI - 2013 LỜI CAM ĐOAN Tôi xin cam đoan công trình nghiên cứu khoa học riêng tơi, đề tài hoàn toàn cố gắng thân giúp đỡ nhiệt tình Thầy cô Các số liệu kết luận văn hoàn toàn trung thực chưa cơng bố cơng trình trước Hà nội, ngày tháng năm 2013 Tác giả Phạm Thanh Liêm MỤC LỤC LỜI CAM ĐOAN MỤC LỤC DANH MỤC CÁC CHỮ VIẾT TẮT .5 DANH MỤC CÁC BẢNG DANH MỤC CÁC HÌNH VẼ M Đ 10 CHƯƠNG 1: TH C T NG C NG TÁC Q ẢN LÝ T M BIẾN ÁP TRONG CÔNG TY CP THAN HÀ L M .13 1.1 Tình hình tiêu th điện Công ty than Hà Lầm 13 1.2 Hiện trạng công tác quản lý TBA công ty CP than Hà Lầm CHƯƠNG 2: T NGHIÊN CỨ 14 CÁC HỆ THỐNG Q ẢN LÝ GIÁM SÁT M BIẾN ÁP T ÊN THẾ GIỚI & L A CHỌN THIẾT KẾ HỆ THỐNG 16 2.1 Nghiên cứu số hệ thống quản lý điện giới 16 2.1.1 Hệ thống giám sát, quản lý TBA hãng Schneider – Pháp[4][5] 16 2.1.2 Hệ thống giám sát, quản lý TBA hãng Rockwell – Mỹ[4][5].21 2.1.3 Hệ thống giám sát, quản lý TBA hãng Siemens - Đức[4][5] 27 2.1.4 Hệ thống giám sát, quản lý TBA cho hộ khai thác than KJ284 Trung Quốc [4][5] 30 2.2 Nghiên cứu số công nghệ kết nối hệ thống quản lý TBA 33 2.2.1 Truyền số liệu qua đường dây điện thoại [4][5] 33 2.2.2 Truyền số liệu qua đường dây Internet [4][5] 34 2.2.3 Truyền số liệu qua đường dây cáp quang [4][5] 34 2.2.4 Truyền số liệu qua mạng không dây GPRS [4][5] 35 2.2.5 Truyền số liệu qua đường dây điện lực [4][5] 36 2.3 Kết luận 38 CHƯƠNG 3: ĐỀ X ẤT XÂY D NG CẤ T ÚC HỆ THỐNG Q ẢN LÝ GIÁM SÁT T M BIẾN ÁP 40 3.1 Thiết kế xây dựng phần cứng hệ thống giám sát quản lý TBA m t mỏ 41 3.1.1 Ph ng giám sát trung tâm 43 3.1.2 Thi t ph c quản lý giám sát TBA tr n m t 3.2 Đề xuất xây dựng phần mềm quản lý TBA ng m 44 45 3.2.1 ây dựng ph n mềm giám sát quản lý điện n ng l p tr nh tr n tảng ng ngôn ng T 47 3.2.2 ấu trúc sở d liệu 50 3.2.3 Quản lý sở d liệu 53 CHƯƠNG 4: TH C HIỆN KẾT NỐI T THỐNG Q ẢN LÝ GIÁM SÁT T YỀN TH NG T ÊN HỆ M BIẾN ÁP .63 4.1 Mơ hình truyền liệu hệ thống 63 Kết nối máy trạm đến thiết bị đo lường 65 4.2.1 ấu trúc khung d liệu 67 4.2.2 Đọc d liệu l n đ u từ đ a ô nhớ 0280H đ n 0297H 67 4.2.3 Đọc d liệu l n thứ từ ô nhớ 0298H đ n 02AFH 67 4.2.4 Đọc d liệu l n thứ từ ô nhớ 02B0H đ n ô nhớ 02BFH 68 Kết nối máy trạm đến host lưu liệu 69 Kết nối máy chủ đến host liệu 70 Quản lý, cài đ t máy trạm tin nhắn SMS 70 4.5.1 Thay đổi đ a FTP ser er 71 4.5.2 Đọc thông tin cấu h nh thi t 71 4.5.3 Thay đổi chu kỳ gửi d liệu 72 4.5.4 Thay đổi m t 72 4.5.5 ấu h nh đồng hồ 72 4.5.6 Khởi động lại thi t 73 4.5.7 ài đ t thời gian cho thi t 73 4.5.8 Kiểm tra thông số hoạt động 73 4.5.9 Kiểm tra tài khoản SIM 74 4.5.10 ạp tiền cho SIM 75 CHƯƠNG 5: THIẾT KẾ PH N MỀM Q ẢN LÝ, CÀI ĐẶT MÁY T M Q A TIN NHẮN SMS 76 5.1 Mô tả phần cứng 76 5.1.1 Thông số kỹ thu t thi t 76 5.1.2 Thi t l p k t nối modul GPRS máy tính 78 5.2 Một số tính phải xây dựng phần mềm quản lý, cài đ t máy trạm 80 5.2.1 ung cấp giao diện trực quan ng ti ng Việt 81 5.2.2 Quản lý danh trạm 81 5.2.3 Quản lý tài khoản sim 81 5.2.4 Gửi tin nhắn SMS đợi tin nhắn 81 5.2.5 ung cấp GPRS cho máy tính trường hợp c n thi t 82 5.3 Xây dựng phần mềm quản lý, cài đ t máy trạm 82 5.3.1 Giám sát k t nối ới GPRS modem quản lý toàn ộ trang giao diện 82 5.3.2 Quản lý danh 83 5.3.3 Tự động mã hóa câu lệnh gửi 84 5.3.4 Gửi quản lý tín nhắn thủ công 94 KẾT L N VÀ KIẾN NGH 95 DANH MỤC C NG T ÌNH C NG BỐ CỦA TÁC GIẢ 97 DANH MỤC TÀI LIỆ THAM KHẢO .98 PHỤ LỤC 99 DANH MỤC CÁC CHỮ VIẾT TẮT Chữ viết Nội dung tiếng Anh Nội dung tiếng Việt tắt Trạm biến áp TBA Cổ phần CP Máy biến áp MBA ĐH Đồng hồ đo lường Px Phân xưởng CSDL Cơ sở liệu GSM Global System for Mobile Mạng thơng tin di động tồn cầu Communications GPRS General packet radio service Gói dịch v vơ tuyến tổng hợp SMS Short Message Service Tin nhắn ngắn VT Voltage transformer Biến áp CT Current transformer Biến dòng PM Power metter Đo lượng LCD Liquid-crystal display Màn hình tinh thể lỏng In/out Vào THD Total harmonic distortion Tổng méo hài PLC Program logic controler Thiết bị logic khả trình I/O Thiết bị bảo vệ máy cắt SEPAM Web World Wide Web Mạng toàn cầu LAN Local area network Mạng máy tính c c WAN Wide area network Mạng diện rộng TCP Transmission Protocol Control Giao thức điều khiển truyền thông DANH MỤC CÁC BẢNG Bảng 2.1 Thông số kỹ thuật thành phần hệ thống 18 Bảng 2.2 Thông số kỹ thuật đồng hồ đo h ng ock ll 22 Bảng 3.1 Thiết bị phòng giám sát trung tâm 44 Bảng 3.2 Thiết bị hệ thống giám sát điện m t 44 Bảng Thời gian yêu cầu phản hồi liệu 66 Bảng Ví d giải thích liệu nhớ 0280H đến 0297H 67 Bảng Ví d giải thích liệu ô nhớ 0298H đến 02AFH 68 Bảng Ví d giải thích liệu nhớ 02B0H đến ô nhớ 02BFH 68 Bảng Dữ liệu fil gửi lên host 70 Bảng Thông tin trả yêu cầu đọc cấu hình thiết bị 71 Bảng Thông số hoạt động thiết bị 74 DANH MỤC CÁC HÌNH VẼ Hình 1.1 Biểu đồ tỷ lệ điện tiêu th khâu cơng nghệ 13 Hình 2.1 Cấu trúc hệ thống giám sát quản lý điện po r vi 16 Hình 2.2 Cấu trúc hệ thống Scada có tích hợp giám sát quản lý TBA 18 Hình 2.3 Giao diện phần mềm Po rVi Hình 2.4 Giao diện phần mềm Po rLogic SCADA 21 20 Hình 2.5 Sơ đồ cấu trúc hệ thống quản lý điện h ng ock ll 23 Hình 2.6 Đồ thị mơ tả q trình tiêu th lượng th o thời gian thực 25 Hình 2.7 Mơ hình dự báo tình hình sử d ng lượng 26 Hình 2.8 Đồng hồ sơ đồ cấu trúc hệ thống quản lý TBA h ng Si m ns 28 Hình 2.9 Giao diện đồ thị sóng hài đồ thị giám sát tải 29 Hình 2.10 Giao diện cấu hình thiết bị đo tổng hợp báo cáo 30 Hình 2.11 Cơng tơ đo lường đa vỏ phòng nổ 31 Hình 2.12 Máy trạm KJJ172 thu thập liệu phịng nổ 31 Hình 2.13 Hệ thống giám sát quản lý điện KJ28 cho mỏ than 32 Hình 2.1 Truyền số liệu qua đường dây điện thoại 34 Hình 2.15 Truyền số liệu qua đường dây Int rn t 34 Hình 2.16 Truyền số liệu qua đường dây cáp quang 35 Hình 2.17 Truyền số liệu qua mạng không dây GP S 35 Hình 2.18 Sơ đồ khối Mast r truyền nhận số liệu qua đường dây điện lực 36 Hình 2.19 Sơ đồ khối Slav truyền nhật số liệu qua đường dây điện lực 36 Hình 3.1 Cơng nghệ kết nối hệ thống quản lý trạm biến áp 40 Hình 3.2 Sơ đồ tổng thể hệ thống giám sát quản lý TBA m t mỏ 42 Hình 3.3 Sơ đồ kết nối hệ thống phịng giám sát trung tâm 43 Hình 3.4 Đồng hồ đo lường đa 45 Hình 3.5 Bộ truyền tín hiệu GP S 45 Hình 3.6 Sơ đồ mơ tả chế xử lý liệu thể hình 46 Hình 3.7 Các phận Microsoft.NET fram Hình 3.8 Giao diện Common Languag ork 47 untim 48 Hình 3.9 Lựa chọn Winfrom 50 Hình 3.10 Cấu trúc sở liệu 51 Hình 3.11 Sơ đồ quản trị liệu 52 Hình 3.12 Trang sở liệu 53 Hình 3.13 Lựa chọn khóa 57 Hình 3.1 àng buộc Uniqu 57 Hình 3.15 Tạo bảng trường nội dung bảng 58 Hình 3.16 Nhập liệu vào bảng 58 Hình 3.17 Export liệu 59 Hình 3.18 Chiến lược back up liệu 62 Hình Mơ hình truyền liệu hệ thống 63 Hình Hình ảnh thực tế máy trạm cổng truyển thông 65 Hình Thuật tốn thực u cầu đợi trả lời liệu 65 Hình Thời gian truyền nhận liệu th o sơ đồ kết nối truyền thông dây (trên) dây (dưới) 66 Hình Thuật tốn thực gửi liệu lên host 69 Hình 5.1 Tồn linh kiện modul GP S 76 Hình 5.2 Hình giắc DB15 (a) DB9 (b) 79 Hình 5.3 Hình kết nối cổng DB15 tới modul GP S 79 Hình Lắp sim vào modul 79 Hình 5.5 Lắp ant nna vào modul 80 Hình 5.6 Giao diện hình giám sát kết nối quản lý trang giao diện khác 83 Hình 5.7 Quản lý danh bạ modul GP S 83 Hình 5.8 Tự động m hóa gửi thông tin hiển thị kết 84 95 KẾT L N VÀ KIẾN NGH Với m c tiêu đề xuất phương hướng, giải pháp ứng d ng kỹ thuật nhằm giám sát quản lý nâng cao hiệu sử d ng điện cho mỏ than, tác giả đề tài thực khối lượng công việc sau: + Đánh giá thực trạng mạng cung cấp điện, công tác quản lý điện đơn vị sản xuất than Phân tích chi tiết nguyên nhân khách quan, chủ quan m t tồn công tác giám sát quản lý trạm biến áp + Nghiên cứu c thể số hệ thống giám sát quản lý trạm biến áp giới, công nghệ kết nối áp d ng công nghiệp, ngơn ngữ lập trình nhằm m c đích xây dựng hệ thống quản lý trạm biến áp cho mỏ + Xây dựng hệ thống giám sát quản lý TBA Công ty CP than Hà Lầm Từ kết khảo sát nghiên cứu rút kết luận kiến nghị sau: Kết luận: Ngành mỏ giới đ có bước tiến xa ứng d ng khoa học công nghệ, đ c biệt lĩnh vực tự động hóa quản lý TBA Những tiến kĩ thuật không nâng cao nhiều hiệu quản lý điện năng, mà đ giảm thiểu mức thấp cố máy móc thiết bị Trong đó, ngành than Việt nam đ có đạo sử d ng lượng tiết kiệm hiệu quả, song công tác quản lý điện đ c biệt đơn vị sản xuất than cịn g p nhiều khó khăn Các hoạt động ứng d ng thiết bị tiết kiệm điện ngành đơn vị ứng d ng mạnh mẽ góp phần làm giảm điện tiêu th đơn vị Công việc quản lý điện mỏ dựa vào tính tốn giao khốn phịng điện với phân xưởng sản xuất Cách quản lý mang tính tương đối, khơng xác tình trạng chung mỏ than Với cách quản lý điện ngày g p khó khăn ngành than cịn giai đoạn phát triển mở rộng sản xuất xuống sâu đầu tư nhiều máy móc giới hố, điện khí hố 96 Trước u cầu cấp thiết thực tế ngành than tăng nhanh sản lượng, đầu tư máy móc thiết bị Để sử d ng lượng tiết kiệm hiệu quả, quản lý điện tốt ngành than phải có chương trình đầu tư xây dựng hệ thống lý điện tổng thể cho mỏ , quản lý tiêu th điện đến thiết bị, phân xưởng Qua nghiên cứu thiết kế số thiết bị cấu thành hệ thống giám sát quản lý điện khuôn khổ đề tài, tác giả đề tài nhận thấy Việt Nam hồn tồn có đủ sở vật chất tiềm lực người để thiết kế hệ thống giám sát quản lý điện đảm bảo yêu cầu phòng nổ Kiến nghị 1) Để sử d ng lượng tiết kiệm hiệu quả, quản lý điện hạch tốn chi phí điện đến phân xưởng đồng hồ đo lường xác mang lại hiệu sử d ng điện cho đơn vị giúp đơn vị tiết kiệm điện sản xuất Đề nghị Bộ Công Thương Tập đoàn than đạo đơn vị tập đoàn ứng d ng hệ thống giám sát quản lý điện đ c biệt đơn vị sản xuất than 2) Hiệu mang lại từ việc đầu tư hệ thống giám sát quản lý điện nâng cao khả điều hành quản lý sản xuất, kiểm sốt có chất lượng an tồn thiết bị, can thiệp loại trừ kịp thời khả cố Qua nâng cao hiệu sản xuất kinh doanh đơn vị mỏ toàn ngành 3) Đề nghị Bộ Công Thương (là đơn vị quản lý) cấp thêm kinh phí để chế tạo sản xuất hệ thống giám sát quản lý điện áp d ng mỏ than ngành than 4) Đề nghị ứng d ng hệ thống giám sát trạm biến áp m t Mỏ cho đơn vị công nghiệp khác 97 DANH MỤC CƠNG TRÌNH CƠNG BỐ CỦA TÁC GIẢ Nghiên cứu thiết lập phần mềm quản lý, giám sát tiêu th điện cho xi nghiệp mỏ Tạp chí cơng nghiệp Mỏ số - 2013 Nghiên cứu thiết kế hệ thống giám sát, quản lý điện nhằm nâng cao hiệu sử d ng điện cho đơn vị sản xuất than Tuyển tập cơng trình khoa học cơng nghệ giai đoạn 2007-2012 Kết nghiên cứu xây dựng mơ hình quản lý, xử d ng lượng tiết kiệm hiệu ngành than Thông tin khoa học công nghệ Mỏ Vinacomin số 1+2/2011 Chất lượng cung cấp điện cho xí nghiệp Mỏ số giải pháp cần lưu ý để đáp ứng nhu cầu tăng cường giới hóa ngành than Hội nghị khoa học ki thuật Mỏ quốc tế 9/2010 98 DANH MỤC TÀI LIỆU THAM KHẢO - Hồng Minh Sơn (1996), Mạng truyền thơng công nghiệp, NXB Khoa học kỹ thuật – Vũ Thế Nam, Phạm Thanh Liêm NNK, Viện KHCN Mỏ - Vinacomin, Đề tài công thương (2010), ghi n cứu thi t k hệ thống giám sát, quản lý điện n ng tự động nh m nâng cao hiệu sử d ng quản lý điện cho đơn sản xuất than – Đào Đắc Tạo, Phạm Thanh Liêm NNK, Hội khoa học công nghệ Mỏ Việt Nam, liên hiệp Hội KHKT Việt Nam, đề tài công thương (2010), ghi n cứu đề xuất giải pháp cung cấp điện ổn đ nh an toàn cho m than h m l Quảng inh đáp ứng nhu c u giới hóa, đại hóa ngành than giai đoạn 2008-2025 – Vũ Thế Nam, Phạm Thanh Liêm NNK, Viện KHCN Mỏ - Vinacomin, đề tài công thương (2012), ghi n cứu xây dựng hệ thống quản lý điện n ng cho hộ khai thác than h m l - Catalog đ c tính kỹ thuật hệ thống quản lý điện h ng như: Si m ns, Schn id r, Gavazzi, ock ll, - Viện KHCN Mỏ - Vinacomin, Hướng dẫn sử d ng phát tín hiệu khơng dây truyền liệu – Vimsat-matter2 - AT Commands Interface Guide for Open AT® Firmware v7.4 99 PHỤ LỤC Phụ lục Nội dung chư ng trình quản lý chức phần mềm: Public Com_number As Integer Private Sub bangtay_Click() Timer1.Enabled = False ' Dõng timer tÝnh chu kú hái møc sãng MSComm1.PortOpen = False ' Dõng më cỉng com frmBangtay.Show ' HiĨn thÞ form B»ng tay End Sub Private Sub CmdKetnoi_Click() MSComm1.CommPort = Val(Right(CboCom.Text, 1)) If MSComm1.PortOpen = False Then MSComm1.PortOpen = True End If MSComm1.Output = "AT" & Chr(13) If CmdKetnoi.Caption = "Ng¾t kÕt nèi" Then End End If CmdKetnoi.Caption = "Ng¾t kÕt nèi" Timer1.Enabled = True End Sub Private Sub Danhba_Click() Timer1.Enabled = False ' Dõng timer tÝnh chu kú hái møc sãng frmDanhba.Show 'HiÓn thị form Danh bạ 'MSComm1.PortOpen = False ' Dừng mở cæng com End Sub Private Sub Form_Load() MSComm1.Settings = "115200,n,8,1" For Com_number = To 255 If MSComm1.PortOpen = True Then MSComm1.PortOpen = False End If ' gäi ch-ơng trình tìm cổng com tồn Search_Com Next Timer1.Enabled = False End Sub 100 Private Sub Form_Unload(Cancel As Integer) MSComm1.PortOpen = False End End Sub Private Sub thoat_Click() End End Sub Private Sub Timer1_Timer() TxtMucsong.Text = MSComm1.Input 'KiĨm tra chÊt l-ỵng sãng MSComm1.Output = "AT+CSQ" & Chr(13) 'Kiểm tra xem nhà mạng đ-ợc sử dụng MSComm1.Output = "AT+CREG" & Chr(13) End Sub Private Sub Tudong_Click() Timer1.Enabled = False ' Dõng timer tÝnh chu kú hái mức sóng frmTudong.Show ' Hiển thị form Tự Động 'MSComm1.PortOpen = False ' Dõng më cæng com End Sub ' Ch-ơng trình tìm cổng com máy tính Private Sub Search_Com() On Error GoTo Errlabel ' Sự kiện lỗi VB , có lỗi nhẩy đến nhÃn lỗi MSComm1.CommPort = Com_number MSComm1.RThreshold = MSComm1.PortOpen = True CboCom.AddItem "COM" & Com_number CboCom.Text = "COM" & Com_number MSComm1.InputLen = MSComm1.PortOpen = False Exit Sub Errlabel: 'If Err.Number = 8002 Then CboCom.AddItem "COM" & Com_number & " khong co cong nay" If Err.Number = 8005 Then CboCom.AddItem "COM" & Com_number & " đà sử dụng" ' Nếu báo lỗi 8005 đ-a thông báo bên cạnh ' cổng com tìm đ-ợc đà sử dụng End Sub 101 Phụ lục Nội dung chư ng trình thực chức quản lý danh bạ: Private msFileName As String ' Form (module) level variable Public trangthai As Integer ' Trạng thái ấn nút sửa đổi Public Nut As Integer ' Biến xác định xem nút đ-ợc ấn =1 ' Nut = nút đ-ợc ấn ' Nut =2 nút sửa đổi đ-ợc ấn Private Sub cboDanhba_Click() Dim ALine As String Dim Data() As String Dim count ' Khóa số hiển thị không cho sưa ch÷a cmdLuu.Enabled = False txtID.Enabled = False txtTentram.Enabled = False TxtSodienthoai.Enabled = False TxtMatkhau.Enabled = False ' File does not exist, get out the sub procedure If Dir(msFileName) = "" Then Exit Sub ' Open the address file name Open msFileName For Input As #1 ' Gán biến để xác định hàng cần lấy liệu count = ' Keep reading one line at a time until there is no more Do While Not EOF(1) Line Input #1, ALine ' Nếu cboDanhba chọn dòng đọc lại danh bạ hiển thị lên If count = Val(cboDanhba.ListIndex) Then Data() = Split(ALine, "*") 'Tách liệu nhận đ-ợc dấu * txtID.Text = Data(0) ' Hiển thị ID txtTentram.Text = Data(1) 'Hiển thị tên trạm TxtSodienthoai.Text = Data(2) 'Hiển thị số điện thoại TxtMatkhau.Text = Data(3) 'Hiển thị mật End If 'Sau lần đọc dòng liệu tăng giá trị đếm lên đơn vị count = count + Loop ' Close input file Close #1 ' Khống chế chức khác cboDulieu đ-ợc chọn 102 trangthai = cmdSuadoi.Caption = "Sưa ®ỉi" End Sub Private Sub cmdHuy_Click() Dim msg msg = MsgBox("Ban co chac muon xoa du lieu!", vbOKCancel + vbQuestion, "Canh bao") If msg = vbOK Then lstTem.RemoveItem cboDanhba.ListIndex cboDanhba.RemoveItem cboDanhba.ListIndex '' L-u danh bạ vào file gốc************** Dim i As Integer Open msFileName For Output As #2 For i = To cboDanhba.ListCount - Print #2, lstTem.List(i) Next i Close #2 cboDanhba.Clear 'xoa danh ba lstTem.Clear ' xoa bo dem danh ba LoadAddrBook 'Sau l-u nạp lại danh bạ End If End Sub Private Sub cmdLuu_Click() Dim msg If cboDanhba.Text = "" Then msg = MsgBox("Ban dang khong chon tram nao!", vbOK + vbQuestion, "Canh bao") End If If msg = vbOK Then Exit Sub '' Nếu danh sách đ-ợc chọn thực hiÖn lÖnh If Nut = Then lstTem.RemoveItem cboDanhba.ListIndex 'Xãa dòng lstTem vị trí cboDanhba chọn lstTem.AddItem txtID.Text & "*" & txtTentram.Text & "*" & TxtSodienthoai.Text & "*" & TxtMatkhau.Text, cboDanhba.ListIndex cboDanhba.RemoveItem cboDanhba.ListIndex SaveData 'L-u danh b¹ vµo file gèc cboDanhba.Clear 'xoa danh ba lstTem.Clear ' xoa bo dem danh ba LoadAddrBook 'Sau l-u nạp lại danh bạ Nut = ' đà thực song nút đ-ợc ấn xóa trạng thái nút đ-ợc Ên End If If Nut = Then 103 lstTem.AddItem txtID.Text & "*" & txtTentram.Text & "*" & TxtSodienthoai.Text & "*" & TxtMatkhau.Text ', lstTem.ListCount + SaveData 'L-u danh bạ vào file gốc cboDanhba.Clear 'xoa danh ba lstTem.Clear ' xoa bo dem danh ba LoadAddrBook 'Sau l-u th× nạp lại danh bạ Nut = 'đà thực song nút đ-ợc ấn xóa trạng thái nút đ-ợc Ên End If cmdLuu.Enabled = False ' Khèng chÕ c¸c chức khác cboDulieu đ-ợc chọn trangthai = cmdSuadoi.Caption = "Sửa đổi" ' Gán tác vụ công nghÖ cmdLuu.Enabled = False txtID.Enabled = False txtTentram.Enabled = False TxtSodienthoai.Enabled = False TxtMatkhau.Enabled = False End Sub Private Sub cmdMoi_Click() txtID.Text = "" txtTentram.Text = "" TxtSodienthoai.Text = "" TxtMatkhau.Text = "" txtID.Enabled = True txtTentram.Enabled = True TxtSodienthoai.Enabled = True TxtMatkhau.Enabled = True cmdLuu.Enabled = True Nut = ' G¸n cho hƯ thãng biÕt nót võa ®-ỵc Ên End Sub Private Sub cmdSuadoi_Click() trangthai = trangthai + If trangthai = Then cmdSuadoi.Caption = "Söa ®æi" cmdLuu.Enabled = False txtID.Enabled = False txtTentram.Enabled = False TxtSodienthoai.Enabled = False 104 TxtMatkhau.Enabled = False End If If trangthai = Then cmdSuadoi.Caption = "Không sửa đổi" trangthai = Nut = ' G¸n cho biÕt nót sửa đổi vừa đ-ợc ấn đ-ợc ấn cmdLuu.Enabled = True txtID.Enabled = True txtTentram.Enabled = True TxtSodienthoai.Enabled = True TxtMatkhau.Enabled = True End If End Sub Private Sub cmdThoat_Click() frmDanhba.Hide End Sub Private Sub Form_Load() trangthai = If trangthai = Then cmdSuadoi.Caption = "Sưa ®ỉi" End If ' Determine full path address file name msFileName = App.Path If Right(msFileName, 1) "\" Then msFileName = msFileName & "\" msFileName = msFileName & "Danh ba\AddrBook.dat" ' Load the address file into lstAddress listbox LoadAddrBook ' G¸n t¸c vơ phơ phơc vơ c«ng nghƯ cmdLuu.Enabled = False txtID.Enabled = False txtTentram.Enabled = False TxtSodienthoai.Enabled = False TxtMatkhau.Enabled = False ' Thể option chọn máy tính optMay.Value = End Sub Private Sub LoadAddrBook() ' Thđ tơc tải danh bạ vào phần mềm Dim ALine As String Dim Data() As String 105 Dim i As Integer i=1 ' Clear cboDanhba Commbo box cboDanhba.Clear ' File does not exist, get out the sub procedure If Dir(msFileName) = "" Then Exit Sub ' Open the address file name Open msFileName For Input As #1 ' Keep reading one line at a time until there is no more Do While Not EOF(1) Line Input #1, ALine Data() = Split(ALine, "*") 'Tách liệu nhận đ-ợc dấu * cboDanhba.Text = i & " " & Data(1) ' Đặt thị mặc định Data cuối đ-ợc đọc cboDanhba.AddItem i & " " & Data(1) ' Add this item to the cboDanhba lstTem.AddItem ALine 'cboDanhba.AddItem Data(1) ' Add this item to the cboDanhba i=i+1 Loop ' Close input file Close #1 End Sub Private Sub SaveData() 'Thđ tơc l-u liệu vào danh bạ Dim i As Integer Open msFileName For Output As #2 For i = To cboDanhba.ListCount Print #2, lstTem.List(i) Next i Close #2 End Sub Private Sub txtID_Change() If Len(txtID.Text) >= 10 Then e = MsgBox("ID cua ban dang danh thua ky tu", vbOKCancel + vbExclamation) End If End Sub Private Sub TxtSodienthoai_Change() If Val(TxtSodienthoai.Text) = Then a = MsgBox("Số điện thoại bạn nhập không đúng", vbOKOnly + vbExclamation, "Cảnh báo") End If End Sub 106 Phụ lục Nội dung chư ng trình thực gửi tin nhắn SMS cách tự động theo tính cần thực ' Font mỈc định Vntime Private msFileName As String ' Form (module) level variable Private Sub bangtay_Click() Unload Me Bangtay.Enabled = True Bangtay.Show End Sub Private Sub CboChonthietbi_Click() Dim ALine As String Dim Data() As String Dim count ' File does not exist, get out the sub procedure If Dir(msFileName) = "" Then Exit Sub ' Open the address file name Open msFileName For Input As #1 ' Gán biến để xác định hàng cần lấy liệu count = ' Keep reading one line at a time until there is no more Do While Not EOF(1) Line Input #1, ALine ' Nếu cboDanhba chọn dòng đọc lại danh bạ hiển thị lên If count = Val(CboChonthietbi.ListIndex) Then Data() = Split(ALine, "*") 'Tách liệu nhận đ-ợc dấu * TxtTentramhientai.Text = Data(1) ' Hiển thị ID TxtSodienthoai.Text = Data(2) 'Hiển thị số điện thoại TxtMatkhau.Text = Data(3) 'Hiển thị mật End If 'Sau lần đọc dòng liệu tăng giá trị đếm lên đơn vị count = count + Loop ' Close input file Close #1 End Sub Private Sub CmdCapnhat_Click() FrameHienthiketqua.Caption = "Hiển thị kết - Cập nhật chu kú lÊy d÷ liƯu" 'Noi dung tin nhan gui di frmKetnoi.MSComm1.Output = "AT+CMGS=" & TxtSodienthoai.Text & Chr(13) 107 frmKetnoi.MSComm1.Output = "TH " & TxtMatkhau.Text & " " & TxtTime.Text & Chr(13) & Chr(26) '' Noi dung gui End Sub Private Sub CmdCauhinhcaidat_Click() FrameHienthiketqua.Caption = "Hiển thị kết - Cấu hình cài đặt" End Sub Private Sub CmdCauhinhthietbi_Click() FrameHienthiketqua.Caption = "Hiển thị kết - Cấu hình thiết bị" 'Noi dung tin nhan gui di frmKetnoi.MSComm1.Output = "AT+CMGS=" & TxtSodienthoai.Text & Chr(13) frmKetnoi.MSComm1.Output = "FL " & TxtMatkhau.Text & Chr(13) & Chr(26) '' Noi dung gui End Sub Private Sub CmdDatdiachidongho_Click(Index As Integer) FrameHienthiketqua.Caption = "Hiển thị kết - Đặt địa đồng hồ" End Sub Private Sub CmdDatgiohethong_Click(Index As Integer) FrameHienthiketqua.Caption = "Hiển thị kết - §Ỉt giê hƯ thèng" End Sub Private Sub CmdDoimatkhau_Click() FrameHienthiketqua.Caption = "Hiển thị kết - Đổi mật khẩu" 'Noi dung tin nhan gui di frmKetnoi.MSComm1.Output = "AT+CMGS=" & TxtSodienthoai.Text & Chr(13) frmKetnoi.MSComm1.Output = "US " & TxtMatkhau.Text & " " & TxtMatkhaumoi.Text & Chr(13) & Chr(26) ' Noi dung gui End Sub Private Sub CmdNaptien_Click() FrameHienthiketqua.Caption = "HiĨn thÞ kết - Nạp tiền" End Sub Private Sub CmdResetthietbi_Click() FrameHienthiketqua.Caption = "Hiển thị kết - Reset thiết bị" 'Noi dung tin nhan gui di frmKetnoi.MSComm1.Output = "AT+CMGS=" & TxtSodienthoai.Text & Chr(13) frmKetnoi.MSComm1.Output = "RESET" & Chr(13) & Chr(26) '' Noi dung gui End Sub Private Sub CmdTaikhoanchinh_Click() FrameHienthiketqua.Caption = "Hiển thị kết - Kiểm tra tài khoản chÝnh" 'Noi dung tin nhan gui di frmKetnoi.MSComm1.Output = "AT+CMGS=" & TxtSodienthoai.Text & Chr(13) frmKetnoi.MSComm1.Output = "TK *101#" & Chr(13) & Chr(26) '' Noi dung gui 108 End Sub Private Sub CmdTaikhoankhuyenmai_Click() FrameHienthiketqua.Caption = "Hiển thị kết - Kiểm tra tài khoản khuyến mại" 'Noi dung tin nhan gui di frmKetnoi.MSComm1.Output = "AT+CMGS=" & TxtSodienthoai.Text & Chr(13) frmKetnoi.MSComm1.Output = "TK *102#" & Chr(13) & Chr(26) '' Noi dung gui End Sub Private Sub CmdThietlapservermoi_Click() Dim a As String a = MsgBox(" Bạn có muốn thiết lập địa server không", vbOKCancel + vbQuestion, "Cảnh báo") If a = vbOK Then FrameHienthiketqua.Caption = "Hiển thị kết - ThiÕt lËp server míi" 'Noi dung tin nhan gui di frmKetnoi.MSComm1.Output = "AT+CMGS=" & TxtSodienthoai.Text & Chr(13) frmKetnoi.MSComm1.Output = "FT " & TxtMatkhau.Text & " " & TxtTenserver.Text & " " & TxtNguoisudung.Text & " " & Txtmatkhauserver.Text & " " & Chr(13) & Chr(26) 'Noi dung gui End If End Sub Private Sub Form_Load() ' Determine full path address file name msFileName = App.Path If Right(msFileName, 1) "\" Then msFileName = msFileName & "\" msFileName = msFileName & "Danh ba\AddrBook.dat" ' Load the address file into lstAddress listbox LoadAddrBook End Sub Private Sub LoadAddrBook() ' Thđ tơc t¶i danh bạ vào phần mềm Dim ALine As String Dim Data() As String Dim i As Integer i=1 ' Clear cboChonthietbi CboChonthietbi.Clear ' File does not exist, get out the sub procedure If Dir(msFileName) = "" Then Exit Sub ' Open the address file name Open msFileName For Input As #1 ' Keep reading one line at a time until there is no more 109 Do While Not EOF(1) Line Input #1, ALine Data() = Split(ALine, "*") 'Tách liệu nhận đ-ợc dấu * CboChonthietbi.Text = i & " " & Data(0) ' Đặt thị mặc định Data cuối đ-ợc đọc CboChonthietbi.AddItem i & " " & Data(0) ' Add this item to the cboChonthietbi i=i+1 Loop ' Close input file Close #1 End Sub Private Sub SaveData() 'Thủ tục l-u liệu vào danh b¹ Dim i As Integer Open msFileName For Output As #2 For i = To cboDanhba.ListCount Print #2, lstTem.List(i) Next i Close #2 End Sub ... tài hệ thống quản lý giám sát trạm trạm biến áp m t mỏ Phạm vi nghiên cứu: hoạt động quản lý giám sát Công ty CP than Hà Lầm đến trạm biến áp đ t m t mỏ Tìm hiều hệ thống quản lý giám sát trạm biến. .. liên quan đến hệ thống quản lý giám sát trạm biến áp áp d ng giới, từ đưa lựa chọn thành phần hệ thống quản lý giám sát trạm biến áp xây dựng hệ thống tương thích với điều kiện trạm biến áp đơn...Bộ giáo dục đào tạo Tr-ờng đại học mỏ - địa chất Phạm liêm Thiết kế hệ thống quản lý giám sát trạm biến áp mặt mỏ công ty cổ phần than hà lầm qua hệ thống gprs Chuyên ngành: Tự Động Hóa Mà số: