昆仑通触摸屏MCGS高级开发指南

1、MCGS 高级开发指南i 1i?MCGS ?.41.1?.41.2?.61.3?. 71.4MCGS ?.81.5MCGS ?.101.6 ? OLE ?.121.7? DDE ?.141.8? MCGS ?.16? MCGS ?.172.1?.172.2?. 182.3?.202.4?. 222.5?.25? MCGS ?.273.1?.273.2?.283.3?.323.4?. 353.5?.373.6IO ?.403.7?. 433.8?.443.9?.45www.PLCMCGS 高级开发指南i 2i3.10?.473.11?.48?MCGS ?.534.1$Year.534.2$Month.534.3$Day.534.4$Hour.544.5$Minute.544.6$Second.544.7$Week.544.8$Date.544.9$Time.554.10$Timer.554.11$RunTime. 554.12$PageNum.554.13$UserName. 56?MCGS ?.575.1?. 575.2?. 595.3?. 615.4?. 625.5?. 635.6?

2、. 645.7?. 645.8?. 675.9?. 705.10?. 71?MCGS ?.74www.PLCMCGS 高级开发指南i 3i6.1?. 746.2?. 92www.PLCMCGS 高级开发指南i 4i?MCGS ?1.1?MCGS ? Visual Basic?C+?Delphi ? MCGS ? MCGS ? MCGS ? MCGS ?MCGS ?MCGS?Excel?Access?MCGS?www.PLCMCGS 高级开发指南i 5i?MCGS?MCGS? ?MCGS?Visual C+?Visual Basic?Visual Basic?Visual Basic?Visual C+? ?MCGS?Visual Basic?MCGS?MCGS?MCGS ? OLE ?ActiveX ? ?Visual Basic?Visual C+? MCGS ?MCGS ? Visual Basic ? MCGS ?MCGS ? Visual Basic ? MCGS ? Visual Basic ? MCGS ? OLE ? Visual C+?Delphi ? OLE ? MC

3、GS ?Pentium?CPU?Windows95?WindowNT 4.0?Visual Basic 6.0?MCGS?MCGS?MCGS? MCGS ? Visual Basic ? MCGS ? Visual Basic ?Visual Basic ? Visual Basic ?www.PLCMCGS 高级开发指南i 6i?Visual Basic ? Visual Basic ? Visual Basic ?Samples ?VB ? 突点理考 ?MCGS ?OLE?MCGS?DDE?MCGS?MCGS ?1.2?A/D?D/A ? PLC ?MCGS ?www.PLCMCGS 高级开发指南i 7i?MCGS ?MCGS ? MCGS ? MCGS ?MCGS ? MCGS ? MCGS ?1.3?MCGS ? MCGS ? MCGS ? MCGS ?MCGS ?Visual Basic6.0 ?www.PLCMCGS 高级开发指南i 8i? MCGS ?1.4MCGS? MCGS ?MCGS ? ? MCGS ?MCGS ? OLE ? ? ? MCGS ?MCGS ? C

4、reateNewData ?MCGS ? MCGS ? MCGS ? MCGS ?MCGS ?MCGS?WinVer?McgsVer?MCGS ?McgsDataNum?McgsStgyNum?www.PLCMCGS 高级开发指南i 9iMcgsWinNum?McgsDevNum?McgsSetName?McgsSaveName?SvrPackage?MCGS?CreateNewData?GetDataFromName?GetDataFromID? ID ?GetDataName? ID ?GetDataType?GetDataID? ID ?SetDataDlg?GetDbIDFromID? ID ?GetIDFromDbID? ID ?GetAlmDatName?GetSaveDatName?GetGroupObj? ID ?GetValueArray? ID ?SetValueArray? ID ?GetValueFromID? ID ?GetValueFromName?SetValueFromID? ID ?SetValueFromName?www.PLCMCGS 高级开发指南

5、i 10iGetDeviceName?GetDeviceState?SetDevice?GetWindowName?GetWindowState?SetWindow?GetStgyName?SetStgy?DelAlmDat?DelAllAlmDat?MoveAlmDat?SetAlmValue? DatName ?GetAlmValue?DelSaveDat?DelAllSaveDat?ChangeSaveDat?MoveSaveDat?SaveData?SaveDataInit?1.5MCGS?MCGS ? MCGS ?MCGS ?www.PLCMCGS 高级开发指南i 11i?MCGS ?SetStartPos?SetStartPos( Byval Flag as Long ) as Long? ? ?=0?0?Flag?=0? GetDat ?=1? PutDat ?GetDat? MCGS ?GetDat( Value as Variant ) as Long? ? ?=0?0?Value?Variant ?PutDat? MCGS ?PutDat( Value as Var

6、iant ) as Long? ? ?=0?0?Value?Variant ?www.PLCMCGS 高级开发指南i 12iMCGS ?GetDat ? PutDat ?dim I as long, j as long, msg as string,Dat(10) as singleSaveObj. SetStartPos 1SaveObj.PutDat ISaveObj.PutDat jSaveObj.PutDat msgSaveObj.PutDat Dat?dim I as long, j as long, msg as string,Dat(10) as singleSaveObj. SetStartPos 0SaveObj.GetDat ISaveObj.GetDat jSaveObj.GetDat msgSaveObj.GetDat Dat1.6 ?OLE?MCGS ?MCGS ? MCGS ? MCGS ? MCGS ?MCGS ? MCGS ? OLE ? MCGS? Visual Baisc?Excel?Access ?Delphi ? OLE ? MCGS ? MCG

