2 Visual Components Manuals

CASE selection OF
ACTION 1:
ENDACTION
Status = VA_StopProject(1,VC_HANDLE)
ACTION 2:
AccessStatus = VA_Saccess(1,VC_HANDLE)
IF AccessStatus = 0 THEN
VA_Line(1,VC_HANDLE, 10,10,100,100,1)
VA_Srelease(1,VC_HANDLE)
ENDIF
ENDACTION
ACTION 3:
ENDACTION
ELSEACTION :
ENDACTION
ENDCASE
ENDIF
selection = 0
3.3.8.33.3 Example for C Programming
#include
#include
#include
_GLOBAL UINT ready;
_GLOBAL USINT Type;
_GLOBAL UINT selection;
_GLOBAL UDINT Status;
_GLOBAL UDINT VC_HANDLE;
_GLOBAL UDINT AccessStatus;
_INIT void InitSp(void)
{
ready=0;
selection=0;
}
_CYCLIC void Cyclic(void)
{
if (!ready)
{
VC_HANDLE = VA_Setup(1 , "vga");
if (VC_HANDLE)
ready = 1;
}
if (ready)
{
switch(selection)
Status = VA_StartProject(1,VC_HANDLE)
{
case 1:Status=VA_StopProject(1,VC_HANDLE);break; /* Project is stopped */
case 2: AccessStatus=VA_Saccess(1,VC_HANDLE);
if (AccessStatus==0)
{
VA_Line(1,VC_HANDLE,10,10,100,100,1);
VA_Srelease(1,VC_HANDLE);
}
break;
case 3:Status=VA_StartProject(1,VC_HANDLE);break; /* Project is started */
default: break;
}
selection = 0;
}
}
Introduction to Visual Components 2.3
168 3.3.8.33 Manual Project Control − VA_StartProject