目錄

第一章SI的可擴(kuò)充性.?

1.1

1.2

1.3

1.4MCGS

1.5MCGS

1.6OLF

1.7DDE

1.8MCGS

第二章開發(fā)通功能構(gòu)件.

2.1

2.2

2.3

2.4

2.5

第三章開發(fā)必設(shè)備驅(qū)動.

3.1

3.2

3.3

3.4

3.5

3.6IO

3.7

3.8

3.9

3.1()

3.11

第四章H系統(tǒng)內(nèi)部數(shù)據(jù)對象.

4.1$Year

4.2SMonth

4.3$Day

4.4$Hour

4.5SMinute

4.6SSecond

4.7$Week

4.8SDate

4.9$Time

4.10STimer

4.11SRunTime

4.12SPageNum

4.13$UserName

第五章。系統(tǒng)內(nèi)部函數(shù).?

5.1!

5.2!

5.3!

5.4!

5.5!

5.6!

5.7!

5.8!

5.9!

5.10

第六章S中提供的對象.

6.1

6.2

MCGS

MCGS

MCGS

VisualC++

VisualBasicVisualBasic

VisualBasicVisualC++

MCGSVisualBasic

oMCGSMCGS

MCGSOLE

ActiveX

VisualBasicVisualC++

MCGSMCGSVisualBasic

MCGS

MCGSVisualBasicMCGS

VisualBasicMCGS

OLEVisualC++Delphi

OLE

MCGS

PentiumCPU

oWindows斑Window^T4.0

VisualBasic6.0MCGSMCGS

MCGS

MCGSVisualBasicMCGS

VisualBasic

VisualBasicVisualBasic

VisualBasic

99VisualBasic

VisualBasic\Samples

■■9999

“VB

Q

MCGS

a

o

oOLEMCGS

oDDEMCGS

MCGS

12可擴(kuò)充的設(shè)備驅(qū)動構(gòu)件

A/DD/A

PLC

MCGS

MCGS

MCGS

MCGS

MCGS

MCGS

MCGS

MCGS

13可擴(kuò)充的功能構(gòu)件

MCGS

MCGS

MCGS

MCGS

MCGS

VisualBasic6.0

MCGS

14串實(shí)時數(shù)據(jù)庫對象

MCGSMCGS

MCGS

MCGSOLE

MCGS

MCGS

CreateNewData

MCGS

MCGS

MCGS

MCGS

MCGS

B實(shí)時數(shù)據(jù)庫對象的屬性

WinVcr

McgsVerMCGS

McgsDataNum

McgsStgyNum

McgsWinNum

McgsDevNurn

McgsSetName

McgsSaveName

SvrPackage

H實(shí)時數(shù)據(jù)庫的方法

CreateNewData

GetDataFromName

GetDataFromIDID

GctDataNameID

GetDataTypc

GetDatalDID

SetDataDlg

GetDblDFromIDID

GetIDFromDblDID

GetAlmDatName

GetSaveDatName

GetGroupObjID

GetValueArrayID

SctValucArrayID

GetValueFromIDID

GetValueFromName

SetValueFromIDID

SetValueFromName

GetDeviceName

GetDeviceState

SetDevice

GetWindowName

GetWindowStale

SetWindow

GetStgyName

SetStgy

DclAlmDat

DelAHAlmDat

MoveAlinDat

SetAlmValueDatName

GetAlmValue

DelSaveDat

DeiAllSaveDat

ChangeSaveDal

MoveSaveDat

SaveData

SavcDatalnit

15M存盤服務(wù)對象

MCGS

MCGSMCGS

MCGS

方法：V

SetStartPos(ByvalFlagasLong)asLong

=0<>0

Flag

=0GetDat

=1PutDat

方法：B

MCGS

GetDat(ValueasVariant)asLong

=0<>0

ValueVariant

方法：?

MCGS

PutDat(ValueasVariant)asLong

=0<>0

ValueVariant

MCGS

GetDatPutDal

dimIaslong,jaslong,msgasstring,Dat(10)assingle

SaveObj.SetStartPos1

SaveObj.PutDalI

SaveObj.PutDalj

