#include <c:\bedsie\iecmsc.h>   /* IEC driver definici�s f�jl */
#include "transfer.h"   /* panel konstansok f�jl */
#include "math.h"
#include "stdio.h"
/*--------------------------------------------------------------------*/
/*--------------------------------------------------------------------*/
#define POWER_ADDR 2    /* t�pegys�g IEC c�m */
#define FUNC_ADDR 5     /* funkci�gener�tor IEC c�m */
#define MULTI_ADDR 3    /* multim�ter IEC c�m */

#define WAIT 1          /* GetUserEvent v�r */
#define NOWAIT 0        /* GetUserEvent nem v�r */
/*--------------------------------------------------------------------*/
/*--------------------------------------------------------------------*/
int powerV,powermA;             /* TR_VoltageDC, TR_ClimitDC */

long startfr,endfr;             /* TR_StartFREQ TR_EndFREQ */
int funVpp,funatten,stepnum,i;  /* TR_VoltageFUN TR_Attenuation TR_StepNUM */
/*---------------------------------------------------------------------*/
double adat[400];
double fr[400];
float aktadat;
/*double aktadat;*/
double aktfrek;
/*--------------------------------------------------------------------*/
int p,mp,pan,ctrl,intx;
int devaddr,res,aktfr;

char buffer[100];  /* �zenet buffer */
int addrs[2];      /* c�m t�mb */
/*---------------------------------------------------------------------*/
/* F�ggv�nyek */
/*------------------------------------------------------------------------*/
/* Delay(1.0) / delay(0.1) sec!
/*PlotXY (panel, control ID, X array, Y array, numb. of points,
      4:double, 4:double, 0:line, 0:empty sq., 1: poin fr.,white:15);*/