7、S ?Visual Basic?MCGS? MCGS ? 20 ?www.PLCMCGS 高级开发指南i 13i? Dat01 ? Dat20? VB ? ? MCGS ? MCGS ? Dat01 ? Dat10 ? MCGS ? MCGS ?Dat11 ? Dat20 ?Dim DatObj As ObjectPrivate Sub Form_Load()On Error Resume NextSet DatObj = GetObject(, McgsRun.DataCentre)If Err ThenMsgBox (? MCGS ?!)EndEnd IfEnd SubPrivate Sub Cmd_Read_Click()Dim msg As String, tt As VariantFor i = 1 To 10msg = Dat + Format$(i, 00)DatObj.GetValueFormName msg, ttTxt(i) = Format$(tt)www.PLCMCGS 高级开发指南i 14iNext iEnd SubPrivate Sub Cmd_Wirte_

8、Click()Dim msg As String, tt As VariantFor i = 1 To 10msg = Dat + Format$(i, 00)tt = Val(Txt(i + 10)DatObj.SetValueFormName msg, ttNext iEnd Sub? Assess?Excel ? VB ? MCGS ? ? Visual Basic ?1.7?DDE?MCGS?(DDE)? ?OLE?DDE ? MCGS ? DDE ? OLE? OLE ? DDE? MCGS ? Excel ? DDE ? Excel ? Sheet1? 1 ? 10 ? MCGS ? Dat01 ? Dat10 ? Sheet1? 1 ? 10 ? MCGS ? Dat11 ? Dat20 ? ?DDE ? MCGS ? MCGS ?DDE ?www.PLCMCGS 高级开发指南i 15i? DDE ? Dat01 ? Dat10 ? DDE ? DDE ? Dat11 ? Dat20 ? DDE ?Excel?Excel?Sheet1?(?Excel?DDE?Excel?

9、-Sheet?)www.PLCMCGS 高级开发指南i 16i? Dat11 ? Dat20 ?Excel ? R1C2 ? R10C2? Excel? Sheet1 ? R1C1 ? R10C1 ? McgsRun|DataCentre.Dat01? McgsRun|DataCentre.Dat10? ? DDE ? ? MCGS?MCGS ? Dat01 ? Dat10 ? Excel ? Sheet1 ? Sheet1 ?MCGS ? Dat11 ? Dat20?1.8?MCGS?MCGS ? Access7.0 ? ? MCGS_AlarmInfo?MCGS ?+?_MCGS? MCGS ?MCGS ?Shell? MCGS ? Shell ? MCGS ?www.PLCMCGS 高级开发指南i 17i? MCGS ?MCGS ? ? ? ? MCGS? MCGS ? MCGS ? Visual Basic6.0(?)? MCGS ? MCGS ?2.1?MCGS ? Active DLL ? OLE ?MCGS ? MCGS ? MCGS ?OLE ? MCGS ? VB?V

10、C?Delphi ? MCGS ? Visual Basic ? VB ? MCGS ? VB ? ? VB6.0 ? ? VC?MCGS ? VB ?MCGS ?www.PLCMCGS 高级开发指南i 18i2.2?MCGS ? VB ? ActiveDLL ? MCGS? ActiveDLL ? MCGS ?MCGS ? 4 ?SvrMenuCommand?SvrStgySetOperator?SvrStgyRunOperator?SvrCheck? MCGS ? 4 ?SvrMenuCommand? MCGS ? MCGS ? MCGS ?SvrMenuCommand(strName As String, bQuery As Long, DatObj AsObject) As Long? ? ?=0?=1 ?strName?bQuery?MCGS ? 1? 0?DatObj?MCGS ?SvrStgySetOperator? ID ?www.PLCMCGS 高级开发指南i 19i?SvrStgySetOperator(strName As String, strNotes As

11、String, iIcon As Long,DatObj As Object, SaveObj As Object, bQuery As Long) As Long? ? ?=0?=1 ?strName?strNotes ?iIcon ? ? ID ? ? ID=0?MCGS ?bQuery?MCGS ? 1? 0?DatObj?MCGS ?SavObj ?SvrStgyRunOperator?SvrStgyRunOperator(DatObj As Object, SaveObj As Object) As Long? ? ?=0?=1 ?DatObj?MCGS ?SavObj ?SvrCheck? MCGS ?SvrCheck(DatObj As Object, CheckFlag As Long) As Long? ? ?=0?=1 ?DatObj?MCGS ?CheckFlag?2.3?MCGS ?www.PLCMCGS 高级开发指南i 20i?MCGS?Visual Basic6.0?MCGS?MyDLL?VB?Active DLL?MyDLL.DLL?MCGS?www.PL

12、CMCGS 高级开发指南i 21i?D:AddIn?MCGS?MyDLL?VB?VB?MyDLL?AddInObj?TestDLL?VB?MCGS?D:AddIn?MCGS ?www.PLCMCGS 高级开发指南i 22i2.4?MCGS ? MCGS ? OLE ?Active DLL ?MCGS? ?D:Mcgssdk?D:McgssdksamplesAddIn?AlmAddIn?D:MyDLL?ALmAddIn?D:MyDLL? ?.vbg? ? ?TestDLL.vbg?Visual Basic6.0?VB?AlmAddIn? TestDLL?www.PLCMCGS 高级开发指南i 23i?AlmAddIn?AlmAddIn? ? ? ? ? ? ?AlmAddIn?MyDLL?www.PLCMCGS 高级开发指南i 24i?VB? ? ? ? ?AlmAddIn.vbp? ? ?MyLL.vbp?VB?AlmAddIn.dll?MyDLL.dll?MyDLL?AlmAddIn.dll?MyDLL.dll?AddInObj?SvrStgySetOperator?strName=

13、”?”strNotes=”?”?TestDLL?VB?TestDLL?AlmAddIn?MyDLL? PLC ?www.PLCMCGS 高级开发指南i 25i2.5?MCGS ? VB ?MCGS ? MCGS ? VB ?-TestDLL? MCGS ? VB ?-D:AddIn?-MyDLL?-?VB?MyDLL?TestDLL?MCGS?MCGS?MCGS?MCGS?VB?VB?F5?www.PLCMCGS 高级开发指南i 26i?MyDLL?Active dll?MyDLL.dll?D:MCGSProgramAddIns?MCGS?D:Mcgs?MCGS?AddIns?AddIns.ini?MyDLL.dll?MCGS?MCGS?MCGS?SvrMenuCommand?MCGS? ? MCGS?www.PLCMCGS 高级开发指南i 27i? MCGS ? MCGS ?MCGS ?MCGS ? ? ? Win95? WinNT ? MCGS ? C ? Visual Basic?MCGS ?MCGS ? MCGS ? ? VB? Visual Basic6.0(?)? MCGS

14、 ?3.1?MCGS ? Active DLL ? OLE ? MCGS ? MCGS ? MCGS ? DDE ?OLE ? MCGS ? VB?VC?www.PLCMCGS 高级开发指南i 28iDelphi ? MCGS ? Visual Basic ? VB ? MCGS ? VB ? ? VB6.0 ? ? VC?MCGS ? PC ? ? ?IDCN-893 ? PLC ?(PC ?)? MCGS ?3.2?MCGS ? VB ? ActiveDLL ? MCGS? ActiveDLL ? MCGS ?MCGS ? 5 ? 8 ?DevType?DevStyle?DevChannel?DevBaseIO? IO ?DevIONumber? IO ?GetDevName?GetDevHelp?SetDevPage?www.PLCMCGS 高级开发指南i 29i?InitNewDev?GetChlType?InitDevRun?RunDevCommand?CollectDevDat? MCGS ? 8 ?DevType? Mcgs ? 0? 1?Public Property

15、Get DevType() As Long?DevStyle? Mcgs ? 0? 1?Public Property Get DevStyle() As Long?DevChannel? Mcgs ?Public Property Get DevChannel() As Long?DevIONumber? Mcgs ? IO ?Public Property Get DevIONumber() As Longwww.PLCMCGS 高级开发指南i 30i?DevBaseIO? Mcgs ? IO ? 16 ?Public DevBaseIO As Long ? Public Property Get DevBaseIO() As Long? IO ? 0?GetDevName? MCGS ?Omron 200 PLC?MCGS ?GetDevName() as string? ? ?InitNewDev?InitNewDev(SavObj As Object) as Long? ? ?=0?0?SavObj ?SetDevPage?SetDevPage(SavObj as Objec

16、t) as Long? ? ?=0?=1?SavObj ?www.PLCMCGS 高级开发指南i 31i?GetChlType? ?GetChlType(Dat As Variant, msg As Variant) As Long? ? ?=0?=1?Dat ?=1?=2 ?=3 ? 0 ? MCGS ? 0 ? MCGS ?msg?InitDevRun? MCGS ? ?InitDevRun(SavObj As Object, DatObj As Object) as long? ? ?=0? =1?MCGS ?SavObj ?DataObj?CollectDevDat? MCGS ?CollectDevDat(DatF As Variant, Dat As Variant, msg As Variant) as long? ? ?= -1?=0?=1?=2?www.PLCMCGS 高级开发指南i 32i?DatF, ?, ?=0 ?=1 ?Dat, ?, ?Msg, ?, ?RunDevCommand? ? Mcgs ? ? ? OLEAutomation ?RunDevComm

17、and(DatObj As Object, ByVal Cmd As String) as Long? ? ?=0?Mcgs ?=1?Mcgs ?=2?Mcgs ?DataObj?Cmd, ?, ?3.3?MCGS ?MCGS?Visual Basic6.0?MCGS?www.PLCMCGS 高级开发指南i 33i?MyDev?VB?Active DLL?MyDev.DLL?MCGS?D:Dev? ? ?MCGS?www.PLCMCGS 高级开发指南i 34i?MyDev?VB?VB?MyDev?DevObj?TestDev?VB? ?MCGS?D:Dev?DevBas?MCGS ?www.PLCMCGS 高级开发指南i 35i?3.4?MCGS ? MCGS ? OLE ? Active DLL ?MCGS? ?D:Mcgssdk?D:McgssdksamplesDevice?PC6319?ZTPC6319?PLC?OmronPLC?PC6319?D:MyDev?ZTPC6319?D:MyDev?Visual Basic6.0?TestDev.vbg?VB?DevZT6319? Te

18、stDev?DevZT6319?DevZT6319?DevZT6319www.PLCMCGS 高级开发指南i 36i?MyDev?VB? ? ? ? ?ZT6319.vbp? ? ?MyDev.vbp?VB?ZT6319.dll? ?MyDev.dll?MyDev?ZT6319R.dll?MyDev.dll?DevSetObj?GetDevName?www.PLCMCGS 高级开发指南i 37iGetDevName = ?TestDev?VB?TestDev?DevZT6319?MyDev? PLC ?3.5?MCGS ? VB ?C?DDE?MCGS ? MCGS ? VB ?-TestDev? MCGS ? VB ?-D:Dev?-MyDev?-?VB?MyDev?TestDev?MCGS?MCGS?MCGS?MCGS?VB?VB?F5?www.PLCMCGS 高级开发指南i 38i?IO?www.PLCMCGS 高级开发指南i 39i?MyDev?dll? MyDev.dll? ?D:MCGSProgramDriver? ?MCGS?D:Mcgs?MCGS?MCGS?MCGS?D

19、:MCGSProgramDriver?MyDev.dll? ? ? ? ? ?MCGS?www.PLCMCGS 高级开发指南i 40i3.6IO? ? IO ? DOS ? Windows3.1 ? 16 ? Win95 ? WinNT ?IO ? IO ? IO ? Win95 ? WinNT ?MCGS ? IO? Win95 ? WinNT ? DOS ? IO ?OpenPort?Handle?Handle?Inp?InpW?Outp?OutpW?ClosePort?www.PLCMCGS 高级开发指南i 41i? mHandle? InitDevRun ? OpenPort ? ? mHandle ?Class_Terminate ? ClosePort ?OpenPort? IO ?Public Declare Function OpenPort Lib ?mcgsext.dll? (Handle As Long)As Long? ? ?=0?0?Handle, ?ClosePort? IO ?Public Declare Function ClosePort Lib ?m

20、cgsext.dll? (ByVal Handle AsLong) As Long? ? ?=0?0?Handle, IO ?Inp? IO ?8 ?Public Declare Function Inp Lib ?mcgsext.dll? (ByVal Handle As Long,ByVal PortAddress As Long) As Long? ? ?=0?Handle, IO ?PortAddress, IO ?www.PLCMCGS 高级开发指南i 42i?InpW? IO ?16 ? Public Declare Function InpW Lib?mcgsext.dll ? (ByVal Handle As Long,ByVal PortAddress As Long) As Long? ? ?=0?Handle, IO ?PortAddress, IO ?Outp?8 ? IO ? Public Declare Function Outp Lib?mcgsext.dll ? (ByVal Handle As Long,ByVal PortAddress As Lon

21、g, ByVal Value As Long) As Long? ? ?=0? IO ?0? IO ?Handle, IO ?PortAddress, IO ?Value? IO ?OutpW?16 ? IO ?Public Declare Function OutpW Lib ?mcgsext.dll? (ByVal Handle AsLong, ByVal PortAddress As Long, ByVal Value As Long) As Long? ? ?=0? IO ?0? IO ?Handle, IO ?PortAddress, IO ?Value? IO ?www.PLCMCGS 高级开发指南i 43i3.7?MCGS ? 32 ? MCGS ? MCGS ? CPU ?ComOutDat?Function ComOutDat(ByVal OutNum As Long, OutByte() As Byte) AsLong? ? ?=0?0?OutNum?OutByte?ComInDat?Function ComInDat(InByte() As Byte, ByVal

22、 InputFlag As Long, ByValInputNum As Long, ByVal InputChar As Long, ByVal DelayTime AsLong) As Long? ? ?0?=0 and vNewValue=100 then mProTTT= vNewValueEnd Property? PC6319 ? InputRange?Public Enum dInputRanged0_10V = 0d5V = 1d10V = 2End EnumPublic InputRange as dInputRange? d?MCGS ?d?_?.?-?.?-?www.PLCMCGS 高级开发指南i 47i?MCGS ?DevObj.cls?VB?InputRange?3.10?MCGS ? MCGS ? PLC ? ? PLC ?MCGS ? SetDevPage? ? ? ? MCGS ? SetDevPage? ?MCGS? ?MyDev?Active DLL?MyDevPg?DevPageObj?www.PLCMCGS 高级开发指南i 48i?MyDevPg

23、?DevPageFrm?DevPageObj?Public Function SetDevPage(SavObj As Object) As LongDim dlg As DevPageFrmSet dlg = New DevPageFrmdlg.Show 1End Function?MyDevPg?MyDev?MyDevPg?SetDevPage?MyDevPg?DevPage?dim dlg As DevPageObjSet dlg = New DevPageObjdlg. SetDevPage(SavObj)?MyDev?MyDevPg?DLL?MyDev.dll?MyDevPg.dll?MCGS ? PLC ?3.11? PC6319? ADAM4050 ? ?PC6319? PC6319 ? 10 ?www.PLCMCGS 高级开发指南i 49i?0?10V ? 10 ? ?MCGS? ?My6319?6319?DevChannel?10?GetChlType?Dim i As LongFor i = 0 To 9Dat(i) = 2msg(i) = AD ?+format$

24、(I+1,”0”)Next i?PC6319?CollectDevDat?Dim i as Long, h as Long, l as LongFor i=0 to 9Outp mHandle, DevBaseIO, i? AD ?Outp mHandle, DevBaseIO+1, 0? AD ?Do? AD ?If Inp(mHandle, DevBaseIO + 2) 128 Then Exit DoLooph = Inp(mHandle, DevBaseIO + 2) And &HF? 4 ?l = Inp(mHandle, DevBaseIO + 3)? 8 ?dd(i) =( h * 256 + l)*10000/4096? mV ?Next i?DLL?My6319.dll?MCGS?programdrivers?MCGS?MCGS?ADAM4050? 7 ? 8 ?www.PLCMCGS 高级开发指南i 50i? ?MCGS? ?My4050?4050?DevNumber?Public DevNumber As Long?DevChannel?15?GetChlType

25、?Dim i As LongFor i = 0 To 14IF i=6 thenDat(i) = 1msg(i) = DI ?+format$(i,”0”)elseDat(i) = -1msg(i) = DO ?+format$(i-7,”0”)endifNext i?CollectDevDat?On Error Resume NextDim flag As Longflag = CollectOneComm(mParent, DevNumber, dat)CollectDevDat = 0If flag 0 Then CollectDevDat = -1?DevBas?Option ExplicitDim InputByte(127) As ByteDim OutPutByte(127) As Byte? ADAM ?Public Function CollectOneComm(comm As DevCom232, ByVal num As Long,dat As Variant) As LongDim Cmd As String, i As Long, m As Long?m =

26、0For i = 7 To 14m = m Or (dat(i) * 2 (i - 7)www.PLCMCGS 高级开发指南i 51iNext i?Cmd = # + Right(00 + Hex$(num), 2) + 00Cmd = Cmd + Right(00 + Hex$(m), 2) + Chr$(13)?m = Write4050Data(Cmd, comm)If m = -1 Then CollectOneComm = -1: Exit Function?Cmd = $ + Right(00 + Hex$(num), 2) + 6 + Chr$(13)?m = Read4050Data(Cmd, comm)If m = -1 Then CollectOneComm = -1: Exit Function?For i = 0 To 6dat(i) = Sgn(2 i And m)Next iCollectOneComm = 0End Function? ComOutDat ? ComInDat ? ADAM ?Public Function Read4050Data(ByV

27、al Cmd As String, comm As DevCom232)As LongOn Error Resume NextDim i As Long, iLen As Long?For i = 1 To Len(Cmd)OutPutByte(i - 1) = Asc(Mid$(Cmd, i, 1)Next i?comm.ComOutDat Len(Cmd), OutPutByte()?iLen = comm.ComInDat(InputByte(), 0, 0, 13, 1500)If iLen = 0 Then Read4050Data = -1: Exit Function?Cmd = For i = 0 To iLenCmd = Cmd + Chr$(InputByte(i)www.PLCMCGS 高级开发指南i 52iNext i?If Mid$(Cmd, 1, 1) ! Then Read4050Data = -1: Exit Function?Read4050Data = Val(&h + Mid(Cmd, 4, 2)End Function? ComOutDat ?

28、ComInDat ? ADAM ?Public Function Write4050Data(ByVal Cmd As String, comm As DevCom232)As LongOn Error Resume NextDim i As Long, iLen As Long?For i = 1 To Len(Cmd)OutPutByte(i - 1) = Asc(Mid$(Cmd, i, 1)Next i?comm.ComOutDat Len(Cmd), OutPutByte()?iLen = comm.ComInDat(InputByte(), 0, 0, 13, 1500)?If iLen = 0 Then Write4050Data = -1: Exit FunctionIf Chr$(InputByte(0) Then Write4050Data = -1: Exit FunctionWrite4050Data = 0End Function?DLL?My4050.dll?MCGS?programdrivers?MCGS ?MCGS ?$?www.PLCMCGS 高级开发

29、指南i 53i?4.1$Year?1111?9999?4.2$Month?1?12?4.3$Day?1?31?4.4$Hour?0?24?www.PLCMCGS 高级开发指南i 54i4.5$Minute?0?59?4.6$Second?0?59?4.7$Week?1?7?4.8$Date?-?-?1997-01-09?www.PLCMCGS 高级开发指南i 55i4.9$Time?:?:? ?20:12:39?4.10$Timer?4.11$RunTime?4.12$PageNum?$PageNum ? 1?www.PLCMCGS 高级开发指南i 56i4.13$UserName? ? ?$ UserName?www.PLCMCGS 高级开发指南i 57i?MCGS ?MCGS ? MCGS ?5.1?!Atn(x)? ? ?x?!Atn(1) =0.785398!Cos(x)? ? ?x?!Cos(3.14159)=-1.0!Sin(x)? ? ?x?!Sin(3.14159)=0.0www.PLCMCGS 高级开发指南i 58i!Tan(x)? ? ?x?!Tan(3.14159

30、)=0.0!Exp(x)? ? ?x?!Exp(2.3020585093)=10.0!Log(x)? ? ?x?!Log(10)=2.302!Sqr(x)? ? ?x? ?!Sqr(2.0)=4.0!Abs(x)? ? ?x? ?!Abs(-3.14159)=3.14159!Sgn(x)? ? ?www.PLCMCGS 高级开发指南i 59i?x?!Sgn(-10) = -1?!Sgn(10) = 1?!Sgn(0) = 05.2?!Left(str,n)? str ? n ? ? ?str?n?!Left(ABCDEFG,2)=AB!Right(str,n)? str ? n ? ? ?str?n?!Right(ABCDEFG,2)=FG!Mid(str,n,k)? str ? n ? k ? ? ?str, ?n,?k,?!Mid(ABCDEFG,3,2) = CD!Len(Str)? str ? ? ?str, ?!Len(ABCDEFG) = 7www.PLCMCGS 高级开发指南i 60i!Ucase(str)? str ? ? ?str, ?!UCase(sedERT) =

31、SEDERT!Lcase(str)? str ? ? ?str, ?!LCase(sedERT) = sedert!Ltrim(str)? str ? ? ?str, ?!LTrim(dsfk) = dsfk!Rtrim(str)? str ? ? ?str, ?!LTrim(dsfk) =dsfk!Trim(str)? str ? ? ?str, ?!LTrim(dsfk) =dsfk!StrComp(str1,str2)? str1 ? str2 ? 0 ?www.PLCMCGS 高级开发指南i 61i? ? ?str1, ?str2, ?!StrComp(ABC, abc) = 0!Val(str)? str ? ? ?str, ?!Val(0.712) = 0.712!Str(x)? x ? ? ?x, ?!Str(0.712) =0.7125.3?!GetWindowState(WndName)? ? ? 0? 1? 2?WndName?!GetWindowState(?)?!GetWindowName(Index)? ? ?www.PLCMCGS 高级开发指南i 62i?I

32、ndex, ?!GetWindowName(0) ? 0 ?!SetWindow(WndName,Op)? ? ?=0?0?WndName, ?, ?Op: ?Op=1?Op=2?Op=3?Op=4?!SetWindow(?,1)?5.4?!GetDeviceState(DevName)? ? ?=-1 ?=1 ?=2 ?=3 ?=4 ?DevName?!GetDeviceState( OmronPLC)?OmronPLC?!SetDevice(DevName,DevOp,CmdStr)? ? ?=0?0?DevName?www.PLCMCGS 高级开发指南i 63iDevOp?CmdStr? DevOp=6 ? CmdStr ?DevOp ?1?2?3?4?5?Msg ? ms?6?Msg ?!SetDevice(OmronPLC?1? )?OmronPLC?!GetDeviceName(Index)? ? ?Index?!GetDeviceName(0) ? 0 ?5.5?!GetStgyName(Index)? ? ?Index?!GetStgyName(0)? 0 ?!SetS

33、tgy(StgyName)? StgyName ? ? ?=0?0?StgyName?!SetStgy(?)?www.PLCMCGS 高级开发指南i 64i5.6?!GetEventdT(EvName)? ? ?EvName?!GetEventdT(EvName)? EvName ?!GetEventT(EvName)? 1980 ?-1? ? ?EvName?!GetEventT(EvName)? EvName ?!GetEventP(EvName)? ? ?EvName?!GetEventP(EvName) ? EvName ?5.7?!AnswerAlm(DatName)? DataName ? DatName=? ? ?www.PLCMCGS 高级开发指南i 65i?DatName?!AnswerAlm(?)?!DelAlmDat(DatName,Num)? DataName ? Num ? Num=0 ? DatName=? ? ?=0?0?DatName?Num?! DelAlmDat(?1.2)? 1.2 ?!DelAllAlmDat(DatName)? DatName

34、? DatName=? ? ?=0?0?DatName?! DelAllAlmDat(?)?!MoveAlmDat(DatName,FileName,Num1,Num2,Flag)? DatName ? Num1 ?Num1+Num2 ? ? 0 ? ? FileName ?Access ?DatName=? FileName=? Num20 ? DatName ? ? ?=0?0?DatName?FileName?(?)?Num1? Num10 ? Num2 ?=-1 ?=-2 ?www.PLCMCGS 高级开发指南i 66i=-3 ?=-4 ?=-5 ?=-6 ?Num2?Flag?Flag=0 ?(?*.BK1)?Flag=1 ? !MoveAlmDat(?, D:Tempttt.mdb? -6? 0? 1)? ? ?D:Tempttt.mdb?!SetAlmValue(DatName,Value,Flag)? DatName ? DatName? ? Flag ? ? ?=0?0?DatName?Value?Flag?=1 ?=2 ?=3 ?=4 ?=5 ?=6 ?=7 ?!

35、SetAlmValue(?, 200, 3)? 200!GetAlmValue(DatName,Value,Flag)? DatName ? DatName ?www.PLCMCGS 高级开发指南i 67i? Flag ? ? ?=0?0?DatName?Value?DataName ?Flag?=1 ?=2 ?=3 ?=4 ?=5 ?=6 ?=7 ?! GetAlmValue(?, Value, 3)? Value ?5.8?!DelSaveDat(DatName,Num)? DataName ? Num ? Num=0 ? DatName=? ? ?=0?0?DatName?Num?! DelSaveDat(?1.2) ? 1.2 ?!DelAllSaveDat(DatName)? DatName ? DatName=?www.PLCMCGS 高级开发指南i 68i? ? ?=0?0?DatName?! DelAllSaveDat(?) ?!ChangeSaveDat(DatName,Num1,Num2)? DatName ? Num1 ? 0 ? Num2 ? DataName

36、=? Num1=0 ? Num2=0 ? ? ?=0?0?DatName?Num1? Num10 ? Num2 ?=-1 ?=-2 ?=-3 ?=-4 ?=-5 ?=-6 ?Num2?! ChangeSaveDat(? 1, -2, 2)? 1? 5 ?!MoveSaveDat(DatName,FileName,Num1,Num2,Flag)? DatName ? Num1 ?Num1+Num2 ? 0 ? FileName ? ?Access ? ? ? DatName=? FileName=? Num20 ? DatName ? ? ?=0?0?DatName?FileName?(?)?www.PLCMCGS 高级开发指南i 69iNum1? Num10 ? Num2 ?=-1 ?=-2 ?=-3 ?=-4 ?=-5 ?=-6 ?Num2?Flag?Flag=0 ?(?*.BK1)?Flag=1 ? ! MoveSaveDat(?, D:Tempttt.mdb? -6? 0? 1) ? ? ?D:Tempttt.mdb?!SaveData(DatName)? DataName ?

37、? ? ?=0?0?DatName?! SaveData(? 1)? 1?!SaveDataInit()?”?”? ? MCGS ? ? ?=0?0?! SaveDataInit()www.PLCMCGS 高级开发指南i 70i5.9?!CheckUserGroup(strUserGroup)? strUserGroup ? ? ?=0?0?strUserGroup?! CheckUserGroup(?)!LogOn()? ? ?=0?0?!LogOn()!LogOff()? ? ?=0?0?!LogOff()!Editusers()? ? ?=0?0?!Editusers()!ChangePassword()? ? ?=0?0?!ChangePassword()www.PLCMCGS 高级开发指南i 71i!GetCurrentUser()? ? ?!GetCurrentUser()!GetCurrentGroup()? ? ?!GetCurrentGroup()5.10?!Beep()? ? ?=0?0?!Beep()!Sleep(mTime)? mTime ? ? ?=0?0?m

38、Time?!Sleep(10)!Shell(pathname,windowstyle)? ? ?=0?0? ID ?pathname?windowstyle?www.PLCMCGS 高级开发指南i 72i=0?=1?=2?=3?=4?=6?!Shell(D:OfficeExcel.exe?3)? Excel?!SysWindow()? ? ?=0?0?!SysWindow()!SendKeys(strKey)? ? ?=0?0?strKey? Visual Basic ?strKey ?!SendKeys(%F4)? Alt+F4 ?!AppActivate(MyAppID)?!Shell ?!SendKeys ? ? ?=0?0?MyAppID?!Shell ? ID ?ID=!Shell(D:OfficeExcel.exe?3)?! AppActivate(ID)www.PLCMCGS 高级开发指南i 73iwww.PLCMCGS 高级开发指南i 205i?MCGS ?MCGS ? ? ? MCGS? OLE Automation ?(? Visual Basic6.0)? MCG

39、S ? MCGS ?6.1?WinVer? 32 ? 0? Microsoft Windows 95,? 1?Microsoft Windows NT?McgsVer? MCGS ?120? MCGS ? 1.20?McgsDataNum?McgsStgyNum?www.PLCMCGS 高级开发指南i 206i?McgsWinNum?McgsDevNum?McgsSetName?McgsSaveName?SvrPackageOLE ?CreateNewData?CreateNewData ( Name as String , Type as Long , InitV as Single , Unit asString , MaxV as Single , MinV as Single ,PointN as Long ) as Long? ? ?=-1?=0? ID ?Name, ?Type, ?1-?, 2-?, 3-?, 4-?www.PLCMCGS 高级开发指南i 207iInitV, ?Unit, ?MaxV, ?MinV, ?PointN, ? ?GetDataFromName

40、?GetDataFromName (Name as String, ID as Long, Type as Long, InitV asSingle, Unit as String, MaxV as Single, MinV as Single, PointN as Long )as Long? ? ?0?=0?Name, ?ID? ID ?Type, ?1-?, 2-?, 3-?,4-?InitV, ?Unit, ?MaxV, ?MinV, ?PointN, ?GetDataFromID? ID ?www.PLCMCGS 高级开发指南i 208i?GetDataFromID (ID as Long , Name as String , Type as Long , InitV asSingle , Unit as String ,MaxV as Single , MinV as Single , PointN asLong ) as Long? ? ?=-1?=0?Name, ?ID? ID ?Type, ?1-?, 2-?, 3-?,4-?InitV, ?Unit, ?MaxV,

41、?MinV, ?PointN, ?GetDataName? ID ?GetDataName ( ID as Long ) as String? ? ?=-1?ID? ID ? ID ? ID ? ID ? ID ?ID ? ? ID ? ? ID ? ID ? ID ?GetDbIDFromID,GetIDFromDbIDwww.PLCMCGS 高级开发指南i 209i?GetDataType?GetDataType(Name as String ) as Long? ? ?=0?=-1?=1?=2?=3?=4?Name, ?GetDataID? ID ?GetDataID (Name as String , Type as Long ) as Long? ? ?=-1?=-2? Type ?0? ID ?Name, ?Type, ?0-?-1-?, 1-?, 2-?, 3-?,4-?NotifyPortAddress? MCGS ?MCGS ?NotifyPortAddress(DevName As String, PortBase As Long, PortCount AsLong

42、, ErrMsg As String) As Longwww.PLCMCGS 高级开发指南i 210i? ? ?=0?0?DevName, ?PortBase, ?PortCount, ?ErrMsg, ?SetDataDlg?SetDataDlg ( Flag as Long ) as String? ? ?Flag?=1?=2 ?=3?=4? ? ? MCGS ? VB ?GetDbIDFromID? ID ?GetDbIDFromID ( ID as Long ) as Long? ? ?=-1?=0?ID? ID ?GetIDFromDbID? ID?www.PLCMCGS 高级开发指南i 211i?GetIDFromDbID( DBID as Long ) as Long? ? ?=-1?=0? ID ?DBID?GetAlmDatName?GetAlmDatName( Name as String ) as Long? ? ?=-1?=0?Name?Name ?GetSaveDatName?GetSaveDatName( Name as String ) as Long?

43、? ?=-1?=0?Name?Name ?GetGroupObj? ID ?GetGroupObj ( Name as String , Num as Long , ID as Variant ) as Long? ? ?0?=0? ID ?Name?Num?www.PLCMCGS 高级开发指南i 212iID? ID ?ID ? ID ?ID ? Num?Value? Num?Dim DataCentre as ObjectDim Num as Long , Name as String , ID(100) as LongSet DataCentre = GetObject(,Mcgsset.DataCentre)Name = GroupObj1DataCentre.GetGroupObj(Name,Num,ID)?GetValueArray? ID ?GetValueArray ( Num as Long , ID as Long , Value as single ) as Long? ? ?0?=0?Num?ID? ID ?Num? 0?Value?Variant ? Num?

44、ID ? Num?Value ? Num?Dim DataCentre as ObjectDim Num as Long , ID(2) as Long , Value(2) as SingleSet DataCentre = GetObject(McgsRun.DataCentre)Num = 2ID(0) = 0 ? ID ?ID(1) = 1 ? ID ?DataCentre.GetValueArray(Num,ID,Value)www.PLCMCGS 高级开发指南i 213i?SetValueArray? ID ?SetValueArray( Num as Long , ID as Long , Value as single) as Long? ? ?0?=0?Num?ID? ID ?Num? 0?Value?Variant ? Num?ID ? Num?Value? Num?Dim DataCentre as ObjectDim Num as Long , ID(2) as Long , Value(2) as SingleSet DataCentre = GetObjec

45、t(,McgsRun.DataCentre)Num = 2ID(0) = 0 ? ID ?ID(1) = 1 ? ID ?Value(0) = 100.0Value(1) = 100.0DataCentre.SetValueArray(Num,ID,Value)?GetValueFromID? ID ?GetValueFromID ( ID as Long , Value as Variant ) as Long? ? ?0?=0?ID? ID ?Value?Variant ?www.PLCMCGS 高级开发指南i 214i?GetValueFromName?GetValueFromName ( Name as String , Value as Variant ) as Long? ? ?0?=0? Name ?Value?Variant ?SetValueFromID? ID ?SetValueFromID ( ID as Long , Value as Variant ) as Long? ? ?0?=0? ID? ID ?Value?Variant ?SetValueFromN

46、ame?SetValueFromName ( Name as String , Value as Variant ) as Long? ? ?0?=0? Name ?Value?Variant ?GetDeviceName?GetDeviceName ( Index as Long ) as String? ? ?www.PLCMCGS 高级开发指南i 215i?Index?Value?Variant ?GetDeviceState?GetDeviceState ( Name as String) as Long? ? ?=0?=1: ?=2: ?=3: ?=4: ?Name?SetDevice?SetDevice ( DevName as String , Mode as Long , Msg as String ) as Long? ? ?=0?0?DevName ?Msg? ? ?Mode=6? ? ? Mode0?Msg ?Mode?=1?=2?=3?=4?=5?Msg ? ms?=6?Msg ? Mode = 6 ?, Msg ? ?www.PLCMCGS 高级开发指南i 2

47、16i?GetWindowName?GetWindowName( Index as Long ) as String? ? ?Index? 0 ?GetWindowState?GetWindowState( Name as String) as Long? ? ?= -1?=0?=1?=2?SetWindow?SetWindow( WinName as String , Mode as Long ) as Long? ? ?=0?0?WinName ?Mode?=1?=2?=3?=4?www.PLCMCGS 高级开发指南i 217i?GetStgyName?GetStgyName ( Index as Long ) as String? ? ?Index? 0 ?SetStgy?SetStgy( StgyName as String) as Long? ? ?=0?0?StgyName ?Mode?=1?=2?=3?=4?DelAlmDat? DataName ? Num ? Num=0 ? DatName=?DelAlmDat(DatName as String, Num as Lo

48、ng) as Long? ? ?=0?0?DatName?Num?www.PLCMCGS 高级开发指南i 218i?DelAllAlmDat? DatName ? DatName=?DelAllAlmDat(DatName) as Long? ? ?=0?0?DatName?MoveAlmDat? DatName ? Num1 ?Num1+Num2 ? ? 0 ? ? FileName ?Access ?DatName=? FileName=? Num20 ? DatName ?MoveAlmDat(DatName as String, FileName as String, Num1 as Single,Num2 as Single, Flag as long) as Long? ? ?=0?0?DatName?FileName?(?)?Num1? Num10 ? Num2 ?=-1 ?=-2 ?=-3 ?=-4 ?=-5 ?=-6 ?Num2?Flag?Flag=0 ?(?*.BK1)?Flag=1 ?www.PLCMCGS 高级开发指南i 219i?SetAlmValue? Da

49、tName ? DatName?”?”? Flag ?SetAlmValue(DatName as String, Value as Single, Flag as Long) as Long? ? ?=0?0?DatName?Value?Flag?=1 ?=2 ?=3 ?=4 ?=5 ?=6 ?=7 ?GetAlmValue? DatName ? DatName ?”?”? Flag ?GetAlmValue(DatName as String, Value as Single, Flag as Long) as Long? ? ?=0?0?DatName?Value? DataName ?www.PLCMCGS 高级开发指南i 220iFlag?=1 ?=2 ?=3 ?=4 ?=5 ?=6 ?=7 ?DelSaveDat? DataName ? Num ? Num=0 ? DatName=?DelSaveDat(DatName as String, Num as Single) as long? ? ?=0?0?DatName?Num?DelAllSaveDat? DatName

50、? DatName=?DelAllSaveDat(DatName as String) as long? ? ?=0?0?DatName?ChangeSaveDat? DatName ? Num1 ? 0 ? Num2 ? ? DataName =?www.PLCMCGS 高级开发指南i 221i? Num1=0 ? Num2=0 ?ChangeSaveDat(DatName as String, Num1 as Single, Num2 as Long) aslong? ? ?=0?0?DatName?Num1? Num10 ? Num2 ?=-1 ?=-2 ?=-3 ?=-4 ?=-5 ?=-6 ?Num2?MoveSaveDat? DatName ? Num1 ?Num1+Num2 ? 0 ? FileName ? ?Access ? ? ? DatName=? FileName=? Num20 ? DatName ?MoveSaveDat(DatName as String, FileName as String, Num1 as Single,Num2 as Single,

51、Flag as long) as Long? ? ?=0?0?DatName?FileName?(?)?Num1? Num10 ? Num2 ?=-1 ?=-2 ?www.PLCMCGS 高级开发指南i 222i=-3 ?=-4 ?=-5 ?=-6 ?Num2?Flag?Flag=0 ?(?*.BK1)?Flag=1 ?SaveData? DataName ? ?SaveData(DatName as String) as Long? ? ?=0?0?DatName,?SaveDataInit?”?”? ? MCGS ?SaveDataInit() as Long? ? ?=0?0?www.PLCMCGS 高级开发指南i 223i6.2?SetStartPos?SetStartPos( Byval Flag as Long ) as Long? ? ?=0?0?Flag?=0? GetDat ?=1? PutDat ?GetDat? MCGS ?GetDat( Value as Variant ) as Long? ? ?=0?0?Value?Variant ?PutDat? MCGS ?PutDat( Value as Variant ) as Long? ? ?=0?0?Value?Variant ?www.PLC

《昆仑通触摸屏MCGS高级开发指南》由会员工****分享，可在线阅读，更多相关《昆仑通触摸屏MCGS高级开发指南》请在金锄头文库上搜索。