联网数据库20071129_tagcopy.ci

用VB实现的数据库转换工具,可以将DBF转换为Access数据库

/*************************************************************
Function:  TagCopy()
Description: Copies the physical PLC into the virtual PLC.
Parameters: None
Return value: 0
Revision: 0
*************************************************************/
INT
FUNCTION
TagCopy()
INT iCount, iScandelay;
iScanDelay = StrToInt(ParameterGet("Ampac","ScanDelay","500"));
WHILE 1 DO
	For iCount = 0 to 49 DO
		Reg001_100v[iCount] = Reg001_100p[iCount];
		Reg101_200v[iCount] = Reg101_200p[iCount];
		Reg201_300v[iCount] = Reg201_300p[iCount];
		Reg301_400v[iCount] = Reg301_400p[iCount];
		Reg401_500v[iCount] = Reg401_500p[iCount];
		Reg501_600v[iCount] = Reg501_600p[iCount];
		Reg601_700v[iCount] = Reg601_700p[iCount];
		Reg701_800v[iCount] = Reg701_800p[iCount];
		Reg801_900v[iCount] = Reg801_900p[iCount];
		Reg901_1000v[iCount] = Reg901_1000p[iCount];
		Reg1001_1100v[iCount] = Reg1001_1100p[iCount];
	END
	SleepMS(iScanDelay);
END
RETURN 0;
END