SaveObj.PutDatmsg

SaveObj.PutDatDat

dimIaslong,jaslong,msgasstring,Dat(10)assingle

SaveObj.SetStartPos0

SaveObj.GetDat1

SaveObj.GetDatj

SaveObj.GetDatmsg

SaveObj.GetDatDat

16通過E）自動化和其它應(yīng)用程序交互

MCGS

MCGSMCGS

MCGS

MCGS

MCGSMCGS

OLEMCGSVisualBaisc

ExcelAccessDelphiOLEMCGS

MCGS

在B中操作值

MCGS20

DatOlDat20VB

“MCGS-MCGSDatOlDat10

"MCGS"MCGS

DatilDat20

DimDatObjAsObject

PrivateSubForm_Load()

OnErrorResumeNext

SetDatObj=GetObject(,"McgsRun.DataCentre'1)

IfErrThen

MsgBox("MCGS!n)

End

EndIt

EndSub

PrivateSubCmd_Read_Click()

DimmsgAsString,ttAsVariant

Fori=1To10

msg="Dat"+Format$(i,,,00H)

DatObj.GetValucFormNamcmsg,tt

Txt(i)=Format$(tt)

Nexti

EndSub

PrivateSubCmd_Wirte_Click()

DimmsgAsString,ttAsVariant

Fori=1To10

msg="Datn+Format$(i,"00")

tt=Val(Txt(i+1()))

DatObj.SetValueFormNamemsg,tt

Nexti

EndSub

AssessExcelVBMCGS

VisualBasic

17通過B和其它應(yīng)用程序交互

MCGS(DDE)OLE

DDEMCGSDDE

OLEOLEDDE

MCGSExcelDDEExcelSheet1

11()MCGSDatOlDat1()Sheet1

110MCGSDatilDat20

DDEMCGSMCGS

■?AAAA

?'DDE

DDEDatOlDat10DDE

DDEDatilDat20DDE

o■￡AA

￡C9999

a“Excel

“Excel""Sheeil”(ExcelDDE

“Excel”—Sheet)

DatilDat2()“Excel.

R1C2RI0C2

ExcelSheet1RICIR10C1McgsRun|DataCentre.DalO1

McgsRun|DataCentre.Dat10DDEMCGS

MCGSDatOlDat10ExcelSheet1

Sheet1MCGSDatl1Dat20

1.8直接操作KI的存盤數(shù)據(jù)庫

MCGSAccess7.0

MCGSAlarminfoMCGS

+“MCGS”MCGS

MCGS“Shell”

MCGSShellMCGS

第二章開發(fā)功能構(gòu)件

MCGS

MCGS

MCGS

MCGS

VisualBasic6.0()MCGS

MCGS

21功能構(gòu)件的實(shí)現(xiàn)方法

MCGSActiveDLLOLE

MCGSMCGS

MCGS

OLE

MCGSVB

VCDelphiMCGSVisualBasic

VBMCGSVB

VB6.0VC

MCGSVB

MCGS

22功能構(gòu)件接口規(guī)范

MCGSVBActiveDLLMCGS

ActiveDLLMCGS

MCGS

SvrMenuCommand

SvrStgySetOperalor

SvrStgyRunOperator

SvrChcck

MCGS

接口：H

MCGS

MCGS

MCGS

SvrMenuCommand(strNameAsString,bQueryAsLong,DatObjAs

Object)AsLong

=0=1

strName"”

bQueryMCGS1

0

DatObjMCGS

接口：?a

ID

SvrStgySetOperator(strNameAsString,strNotesAsString,ilconAsLong,

DatObjAsObject,SaveObjAsObject,bQueryAsLong)AsLong

=0=1

strName

strNotes

ilconID

ID=0MCGS

bQueryMCGS1

0

DatObjMCGS

SavObj

接口：一

SvrSlgyRunOperator(DatObjAsObject,SaveObjAsObject)AsLong

=0=1

DatObjMCGS

SavObj

接口：E

MCGS

SvrCheck(DatObjAsObject,CheckFlagAsLong)AsLong

=0=1

DatObjMCGS

CheckFlag

23利用開發(fā)向?qū)煽蚣?/p>

MCGS

MCGS

VisualBasic6.0

“"MCGS

“MyDLL”

VBActiveDLL

MyDLL.DLLMCGS

“D:\AddIn”

""""MCGS

“MyDLL”

VBVB

MyDLL

AddlnObj

TestDLLVB

MCGSD:\AddIn

MCGS

24利用樣例程序移植

MCGS

MCGS

OLE

ActiveDLL

MCGS

D:\McgssdkD:\Mcgssdk\samples\AddIn

AlmAddIn

D:\MyDLLALmAddlnD:\MyDLL

".vbg"TestDLL.vbg

VisualBasic6.()VB

AlmAddInTestDLL

AImAddin

“""AlmAddln"

""AlmAddln

MyDLL

/餐99￡￡99￡C99

VB""^AlmAddln.vbp"MyLL.vbp

VB""AlmAddIn.dir,“'

“MyDLL.dlL”

MyDLL”"

>A■VAA

AlmAddIn.dllMyDLL.dll"”

AddlnObjSvrStgySetOpcrator

strName="

strNotes=^^

TestDLLVB"TestDLL

AlmAddlnMyDLL

PLC

25測試和掛接功能構(gòu)件

MCGSVB

MCGS

MCGS

VB-TestDLLMCGS

VB

-D:\AddIn-MyDLL-

VBMvDLL

TestDLL

MCGSMCGS

MCGSMCGSVB

VBF5

MyDLL

ActivedllMyDLL.dllD:\MCGS\Piograin\

AddinsMCGSD:\Mcgs

MCGSAddins

Addlns.iniMyDLL.dll

MCGS

MCGSV<>A〈工》A

MCGS

SvrMcnuCommand

MCGS

MCGS

第三章開發(fā)設(shè)備驅(qū)動

MCGS

MCGS

MCGS

Win95

WinNTMCGS

C

VisualBasicMCGS

MCGS

MCGSVB

VisualBasic6.0()MCGS

31設(shè)備驅(qū)動構(gòu)件的實(shí)現(xiàn)方法

MCGSActiveDLLOLE

MCGSMCGS

MCGS

DDE

OLE

MCGSVBVC

DelphiMCGSVisualBasic

VBMCGSVB

VB6.0VC

MCGS

PC

IDCN-893

PLC

(PC)

MCGS

32設(shè)備驅(qū)動構(gòu)件接口規(guī)范

MCGSVBActiveDLLMCGS

ActiveDLLMCGS

MCGS58

DevType

DevStyle

DcvChanncl

DevBaselOIO

DevIONumberIO

GetDevName

GetDevHelp

SetDevPage

InitNewDev

GetChlType

InitDevRun

RunDevCommand

CollectDevDat

MCGS8

屬性接口:P

Mcgs°

1

PublicPropertyGetDcvTypc()AsLong

屬性接口:?

Mcgs°

1

PublicPropertyGetDevStyle()AsLong

屬性接口:?

Mcgs

PublicPropertyGetDevChannel()AsLong

屬性接口:H

McgsIO

PublicPropertyGetDevIONumber()AsLong

屬性接口:DBD

Mcgs10

16

PublicDevBaselOAsLongPublicPropertyGetDevBaselO()AsLong

IO0

方法接口:H

MCGS

**Omron200PLC”MCGS

GetDevName()asstring

方法接口:H

InitNcwDev(SavObjAsObject)asLong

=0<>0

SavObj

方法接口:?

SetDevPage(SavObjasObject)asLong

=0=1

SavObj

方法接口:JE

GetChlType(DatAsVariant,msgAsVariant)AsLong

=0=1

Dat=1

=2=30

MCGS0MCGS

msg

方法接口:B

MCGS

InitDevRun(SavObjAsObject,DatObjAsObject)aslong

=0=1MCGS

SavObj

DataObj

方法接口:B

MCGS

CollectDevDat(DatFAsVariant,DatAsVariant,msgAsVariant)aslong

=-1

=0

=1

=2

DatF,,=0=1

Dat,,

Msg,,

方法接口:?

McgsOLE

Automation

RunDevCommand(DatObjAsObject,ByVaiCmdAsString)asLong

=0Mcgs

=1Mcgs

=2Mcgs

DataObj

Cmd,,

33利用開發(fā)向?qū)煽蚣?/p>

MCGS

MCGS

VisualBasic6.0

“"MCGS

“MyDev”“

VBActiveDLL

MyDcv.DLLMCGS

“D:\Dcv

MCGS

'MyDev”

VBVB

MyDev

DevObj

TestDevVB

MCGSD:\Dev

DevBas

MCGS

34利用樣例程序移植

MCGS

MCGS

OLE

ActiveDLL

MCGS

D:\Mcgssdk

D:\Mcgssdk\samples\Device

PC6319ZTPC6319PLC

OmronPLC

PC6319

D:\MyDevZTPC6319D:\MyDcv

VisualBasic6.0TestDev.vbg

VBDevZT6319TestDev

DevZT6319

“”"DevZT6319”

■<9999DevZT6319

MyDev

VB"”“ZT6319.vbp”MyDcv.vbp

VB""“ZT6319.dll”"99

“MyDev.dll"V<99

MyDev"”

￡￡99￡￡99

ZT6319R.dllMyDev.dll""

DevSetObjGetDevName

GetDevNarne=NN

TestDevVB""""TestDev

DcvZT6319MyDev

PLC

35測試和掛接設(shè)備驅(qū)動構(gòu)件

MCGSVB

CDDE

MCGS

MCGS

VB—TestDevMCGS

VB

—D:\Dev—MyDev—

VBMyDev

TestDcv

MCGSMCGS

MCGSMCGSVB

VBF5

99

IO

MyDev

dllMyDev.dllD:\MCGS\Program\Driver

MCGSD:\McgsMCGS

MCGS

MCGS

￡C99D:\MCGS\Program\DrivcrMyDcv.dll

99

A

MCGS

36D端口的操作

IO

DOSWindows3.116Win95

WinNTIO

10

IO

Win95WinNTMCGSIO

Win95WinNT

DOS10

OpenPortHandle

HandleInpInpWOutpOutpW

ClosePort

mHandle

InitDcvRunOpenPort

mHandle

ClassTerminateClosePort

函數(shù)：a

IO

PublicDeclarefunctionOpenBortLib"mcgsext.dll''(HandleAsLong)

AsLong

=0<>0

Handle,

函數(shù)：K

IO

PublicDeclareFunctionClosePortLib“mcgsext.dir'(ByVaiHandleAs

Long)AsLong

