Проектирование приёмного устройства терминального модуля сети под управлением стандарта IEEE 802.15.4

Проведение экспериментов  – измерение максимальной длительности работы модуля от одного источника  питания.

В результате проведенной работы создан прототип перспективной беспроводной системы радиационного оповещения, который по результатам практического тестирования конечного продукта показал соответствие созданной системы предъявляемым требованиям.

 

Литература

1. Учебное пособие «Оружие массового поражения» И.Г. Лазарев, Минск 2008, Издательство УО «ВА РБ»;
2. «Последовательность и содержание работы командира батальона (роты) по выполнению мероприятий радиационной, химической и биологической защиты», Д.И. Высоцкая, Минск 2007, Издательство УО «ВА РБ»;
3. «Оружие массового поражения и зашита войск. Приборы радиационной и химической разведки», А.В. Филькевич, В.Г. Шахов, Б.Х. Кантиев, Минск 1987, Издательство «МВИЗРУ ПВО»;
4. ZigBee wireless networks and transivers – 2007, Shanin Farahani;
5. Open Systems Interconnection Basic Reference Model : The Basic Model ISO/7498-1:1994;
6. www.wikipedia.com;
7. www.iscka.ru;
8. ZigBee Specification 05347r17, Jan.2008 (www.zigbee.org);
9. MC1319x Range Perfomance, A. Asmussen, R. Rodriguez, L. Roshak, 200;
10. XBee Series 2 – Product Manual (www.digi.com);
11. IEEE Std 802.15.4–2006. IEEE standard for local and metropolitan area networks, IEEE, 8 September 2006;
12. Quick Start Guide, MD0026 (www.maxstream.net);
13. ZigBee wireless networking – 2007, Drew Gislason;
14. С++ Builder 6. Справочное пособие, Архангельский А.Я., 2002, Москва, Издательство БИНОМ.

 

ПРИЛОЖЕНИЕ 1

 

ИСХОДНЫЙ КОД ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ

 

1.1. Открытие Com – порта

m_hCom = CreateFile("COM8", GENERIC_READ | GENERIC_WRITE,

  0, NULL, OPEN_EXISTING, 0, NULL);

  if(m_hCom == INVALID_HANDLE_VALUE) Memo1->Lines->Add(""+t+" Error open COM port");

  else

  {

Memo1->Lines->Add(""+t+ " COM port was opened");

m_bPortReady = SetupComm(m_hCom, 1024, 1024);

if (m_bPortReady)

{

DCB m_dcb;

m_bPortReady = GetCommState(m_hCom, &m_dcb);

if (!m_bPortReady)

{

Memo1->Lines->Add(""+t+" Cann\'t get COM port state");

return;

}

else

{

m_dcb.BaudRate = 9600;

m_dcb.ByteSize = 8;

m_dcb.Parity = NOPARITY;

m_dcb.StopBits = ONESTOPBIT;

m_dcb.fAbortOnError = TRUE;

m_bPortReady = SetCommState(m_hCom, &m_dcb);

if (!m_bPortReady)

{

Memo1->Lines->Add(""+t+" Cann\'t set COM port state");

return;

}

else

{

COMMTIMEOUTS m_CommTimeouts;

m_bPortReady = GetCommTimeouts (m_hCom, &m_CommTimeouts);

if(!m_bPortReady)

{

Memo1->Lines->Add(""+t+" Cann\'t get COM port timeouts");

return;

}

else

{

m_CommTimeouts.ReadIntervalTimeout = 50;

m_CommTimeouts.ReadTotalTimeoutConstant = 50;

m_CommTimeouts.ReadTotalTimeoutMultiplier = 10;

m_CommTimeouts.WriteTotalTimeoutConstant = 50;

m_CommTimeouts.WriteTotalTimeoutMultiplier = 10;

m_bPortReady = SetCommTimeouts (m_hCom, &m_CommTimeouts);

if(!m_bPortReady)

{

Memo1->Lines->Add(""+t+" Cann\'t set COM port timeouts");

return;

}

}

}

}

}

else Memo1->Lines->Add(""+t+" Cann\'t setup COM port");

  }

}

 

1.2.  Оповещение диспетчера

void __fastcall TForm1::Timer1Timer(TObject *Sender)

{ с=mzint [i][5];     

          if (c==126)

      {

       t=Now();

if (mzint[0][3]==1) Memo1->Lines->Add(""+t+" Тревога : Зона №1-"+Form4->Edit1->Text);

             mzint[0][4]=1;

      }

for(n=0;n<nd;n++)

{

if (mzint[0][3]==1&&mzint[0][4]==1)

{Timer2->Enabled=true;

MediaPlayer1->FileName="notify.wav";

 MediaPlayer1->Open();

MediaPlayer1->Play();

}

}

}

void __fastcall TForm1::Timer2Timer(TObject *Sender)

{

 

if (mzint[0][5]==2)mzint[0][5]=3;

m=mzint[0][5]%2;

if (m==0)

{

  Image1->Canvas->Brush->Color=clRed;

Image1->Canvas->Brush->Style=bsSolid;

Image1->Canvas->Ellipse(mzint [0][1]-10,mzint[0][2]-10,mzint [0][1]+10,mzint[0][2]+10);

mzint[0][5]++;

  }

  if (m==1)

{ Image1->Canvas->Brush->Color=clBlue;

Image1->Canvas->Brush->Style=bsSolid;

Image1->Canvas->Ellipse(mzint [0][1]-10,mzint[0][2]-10,mzint [0][1]+10,mzint[0][2]+10);

mzint[0][5]++;

  }

 

}

1.3. Размещение детектора на местности

 

void __fastcall TForm1::Image1MouseDown(TObject *Sender,

      TMouseButton Button, TShiftState Shift, int X, int Y)

{

if (i<nd&&i>-1) {

Image1->Canvas->Brush->Color=clWhite;

Image1->Canvas->Brush->Style=bsSolid;

Image1->Canvas->Ellipse(X-10,Y-10,X+10,Y+10);

        mzint [i][1]=X;mzint[i][2]=Y,mzint[i][5]=1;

i++;

}

}

 

1.4. Чтение пакета данных (длина 22 байта)

DWORD nwr=0;

        unsigned char k[22],s[256],n;

        ReadFile(m_hCom,&k,22,&nwr,NULL);