ĐẠI HỌC THÁI NGUYÊN TRƯỜNG ĐẠI HỌC CÔNG NGHỆ THÔNG TIN VÀ TRUYỀN THÔNG ––––––––––––––––––––––––– PHẠM NGỌC PHƯƠNG NGHIÊN CỨU VÀ XÂY DỰNG HỆ THỐNG GIÁM SÁT MÔI TRƯỜNG TẠI CÁC TRUNG TÂM TÍCH HỢP DỮ LIỆU Chuyên ngành: Khoa học máy tính Mã số: 60 48 01 LUẬN VĂN THẠC SĨ KHOA HỌC MÁY TÍNH Người hướng dẫn khoa học: PGS TS Nguyễn Văn Tam THÁI NGUYÊN - 2013 LỜI CAM ĐOAN Tôi xin cam đoan luận văn thực hoàn thành sở tìm kiếm, thu thập, nghiên cứu, tổng hợp phần lý thuyết phương pháp kĩ thuật trình bày văn nước giới Mọi tài liệu tham khảo nêu phần cuối luận văn Luận văn hoàn toàn không chép nguyên từ nguồn tài liệu khác Nếu có sai sót, xin chịu trách nhiệm./ HỌC VIÊN Phạm Ngọc Phương i MỤC LỤC PHỤ LỤC 61 ii BẢNG CÁC THUẬT NGỮ TIẾNG VIỆT VÀ TỪ VIẾT TẮT STT Định nghĩa/Từ viết tắt CNTT CSDL ĐHTN HTĐ TTTHDL Giải thích Công nghệ thông tin Cơ sở liệu Đại học Thái Nguyên Hệ thống thông tin đo lường Trung tâm tích hợp liệu BẢNG CÁC THUẬT NGỮ TIẾNG ANH VÀ TỪ VIẾT TẮT Thuật ngữ viết tắt ADC ALU ASCII ATS CPU CMOS DC DAC EEPROM HVAC HTTP ISP Internet LAN LCD LAN PWM ROM RAM SRAM TTL UART Tiếng Anh Analog to Digital Converter Arithmetic and Logic Unit American Standard Code for Information Interchange Automatic Transfer Switches Central processing unit Complementary Metal-OxideSemiconductor Data Center Digital to Analog Converter Electrically Erasable Programmable Read-Only Memory Heating, Ventilation and Air Conditioning HyperText Transfer Protocol Internet Service Provider Internet Local Area Network Liquid Crystal Display Local Area Network Pulse Width Modulation Read-Only Memory Random Access Memory Static Random Access Memory Transistor - Transistor Logic Universal Asinchonus Receiver Transmitter Tiếng Việt Bộ chuyển đổi tương tự sang số Đơn vị số học logic Chuẩn mã trao đổi thông tin Hoa Kì Hệ thống tự động chuyển đổi nguồn điện Khối điều khiển trung tâm Chuẩn logic CMOS dựa vi mạch tích hợp Trung tâm tích hợp liệu Bộ chuyển đổi số sang tương tự Chíp nhớ khả trình không bị xóa điện Nhiệt, thông gió điều hòa không khí Giao thức chuyển tải siêu văn Nhà cung cấp địch vụ Internet Hệ thống thông tin toàn cầu Mạng cục Màn tinh thể lỏng Mạng cục Bộ điều chế độ rộng xung Bộ nhớ đọc Bộ nhớ truy xuất ngẫu nhiên RAM tĩnh Bộ logic xây dựng từ transistor Thiết bị thu / phát không đồng iii Thuật ngữ viết tắt UPS µC (MCU) µP Tiếng Anh Tiếng Việt Uninterruptible Power Supplier Microcontroller Unit MicroProcessor Hệ thống nguồn cung cấp liên tục Bộ vi điều khiển Bộ vi xử lý iv DANH MỤC CÁC BẢNG BIỂU Bảng biểu Nội dung Bảng 3.1 Tham số cài đặt giám sát thử nghiệm Bảng A.1 Yêu cầu phân cấp điện Bảng A.2 Các yêu cầu Hệ thống học Trang 51 60 66 v DANH MỤC CÁC HÌNH VẼ Hình vẽ Hình A Hình 1.1 Hình 1.2 Hình 1.3 Hình 1.4 Hình 1.5 Hình 1.6 Hình 1.7 Hình 1.8 Hình 1.9 Hình 1.10 Hình 1.11 Hình 1.12 Hình 1.13 Hình 2.1 Hình 2.2 Hình 2.3 Hình 2.4 Hình 2.5 Hình 2.6 Hình 2.7 Hình 2.8 Hình 2.9 Hình 2.10 Hình 2.11 Hình 2.12 Hình 2.13 Hình 2.14 Hình 2.15 Hình 2.16 Nội dung Một môi trường trung tâm tích hợp liệu với nhiều tham số phải giám sát Bản vẽ kiến trúc mạng xương sống TTTHDL tỉnh Quảng Ninh Bản vẽ mặt bố trí thiết bị tài TTTHDL tỉnh Quảng Ninh Bản vẽ kiến trúc mạng xương sống TTTHDL Đại học Thái Nguyên Bản vẽ mặt bố trí thiết bị tài TTTHDL Đại học Thái Nguyên Sơ đồ cấu trúc hệ thống thông tin đo lường Hệ thống đo sử dụng vi xử lý trao đổi vi xử lý giao diện Xây dựng sơ đồ hệ thống giám sát môi trường Thiết kế dạng cho hệ thống giám sát nhiệt độ Thiết kế dạng cho hệ thống giám sát nhiệt độ Thiết kế sơ đồ khối cho hệ thống giám sát độ ẩm Thiết kế hệ thống giám sát báo cháy cho TTTHDL tủ báo cháy Thiết kế hệ thống giám sát báo cháy cho TTTHDL có tủ báo cháy Nguyên lý giám sát điện lưới Sơ đồ khối hệ thống giám sát Mạch nguyên lý khối vi điều khiển trung tâm Cấu trúc vi điều khiển AVR ATmega16 Sơ đồ cấu trúc CPU AVR ATmega16 Sơ đồ nhớ tổng quát AVR ATmega16 Sơ đồ khối cấu tạo cảm biến nhiệt DS18B20 Sơ đồ kết nối dây dọc liệu nhiệt độ từ cảm biến DS18B20 Sơ đồ kết nối LM35 đọc liệu cảm biến nhiệt độ qua ADC Sơ đồ kết nối dây dọc liệu nhiệt độ từ cảm biến DHT11 Mạch nguyên lý khối giám sát báo cháy Mạch nguyên lý khối giám sát nguồn điện Tín hiệu tương đương UART RS232 Truyền bit theo phương pháp song song nối tiếp Bản vẽ kết nối máy chủ vi điều khiển qua giao tiếp RS232 Thiết kế khối cảnh báo sử dụng modem GSM Sơ đồ khối bên GSM modem Trang 11 13 16 17 18 21 21 22 25 26 27 28 29 30 31 32 33 34 35 36 37 39 39 40 vi Hình 2.17 Hình 2.18 Hình 2.19 Hình 2.20 Hình 2.21 Hình 2.22 Hình 2.23 Hình 2.24 Hình 2.25 Hình 3.1 Hình 3.2 Hình 3.3 Hình 3.4 Hình 3.5 Hình 3.4 Hình 3.7 Hình 3.8 Hình 3.9 Mạch nguyên lý khối cảnh báo qua GSM Mạch nguyên lý nguồn tuyến tính Lưu đồ thuật toán xử lý vi khối xử lý trung tâm Lưu đồ thuật toán truyền thông Lưu đồ thuật toán giám sát nhiệt độ Lưu đồ thuật toán giám sát độ ẩm Lưu đồ thuật toán giám sát báo cháy lỗi cấp nguồn Lưu đồ thuật toán giám sát máy tính Lưu đồ thuật toán cảnh báo từ xa qua modem GSM Mô hình kết nối hệ thống thử nghiệm giám sát môi trường TTTHDL ĐHTN Thử nghiệm lắp đặt mạch xử lý trung tâm Thử nghiệm cài đặt phần mềm giám sát máy chủ Các giao diện thiết lập thông số cảnh báo giám sát Giao diện theo dõi lịch sử giám sát Kết thử nghiệm giám sát nhiệt độ Kết thử nghiệm giám sát độ ẩm Kết thử nghiệm giám sát báo cháy Kết thử nghiệm giám sát nguồn điện 41 43 44 45 46 47 48 49 50 52 53 53 54 54 55 56 56 57 MỞ ĐẦU Khi nhắc đến tảng hệ thống thông tin không nhắc đến Trung tâm tích hợp liệu (Data Center), trái tim toàn hệ thống Việc xây dựng Trung tâm tích hợp liệu (viết tắt TTTHDL) xu tất yếu nhu cầu bắt buộc, thiếu doanh nghiệp hay tổ chức Việc xây dựng TTTHDL tiêu chuẩn đảm bảo mục tiêu tối ưu cho hoạt động, đảm bảo tính sẵn sàng, tính thuận tiện vận hành phát triển hệ thống sau Thực tế thiết kế chuẩn hạ tầng kỹ thuật, TTTHDL gồm thành phần chính: − Hạ tầng mạng: máy chủ, hệ thống lưu trữ, thiết bị mạng… − Hạ tầng vật lý quan trọng: hệ thống làm mát HVAC, hệ thống phòng cháy chữa cháy, hệ thống nguồn cấp UPS, hệ thống an ninh vật lý v.v Hình A: Một môi trường trung tâm tích hợp liệu với nhiều tham số phải giám sát Như vậy, môi trường vận hành TTTHDL tồn hệ thống riêng biệt điều khiển tham số khác (điện áp, nhiệt độ, độ ẩm, nguồn điện, v.v.) với chung mục đích trì TTTHDL hoạt động an toàn, hiệu ổn định Tuy nhiên, thực tế hệ thống thường hoạt động độc lập giám sát xử lý cố tập trung dẫn đến tình trạng liệu nhiều, khó giám sát, tổng hợp so sánh Với lý đó, lựa chọn đề tài “Nghiên cứu xây dựng hệ thống giám sát môi trường Trung tâm tích hợp liệu” cho luận văn, tập trung nghiên cứu xây dựng hệ thống giám sát môi trường Trung tâm THDL thực giám sát thử nghiệm số thông số chọn lọc quan trọng nhiệt độ, báo cháy, độ ẩm, điện lưới (gọi tắt thông số chọn lọc) Để giải vấn đề, luận văn bố cục thành chương chính: Chương 1: Khảo sát tổng quan môi trường vận hành TTTHDL nghiên cứu lý thuyết đo lường giám sát sở xây dựng toán giám sát môi trường vận hành với số thông số chọn lọc Chương 2: Nghiên cứu xây dựng mô hình hệ thống giám sát số số thông số chọn lọc môi trường vận hành TTTHDL, từ thiết kế chi tiết thành phần phần cứng phần mềm tích hợp lại thành hệ thống giám sát hoàn chỉnh Chương 3: Tiến hành cài đặt thử nghiệm với số kịch giám sát thông số môi trường khác nhiệt độ, độ ẩm, báo cháy, điện lưới Trên cở sở đó, đánh giá độ xác phép đo khả triển khai hệ thống thực tế 79 lcd_putsf("PW: -Fire "); //Hien thi sau ky tu "" delay_ms(2000); lcd_gotoxy(0,3); //Di den cot1 dong lcd_putsf("RX:"); alert=0; normal=1; while (1) { Read_Alert();//ktra canh bao nhietdovadoam();//Doc nhiet va dam read_ds18b20();//Doc nhiet DS18B20 read_temp(4);//Doc nhiet ADC lcd_putnum(temp,4,0);//Hien thi LCD tai vi tri 4x0 if(alert==1){lcd_gotoxy(8,3); lcd_putsf("Alert!");} else if(alert==0) {lcd_gotoxy(8,3); lcd_putsf("Normal");} Truyennhan(); delay_ms(50); // Place your code here } } Phụ lục C: Mã nguồn phần mềm giám sát viết cho máy chủ quản lý unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, jpeg, ComCtrls, CPort, Mask, DB, ADODB; type TForm1 = class(TForm) Button1: TButton; Button3: TButton; Label5: TLabel; Label6: TLabel; Panel1: TPanel; Timer1: TTimer; TabControl1: TTabControl; Label1: TLabel; Label3: TLabel; Label4: TLabel; Shape1: TShape; Shape2: TShape; Shape3: TShape; 80 Shape4: TShape; Image4: TImage; Image5: TImage; Image6: TImage; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Shape5: TShape; Shape6: TShape; Image3: TImage; Timer2: TTimer; Label7: TLabel; Label8: TLabel; Label9: TLabel; Shape7: TShape; Shape8: TShape; Image7: TImage; Shape9: TShape; Shape10: TShape; StaticText6: TStaticText; StaticText7: TStaticText; Shape11: TShape; StaticText8: TStaticText; Shape12: TShape; Image8: TImage; Edit5: TEdit; ComPort1: TComPort; ComPort2: TComPort; StaticText10: TStaticText; Button6: TButton; Panel2: TPanel; Timer3: TTimer; Button8: TButton; Image9: TImage; CheckBox1: TCheckBox; CheckBox2: TCheckBox; CheckBox3: TCheckBox; CheckBox4: TCheckBox; Label2: TLabel; Label10: TLabel; Edit6: TEdit; Label11: TLabel; Label12: TLabel; Label13: TLabel; Shape13: TShape; Shape14: TShape; Shape15: TShape; Shape16: TShape; Label14: TLabel; Label15: TLabel; Label16: TLabel; Label17: TLabel; Shape18: TShape; 81 Shape17: TShape; Image10: TImage; Button5: TButton; Timer4: TTimer; Shape19: TShape; Shape20: TShape; ADOConnection1: TADOConnection; ADOTable1: TADOTable; DataSource1: TDataSource; Shape21: TShape; Shape22: TShape; Shape23: TShape; Label21: TLabel; Label22: TLabel; Label23: TLabel; Label24: TLabel; Label25: TLabel; Edit7: TEdit; Panel3: TPanel; Memo1: TMemo; Image2: TImage; Label19: TLabel; Image1: TImage; Memo2: TMemo; Button2: TButton; Timer5: TTimer; Memo3: TMemo; Memo4: TMemo; DataSource2: TDataSource; ADOConnection2: TADOConnection; ADOTable2: TADOTable; ADOQuery1: TADOQuery; Button4: TButton; procedure Creat(Sender: TObject); procedure Time(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Timer3Timer(Sender: TObject); procedure Button1Click(Sender: TObject); procedure TabControl1Change(Sender: TObject); procedure Button8Click(Sender: TObject); procedure Timer2Timer(Sender: TObject); procedure Timer4Timer(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Timer5Timer(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button7Click(Sender: TObject); private { Private declarations } public { Public declarations } 82 end; var Form1: TForm1; Count: Integer; fire1,fire2,fire3,fire4,pw1,pw2,ups1,ups2,tempx: Integer; temp1,temp2,temp3,humi,temp9:Integer; temp5,temp6,temp7,temp10:String; temp_x1,temp_y1,temp_x2,temp_y2,startGSM,retry: Integer; jj,ii,kk,qq,alert,normal,nortifi:integer; temp8 : Array[1 12] of Integer; // temp10 : Array[1 5] of String; implementation uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8,Unit9; {$R *.dfm} procedure TForm1.Creat(Sender: TObject); var i:integer; begin timer1.Enabled:=false; timer2.Enabled:=false; timer3.Enabled:=false; timer4.Enabled:=false; timer5.Enabled:=false; tempx:=1; startGSM:=0; retry:=0; //Khoi tao cac bien trang thai alert:=0; normal:=1; nortifi:=0; temp1:=20; temp2:=21; temp3:=22; humi:=43; fire1:=1;fire2:=1;fire3:=1;fire4:=1; pw1:=1; pw1:=1;ups1:=1; ups2:=1; // khoi tao bien de ve thi jj:=16; ii:=16; kk:=16; qq:=16; temp_x1:=16; temp_y1:=image1.Height-15; temp_x2:=16; temp_y2:=image1.Height-15; Image1.Canvas.Pen.Width:=1; Image1.Canvas.Pen.Color:=clBlack; Image1.Canvas.brush.Color:=clBlack; image1.canvas.Rectangle(0,0,image1.Width,image1.Height); //Ve duong ngang 83 Image1.Canvas.Pen.Color:=clGray; Image1.Canvas.brush.Color:=clGray; for i:=1 to 10 begin Image1.Canvas.moveTo(15,image1.Height-25*I-15); Image1.Canvas.lineTo(Image1.width-0, image1.Height-25*i-15); end; //Bieu dien thang nhiet Image1.Canvas.Pen.Color:=clRed; Image1.Canvas.brush.Color:=clBlack; Image1.Canvas.Font.Color:=clRed; for i:=1 to 10 begin image1.Canvas.TextOut(0,image1.Height-25*i-20, InttoStr(10*i)); end; //Bieu dien thang thoi gian Image1.Canvas.Pen.Color:=clBlue; Image1.Canvas.brush.Color:=clBlack; Image1.Canvas.Font.Color:=clWhite; ; for i:=2 to 25 begin image1.Canvas.TextOut(25*i-20,image1.Height-15, InttoStr(10*i-10)); end; //Ve duong doc Image1.Canvas.Pen.Color:=clGray; Image1.Canvas.brush.Color:=clGray; for i:=2 to 25 begin Image1.Canvas.moveTo(25*i-10, 10); Image1.Canvas.lineTo(25*i-10, Image1.height-15); end; //Ve cot x va y cua thi Image1.Canvas.Pen.Color:=clRed; Image1.Canvas.brush.Color:=clRed; image1.canvas.MoveTo(15,0); image1.canvas.LineTo(15,image1.Height-15); image1.canvas.MoveTo(15,image1.Height-15); image1.canvas.LineTo(image1.width,image1.height-15); // bat dau ve thi Image1.Canvas.Pen.Width:=2; Datasource1.DataSet.Active:=true; ADOTable1.Active:=true; Datasource2.DataSet.Active:=true; ADOTable2.Active:=true; { Comport1.Port:=ADOTable1.FieldByName('com_gsm_port').Value; Comport1.BaudRate:=br9600; Comport1.DataBits := dbEight; Comport1.Parity.Bits:=prNone; Comport1.StopBits:=sbOneStopBit; Comport1.FlowControl.FlowControl:=fcNone; Comport2.Port:=ADOTable1.FieldByName('com_dcems_port').Value; 84 Comport2.BaudRate:=br9600; Comport2.DataBits := dbEight; Comport2.Parity.Bits:=prNone; Comport2.StopBits:=sbOneStopBit; Comport2.FlowControl.FlowControl:=fcNone; } Comport2.ShowSetupDialog; Comport2.Open; Form1.WindowState:=wsMaximized; Shape9.Brush.color:=clgray; Shape10.Brush.color:=clgray; Timer1.enabled:=true; Timer2.enabled:=true; Timer3.enabled:=true; Timer4.enabled:=true; Timer5.enabled:=true; end; procedure TForm1.Time(Sender: TObject); var pp:integer; begin Panel1.Caption:=FormatDateTime('hh:nn:ss',Now); // Hien thi gio Panel2.caption:= FormatDateTime('dd/mm/yyyy',Now); //Hien thi ADOTable1.TableName:='config'; Timer3.Interval:= ADOTable1.FieldByName('interval').Value; Timer4.Interval:= ADOTable1.FieldByName('interval').Value; if (((ADOTable1.FieldByName('pw1_en').Value='1')and (pw1=0)) or ((ADOTable1.FieldByName('pw2_en').Value='1') and (pw2=0)) or ((ADOTable1.FieldByName('ups1_en').Value='1') and (ups1=0)) or ((ADOTable1.FieldByName('ups2_en').Value='1') and (ups2=0)) or ((ADOTable1.FieldByName('fire1_en').Value='1') and (fire1=0)) or ((ADOTable1.FieldByName('fire2_en').Value='1') and (fire2=0))or ((ADOTable1.FieldByName('fire3_en').Value='1') and (fire3=0)) or ((ADOTable1.FieldByName('fire4_en').Value='1') and (fire4=0))or ((temp1 ADOTable1.FieldByName('temp_alert_b').Value) and (ADOTable1.FieldByName('temp1_en').Value='1'))or ((temp2 ADOTable1.FieldByName('temp_alert_b').Value) and (ADOTable1.FieldByName('temp2_en').Value='1'))or ((temp3 ADOTable1.FieldByName('temp_alert_b').Value) and (ADOTable1.FieldByName('temp3_en').Value='1'))or ((humi ADOTable1.FieldByName('humi_alert_b').Value) and (ADOTable1.FieldByName('humi_en').Value='1'))) then begin 85 alert:=1; //thiet lap gia tri canh bao normal:=0; ADOTable1.Edit;//Luu vao CSDL ADOTable1.TableName:='config'; ADOTable1.FieldByName('alert').AsVariant:='1'; ADOTable1.FieldByName('normal').AsVariant:='0'; ADOTable1.UpdateStatus; ADOTable1.Post; Shape21.Brush.color:=clGray; Shape23.Brush.color:=clRed; end; if (((temp1>ADOTable1.FieldByName('temp_norti1_a').Value) and (ADOTable1.FieldByName('temp1_en').Value='1')) or ((temp1< ADOTable1.FieldByName('temp_norti1_b').Value) and (ADOTable1.FieldByName('temp1_en').Value='1'))or ((temp1>ADOTable1.FieldByName('temp_norti2_a').Value) and (ADOTable1.FieldByName('temp1_en').Value='1')) or ((temp1< ADOTable1.FieldByName('temp_norti2_b').Value) and (ADOTable1.FieldByName('temp1_en').Value='1'))or ((humi>ADOTable1.FieldByName('humi_norti1_a').Value) and (ADOTable1.FieldByName('humi_en').Value='1')) or ((humi< ADOTable1.FieldByName('humi_norti1_b').Value) and (ADOTable1.FieldByName('humi_en').Value='1'))or ((humi>ADOTable1.FieldByName('humi_norti2_a').Value) and (ADOTable1.FieldByName('humi_en').Value='1')) or ((humi< ADOTable1.FieldByName('humi_norti2_b').Value) and (ADOTable1.FieldByName('humi_en').Value='1'))) then begin nortifi:=1; //thiet lap gia tri canh bao normal:=0; ADOTable1.Edit;//Luu vao CSDL ADOTable1.TableName:='config'; ADOTable1.FieldByName('nortification').AsVariant:='1'; ADOTable1.FieldByName('normal').AsVariant:='0'; ; ADOTable1.UpdateStatus; ADOTable1.Post; Shape22.Brush.color:=clYellow; Shape21.Brush.color:=clGray; //Tin hieu canh bao end; end; procedure TForm1.Button4Click(Sender: TObject); var num1:String; begin Comport1.Port:= ADOTable1.FieldByName('com_gsm_port').Value; ComPort1.Open; if comport1.connected true then Comport1.ClearBuffer(True, True); //Test so if ((ADOTable1.FieldByName('gsm_enable').Value='1') and (ADOTable1.FieldByName('sdt1_enable').Value='1')) then begin num1:=ADOTable1.FieldByName('sdt1').Value; 86 ComPort1.WriteStr('AT+CMGF=1'+ #13#10); Sleep(100); ComPort1.WriteStr('AT+CMGS="'); ComPort1.WriteStr(num1); ComPort1.WriteStr('"'+#13#10); Sleep(100); ComPort1.WriteStr('Test SMS from DCEMS successfull!' + #26+ #13#10); Sleep(1000); end; end; procedure TForm1.Button5Click(Sender: TObject); var num1:String; begin Comport1.Port:= ADOTable1.FieldByName('com_gsm_port').Value; ComPort1.Open; if comport1.connected true then Comport1.ClearBuffer(True, True); //Test so if ((ADOTable1.FieldByName('gsm_enable').Value='1') and (ADOTable1.FieldByName('sdt1_enable').Value='1') and (startGSM=1)) then begin num1:=ADOTable1.FieldByName('sdt1').Value; { ComPort1.WriteStr('AT+CMGF=1'+ #13#10); Sleep(100); ComPort1.WriteStr('AT+CMGS="'); ComPort1.WriteStr(num1); ComPort1.WriteStr('"'+#13#10); Sleep(100); ComPort1.WriteStr('Test SMS from DCEMS successfull!' + #26+ #13#10); Sleep(1000); } //Goi dien ComPort1.WriteStr('ATD'); ComPort1.WriteStr(num1); ComPort1.WriteStr(';'); ComPort1.WriteStr(#13#10); Sleep(100); end; end; procedure TForm1.Button6Click(Sender: TObject); begin Application.CreateForm(TForm9, Form9); Form9.Show; end; procedure TForm1.Timer3Timer(Sender: TObject); begin //Doc so dien thoai canh bao man hinh Edit5.Text:=ADOTable1.FieldByName('sdt1').Value; Edit6.Text:=ADOTable1.FieldByName('sdt2').Value; Edit7.Text:=ADOTable1.FieldByName('sdt3').Value; 87 //Doc trang thai Power if (ADOTable1.FieldByName('pw1_en').Value='1') then shape5.Brush.color:=clLime else shape5.Brush.color:=clgray; if (ADOTable1.FieldByName('pw2_en').Value='1') then shape19.Brush.color:=clLime else shape19.Brush.color:=clgray; if (ADOTable1.FieldByName('ups1_en').Value='1') then shape6.Brush.color:=clLime else shape6.Brush.color:=clgray; if (ADOTable1.FieldByName('ups2_en').Value='1') then shape20.Brush.color:=clLime else shape20.Brush.color:=clgray; //Doc trang thai Bao chay if (ADOTable1.FieldByName('fire1_en').Value='1') then Shape13.Brush.color:=clLime else Shape13.Brush.color:=clgray; if (ADOTable1.FieldByName('fire2_en').Value='1') then shape14.Brush.color:=clLime else shape14.Brush.color:=clgray; if (ADOTable1.FieldByName('fire3_en').Value='1') then shape15.Brush.color:=clLime else shape15.Brush.color:=clgray; if (ADOTable1.FieldByName('fire4_en').Value='1') then shape16.Brush.color:=clLime else shape16.Brush.color:=clgray; //3 Trang thai canh bao if (ADOTable1.FieldByName('normal').Value='1') then Shape21.Brush.color:=clLime else shape21.Brush.color:=clgray; if (ADOTable1.FieldByName('nortification').Value='1') then Shape22.Brush.color:=clYellow else shape22.Brush.color:=clgray; if (ADOTable1.FieldByName('alert').Value='1') then begin Shape23.Brush.color:=clRed; if ((ADOTable1.FieldByName('gsm_enable').Value='1')and (ADOTable1.FieldByName('call_enable').Value='1')) then begin if (Button5.Enabled=true)then Button5.Click; Button5.Enabled:=false; end; if ((ADOTable1.FieldByName('gsm_enable').Value='1')and (ADOTable1.FieldByName('sms_enable').Value='1')) then begin if (Button4.Enabled=true)then Button4.Click; Button4.Enabled:=false; end; end else shape23.Brush.color:=clgray; end; procedure TForm1.Button1Click(Sender: TObject); begin 88 Application.CreateForm(TForm7, Form7); Form7.Show; end; procedure TForm1.TabControl1Change(Sender: TObject); begin if TabControl1.TabIndex = then begin Form1.Show; Form1.TabControl1.TabIndex := 0; end; if TabControl1.TabIndex = then begin Application.CreateForm(TForm2, Form2); Form2.Show; Form1.TabControl1.TabIndex := 1; end; if TabControl1.TabIndex = then begin Application.CreateForm(TForm3, Form3); Form3.Show; Form1.TabControl1.TabIndex := 2; end; if TabControl1.TabIndex = then begin Application.CreateForm(TForm8, Form8); //delay(1000); Form8.Show; Form1.TabControl1.TabIndex := 3; end; if TabControl1.TabIndex = then begin Application.CreateForm(TForm6, Form6); Form6.Show; Form1.TabControl1.TabIndex := 4; end; end; procedure TForm1.Button8Click(Sender: TObject); begin Application.CreateForm(TForm5, Form5); Form5.Show; Form5.WindowState:= wsMaximized; end; procedure TForm1.Timer2Timer(Sender: TObject); var tt: Integer; begin if(Comport2.Connected=true) then begin if(ADOTable1.FieldByName('temp1_en').Value='1')then begin Comport2.WriteStr('T'); if (Comport2.TriggersOnRxChar) then 89 begin for tt:=1 to 12 begin Comport2.WriteStr('T'); Comport2.Read(temp8[tt],1); end; end; end; Memo1.Text:= inttostr(temp8[1]); Panel3.Caption:=inttostr(temp8[1])+ ' oC'; Memo2.Text:= inttostr(temp8[2]); Memo3.Text:= inttostr(temp8[3]); Memo4.Text:= inttostr(temp8[4]); //Nhiet va am if(ADOTable1.FieldByName('temp1_en').Value='1')then if (ABS(temp8[1]temp1)[...]... giám sát cụ thể cho từng đối tượng: giám sát nhiệt độ, giám sát độ ẩm, giám sát báo cháy, giám sát điện lưới Sau khi phân tích, xây dựng được mô hình giám sát môi trường vận hành tại các TTTHDL, chương 2 của luận văn sẽ cụ thể hóa nghiên cứu bằng việc xây dựng phần cứng và phần mềm để giám sát các tham số chọn lọc 25 Chương 2: NGHIÊN CỨU VÀ XÂY DỰNG HỆ THỐNG GIÁM SÁT TRONG CÁC TRUNG TÂM TÍCH HỢP DỮ... nhớ dữ liệu µP sẽ điều khiển mọi hoạt động qua Interface (RS232) để in ra nếu cần thiết, hoặc điều khiển các khâu khác nhau 13 1.3 Xây dựng bài toán giám sát môi trường trong Trung tâm tích hợp dữ liệu với các thông số chọn lọc 1.3.1 Giám sát môi trường trung tâm tích hợp dữ liệu Giám sát môi trường các TTTHDL chính là việc đo lường các thông số vật lý (nhiệt độ, độ ẩm, điện áp v.v) trong môi trường. .. DỮ LIỆU VỚI CÁC THÔNG SỐ CHỌN LỌC Căn cứ vào nhu cầu giám sát môi trường vận hành tại các TTTHDL và bài toán cụ thể được đặt ra, trong chương này luận văn đi vào nghiên cứu và xây dựng một cách chi tiết phần cứng và phần mềm điều khiển của hệ thống giám sát với mục đích giám sát một số thông số có chọn lọc: nhiệt độ, độ ẩm, báo cháy và nguồn điện 2.1 Xây dựng sơ đồ khối của hệ thống giám sát Hệ thống. .. trạng và nhu cầu giám sát môi trường vận hành trong các TTTHDL Việc xây dựng một hệ thống giám sát đáp ứng được các đòi hỏi trên là yêu cầu cấp thiết Hệ thống giám sát môi trường vận hành dựa trên kỹ thuật đo lường và giám sát theo thuật toán cụ thể sẽ giúp quá trình giám giám môi trường vận hành đáp ứng được được các tiêu chuẩn trong nước cũng như quốc tế Nội dung của chương 1 cũng đã xây dựng được các. .. Cấp cao hơn tương ứng với độ sẵn sàng vào bảo mật cao hơn : Cấp 1 (TEIR1), cấp 2 (TEIR2), cấp 3 (TEIR3), cấp 4 (TEIR4) Các yêu cầu cụ thể trong giám sát môi trường tham khảo tại Phụ lục A đính kèm 1.1.2 Khảo sát trung tâm tích hợp dữ liệu tỉnh Quảng Ninh và Đại học Thái Nguyên 1.1.2.1 Khảo sát tại Trung tâm tích hợp dữ liệu tỉnh Quảng Ninh Trung tâm tích hợp dữ liệu tỉnh Quảng Ninh 1 được phê duyệt... Máy chủ Giám sát VI ĐIỀU KHIỂN (µC) Người Quản trị Hệ thống cảnh báo từ xa Hệ thống cảnh báo Tại chỗ Chuyển đổi/ Cách ly Chuyển đổi/ Cách ly Chuyển đổi/ Cách ly Chuyển đổi/ Cách ly P W 1 P W 2 Các đầu đo Trạng thái nguồn (Power) Các cảm biến Độ ẩm (Humi dity) Các cảm biến Báo cháy (Fire/ Smok e) Hình 1.7: Xây dựng sơ đồ hệ thống giám sát môi trường Số lượng các thông số cần giám sát trong môi trường. .. DUNG Chương 1: TỔNG QUAN VỀ GIÁM SÁT MÔI TRƯỜNG TRONG CÁC TRUNG TÂM TÍCH HỢP DỮ LIỆU Trung tâm tích hợp dữ liệu được định nghĩa là nơi tập trung nhiều thành phần tài nguyên mật độ cao (hardware, software…) làm chức năng lưu trữ, xử lý toàn bộ dữ liệu hệ thống với khả năng sẵn sàng và độ ổn định cao Kinh phí đầu tư cho các TTTHDL rất lớn lên đến hàng triệu USD và phải tuân theo các tiêu chuẩn kỹ thuật khắt... về môi trường vận hành trong Trung tâm tích hợp dữ liệu 1.1.1 Môi trường vận hành trong các Trung tâm tích hợp dữ liệu Trong tiêu chuẩn TIA-942 (tiêu chuẩn viễn thông trong các Data center) được xây dựng bởi TIA (Telecommunications Industry Association - Hiệp hội công nghiệp viễn thông Hoa Kỳ) yêu cầu bắt buộc về thiết kế môi trường tiêu chuẩn trong các TTTHDL thì những tiêu chuẩn thiết kế môi trường. .. TTTHDL để điều khiển giám sát theo một thuật toán định sẵn Đây cũng chính là một dạng của hệ thống thông tin đo lường 1.3.2 Xây dựng bài toán giám sát môi trường trong Trung tâm tích hợp dữ liệu với các thông số chọn lọc + Sơ đồ hệ thống giám sát môi trường: Các cảm biến nhiệt độ (Temprature) 14 T 1 Đo lường T 2 Đo lường T n Đo lường H 1 Đo lường H 2 Đo lường H n Đo lường F 1 Chuyển đổi/ Cách ly F 2 F n... phải có một hệ thống giám sát môi trường liên tục giúp người quản trị có thể giám sát và khắc phục sự cố một cách kịp thời, tránh những rủi ro đáng tiếc và đảm bảo cho TTTHDL hoạt động liên tục, an toàn, ổn định Để xây dựng được một hệ thống giám sát môi trường cho TTTHDL đòi hỏi phải có sự phân tích các nhu cầu thực tế và giải quyết các bài toán cụ thể đặt ra trên cơ sở kỹ thuật đo lường giám sát 1.1.Giới ... khiển khâu khác 13 1.3 Xây dựng toán giám sát môi trường Trung tâm tích hợp liệu với thông số chọn lọc 1.3.1 Giám sát môi trường trung tâm tích hợp liệu Giám sát môi trường TTTHDL việc đo lường... xây dựng hệ thống giám sát môi trường Trung tâm tích hợp liệu cho luận văn, tập trung nghiên cứu xây dựng hệ thống giám sát môi trường Trung tâm THDL thực giám sát thử nghiệm số thông số chọn... Khảo sát tổng quan môi trường vận hành TTTHDL nghiên cứu lý thuyết đo lường giám sát sở xây dựng toán giám sát môi trường vận hành với số thông số chọn lọc Chương 2: Nghiên cứu xây dựng mô hình hệ