=0<>()

Handle,10

函數(shù)：n

IO8

PublicDeclareFunctionInpLib"mcgsext.dlL(ByVaiHandleAsLong,

ByVaiPortAddressAsLong)AsLong

<0>=0

Handle,10

PortAddress,IO

函數(shù)：a

1016

PublicDeclareFunctionInpWLib"mcgsext.drT(ByVaiHandleAsLong,

ByVaiPortAddressAsLong)AsLong

<0>=0

Handle,10

PortAddress,IO

函數(shù)：僅

810

PublicDeclareFunctionOutpLib"mcgsext.dlf”(ByVaiHandleAsLong

ByVaiPortAddressAsLong,ByVaiValueAsLong)AsLong

=010<>0IO

Handle,10

PortAddress,IO

ValueIO

函數(shù)：聊

16IO

PublicDeclareFunctionOutpWLib"mcgsext.dll"(ByVaiHandleAs

Long,ByVaiPortAddressAsLong,ByVaiValueAsLong)AsLong

=0IO<>()IO

Handle,10

PortAddress,10

ValueIO

37串行口的操作

MCGS

32

MCGS

MCGS

CPU

函數(shù)：a

FunctionComOutDat(ByValOutNumAsLong,OutByte()AsByte)As

Long

=0<>0

OutNum

OutByte

函數(shù)：B

FunctionComInDat(InByte()AsByte.ByVaiInputFlagAsLong,ByVai

InputNumAsLong,ByVaiInputCharAsLong,ByVaiDelayTimeAs

Long)AsLong

>0<=0

InputByte

InputFlag

InputNum

InputCharASCII

DelayTimems

InputFlag

Inp