Cicode- Citect SCADA

/*Builds a form to provide simple user access to the all Variable Tags during runtime. Reading and writing are supported.*/

STRING  sValue;             ! Value read or to write

STRING  sTag;               ! Variable Tag name

INT     hForm = -1;         ! Form handle

STRING

FUNCTION

TagDebug()

    IF hForm = -1 THEN

        sTag = "";

        sValue = "";

        hForm = FormNew("@(TagDebug)", 72, 3, 9);

        FormComboBox(0 ,0, 59, 5, sTag, 1);

        _tagDebugFillTagList();

        FormEdit(0, 1, sValue, 34);

        FormButton(60, 0, " " + "@(Read)" + "  ", _tagDebugRead, 0);

        FormButton(60, 1, " " + "@(Write)" + " ", _tagDebugWrite, 0);

        FormButton(60, 2, " " + "@(Close)" + " ", 0, 2);

        FormRead(0);

        hForm = -1;

        return(sTag);

    END

END