pmconfigform.cpp

16 relay output channels and 16 isolated digital input channels LED indicators to show activated

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "PMConfigForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmPMConfig *frmPMConfig;
//---------------------------------------------------------------------------
__fastcall TfrmPMConfig::TfrmPMConfig(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TfrmPMConfig::FormCreate(TObject *Sender)
{
    //PA0
    pchkEnablePA0[0] = chkEnablePA00;
    pchkEnablePA0[1] = chkEnablePA01;
    pchkEnablePA0[2] = chkEnablePA02;
    pchkEnablePA0[3] = chkEnablePA03;
    pchkEnablePA0[4] = chkEnablePA04;
    pchkEnablePA0[5] = chkEnablePA05;
    pchkEnablePA0[6] = chkEnablePA06;
    pchkEnablePA0[7] = chkEnablePA07;

    pradHighPA0[0] = radHighPA00;
    pradHighPA0[1] = radHighPA01;
    pradHighPA0[2] = radHighPA02;
    pradHighPA0[3] = radHighPA03;
    pradHighPA0[4] = radHighPA04;
    pradHighPA0[5] = radHighPA05;
    pradHighPA0[6] = radHighPA06;
    pradHighPA0[7] = radHighPA07;

    pradLowPA0[0] = radLowPA00;
    pradLowPA0[1] = radLowPA01;
    pradLowPA0[2] = radLowPA02;
    pradLowPA0[3] = radLowPA03;
    pradLowPA0[4] = radLowPA04;
    pradLowPA0[5] = radLowPA05;
    pradLowPA0[6] = radLowPA06;
    pradLowPA0[7] = radLowPA07;

    //PA4
    pchkEnablePA4[0] = chkEnablePA40;
    pchkEnablePA4[1] = chkEnablePA41;
    pchkEnablePA4[2] = chkEnablePA42;
    pchkEnablePA4[3] = chkEnablePA43;
    pchkEnablePA4[4] = chkEnablePA44;
    pchkEnablePA4[5] = chkEnablePA45;
    pchkEnablePA4[6] = chkEnablePA46;
    pchkEnablePA4[7] = chkEnablePA47;

    pradHighPA4[0] = radHighPA40;
    pradHighPA4[1] = radHighPA41;
    pradHighPA4[2] = radHighPA42;
    pradHighPA4[3] = radHighPA43;
    pradHighPA4[4] = radHighPA44;
    pradHighPA4[5] = radHighPA45;
    pradHighPA4[6] = radHighPA46;
    pradHighPA4[7] = radHighPA47;

    pradLowPA4[0] = radLowPA40;
    pradLowPA4[1] = radLowPA41;
    pradLowPA4[2] = radLowPA42;
    pradLowPA4[3] = radLowPA43;
    pradLowPA4[4] = radLowPA44;
    pradLowPA4[5] = radLowPA45;
    pradLowPA4[6] = radLowPA46;
    pradLowPA4[7] = radLowPA47;
}
//---------------------------------------------------------------------------
void __fastcall TfrmPMConfig::FormActivate(TObject *Sender)
{
    //{Initialize PA0 configure of user interface}
    for(int i = 0; i<8; i++)
    {
      //  {Mask register config}
      if (usPA0Mask & 1<<i)
         pchkEnablePA0[i]->Checked = true;
      else
         pchkEnablePA0[i]->Checked = false;
     //Value register config
      if (usPA0Value & 1<<i )
      {
          pradHighPA0[i]->Checked = true;
          pradLowPA0[i]->Checked = false;
       }
       else
       {
          pradHighPA0[i]->Checked = false;
          pradLowPA0[i]->Checked = true;
       }
     }

    //{Initialize PA4 configure of user interface}
    for(int i = 0; i<8; i++)
    {
      //  {Mask register config}
      if (usPA4Mask & 1<<i)
         pchkEnablePA4[i]->Checked = true;
      else
         pchkEnablePA4[i]->Checked = false;
     //Value register config
      if (usPA4Value & 1<<i )
      {
          pradHighPA4[i]->Checked = true;
          pradLowPA4[i]->Checked = false;
       }
       else
       {
          pradHighPA4[i]->Checked = false;
          pradLowPA4[i]->Checked = true;
       }
     }

}
//---------------------------------------------------------------------------
void __fastcall TfrmPMConfig::cmdOkClick(TObject *Sender)
{
    usPA0Mask = 0;
    usPA0Value = 0;
     for(int i = 0; i<8; i++)
    {
      //  {Mask register config}
      if( pchkEnablePA0[i]->Checked )
         usPA0Mask |= 1<<i;
       //Value register config
      if (pradHighPA0[i]->Checked)
         usPA0Value |= 1<<i;
    }


    //{ PA4 configure of user interface}
    usPA4Mask = 0;
    usPA4Value = 0;
     for(int i = 0; i<8; i++)
    {
      //  {Mask register config}
      if( pchkEnablePA4[i]->Checked )
         usPA4Mask |= 1<<i;
       //Value register config
      if (pradHighPA4[i]->Checked)
         usPA4Value |= 1<<i;
    }
    ModalResult = mrOk;


}
//---------------------------------------------------------------------------
void TfrmPMConfig::chkEnablePAClick(int port, int indx)
{
   switch( port )
   {
   case 0:
       pradHighPA0[indx]->Enabled = pchkEnablePA0[indx]->Checked;
       pradLowPA0[indx]->Enabled = pchkEnablePA0[indx]->Checked;
       break;
   case 4:
       pradHighPA4[indx]->Enabled = pchkEnablePA4[indx]->Checked;
       pradLowPA4[indx]->Enabled = pchkEnablePA4[indx]->Checked;
       break;
   default:
       break;
   }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPMConfig::chkEnablePA00Click(TObject *Sender)
{
    chkEnablePAClick(0,0);
}
//---------------------------------------------------------------------------

void __fastcall TfrmPMConfig::chkEnablePA01Click(TObject *Sender)
{
    chkEnablePAClick(0,1);
}
//---------------------------------------------------------------------------

void __fastcall TfrmPMConfig::chkEnablePA02Click(TObject *Sender)
{
    chkEnablePAClick(0,2);

}
//---------------------------------------------------------------------------

void __fastcall TfrmPMConfig::chkEnablePA03Click(TObject *Sender)
{
    chkEnablePAClick(0,3);

}
//---------------------------------------------------------------------------

void __fastcall TfrmPMConfig::chkEnablePA04Click(TObject *Sender)
{
    chkEnablePAClick(0,4);

}
//---------------------------------------------------------------------------

void __fastcall TfrmPMConfig::chkEnablePA05Click(TObject *Sender)
{
    chkEnablePAClick(0,5);

}
//---------------------------------------------------------------------------

void __fastcall TfrmPMConfig::chkEnablePA06Click(TObject *Sender)
{
    chkEnablePAClick(0,6);

}
//---------------------------------------------------------------------------

void __fastcall TfrmPMConfig::chkEnablePA07Click(TObject *Sender)
{
    chkEnablePAClick(0,7);

}
//---------------------------------------------------------------------------

void __fastcall TfrmPMConfig::cmdCancelClick(TObject *Sender)
{
       ModalResult = mrCancel;

}
//---------------------------------------------------------------------------

void __fastcall TfrmPMConfig::chkEnablePA40Click(TObject *Sender)
{
   chkEnablePAClick(4,0);

}
//---------------------------------------------------------------------------

void __fastcall TfrmPMConfig::chkEnablePA41Click(TObject *Sender)
{
   chkEnablePAClick(4,1);

}
//---------------------------------------------------------------------------

void __fastcall TfrmPMConfig::chkEnablePA42Click(TObject *Sender)
{
   chkEnablePAClick(4,2);

}
//---------------------------------------------------------------------------

void __fastcall TfrmPMConfig::chkEnablePA43Click(TObject *Sender)
{
   chkEnablePAClick(4,3);

}
//---------------------------------------------------------------------------

void __fastcall TfrmPMConfig::chkEnablePA44Click(TObject *Sender)
{
   chkEnablePAClick(4,4);

}
//---------------------------------------------------------------------------

void __fastcall TfrmPMConfig::chkEnablePA45Click(TObject *Sender)
{
   chkEnablePAClick(4,5);

}
//---------------------------------------------------------------------------

void __fastcall TfrmPMConfig::chkEnablePA46Click(TObject *Sender)
{
   chkEnablePAClick(4,6);

}
//---------------------------------------------------------------------------

void __fastcall TfrmPMConfig::chkEnablePA47Click(TObject *Sender)
{
   chkEnablePAClick(4,7);
        
}
//---------------------------------------------------------------------------