Giới thiệu về trạm biến áp 220 kV Hà Đông Tìm hiểu hệ thống SCADA quản lý trạm điện Tìm hiểu về thiết bị điều khiển logic khả trình

môc lôc Môc lôc Ch-ơng Giới thiệu trạm biến áp 220 KV Hà Đông 1.1 Những chặng đ-ờng phát triển, đặc điểm, vai trò trạm biến áp 220 kV Hà Đông 1.1.1 Những chặng đ-ờng phát triển đặc điểm trạm 1.1.2 Vai trò trạm biến áp Hà Đông 1.2 Tìm hiểu chung thiết bị điện trạm biến áp 1.2.1 M¸y biÕn ¸p 1.2.2 Dao c¸ch ly 1.2.3 Máy cắt điện 1.2.4 Thanh c¸i 1.2.5 M¸y biến dòng điện 1.2.6 Máy biến điện áp 1.2.7 Rơle bảo vệ 1.2.8 C¸c thiÕt bÞ chèng sÐt 1.3 Cấu trúc trạm biến áp giải pháp công nghệ 1.3.1 Cấu trúc trạm biến áp 1.3.2 Các giải pháp công nghệ 1.3.2.1 CÊp cao ¸p 220 kV 1.3.2.2 CÊp cao ¸p 110 kV 1.3.2.3 CÊp trung ¸p 35 kV 1.3.2.4 CÊp trung ¸p 22 kV 1.3.2.5 CÊp trung ¸p kV 1.4 Đặc tính kỹ thuật thiết bị 1.4.1 Đặc tính kỹ thuật thiÕt bÞ nhÊt thø 1.4.1.1 M¸y biÕn ¸p 1.4.1.2 C¸c thiÕt bị phân phối trời 10 1.4.1.2.1 Máy cắt 10 1.4.1.2.2 M¸y biÕn dòng điện, máy biến điện áp 12 1.4.1.2.3 Dao c¸ch ly 13 1.4.1.2.4 ThiÕt bÞ chèng sÐt 14 1.4.1.2.5 Rơ le bảo vệ so lệch máy biến áp 15 1.4.1.3 ThiÕt bÞ nhµ 17 1.4.2 Đặc tính kỹ thuật thiết bị nhÞ thø 19 1.4.2.1 Thiết bị điều khiển 19 1.4.2.2 Thiết bị bảo vệ 19 1.5 Quy trình vận hành 20 1.5.1 C¸c thiÕt bị thuộc quyền điều khiển 20 1.5.2 VËn hµnh 21 1.5.3 Vận hành trạm có cố 21 Ch-ơng Tìm hiểu hệ thống SCADA quản lý trạm điện 23 2.1 Kh¸i niƯm chung vỊ SCADA/EMS/DM 23 2.1.1 SCADA (Supervisory Control And Data Acquisition) 23 2.1.2 HÖ thèng quản lý l-ợng EMS (Energy Managment System) 23 -1 - 2.1.3 HÖ thèng DMS (Distribution Management System) 24 2.2 Điều khiển giám sát 24 2.3 Thông tin liên lạc cho hệ thống SCADA 26 2.4 Mét sè kh¸i niƯm vỊ trun sè liƯu 28 2.5 Các thành phần chức 31 2.6 Các thiết bị chủ có chức giám s¸t 31 2.7 Các thiết bị xa có chức giám sát (RTU) 32 2.8 NhËt ký vËn hµnh víi hƯ thèng SCADA 33 2.9 C¬ chÕ thu thËp tÝn hiƯu ®o l-êng cđa SCADA 33 Ch-ơng Tìm hiểu thiết bị điều khiển logic khả trình 34 3.1 Khái niệm thiết bị điều khiển logic khả trình (PLC) 35 3.2 C¸c module cđa PLC S7-300 35 3.3 Kiểu liệu phân chia nhớ 37 3.4 Vòng quét ch-ơng trình 39 3.5 Cấu trúc ch-ơng trình 40 3.6 Tỉ chøc bé nhí CPU 42 3.7 Trao đổi liệu CPU module më réng 43 3.8 CÊu trúc lệnh trạng thái kết 44 Ch-¬ng ThiÕt kÕ hệ thống SCADA cho trạm điện 47 4.1 Mục tiêu đề thiết kÕ hÖ thèng SCADA 48 4.2 ThiÕt bÞ phơc vơ cho hƯ thèng SCADA 48 4.3 Tỉng hỵp tín hiệu cho cấp điện áp 50 4.3.1 TÝn hiƯu phÇn cao ¸p 220 kV 50 4.3.2 Tín hiệu phần cao áp 110 kV 51 4.3.3 Tín hiệu phần trung áp 35 kV 51 4.3.4 TÝn hiƯu phÇn trung ¸p 22 kV 52 4.3.5 Tín hiệu phần trung áp kV 53 4.4 Tỉng hỵp tÝn hiƯu cho tõng PLC 53 4.4.1 TÝn hiÖu vào PLC1 53 4.4.2 Tín hiệu vào/ra PLC2 54 4.4.3 TÝn hiƯu vµo/ra víi PLC3 54 4.4.4 TÝn hiƯu vµo/ ®èi víi PLC4 54 4.5 Chän cÊu h×nh cøng cho tõng PLC 55 4.6 Tạo cấu hình thiết bị HMI xác đinh vùng trun th«ng b»ng SIMATIC ProTool 58 4.7 LËp tr×nh cho PLC 59 Ch-¬ng thiÕt kÕ giao diƯn ®iỊu khiĨn 60 phơ lơc danh s¸ch c¸c biÕn vµo cđa plc 73 phô lôc M· nguån visual basic 89 -2 - Ch-ơng Giới thiệu trạm biến áp 220 kV Hà Đông 1.1 Những chặng đ-ờng phát triển, đặc điểm, vai trò trạm biến áp 220 kV Hà Đông 1.1.1 Những chặng đ-ờng phát triển đặc điểm trạm - 1965 Trạm đ-ợc đ-a vào vận hành với cấp điện áp 35 kV - 1968 Trạm đ-ợc xây dựng lên cấp điện áp 110 kV - 1982 Khởi công xây dựng mở rộng trạm lên cấp điện áp 220 kV trạm biến áp 220 kV l-ới điện miền Bắc - 1983 Đón nhận điện từ tổ máy số nhà máy nhiệt điện Phả Lại hoà vào l-ới điện miền Bắc Sau trạm tiếp tục đ-ợc mở rộng lắp đặt thiết bị đủ để đón nhận công suất tổ máy nhiệt điện Phả Lại phát lên cho l-ới điện miền Bắc, đồng thời cung cấp điện ng-ợc lên phục vụ thi công nhà máy thủy điện Hòa Bình - 1988 nhận điện từ tổ máy số nhà máy thuỷ điện Hòa Bình phát lên - 1998 Nâng công suất MBA trạm tiến hành thay đổi thiết bị theo công nghệ sản xuất mới, theo h-ớng đại hoá-tự động hoá Sản l-ợng điện truyền qua trạm hàng năm 1,3 tỷ kWh, tổn thất điện qua trạm d-ới 0,8% Hiện trạm đà đảm đ-ơng đ-ợc công việc đại tu thiết bị máy cắt, TU, dao cách ly thiết bị khác đến cấp điện áp 35 kV, xử lý cố từ xa, đảm nhiệm việc xử lý h- hỏng mạch điều khiển thiết bị trạm, trung tâm điều độ: A0, A1, B1, B10 xử lý nhanh, xác an toàn cố l-ới, đảm bảo việc cung cấp điện ổn định, liên tục, an toàn cho phụ tải Hà Nội, Hà Tây l-ới điện miền Bắc 1.1.2 Vai trò trạm biến áp Hà Đông Trạm Biến áp 220 kV Hà Đông nằm địa bàn phố Ba La-ph-ờng Quang Trung-thị xà Hà Đông-tỉnh Hà Tây, trạm trực thuộc Công ty Truyền Tải Điện 1-Tổng Công ty Điện lực Việt Nam Trạm điểm nút quan trọng nằm hai nhà máy điện lớn: nhà máy Nhiệt điện Phả Lại nhà máy thuỷ điện Hoà Bình, giữ vai trò điều phối cung cấp ®iƯn cho HƯ thèng ®iƯn miỊn B¾c, trùc tiÕp cung cấp điện cho thủ đô Hà Nội, tỉnh Hà Tây vào tỉnh miền Trung Khi đ-ờng dây 500 kV đ-a vào vận hành, làm việc ổn định trạm có ảnh h-ởng trực tiếp tới ổn định Hệ thống điện toàn quốc 1.2 Tìm hiểu chung thiết bị điện trạm biến áp 1.2.1 Máy biến áp -3 - Máy biến áp thiết bị điện từ đứng yên, làm nguyên lý cảm ứng điện từ, biến đổi hệ thống dòng điện xoay chiều điện áp thành hệ thống dòng điện xoay chiều điện áp khác, với tần số không thay đổi 1.2.2 Dao cách ly Dao cách ly khí cụ điện dùng để đóng cắt mạch điện cao áp dòng điện dòng điện nhỏ dòng định mức nhiều lần tạo nên khoảng cách cách điện an toàn, nhìn thấy đ-ợc Dao cách ly đóng cắt dòng điện dung đ-ờng dây cáp không tải, dòng điện không tải máy biến áp Dao cách ly trạng thái đóng phải chịu dòng điện định mức dài hạn dòng cố ngắn hạn nh- dòng ổn định nhiệt, dòng xung kích 1.2.3 Máy cắt điện Máy cắt điện cao áp thiết bị điện dùng để đóng cắt mạch điện có điện áp từ 1000 V trở nên chế độ vận hành: chế độ không tải, chế độ tải định mức, chế độ cố, chế độ đóng cắt dòng điện ngắn mạch chế độ nặng nề 1.2.4 Thanh Là thiết bị nhận điện từ nguồn cấp đến phân phối cho cấp điện áp khác Đây phần tử thiết bị phân phối hệ thống điện 1.2.5 Máy biến dòng điện Máy biến dòng điện (TI) thiết bị dùng để biến đổi dòng điện cấp điện áp khác dòng điện thứ cấp tiêu chuẩn (có trị số 1A hay 5A) để cung cấp cho thiết bị đo l-ờng, rơle, tự động hoá Về nguyên lý làm việc TI t-ơng tự nh- máy biến ¸p 1.2.6 M¸y biÕn ®iƯn ¸p M¸y biÕn ®iƯn ¸p (TU) thiết bị dùng để biến đổi điện áp cao xuống điện áp thấp tiêu chuẩn, an toàn, dùng cho đo l-ờng bảo vệ rơle Trị số điện áp tiêu chuẩn th-ờng 100V 100 V 1.2.7 Rơle bảo vệ Rơle bảo vệ thiết bị điện tự động mà tín hiệu thay đổi nhảy cấp tín hiệu vào đạt đến độ xác định Mục đích bảo vệ: tách rời phần cố khái hƯ thèng víi h- háng tèi thiĨu tr× trạng thái vận hành an toàn cho phần lại hệ thống hạn chế tối đa thiệt hại ng-ời, thiết bị hay gián đoạn cung cấp điện 1.2.8 Các thiết bị chống sét -4 - Thiết bị chống sét khí cụ điện dùng để bảo vệ thiết bị điện, tránh đ-ợc hỏng hóc cách điện điện áp cao từ khí (th-ờng sét) tác động Muốn dẫn đ-ợc xung điện áp cao sét gây xuống đất, đầu thiết bị chống sét đ-ợc nối với đ-ờng dây, đầu nối đất Vì điện áp định mức, dòng dòng điện qua thiết bị chống sét Khi có điện áp cao, thiết bị chống sét phải nhanh chóng dẫn điện áp xuống đất, để điện áp cao không chạy vào thiết bị, sau phải ngăn đ-ợc dòng điện điện áp định mức chạy xuống đất 1.3 Cấu trúc trạm biến áp giải pháp công nghệ 1.3.1 Cấu trúc trạm biến áp Trạm E1.4 Hà Đông có tất cấp điện áp: - Cấp cao áp 220 kV - CÊp cao ¸p 110 kV - CÊp trung ¸p 35 kV - CÊp trung ¸p 22 kV - CÊp trung áp kV Quy mô trạm: - 02 máy biến áp 250.000 kVA-225/115/23 kV Kiểu loại: SDN.6444 hÃng AEG - 01 máy biến áp 63.000 kVA-115/38,5/23 kV Kiểu loại: BQBT chế tạo TBĐ Đông Anh - 01 máy biến áp 40.000 kVA-115/38,5/23 kV Kiểu loại: BQBT chế tạo TBĐ Đông Anh - 01 dàn tụ 40.000 kVAR-110 kV - 11 ngăn lộ 220 kV - 15 ngăn lộ 110 kV - 11 ngăn lộ 35 kV - ngăn lộ 22 kV - ngăn lộ kV 1.3.2 Các giải pháp công nghệ 1.3.2.1 Cấp cao áp 220 kV -5 - Các lộ vào Trên cấp điện áp 220kV có 11 ngăn lộ có 07 lộ vào Đó lộ: 271- Chèm 275 - Phả Lại 272 - Hoà Bình-I 276 - Ninh Bình 273 - Hoà Bình-II 277 - Hoà Bình-III 274 - Mai Động Các Trạm có 03 220 kV: Đó cái: C21-thanh 1, C22-thanh 2, C29-thanh vòng Hai C21 C22 đ-ợc nối với máy cắt liên lạc 212, vòng C29 đ-ợc nối với máy cắt vòng 200 Thanh 220 kV đ-ợc cấp điện từ nhà máy thuỷ điện Hoà Bình (qua lộ: 272, 273, 277), từ nhà máy nhiệt điện Phả Lại (qua lộ 275) từ đ-ờng dây 500 kV Từ điện áp đ-ợc cấp đến hai máy biến áp 3AT 4AT trạm Hệ thống máy cắt Tại cấp 220 kV có tất 11 máy cắt, cụ thể: 07 máy cắt lộ máy cắt: 271, 272, 273, 274, 275, 276, 277 01 máy cắt liên lạc 212 01 máy cắt vòng 200 02 máy cắt bảo vệ cho máy biến áp 3AT 4AT 233, 234 Hệ thống dao cách ly Tỉng sè cã 47 dao c¸ch ly ë phÝa 220 kV Chúng đ-ợc đặt nhà hay trời, lo¹i mét pha hay ba pha Cã mét hay hai dao tiếp địa cho pha dùng để nối đất tiến hành sửa chữa, bảo d-ỡng Ngoài cấp điện áp trạm đ-ợc trang bị thêm máy biến áp đo l-ờng: máy biến điện áp TU, máy biến dòng điện TI sử dụng cho mục đích đo l-ờng, bảo vệ, tự động hoá 1.3.2.2 Cấp cao áp 110 kV Các lộ vào Trên cấp điện áp 110 kV có 15 ngăn lộ có 08 lộ vào Đó lộ: 171 - Ninh Bình 172 - Th-ợng Đình-I 173 - Sơn Tây 174 - Chèm-I -6 - 175 - Chèm-II 176 - Th-ợng Đình-II 177 - Mai Động-I 178 - Mai Động-II Các Trạm có 03 110 kV Đó cái: C11- 1, C12- 2, C19- vòng Hai C11 C12 đ-ợc nối với máy cắt liên lạc 112, vòng C19 đ-ợc nối với máy cắt vòng 100 Thanh 110 kV đ-ợc cấp điện từ hai máy biến áp 3AT 4AT phía 220 kV Từ điện áp đ-ợc cấp đến hai máy biến áp 1T 2T trạm Hệ thống máy cắt Tại cấp 110 kV có tất 14 máy cắt, cụ thể: 08 máy cắt lộ máy cắt: 171, 172, 173, 174, 175, 176, 177, 178 01 máy cắt liên lạc 112 01 máy cắt vòng 100 02 máy cắt bảo vệ cho máy biến áp 3AT 4AT 133, 134 02 máy cắt bảo vệ cho máy biến áp 1T 2T 131, 132 Hệ thống dao cách ly Tỉng sè cã 56 dao c¸ch ly ë phÝa 110 kV Chúng đ-ợc đặt nhà hay trời, lo¹i mét pha hay ba pha Cã mét hay hai dao tiếp địa cho pha dùng để nối đất tiến hành sửa chữa, bảo d-ỡng 1.3.2.3 Cấp trung áp 35 kV Đ-ợc cấp điện từ hai máy biến áp 1T 2T Có 11 ngăn lộ có lộ cung cấp cho phụ tải, có 02 C31 C32 Hệ thống máy cắt Tại cấp 35 kV có 11 máy cắt: Máy cắt 331, 332 đóng cắt lộ nối từ 35 kV tới đầu MBA 1T 2T Các máy cắt 378, 376, 371, 373, 381, 375, 377, 379 đóng cắt lộ t-ơng ứng nối với Máy cắt 300 máy cắt phân đoạn Hệ thống dao cách ly -7 - Phía 35kV có tổng cộng 24 dao cách ly Chúng đ-ợc đặt nhà hay trời, loại pha hay ba pha Mỗi dao cách ly có hay dao tiếp địa để nối đất an toàn tr-ờng hợp thao tác với thiết bị 1.3.2.4 Cấp trung áp 22 kV Cấp điện áp 22 kV có phía mạch 220 kV phía mạch 110 kV trạm - Phía 110 kV: + Điện áp 22 kV đ-ợc cấp từ máy biến áp 1T + Có ngăn lộ có lộ cung cấp cho phụ tải + Hệ thống máy cắt: cấp 22 kV dùng máy cắt hợp bộ, có tất máy cắt hợp Máy cắt 441 đóng cắt lộ nối từ 22 kV tới đầu MBA 1T Hiện cấp điện áp đ-ợc dự phòng ch-a đ-a vào sử dụng - Phía 220kV: + Điện áp 22kV đ-ợc lấy từ hai máy biến áp 3AT 4AT sau đ-ợc đ-a tới hai máy biến áp tự dùng 43T 44T + Hệ thống máy cắt: có hai máy cắt hợp 443 444 + Hệ thèng dao c¸ch ly: cã dao c¸ch ly 1.3.2.5 Cấp trung áp kV Đ-ợc cấp điện từ máy biến áp 2T Có ngăn lộ có lộ cung cấp cho phụ tải Hệ thống máy cắt: cấp kV dùng máy cắt hợp bộ, có tất máy cắt hợp Máy cắt 632 đóng cắt lộ nối từ kV tới đầu MBA 2T 1.4 Đặc tính kỹ thuật thiết bị 1.4.1 Đặc tính kỹ thuật thiết bị thứ 1.4.1.1 M¸y biÕn ¸p M¸y biÕn ¸p chÝnh T1 M¸y biÕn áp 63000 kVA-115/38.5/23 kV - Điện áp định mức: + Cao áp: 115 x 1.78% kV (điều chỉnh d-ới tải) + Trung áp: 38.5 x 2.5% kV (điều chỉnh không điện) + Hạ áp: 23 kV -8 - - Tổn hao không tải: Po = 40.2 kW - Dòng điện không tải: Io = 0.206% - Tổn thất có tải: nấc chỉnh, nhiệt độ 750C: Pk 115 - 38.5 kV = 212.568 kW Pk 115 - 23 kV = 234.891 kW Pk 35 - 23 kV = 213.095 kW - Nấc điều chỉnh điện áp phÝa 115 kV: M¸y biÕn ¸p T1 cã 19 nÊc điều chỉnh tăng giảm áp, nấc 2kV Máy biến áp T2 Máy biến áp T2 loại MBA ®iƯn lùc BQBT 40.000 kVA - 110 kV KiĨu m¸y:40 MVA 115/38.5/6.6 kV - Công suất định mức (MVA): Cuộn 115 kV: 30/40 Cuén 38.5: 30/40 Cuén 6.6: 18/24 - Tỉn hao cã t¶i (kW): Pk (115 - 38.5) : 183.199 Pk (115 - 6.6) : 190.092 Pk (38.5 - 6.6) : 62.909 - Điện áp ngắn mạch (%) Uk (115 - 38.5) : 10.709 Uk (115 - 6.6) : 17.9 Uk (38.5 - 6.6) : 6.1 - Tæn hao không tải: Po (kW): 28.9 - Dòng không tải: Io (%): 0.22 - Nấc điều chỉnh điện áp 115 kV: Máy biến áp T2 có 19 nấc điều chỉnh tăng giảm áp, nấc kV Máy biến áp 3AT 4AT Tên nhÃn hiệu: SDN 6444 - Điện áp lớn (kV): 245/123/24 - Dòng ngắn mạch: 800 A -9 - - Dòng định mức: ONAN: 410.6/803.3/1365.6 ONAS: 526.0/1029.2/1749.6 OSAS: 641.5/1255.1/2133.7 - Điện áp định mức: ONAN: 225/115/23 ONAS: 23/23/23 - Công suất định mức (MVA): ONAN: 164000/54400 ONAS: 205000/69700 OSAS: 250000/85000 - Dòng ngắn mạch định mức: ONAN: kA thêi gian tr× 2s ONAS: 1.9 kA thêi gian tr× 2s OSAS: 6.2 kA thêi gian trì 2s 1.4.1.2 Các thiết bị phân phối trời 1.4.1.2.1 Máy cắt Máy cắt loại: SI - 245 F3 Máy cắt loại SI - 245 F3 MC SF6 chế tạo cho điện áp định mức 245 kV Máy cắt dùng khí SF6 để cách điện dập hồ quang Buồng dập hồ quang kiểu ngăn Máy cắt có mạch đóng, mạch cắt gồm cuộn cắt làm việc song song - Thông số kỹ thuật: TT Thông số Đơn vị Số liệu Điện áp định mức kV 245 Tần số định mức Hz 50/60 Dòng điện định mức A 3150 Dòng cắt định mức kA 40 Máy cắt điện lo¹i: S1-145-F1 -10 - Form5.Text1.Text = "mat dien" Form5.Text2.Text = "mat dien" Form5.Text3.Text = "mat dien" Form5.Text4.Text = "mat dien" Form5.Text5.Text = "mat dien" Form5.Text6.Text = "mat dien" End If If (Form5.cmd272.BackColor = RGB(255, 0, 0) And Form5.cmd2727.BackColor = RGB(255, 0, 0) And Form5.cmd2729.BackColor = RGB(255, 0, 0)) Or (Form4.cmd273.BackColor = RGB(255, 0, 0) And Form4.cmd2737.BackColor = RGB(255, 0, 0) And Form4.cmd2739.BackColor = RGB(255, 0, 0)) Or (Form4.cmd277.BackColor = RGB(255, 0, 0) And Form4.cmd2777.BackColor = RGB(255, 0, 0) And Form4.cmd2779.BackColor = RGB(255, 0, 0)) Then Form4.c29.BorderColor = RGB(255, 0, 0) Form5.c29.BorderColor = RGB(255, 0, 0) Else: Form4.c29.BorderColor = RGB(0, 0, 0) Form5.c29.BorderColor = RGB(0, 0, 0) End If End Sub Private Sub cmd275_Click() /máy cắt 275 message = " Ban muon dong may cat hay khong ? " & vbCrLf & " dong: yes no" dialogtype = mb_yesno + mb_iconquestion title = "may cat 275" response = MsgBox(message, dialogtype, title) Select Case response Case idyes MsgBox "dong may cat 275 ! " cmd275.BackColor = RGB(255, 0, 0) Case idno MsgBox " may cat da ngat " cmd275.BackColor = RGB(0, 255, 0) End Select cat: If (cmd275.BackColor = RGB(255, 0, 0) And cmd2757.BackColor = RGB(255, 0, 0) And cmd2751.BackColor = RGB(255, 0, 0) And c21.BorderColor = RGB(255, 0, 0)) Or (cmd275.BackColor = RGB(255, 0, 0) And cmd2757.BackColor = RGB(255, 0, 0) And cmd2752.BackColor = RGB(255, 0, 0) And c22.BorderColor = RGB(255, 0, 0)) Or (cmd275.BackColor = RGB(255, 0, 0) And cmd2757.BackColor = RGB(255, 0, 0) And cmd2759.BackColor = RGB(255, 0, 0) And c29.BorderColor = RGB(255, 0, 0)) Then Text2.Text = " co dien " Else Text2.Text = "mat dien" End If End Sub -105 - Private Sub cmd200_Click() / máy cắt vßng 273 message = " Ban muon dong may cat hay khong ? " & vbCrLf & " dong: yes no" dialogtype = mb_yesno + mb_iconquestion title = "may cat 200" response = MsgBox(message, dialogtype, title) Select Case response Case idyes MsgBox "dong may cat vong 200 ! " cmd200.BackColor = RGB(255, 0, 0) Case idno MsgBox " may cat da ngat " cmd200.BackColor = RGB(0, 255, 0) End Select cat: If cmd200.BackColor = RGB(255, 0, 0) And cmd2009.BackColor = RGB(255, 0, 0) And cmd2001.BackColor = RGB(255, 0, 0) And (cmd2739.BackColor = RGB(255, 0, 0) Or cmd2779.BackColor = RGB(255, 0, 0) Or Form5.cmd2729.BackColor = RGB(255, 0, 0)) Then If cmd2739.BackColor = RGB(255, 0, 0) Then Form4.Text3.Text = "co dien" End If If cmd2779.BackColor = RGB(255, 0, 0) Then Form4.Text1.Text = "co dien" End If If Form5.cmd2729.BackColor = RGB(255, 0, 0) Then Form5.Text3.Text = "co dien" End If Form4.c21.BorderColor = RGB(255, 0, 0) Form5.c21.BorderColor = RGB(255, 0, 0) ElseIf cmd200.BackColor = RGB(255, 0, 0) And cmd2009.BackColor = RGB(255, 0, 0) And cmd2002.BackColor = RGB(255, 0, 0) And (cmd2739.BackColor = RGB(255, 0, 0) Or cmd2779.BackColor = RGB(255, 0, 0) Or Form5.cmd2729.BackColor = RGB(255, 0, 0)) Then If cmd2739.BackColor = RGB(255, 0, 0) Then Form4.Text3.Text = "co dien" End If If cmd2779.BackColor = RGB(255, 0, 0) Then Form4.Text1.Text = "co dien" End If If Form5.cmd2729.BackColor = RGB(255, 0, 0) Then Form5.Text3.Text = "co dien" End If -106 - Form4.c22.BorderColor = RGB(255, 0, 0) Form5.c22.BorderColor = RGB(255, 0, 0) End If If cmd200.BackColor = RGB(0, 255, 0) And cmd273.BackColor = RGB(0, 255, 0) Then Text3.Text = "mat dien" End If If cmd200.BackColor = RGB(0, 255, 0) And cmd277.BackColor = RGB(0, 255, 0) Then Text1.Text = "mat dien" End If If cmd200.BackColor = RGB(0, 255, 0) And Form5.cmd272.BackColor = RGB(0, 255, 0) Then Form5.Text3.Text = "mat dien" End If If cmd200.BackColor = RGB(0, 255, 0) And cmd273.BackColor = RGB(0, 255, 0) And cmd277.BackColor = RGB(0, 255, 0) Then Form4.c21.BorderColor = RGB(0, 0, 0) Form5.c21.BorderColor = RGB(0, 0, 0) End If If cmd200.BackColor = RGB(0, 255, 0) And Form5.cmd272.BackColor = RGB(0, 255, 0) Then Form4.c22.BorderColor = RGB(0, 0, 0) Form5.c22.BorderColor = RGB(0, 0, 0) End If If cmd200.BackColor = RGB(255, 0, 0) And cmd2009.BackColor = RGB(255, 0, 0) And cmd2719.BackColor = RGB(255, 0, 0) And ((cmd2001.BackColor = RGB(255, 0, 0) And c21.BorderColor = RGB(255, 0, 0)) Or (cmd2002.BackColor = RGB(255, 0, 0) And c22.BorderColor = RGB(255, 0, 0))) Or (cmd271.BackColor = RGB(255, 0, 0) And cmd2717.BackColor = RGB(255, 0, 0) And cmd2711.BackColor = RGB(255, 0, 0) And c21.BorderColor = RGB(255, 0, 0)) Or (cmd271.BackColor = RGB(255, 0, 0) And cmd2717.BackColor = RGB(255, 0, 0) And cmd2712.BackColor = RGB(255, 0, 0) And c22.BorderColor = RGB(255, 0, 0)) Or (cmd271.BackColor = RGB(255, 0, 0) And cmd2717.BackColor = RGB(255, 0, 0) And cmd2719.BackColor = RGB(255, 0, 0) And c29.BorderColor = RGB(255, 0, 0)) Then Text4.Text = "co dien" ElseIf cmd200.BackColor = RGB(0, 255, 0) And cmd271.BackColor = RGB(0, 255, 0) Or c21.BorderColor = RGB(0, 0, 0) Then Text4.Text = "mat dien" End If If cmd200.BackColor = RGB(255, 0, 0) And cmd2009.BackColor = RGB(255, 0, 0) And cmd2759.BackColor = RGB(255, 0, 0) And ((cmd2001.BackColor = RGB(255, 0, 0) And c21.BorderColor = RGB(255, 0, 0)) Or (cmd2002.BackColor = RGB(255, 0, 0) And c22.BorderColor = RGB(255, 0, 0))) Or (cmd275.BackColor = RGB(255, 0, 0) And cmd2757.BackColor = RGB(255, 0, 0) And cmd2751.BackColor = RGB(255, 0, 0) And c21.BorderColor = RGB(255, 0, 0)) Or (cmd275.BackColor = RGB(255, 0, 0) And cmd2757.BackColor = RGB(255, 0, 0) And cmd2752.BackColor = RGB(255, 0, 0) And c22.BorderColor = RGB(255, 0, 0)) Or (cmd275.BackColor = RGB(255, 0, 0) And -107 - cmd2757.BackColor = RGB(255, 0, 0) And cmd2759.BackColor = RGB(255, 0, 0) And c29.BorderColor = RGB(255, 0, 0)) Then Text2.Text = "co dien" ElseIf cmd200.BackColor = RGB(0, 255, 0) And cmd275.BackColor = RGB(0, 255, 0) Or c21.BorderColor = RGB(0, 0, 0) Then Text2.Text = "mat dien" End If If cmd200.BackColor = RGB(255, 0, 0) And cmd2009.BackColor = RGB(255, 0, 0) And Form5.cmd2749.BackColor = RGB(255, 0, 0) And ((cmd2001.BackColor = RGB(255, 0, 0) And c21.BorderColor = RGB(255, 0, 0)) Or (cmd2002.BackColor = RGB(255, 0, 0) And c22.BorderColor = RGB(255, 0, 0))) Or (Form5.cmd274.BackColor = RGB(255, 0, 0) And Form5.cmd2747.BackColor = RGB(255, 0, 0) And Form5.cmd2741.BackColor = RGB(255, 0, 0) And Form5.c21.BorderColor = RGB(255, 0, 0)) Or (Form5.cmd274.BackColor = RGB(255, 0, 0) And Form5.cmd2747.BackColor = RGB(255, 0, 0) And Form5.cmd2742.BackColor = RGB(255, 0, 0) And Form5.c22.BorderColor = RGB(255, 0, 0)) Or (Form5.cmd274.BackColor = RGB(255, 0, 0) And Form5.cmd2747.BackColor = RGB(255, 0, 0) And Form5.cmd2749.BackColor = RGB(255, 0, 0) And Form5.c29.BorderColor = RGB(255, 0, 0)) Then Form5.Text2.Text = "co dien" ElseIf cmd200.BackColor = RGB(0, 255, 0) And Form5.cmd274.BackColor = RGB(0, 255, 0) Or Form5.c22.BorderColor = RGB(0, 0, 0) Then Form5.Text2.Text = "mat dien" End If If cmd200.BackColor = RGB(255, 0, 0) And cmd2009.BackColor = RGB(255, 0, 0) And Form5.cmd2769.BackColor = RGB(255, 0, 0) And ((cmd2001.BackColor = RGB(255, 0, 0) And c21.BorderColor = RGB(255, 0, 0)) Or (cmd2002.BackColor = RGB(255, 0, 0) And c22.BorderColor = RGB(255, 0, 0))) Or (Form5.cmd276.BackColor = RGB(255, 0, 0) And Form5.cmd2767.BackColor = RGB(255, 0, 0) And Form5.cmd2761.BackColor = RGB(255, 0, 0) And Form5.c21.BorderColor = RGB(255, 0, 0)) Or (Form5.cmd276.BackColor = RGB(255, 0, 0) And Form5.cmd2767.BackColor = RGB(255, 0, 0) And Form5.cmd2762.BackColor = RGB(255, 0, 0) And Form5.c22.BorderColor = RGB(255, 0, 0)) Or (Form5.cmd276.BackColor = RGB(255, 0, 0) And Form5.cmd2767.BackColor = RGB(255, 0, 0) And Form5.cmd2769.BackColor = RGB(255, 0, 0) And Form5.c29.BorderColor = RGB(255, 0, 0)) Then Form5.Text1.Text = "co dien" ElseIf cmd200.BackColor = RGB(0, 255, 0) And Form5.cmd276.BackColor = RGB(0, 255, 0) Or Form5.c22.BorderColor = RGB(0, 0, 0) Then Form5.Text1.Text = "mat dien" End If If cmd200.BackColor = RGB(255, 0, 0) And cmd2009.BackColor = RGB(255, 0, 0) And Form4.cmd2339.BackColor = RGB(255, 0, 0) And ((cmd2001.BackColor = RGB(255, 0, 0) And c21.BorderColor = RGB(255, 0, 0)) Or (cmd2002.BackColor = RGB(255, 0, 0) And c22.BorderColor = RGB(255, 0, 0))) Or (Form4.cmd233.BackColor = RGB(255, 0, 0) And Form4.cmd2333.BackColor = RGB(255, 0, 0) And Form4.cmd2331.BackColor = RGB(255, 0, 0) And c21.BorderColor = RGB(255, 0, 0)) Or (Form4.cmd233.BackColor = RGB(255, 0, 0) And Form4.cmd2333.BackColor = RGB(255, 0, 0) And Form4.cmd2332.BackColor = RGB(255, 0, 0) And c22.BorderColor = RGB(255, 0, 0)) Then -108 - Form4.cmdmba3.BackColor = RGB(255, 0, 0) ElseIf cmd200.BackColor = RGB(0, 255, 0) And Form4.cmd233.BackColor = RGB(0, 255, 0) Then Form4.cmdmba3.BackColor = RGB(0, 255, 0) Text5.Text = " mat dien " Text6.Text = " mat dien " cmd443.BackColor = RGB(0, 255, 0) Form1.cmd133.BackColor = RGB(0, 255, 0) End If If cmd200.BackColor = RGB(255, 0, 0) And cmd2009.BackColor = RGB(255, 0, 0) And Form5.cmd2349.BackColor = RGB(255, 0, 0) And ((cmd2001.BackColor = RGB(255, 0, 0) And c21.BorderColor = RGB(255, 0, 0)) Or (cmd2002.BackColor = RGB(255, 0, 0) And c22.BorderColor = RGB(255, 0, 0))) Or (Form5.cmd234.BackColor = RGB(255, 0, 0) And Form5.cmd2343.BackColor = RGB(255, 0, 0) And Form5.cmd2341.BackColor = RGB(255, 0, 0) And c21.BorderColor = RGB(255, 0, 0)) Or (Form5.cmd234.BackColor = RGB(255, 0, 0) And Form5.cmd2343.BackColor = RGB(255, 0, 0) And Form5.cmd2342.BackColor = RGB(255, 0, 0) And c22.BorderColor = RGB(255, 0, 0)) Then Form5.cmdmba4.BackColor = RGB(255, 0, 0) ElseIf cmd200.BackColor = RGB(0, 255, 0) And Form5.cmd234.BackColor = RGB(0, 255, 0) Then Form5.cmdmba4.BackColor = RGB(0, 255, 0) Form5.Text5.Text = " mat dien " Form5.Text6.Text = " mat dien " Form5.cmd444.BackColor = RGB(0, 255, 0) Form3.cmd134.BackColor = RGB(0, 255, 0) End If End Sub Private Sub cmd233_Click() / máy cắt 233 message = " Ban muon dong may cat hay khong ? " & vbCrLf & " dong: yes cat: no" dialogtype = mb_yesno + mb_iconquestion title = "may cat 233" response = MsgBox(message, dialogtype, title) Select Case response Case idyes If (cmd2333.BackColor = RGB(255, 0, 0) And cmd2331.BackColor = RGB(255, 0, 0) And c21.BorderColor = RGB(255, 0, 0)) Or (cmd2333.BackColor = RGB(255, 0, 0) And cmd2332.BackColor = RGB(255, 0, 0) And c22.BorderColor = RGB(255, 0, 0)) Or (cmd2333.BackColor = RGB(255, 0, 0) And cmd2339.BackColor = RGB(255, 0, 0) And c29.BorderColor = RGB(255, 0, 0)) Then MsgBox "dong may cat 233 ,cap dien cho may bien ap 3! " cmd233.BackColor = RGB(255, 0, 0) cmdmba3.BackColor = RGB(255, 0, 0) Text6.Text = " co dien " Else MsgBox " may bien ap chua duoc cap dien , ban can xem lai may cat 233 va cac dao cach ly " -109 - cmdmba3.BackColor = RGB(0, 255, 0) Text5.Text = " mat dien " Text6.Text = " mat dien " cmd443.BackColor = RGB(0, 255, 0) cmd233.BackColor = RGB(0, 255, 0) Form1.cmd133.BackColor = RGB(0, 255, 0) Form1.c11.BorderColor = RGB(0, 0, 0) Form3.c11.BorderColor = RGB(0, 0, 0) Form1.Command1.BackColor = RGB(0, 255, 0) Form1.Text1.Text = " mat dien " Form1.Text2.Text = " mat dien " Form1.Text3.Text = " mat dien " Form1.Text4.Text = " mat dien " Form1.Text5.Text = " mat dien " Form1.Text6.Text = " mat dien " Form1.Text9.Text = " mat dien " Form1.Text11.Text = " mat dien " Form1.Text12.Text = " mat dien " Form3.Text1.Text = " mat dien " Form3.Text2.Text = " mat dien " Form3.Text3.Text = " mat dien " Form3.Text4.Text = " mat dien " Form3.cmd172.BackColor = RGB(0, 255, 0) Form3.cmd174.BackColor = RGB(0, 255, 0) Form3.cmd176.BackColor = RGB(0, 255, 0) Form3.cmd178.BackColor = RGB(0, 255, 0) Form1.cmd171.BackColor = RGB(0, 255, 0) Form1.cmd173.BackColor = RGB(0, 255, 0) Form1.cmd175.BackColor = RGB(0, 255, 0) Form1.cmd177.BackColor = RGB(0, 255, 0) Form1.cmd131.BackColor = RGB(0, 255, 0) Form1.cmd331.BackColor = RGB(0, 255, 0) Form1.cmd371.BackColor = RGB(0, 255, 0) Form1.cmd373.BackColor = RGB(0, 255, 0) Form1.cmd375.BackColor = RGB(0, 255, 0) Form1.cmd441.BackColor = RGB(0, 255, 0) Form1.cmd442.BackColor = RGB(0, 255, 0) End If Case idno MsgBox " may cat da ngat , may bien ap mat dien " cmdmba3.BackColor = RGB(0, 255, 0) Text5.Text = " mat dien " Text6.Text = " mat dien " cmd233.BackColor = RGB(0, 255, 0) cmd443.BackColor = RGB(0, 255, 0) Form1.cmd133.BackColor = RGB(0, 255, 0) Form1.c11.BorderColor = RGB(0, 0, 0) Form3.c11.BorderColor = RGB(0, 0, 0) Form1.Command1.BackColor = RGB(0, 255, 0) Form1.Text1.Text = " mat dien " -110 - Form1.Text2.Text = " mat dien " Form1.Text3.Text = " mat dien " Form1.Text4.Text = " mat dien " Form1.Text5.Text = " mat dien " Form1.Text6.Text = " mat dien " Form1.Text9.Text = " mat dien " Form1.Text11.Text = " mat dien " Form1.Text12.Text = " mat dien " Form3.Text1.Text = " mat dien " Form3.Text2.Text = " mat dien " Form3.Text3.Text = " mat dien " Form3.Text4.Text = " mat dien " Form3.cmd172.BackColor = RGB(0, 255, 0) Form3.cmd174.BackColor = RGB(0, 255, 0) Form3.cmd176.BackColor = RGB(0, 255, 0) Form3.cmd178.BackColor = RGB(0, 255, 0) Form1.cmd171.BackColor = RGB(0, 255, 0) Form1.cmd173.BackColor = RGB(0, 255, 0) Form1.cmd175.BackColor = RGB(0, 255, 0) Form1.cmd177.BackColor = RGB(0, 255, 0) Form1.cmd131.BackColor = RGB(0, 255, 0) Form1.cmd331.BackColor = RGB(0, 255, 0) Form1.cmd371.BackColor = RGB(0, 255, 0) Form1.cmd373.BackColor = RGB(0, 255, 0) Form1.cmd375.BackColor = RGB(0, 255, 0) Form1.cmd441.BackColor = RGB(0, 255, 0) Form1.cmd442.BackColor = RGB(0, 255, 0) End Select End Sub M· nguån điều khiển tăng/giảm nấc máy biến áp (MBA 4AT) Private Sub cmd272_Click() / máy cắt 272 message = " Ban muon dong may cat hay khong ? " & vbCrLf & " dong: yes cat: no" dialogtype = mb_yesno + mb_iconquestion title = "may cat 272" response = MsgBox(message, dialogtype, title) Select Case response Case idyes MsgBox "dong may cat 272 ! " cmd272.BackColor = RGB(255, 0, 0) If cmd2727.BackColor = RGB(255, 0, 0) And (cmd2721.BackColor = RGB(255, 0, 0) Or cmd2722.BackColor = RGB(255, 0, 0) Or cmd2729.BackColor = RGB(255, 0, 0)) Then Text3.Text = "cap dien" End If Case idno MsgBox " may cat da ngat " cmd272.BackColor = RGB(0, 255, 0) -111 - Text3.Text = "mat dien" End Select If (Form5.cmd272.BackColor = RGB(255, 0, 0) And Form5.cmd2727.BackColor = RGB(255, 0, 0) And Form5.cmd2721.BackColor = RGB(255, 0, 0)) Or (Form4.cmd273.BackColor = RGB(255, 0, 0) And Form4.cmd2737.BackColor = RGB(255, 0, 0) And Form4.cmd2731.BackColor = RGB(255, 0, 0)) Or (Form4.cmd277.BackColor = RGB(255, 0, 0) And Form4.cmd2777.BackColor = RGB(255, 0, 0) And Form4.cmd2771.BackColor = RGB(255, 0, 0)) Then Form4.c21.BorderColor = RGB(255, 0, 0) Form5.c21.BorderColor = RGB(255, 0, 0) Else: Form4.c21.BorderColor = RGB(0, 0, 0) Form5.c21.BorderColor = RGB(0, 0, 0) Form4.cmdmba3.BackColor = RGB(0, 255, 0) Form4.Text1.Text = "mat dien" Form4.Text2.Text = "mat dien" Form4.Text3.Text = "mat dien" Form4.Text4.Text = "mat dien" Form4.Text5.Text = "mat dien" Form4.Text6.Text = "mat dien" End If If (Form5.cmd272.BackColor = RGB(255, 0, 0) And Form5.cmd2727.BackColor = RGB(255, 0, 0) And Form5.cmd2722.BackColor = RGB(255, 0, 0)) Or (Form4.cmd273.BackColor = RGB(255, 0, 0) And Form4.cmd2737.BackColor = RGB(255, 0, 0) And Form4.cmd2732.BackColor = RGB(255, 0, 0)) Or (Form4.cmd277.BackColor = RGB(255, 0, 0) And Form4.cmd2777.BackColor = RGB(255, 0, 0) And Form4.cmd2772.BackColor = RGB(255, 0, 0)) Then Form4.c22.BorderColor = RGB(255, 0, 0) Form5.c22.BorderColor = RGB(255, 0, 0) Else: Form4.c22.BorderColor = RGB(0, 0, 0) Form5.c22.BorderColor = RGB(0, 0, 0) Form5.cmdmba4.BackColor = RGB(0, 255, 0) Form5.Text1.Text = "mat dien" Form5.Text2.Text = "mat dien" Form5.Text3.Text = "mat dien" Form5.Text4.Text = "mat dien" Form5.Text5.Text = "mat dien" Form5.Text6.Text = "mat dien" End If If (Form5.cmd272.BackColor = RGB(255, 0, 0) And Form5.cmd2727.BackColor = RGB(255, 0, 0) And Form5.cmd2729.BackColor = RGB(255, 0, 0)) Or (Form4.cmd273.BackColor = RGB(255, 0, 0) And Form4.cmd2737.BackColor = RGB(255, 0, 0) And Form4.cmd2739.BackColor = RGB(255, 0, 0)) Or (Form4.cmd277.BackColor = RGB(255, 0, 0) And Form4.cmd2777.BackColor = RGB(255, 0, 0) And Form4.cmd2779.BackColor = RGB(255, 0, 0)) Then -112 - Form4.c29.BorderColor = RGB(255, 0, 0) Form5.c29.BorderColor = RGB(255, 0, 0) Else: Form4.c29.BorderColor = RGB(0, 0, 0) Form5.c29.BorderColor = RGB(0, 0, 0) End If End Sub Private Sub cmd234_Click() / máy cắt 234 message = " Ban muon dong may cat hay khong ? " & vbCrLf & " dong: yes cat: no" dialogtype = mb_yesno + mb_iconquestion title = "may cat 234" response = MsgBox(message, dialogtype, title) Select Case response Case idyes If (cmd2343.BackColor = RGB(255, 0, 0) And cmd2341.BackColor = RGB(255, 0, 0) And c21.BorderColor = RGB(255, 0, 0)) Or (cmd2343.BackColor = RGB(255, 0, 0) And cmd2342.BackColor = RGB(255, 0, 0) And c22.BorderColor = RGB(255, 0, 0)) Or (cmd2343.BackColor = RGB(255, 0, 0) And cmd2349.BackColor = RGB(255, 0, 0) And c29.BorderColor = RGB(255, 0, 0)) Then MsgBox "dong may cat 234 ,cap dien cho may bien ap 3! " cmd234.BackColor = RGB(255, 0, 0) cmdmba4.BackColor = RGB(255, 0, 0) Text6.Text = " co dien " Else MsgBox " may bien ap chua duoc cap dien , ban can xem lai may cat 234 va cac dao cach ly " cmdmba4.BackColor = RGB(0, 255, 0) Text5.Text = " mat dien " Text6.Text = " mat dien " cmd444.BackColor = RGB(0, 255, 0) cmd234.BackColor = RGB(0, 255, 0) Form3.cmd134.BackColor = RGB(0, 255, 0) Form3.c12.BorderColor = RGB(0, 0, 0) Form1.c12.BorderColor = RGB(0, 0, 0) Form3.cmdmba2.BackColor = RGB(0, 255, 0) Form3.Text1.Text = " mat dien " Form3.Text2.Text = " mat dien " Form3.Text3.Text = " mat dien " Form3.Text4.Text = " mat dien " Form3.Text5.Text = " mat dien " Form3.Text6.Text = " mat dien " Form3.Text7.Text = " mat dien " Form3.Text9.Text = " mat dien " Form3.Text10.Text = " mat dien " Form3.Text11.Text = " mat dien " Form1.Text1.Text = " mat dien " Form1.Text9.Text = " mat dien " -113 - Form1.Text12.Text = " mat dien " Form1.Text11.Text = " mat dien " Form1.cmd171.BackColor = RGB(0, 255, 0) Form1.cmd173.BackColor = RGB(0, 255, 0) Form1.cmd175.BackColor = RGB(0, 255, 0) Form1.cmd177.BackColor = RGB(0, 255, 0) Form3.cmd172.BackColor = RGB(0, 255, 0) Form3.cmd174.BackColor = RGB(0, 255, 0) Form3.cmd176.BackColor = RGB(0, 255, 0) Form3.cmd178.BackColor = RGB(0, 255, 0) Form3.cmd132.BackColor = RGB(0, 255, 0) Form3.cmd332.BackColor = RGB(0, 255, 0) Form3.cmd372.BackColor = RGB(0, 255, 0) Form3.cmd374.BackColor = RGB(0, 255, 0) Form3.cmd376.BackColor = RGB(0, 255, 0) Form3.cmd671.BackColor = RGB(0, 255, 0) Form3.cmd672.BackColor = RGB(0, 255, 0) Form3.cmd673.BackColor = RGB(0, 255, 0) Form3.cmd674.BackColor = RGB(0, 255, 0) End If Case idno MsgBox " may cat da ngat , may bien ap mat dien " cmdmba4.BackColor = RGB(0, 255, 0) Text5.Text = " mat dien " Text6.Text = " mat dien " cmd234.BackColor = RGB(0, 255, 0) cmd444.BackColor = RGB(0, 255, 0) Form3.cmd134.BackColor = RGB(0, 255, 0) Form3.c12.BorderColor = RGB(0, 0, 0) Form1.c12.BorderColor = RGB(0, 0, 0) Form3.cmdmba2.BackColor = RGB(0, 255, 0) Form3.Text1.Text = " mat dien " Form3.Text2.Text = " mat dien " Form3.Text3.Text = " mat dien " Form3.Text4.Text = " mat dien " Form3.Text5.Text = " mat dien " Form3.Text6.Text = " mat dien " Form3.Text7.Text = " mat dien " Form3.Text9.Text = " mat dien " Form3.Text10.Text = " mat dien " Form3.Text11.Text = " mat dien " Form1.Text1.Text = " mat dien " Form1.Text9.Text = " mat dien " Form1.Text12.Text = " mat dien " Form1.Text11.Text = " mat dien " Form1.cmd171.BackColor = RGB(0, 255, 0) Form1.cmd173.BackColor = RGB(0, 255, 0) Form1.cmd175.BackColor = RGB(0, 255, 0) Form1.cmd177.BackColor = RGB(0, 255, 0) -114 - Form3.cmd172.BackColor = RGB(0, 255, 0) Form3.cmd174.BackColor = RGB(0, 255, 0) Form3.cmd176.BackColor = RGB(0, 255, 0) Form3.cmd178.BackColor = RGB(0, 255, 0) Form3.cmd132.BackColor = RGB(0, 255, 0) Form3.cmd332.BackColor = RGB(0, 255, 0) Form3.cmd372.BackColor = RGB(0, 255, 0) Form3.cmd374.BackColor = RGB(0, 255, 0) Form3.cmd376.BackColor = RGB(0, 255, 0) Form3.cmd671.BackColor = RGB(0, 255, 0) Form3.cmd672.BackColor = RGB(0, 255, 0) Form3.cmd673.BackColor = RGB(0, 255, 0) Form3.cmd674.BackColor = RGB(0, 255, 0) End Select End Sub Private Sub cmd274_Click() / máy cắt 274 message = " Ban muon dong may cat hay khong ? " & vbCrLf & " dong: yes no" dialogtype = mb_yesno + mb_iconquestion title = "may cat 274" response = MsgBox(message, dialogtype, title) Select Case response Case idyes MsgBox "dong may cat 274 ! " cmd274.BackColor = RGB(255, 0, 0) Case idno MsgBox " may cat da ngat " cmd274.BackColor = RGB(0, 255, 0) End Select cat: If (cmd274.BackColor = RGB(255, 0, 0) And cmd2747.BackColor = RGB(255, 0, 0) And cmd2741.BackColor = RGB(255, 0, 0) And c21.BorderColor = RGB(255, 0, 0)) Or (cmd274.BackColor = RGB(255, 0, 0) And cmd2747.BackColor = RGB(255, 0, 0) And cmd2742.BackColor = RGB(255, 0, 0) And c22.BorderColor = RGB(255, 0, 0)) Or (cmd274.BackColor = RGB(255, 0, 0) And cmd2747.BackColor = RGB(255, 0, 0) And cmd2749.BackColor = RGB(255, 0, 0) And c29.BorderColor = RGB(255, 0, 0)) Then Text2.Text = " co dien " Else Text2.Text = "mat dien" End If End Sub Mà nguồn điều khiển trạng thái máy cắt Private Sub mnumc_Click() / nút ấn trạng thái máy cắt Form7.Show Form1.Enabled = False Form3.Enabled = False Form7.cmd100.BackColor = Form1.cmd100.BackColor -115 - Form7.cmd112.BackColor = Form1.cmd112.BackColor Form7.cmd131.BackColor = Form1.cmd131.BackColor Form7.cmd171.BackColor = Form1.cmd171.BackColor Form7.cmd173.BackColor = Form1.cmd173.BackColor Form7.cmd175.BackColor = Form1.cmd175.BackColor Form7.cmd177.BackColor = Form1.cmd177.BackColor Form7.cmd331.BackColor = Form1.cmd331.BackColor Form7.cmd371.BackColor = Form1.cmd371.BackColor Form7.cmd373.BackColor = Form1.cmd373.BackColor Form7.cmd375.BackColor = Form1.cmd375.BackColor Form7.cmd441.BackColor = Form1.cmd441.BackColor Form7.cmd442.BackColor = Form1.cmd442.BackColor Form7.cmd133.BackColor = Form1.cmd133.BackColor Form7.cmd132.BackColor = Form3.cmd132.BackColor Form7.cmd172.BackColor = Form3.cmd172.BackColor Form7.cmd174.BackColor = Form3.cmd174.BackColor Form7.cmd176.BackColor = Form3.cmd176.BackColor Form7.cmd178.BackColor = Form3.cmd178.BackColor Form7.cmd332.BackColor = Form3.cmd332.BackColor Form7.cmd372.BackColor = Form3.cmd372.BackColor Form7.cmd374.BackColor = Form3.cmd374.BackColor Form7.cmd376.BackColor = Form3.cmd376.BackColor Form7.cmd632.BackColor = Form3.cmd632.BackColor Form7.cmd671.BackColor = Form3.cmd671.BackColor Form7.cmd672.BackColor = Form3.cmd672.BackColor Form7.cmd673.BackColor = Form3.cmd673.BackColor Form7.cmd674.BackColor = Form3.cmd674.BackColor Form7.cmd134.BackColor = Form3.cmd134.BackColor Form7.cmd233.BackColor = Form4.cmd233.BackColor Form7.cmd212.BackColor = Form4.cmd212.BackColor Form7.cmd200.BackColor = Form4.cmd200.BackColor Form7.cmd271.BackColor = Form4.cmd271.BackColor Form7.cmd273.BackColor = Form4.cmd273.BackColor Form7.cmd275.BackColor = Form4.cmd275.BackColor Form7.cmd277.BackColor = Form4.cmd277.BackColor Form7.cmd234.BackColor = Form5.cmd234.BackColor Form7.cmd272.BackColor = Form5.cmd272.BackColor Form7.cmd274.BackColor = Form5.cmd274.BackColor Form7.cmd276.BackColor = Form5.cmd276.BackColor Form7.cmd443.BackColor = Form4.cmd443.BackColor Form7.cmd444.BackColor = Form5.cmd444.BackColor End Sub M· nguồn điều khiển hiển thị tạng thái máy cắt dao cách ly t-ơng ứng Private Sub cmd233_Click() / ví dụ cho máy cắt 233 Form33.Show Form7.Enabled = False If Form4.cmd233.BackColor = RGB(255, 0, 0) Then -116 - Form33.Text1.Text = " dong " Else: Form4.cmd233.BackColor = RGB(0, 255, 0) Form33.Text1.Text = "cat" End If If Form4.cmd2331.BackColor = RGB(255, 0, 0) Then Form33.Text2.Text = " dong " Else: Form4.cmd2331.BackColor = RGB(0, 255, 0) Form33.Text2.Text = "cat" End If If Form4.cmd2332.BackColor = RGB(255, 0, 0) Then Form33.Text3.Text = " dong " Else: Form4.cmd2332.BackColor = RGB(0, 255, 0) Form33.Text3.Text = "cat" End If If Form4.cmd2333.BackColor = RGB(255, 0, 0) Then Form33.Text4.Text = " dong " Else: Form4.cmd2333.BackColor = RGB(0, 255, 0) Form33.Text4.Text = "cat" End If If Form4.cmd2339.BackColor = RGB(255, 0, 0) Then Form33.Text5.Text = " dong " Else: Form4.cmd2339.BackColor = RGB(0, 255, 0) Form33.Text5.Text = "cat" End If End Sub -117 - Tài liệu tham khảo Phần tử tự động hệ thống điện PTS Nguyễn Hồng Thái Tự động hoá với Simatic S7-300 Nguyễn DoÃn Ph-ớc, Phan Xuân Minh, Vũ Văn Hà Nhà xuất khoa học kỹ thuật 2002 Mạng truyền thông công nghiệp Hoàng Minh Sơn Nhà xuất khoa hoc kỹ thuật 2006 Hệ thống truyền thông công nghiệp ThS Bùi Đăng Thạnh Hệ thống điều khiển phân tán TS Hoàng Minh Sơn -118 - -119 - ... định Hệ thống điện toàn quốc 1.2 Tìm hiểu chung thiết bị điện trạm biến áp 1.2.1 Máy biến áp -3 - Máy biến áp thiết bị điện từ đứng yên, làm nguyên lý cảm ứng điện từ, biến đổi hệ thống dòng điện. .. điện áp thứ cấp TU (100V, 110V, 120V) với đầu vào pha áp (A, B) Ch-ơng Tìm hiểu thiết bị điều khiển logic khả trình -34 - 3.1 Khái niệm thiết bị điều khiển logic khả trình (PLC) Thiết bị điều khiển. .. trời Điện áp định mức kV 225 Máy biến điện áp DDB-123, 245 kV Máy biến điện áp kiểu loại DDB biến điện áp cao áp kiểu tụ hÃng ARTECHE (Tây Ban Nha) sản xuất Việc biến đổi máy biến điện áp cao áp