iomodule.cpp

《Windows CE .NET嵌入式工业用控制器及自动控制系统设计》的源代码

//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include  <stdio.h>
#include <stdlib.h>
#include <process.h>
#include  <string.h>
#include  <memory.h>
#include  <fcntl.h>
#include  <sys\types.h>
#include  <sys\stat.h>
#include  <share.h>
#include  <io.h>

#include "WinCONSYS.h"   // common variable define
#include "IOModule.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
TIOModule_Dlg *IOModule_Dlg;
//---------------------------------------------------------------------
__fastcall TIOModule_Dlg::TIOModule_Dlg(TComponent* AOwner)
	: TForm(AOwner)
{
}
//---------------------------------------------------------------------
int __fastcall TIOModule_Dlg::display_Slot(int idx)
{
  int i;
  char  buff[10];

  i= para[idx].mod_no;  // slot-0 module no.
  sprintf(buff, "%-d", para[idx].addr_do);
  MaskEdit1->Text= buff;
  sprintf(buff, "%-d", para[idx].addr_di);
  MaskEdit2->Text= buff;
  sprintf(buff, "%-d", para[idx].addr_ao);
  MaskEdit3->Text= buff;
  sprintf(buff, "%-d", para[idx].addr_ai);
  MaskEdit4->Text= buff;
  ComboBox3->ItemIndex= para[idx].gain_ao;
  ComboBox4->ItemIndex= para[idx].gain_ai;
  ComboBox2->ItemIndex= i;
  display_Module(i);

  return(0);
}
//---------------------------------------------------------------------
int __fastcall TIOModule_Dlg::check_Slot(int idx)
{
   int i, flag, mod_no, addr_1, addr_2, word_1, word_2;
   int s1, s2, rc;
   char buff[80];

//   if(para[OLD_SLOT].mod_no == 0) return(0);  // empty slot, so no check
   mod_no= ComboBox2->ItemIndex;
   switch(mod_no)
   {
      case I8017H:  // AI
        flag= 1;
        addr_1= atoi(MaskEdit4->Text.c_str());
        word_1= IO_DEF[mod_no -1].in_max;
        break;
      case I8024:   // AO
        flag= 2;
        addr_2= atoi(MaskEdit3->Text.c_str());
        word_2= IO_DEF[mod_no -1].out_max;
        break;
      case I8040:  // DI
      case I8051:
      case I8052:
      case I8053:
      case I8058:
        flag= 3;
        addr_1= atoi(MaskEdit2->Text.c_str());
        word_1= IO_DEF[mod_no -1].in_max;
        break;
      case I8041:  // DO
      case I8056:
      case I8057:
      case I8060:
      case I8064:
      case I8065:
      case I8066:
      case I8068:
      case I8069:
        flag= 4;
        addr_2= atoi(MaskEdit1->Text.c_str());
        word_2= IO_DEF[mod_no -1].out_max;
        break;
      case I8042:  // DI and DO
      case I8054:
      case I8055:
      case I8063:
        flag= 5;
        addr_1= atoi(MaskEdit2->Text.c_str());
        word_1= IO_DEF[mod_no -1].in_max;
        addr_2= atoi(MaskEdit1->Text.c_str());
        word_2= IO_DEF[mod_no -1].out_max;
        break;
   }

   for(i=0; i<SLOT_MAX_CASE; i++)
   {
     if(i == OLD_SLOT) continue;  // the same slot
     if(para[i].mod_no == 0) continue;  // empty slot
     switch(flag)
     {
        case 1: // check AI
          if(para[i].mod_no==I8017H && para[i].addr_ai!=0)
          {
             s1= para[i].addr_ai;
             s2= s1 + word_1;
             if((addr_1>=s1 && addr_1<=s2) || ((addr_1+word_1)>=s1 && (addr_1+word_1)<=s2))
             {
               sprintf(buff, "Input Register address is overlap with slot-%d", i);
               MessageBox(NULL, buff, WinCON8000, MB_OK);
               return(-1);
             }
          }
          break;
        case 2: // check AO
          if(para[i].mod_no==I8024 && para[i].addr_ao!=0)
          {
             s1= para[i].addr_ao;
             s2= s1 + word_2;
             if((addr_2>=s1 && addr_2<=s2) || ((addr_2+word_2)>=s1 && (addr_2+word_2)<=s2))
             {
               sprintf(buff, "Holding Register address is overlap with slot-%d", i);
               MessageBox(NULL, buff, WinCON8000, MB_OK);
               return(-1);
             }
          }
          break;
        case 3: // check DI
          if((para[i].mod_no==I8040 || para[i].mod_no==I8051 || para[i].mod_no==I8052 ||
              para[i].mod_no==I8053 || para[i].mod_no==I8058 || para[i].mod_no==I8042 ||
              para[i].mod_no==I8054 || para[i].mod_no==I8055 || para[i].mod_no==I8063 ) &&
              para[i].addr_di!=0)
          {
             s1= para[i].addr_di;
             s2= s1 + word_1;
             if((addr_1>=s1 && addr_1<=s2) || ((addr_1+word_1)>=s1 && (addr_1+word_1)<=s2))
             {
               sprintf(buff, "Input Coil address is overlap with slot-%d", i);
               MessageBox(NULL, buff, WinCON8000, MB_OK);
               return(-1);
             }
          }
          break;
        case 4: // check DO
          if((para[i].mod_no==I8041 || para[i].mod_no==I8056 || para[i].mod_no==I8057 ||
              para[i].mod_no==I8060 || para[i].mod_no==I8064 || para[i].mod_no==I8065 ||
              para[i].mod_no==I8066 || para[i].mod_no==I8068 || para[i].mod_no==I8069 ||
              para[i].mod_no==I8042 ||
              para[i].mod_no==I8054 || para[i].mod_no==I8055 || para[i].mod_no==I8063 ) &&
              para[i].addr_di!=0)
          {
             s1= para[i].addr_do;
             s2= s1 + word_2;
             if((addr_2>=s1 && addr_2<=s2) || ((addr_2+word_2)>=s1 && (addr_2+word_2)<=s2))
             {
               sprintf(buff, "Input Coil address is overlap with slot-%d", i);
               MessageBox(NULL, buff, WinCON8000, MB_OK);
               return(-1);
             }
          }
          break;
        case 5: // check DI and DO
          if((para[i].mod_no==I8040 || para[i].mod_no==I8051 || para[i].mod_no==I8052 ||
              para[i].mod_no==I8053 || para[i].mod_no==I8058 || para[i].mod_no==I8042 ||
              para[i].mod_no==I8054 || para[i].mod_no==I8055 || para[i].mod_no==I8063 ) &&
              para[i].addr_di!=0)
          {
             s1= para[i].addr_di;
             s2= s1 + word_1;
             if((addr_1>=s1 && addr_1<=s2) || ((addr_1+word_1)>=s1 && (addr_1+word_1)<=s2))
             {
               sprintf(buff, "Input Coil address is overlap with slot-%d", i);
               MessageBox(NULL, buff, WinCON8000, MB_OK);
               return(-1);
             }
          }

          if((para[i].mod_no==I8041 || para[i].mod_no==I8056 || para[i].mod_no==I8057 ||
              para[i].mod_no==I8060 || para[i].mod_no==I8064 || para[i].mod_no==I8065 ||
              para[i].mod_no==I8066 || para[i].mod_no==I8068 || para[i].mod_no==I8069 ||
              para[i].mod_no==I8042 ||
              para[i].mod_no==I8054 || para[i].mod_no==I8055 || para[i].mod_no==I8063 ) &&
              para[i].addr_di!=0)
          {
             s1= para[i].addr_do;
             s2= s1 + word_2;
             if((addr_2>=s1 && addr_2<=s2) || ((addr_2+word_2)>=s1 && (addr_2+word_2)<=s2))
             {
               sprintf(buff, "Input Coil address is overlap with slot-%d", i);
               MessageBox(NULL, buff, WinCON8000, MB_OK);
               return(-1);
             }
          }
          break;
     }
   }

   return(0);
}
//---------------------------------------------------------------------
int __fastcall TIOModule_Dlg::display_Module(int idx)
{
  int i;
    switch(idx)
    {
       case 0:  // empty slot
         Label3->Enabled= false;
         MaskEdit1->Enabled= false;
         Label4->Enabled= false;
         MaskEdit2->Enabled= false;
         Label5->Enabled= false;
         MaskEdit3->Enabled= false;
         Label6->Enabled= false;
         MaskEdit4->Enabled= false;
         Label9->Enabled= false;
         ComboBox3->Enabled= false;
         Label10->Enabled= false;
         ComboBox4->Enabled= false;
         break;
       case I8017H:  // AI
         Label3->Enabled= false;
         MaskEdit1->Enabled= false;
         Label4->Enabled= false;
         MaskEdit2->Enabled= false;
         Label5->Enabled= false;
         MaskEdit3->Enabled= false;
         Label6->Enabled= true;
         MaskEdit4->Enabled= true;
         Label9->Enabled= false;
         ComboBox3->Enabled= false;
         Label10->Enabled= true;
         ComboBox4->Enabled= true;
         break;
       case I8024:  // AO
         Label3->Enabled= false;
         MaskEdit1->Enabled= false;
         Label4->Enabled= false;
         MaskEdit2->Enabled= false;
         Label5->Enabled= true;
         MaskEdit3->Enabled= true;
         Label6->Enabled= false;
         MaskEdit4->Enabled= false;