2 Visual Components Manuals

3.3.8.8.2 Example for Automation Basic
(* cyclic program *)
if ready 1 then
VC_HANDLE = VA_Setup(1 "vga") ,
VC_HANDLE if 0 then
ready = 1
endif
endif
if ready = 1 then
VA_Saccess(1,VC_HANDLE)= if
0 then
VA_GetAlCurPos(1,VC_HANDLE,
adr(Groupnumber),adr(Alarmnumber))
VA_Srelease(1,VC_HANDLE)
endif
endif
3.3.8.8.3 Example for C Programming
#include
#include
#include
UINT _GLOBAL ready;
DINT _GLOBAL Groupnumber;
DINT _GLOBAL Alarmnumber;
unsigned long VC_HANDLE;
_CYCLIC void Cyclic(void)
{
if (!ready)
{
VC_HANDLE = VA_Setup(1 "vga"); ,
if (VC_HANDLE)
ready = 1;
}
if (ready)
{
if (!VA_Saccess(1,VC_HANDLE))
{
1,VC_HANDLE, VA_GetAlCurPos(
(DINT) &Groupnumber, (DINT) &Alarmnumber);
VA_Srelease (1,VC_HANDLE);
}
}
}
3.3.8.9 Touch Screen Calibration − VA_GetCalStatus
VA_GetCalStatus can be used to inquire whether calibration already took place with the VA_StartTouchCal
function and whether it was completed successfully.
3.3.8.9.1 Parameter
I/O Parameter Type Meaning
IN enable BOOL This function is only executed if enable is TRUE.
IN VCHandle UDINT The handle returned by VA_Setup.
OUT Return Value UINT
3.3.8.9.2 Example for Automation Basic
(* cyclic program *)
if ready 1 then
VC_HANDLE = VA_Setup(1 "vga") ,
if VC_HANDLE 0 then
ready = 1
0 ................. Touch screen was successfully calibrated
0xFFFF ......... A general error occurred
All others ...... Calibration still active.
Introduction to Visual Components 2.3
144 3.3.8.8 Alarm Information at the Cursor Position − VA_GetAlCurPos