/* sscanf(buf,"%f",&data); float data!*/
/*------------------------------------------------------------------------*/
/* IEC �zenet elk�ld�se buffer-b�l, esetleg �ssze�ll�t�sa is */
/*------------------------------------------------------------------------*/
int IECsend(int addr)
{
int len;

 SetCtrlVal(mp,IEC_error,0);     /* error ablak t�rl�s */
 SetCtrlVal(mp,IEC_TXT,buffer);  /* �zenet ablak t�rl�s */

 InstallPopup(mp);         /* felt�t panel megjelen�t�s */

 if (addr)      /* ha �rv�nyes c�mmel h�vt�k */
 {
  SetCtrlVal(mp,IEC_ADDR,addr);  /* c�m ki�r�s */
  SetCtrlVal(mp,IEC_TXT,buffer); /* k�sz�l�k parancs ki�r�s */
  GetPopupEvent(1,&ctrl);        /* MESSAGE/QUIT megnyom�sra v�r */
 }
 else           /* ha 0 c�mmel h�vt�k */
 {
  GetPopupEvent(1,&ctrl);        /* MESSAGE/QUIT megnyom�sra v�r */
  GetCtrlVal(mp,IEC_ADDR,&addr); /* c�m beolvas�s */
  GetCtrlVal(mp,IEC_TXT,buffer); /* parancs sz�veg beolvas�s */
 };

 addrs[0]=addr;                 /* c�m lista t�lt�s */
 len=strlen(buffer);            /* �zenet hossz */
 i_send(addrs,1,buffer,len,0);  /* �zenet k�ld�s */

 SetCtrlVal(mp,IEC_TXT,"Message has been sent"); /* nyugta sz�veg */
 SetCtrlVal(mp,IEC_error,i_error);    /* IEC dr�jver hiba�zenet */

 buffer[0]=0;            /* buffer t�l�s */

 GetPopupEvent(1,&ctrl); /* MESSAGE/QUIT megnyom�sra v�r */
 RemovePopup(mp);        /* felt�t panel lev�tel */

} /* IECsend() */
//===========================================================================================
int IECsend1(int addr)
{
int len;

 addrs[0]=addr;                 /* c�m lista t�lt�s */
 len=strlen(buffer);            /* �zenet hossz */
 i_send(addrs,1,buffer,len,0);  /* �zenet k�ld�s */

} /* IECsend() */
//===========================================================================================
/*--------------------------------------------------------------------*/
/* IEC �zenet v�tel */
/*--------------------------------------------------------------------*/
int IECreceive(int addr)
{
int len,i;


 len=100;                              /* max. �zenet hossz */
 for (i=0; i < len; i++) buffer[i]=0;  /* �zenet buffer t�rl�s */

 SetCtrlVal(mp,IEC_TXT,buffer); /* �zenet ablak t�rl�s */
 SetCtrlVal(mp,IEC_error,0);    /* error ablak t�rl�s */

 InstallPopup(mp);  /* felt�t panel felrajzol�s */

 if (!addr)                      /* ha 0 c�mmel h�vt�k */
 {
  GetPopupEvent(1,&ctrl);        /* SAVE/QUIT megnyom�sra v�r */
  GetCtrlVal(mp,IEC_ADDR,&addr); /* c�m beolvas�s */
 };

 i_receive(addr,buffer,len,0);     /* v�tel az 'addr' besz�l�t�l */

 SetCtrlVal(mp,IEC_TXT,buffer);    /* az �zenet ki�r�sa az ablakba */
 SetCtrlVal(mp,IEC_error,i_error); /* IEC hibajelz�s ki�r�sa */

 GetPopupEvent(1,&ctrl);           /* SAVE/QUIT megnyom�sra v�r */

 RemovePopup(mp);       /* felt�t panel t�rl�se */

} /* IECreceive() */
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
int IECreceive1(int addr)
{
int len,i;


 len=100;                              /* max. �zenet hossz */
 for (i=0; i < len; i++) buffer[i]=0;  /* �zenet buffer t�rl�s */

 i_receive(addr,buffer,len,0);     /* v�tel az 'addr' besz�l�t�l */

} /* IECreceive() */
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
/*--------------------------------------------------------------------*/
void main()
{
int res,err;
int len,j;
double x,y,lepes;

res=i_init(0);  /* IEC vez�rl� k�rtya in�cializ�l�s */

if (res!=1) {MessagePopup("IEC board initialisation error");};

res=i_assign_auto();

if (i_error==-182) {MessagePopup("IEC bus timeout error");};

addrs[1]=-1;

p = LoadPanel ("TRANSFER.UIR", TR);     /* f�panel */
mp = LoadPanel ("TRANSFER.UIR", IEC);   /* IEC ad�s-v�tel panel */
SetActiveCtrl(TR_StandbyDC);


DisplayPanel (p);

while (1)
{

 GetUserEvent(WAIT,&pan,&ctrl);    /* esem�nyre v�r */

 switch(ctrl)
  {
  case TR_EXIT: /* kil�p�s az EXIT gombbal */
    exit(0);
    break;

  case TR_SEND: /* �zenet k�ld�s a SEND gombbal */
    IECsend(0);
    break;

  case TR_REC: /* �zenet v�tel a REC gombbal */
    IECreceive(0);
    break;


  case TR_StandbyDC: /* t�pegys�g ON-OFF kapcsol� */

    GetCtrlVal(p,TR_StandbyDC,&intx);

    if (intx) /* bekapcsol�s */
    {
     GetCtrlVal(p,TR_VoltageDC,&powerV);
     GetCtrlVal(p,TR_ClimitDC,&powermA);

     sprintf(buffer,"VOLTAGE 3,%i; CURRENT 3,0.%i",powerV,powermA);
     IECsend(POWER_ADDR);
     sprintf(buffer,"CLIMIT 3,0.%i",powermA+1);
     IECsend(POWER_ADDR);

     sprintf(buffer,"VOLTAGE 5,%i; CLIMIT 5,0.%i",powerV,powermA);
     IECsend(POWER_ADDR);
     sprintf(buffer,"CLIMIT 5,0.%i",powermA+1);
     IECsend(POWER_ADDR);

     sprintf(buffer,"STANDBY 3,OFF; STANDBY 5,OFF");
     IECsend(POWER_ADDR);
    }
    else /* kikapcsol�s */
    {
     sprintf(buffer,"STANDBY 3,ON; STANDBY 5,ON");
     IECsend(POWER_ADDR);
    };
    break;

 case TR_StandbyFUN: /* jelgener�tor ON-OFF kapcsol� */

    GetCtrlVal(p,TR_StandbyFUN,&intx);

    if (intx) /* bekapcsol�s */
    {
     GetCtrlVal(p,TR_VoltageFUN,&funVpp);
     GetCtrlVal(p,TR_Attenuation,&funatten);

     GetCtrlVal(p,TR_StartFREQ,&startfr);

     sprintf(buffer,"AMPLITUDE %i; ATTEN %i; FREQ %i",funVpp,funatten,startfr);
     IECsend(FUNC_ADDR);

     sprintf(buffer,"STANDBY OFF");

     IECsend(FUNC_ADDR);
    }
    else /* kikapcsol�s */
    {
     sprintf(buffer,"STANDBY ON");
     IECsend(FUNC_ADDR);
    };

    break;

 case TR_SWEEP: /* SWEEP nyom�gomb */
    GetCtrlVal(p,TR_StartFREQ,&startfr); /* Kezdo frekvencia beolvasasa konzolrol */
    GetCtrlVal(p,TR_EndFREQ,&endfr); /* Vegfrekvencia beolvasasa */
    GetCtrlVal(p,TR_StepNUM,&stepnum); /* Lepesszam beolvasasa */
    GetCtrlVal(p,TR_VoltageFUN,&funVpp); /* Amplitudo beolvasasa */
    GetCtrlVal(p,TR_Attenuation,&funatten); /* Csillapitasi ertek beolvasasa */

    DeletePlots (p, TR_Graph); /* Fuggvenyablak tartalmanak torlese */

    sprintf(buffer,"AMPLITUDE %i; ATTEN %i; FREQ %i",funVpp,funatten,startfr);
    IECsend(FUNC_ADDR);
    sprintf(buffer,"SINE; STANDBY OFF");
    IECsend(FUNC_ADDR);
 /* Fuggvenygenerator kimenojelenek beallitasa a beolvasott ertekek alapjan */

    sprintf(buffer,"RANGE 0; FUNCTION VAC");
    IECsend(MULTI_ADDR);
    /* Multimeter beallitas */

    lepes = (log10(endfr)-log10(startfr))/stepnum;
    /* Atmeneti valtozo az ertelmezesi tartomany ertekeinek szamitasahoz */

    for (j=0; j<=stepnum-1; j++) /* Meresi ciklus */
     {
    x = 10.0;
    y = log10(startfr)+lepes*j;
      aktfrek=pow(x,y);
    /* A frekvencia ertekek egyenletes teritese a meresi tartomanyon */
    sprintf(buffer,"FREQ %f",aktfrek);
    /* Frekvencia-ertek elkuldese a fuggvenygeneratornak */
    IECsend1(FUNC_ADDR); /* anelkul hogy a dialogusablak megjelenne */
    delay(0.4); /* Varakozas, hogy a merendo halozat bealljon */
    sprintf(buffer,"DATA?");
    IECsend1(MULTI_ADDR); /* dialogusablak nem jelenik meg a send1 miatt */
    IECreceive1(MULTI_ADDR); /* Mert ertekek lekerdezese a multimetertol */
    /* dialogusablak nem jelenik meg a send1-receive1 miatt */
    sscanf(buffer,"%f",&aktadat); /* string-lebegopontos konverzio */
    adat[j]=aktadat;
    /* Mert adat beirasa az adatokat tarolo tomb megfelelo cellajaba */
    /* automatikus lebegopontos-double konverzio */
    fr[j]=aktfrek; /* Meresi tartomany ertekeit tartalmazo tomb feltoltese */
    }
    PlotXY (p,TR_Graph,fr,adat,stepnum,4,4,1,2,1,15); /* Grafikus abrazolas */
    break;

    case TR_COPY: /* hardcopy */
/*
    int status = OutputGraph (-1, "", 1, panelh, ctrlid);
    int status = OutputPanel (-1, "", 1, panelh);
    int status = OutputScreen (-1, "");
*/
       OutputScreen (-1, "");

     break;

  }/*switch*/
}/*while*/

}/*main*/