ifix學(xué)習(xí)的個(gè)經(jīng)典問題解答

1、iFix 的n1:iFIX中如何使用vbawsqlodc 和TheabilitytostoporstarttheSQLtask,wsqlodc,and topauseorcontinuethealarmskusedtoonly beylaunchingiFix 的n1:iFIX中如何使用vbawsqlodc 和TheabilitytostoporstarttheSQLtask,wsqlodc,and topauseorcontinuethealarmskusedtoonly beylaunchingControlandmanuallycontrollingTheabilitytoperform

2、 thiscontrolprogrammaticallyusingVBAwasaddedaspartofa SIMiFix2.5.The functioncallstoallowthisare notedandareshownbelow:DeclareFunctionTurnOnSqlTaskLibvba(ByValcmd$)AsTurnsona SQLtask. Thecmd$parameterisReturn of0is as. Currentloggedin userdlinepassedtotheSQLvesecurityrightstoon/offSAC. Ifanon-zeroer

3、rorcode isreturned,youcanusethehefixbase directorytotranslatetheerrortoa DeclareFunctionTurnOffSqlTaskLibvba()AsTurnsSQLtask. Return of0isas. Currentloggedinuser havesecurity rightstoturnon/offSAC. Ifanon-zeroerrorcodeisyou canusetheerr2str he fixbase directorytotranslate the error toaDeclareFunctio

4、nPauseAlarmODBCLibvba()As Pausesthek. Return of0is as. Currentloggedinuserdoes havetohavesecurity ThisfunctionwillexecuteregardlessoftheAllowOperatortoPauseAlarmSettingheiFIXODBCAlarm ServiceConfiguratoroftheSystemPrivateDeclareFunctionContinueAlarmODBCLibvba()As Resumesthek. Return of0is as. Curren

5、tloggedinuserdoes havetohavesecurity ThisfunctionwillexecuteregardlessoftheAllowOperatortoPauseAlarmSettingheiFIXODBCAlarm ServiceConfiguratoroftheSystemAllofthesefunctionswillblockuntiltherequestis2：iFIX如何使用vba Allofthesefunctionswillblockuntiltherequestis2：iFIX如何使用vba Description：Thissolutionshows

6、howtostartandstopatime-basedorevent-basedhe Resolution：STOP/STARTaEVENTBASEDPrivateSetVar1=GetObject(,SetVar2=End PrivateSetVar1=GetObject(,SetVar2=End STOP/IMEBASED ToStopthePrivateSetVar1=GetObjectSetVar2= End ToStartthePrivateSetVar1=GetObjectSetVar2= End 3：iFIX如何使用vba The followingEnd ToStartthe

7、PrivateSetVar1=GetObjectSetVar2= End 3：iFIX如何使用vba The followingisanleof pr ing antoaNetworkeror a pr er ndefaultpr er on the DimobjXLAsDimmyDocAsSet objXL= SetmyDoc=objXL.Workbooks.Open(C:testfilexls,myDoc.Pr opies:=1,preview:=False,ActivePr RER, pr tofile:=False, Set objXL = Nothing SetmyDoc=Nothi

8、ngIfthisscriptisusedinabackgroundschedulewithFixBackgroundServerconfiguredtorunasaService,the servicemustrununderauserinformationonthis spr ersdefined.SeeKnowledgeBaseArticlei013417forThe Pr ommandcanbeusedfortypes,etc),howeverdifferentisrequired,referforotherFIXdisplaysalarms uscodesforeachalarm he

9、AlarmSummaryLink.WhatisthemeaningofeachofPriorityFIXdisplaysalarms uscodesforeachalarm heAlarmSummaryLink.WhatisthemeaningofeachofPriority-AlarmType-1-COMM-CommunicationError(BADvalue) 1 - OCD - Open circuit detected1-OVER-Over1-UNDER-Under-ERROR-AnyS isticalDatablock -CFN-Changefromnormalalarm(digi

10、talblocksonly) 2 - COS - Change of S e alarm (digital blocks only)2-HIHI- BlockinHIHIalarm s -LOLO -Blockin LOLOalarm s -RATE-Valueexceedsrate-of-changesetting 3 - HI - Block in HI alarm s e3-LO-BlockinLOalarms e 4 - DEV - Deviation Alarm5-OK- Block innormal s 57X點(diǎn)(特別有用DimopcDriverAsNewOPCDrv.OPCSer

11、ver Dim objDriver As ObjectDimstrProgIdAsDimlngNumChannelsAsLong Dim lngChanHandlesDimDimAsDimDimDimlngNumDataBlocksAsLong Dim lngDataBlockHandlesDimDimiDimjDimDimmyvarAsLong Dim readEnablestrDRVAcronym=InputBox(Pleaseenterthedriversthreeletteracronym?&vbCrLf&strDRVAcronym=InputBox(Pleaseenterthedri

12、versthreeletteracronym?&vbCrLf&(ForEx Enter ABR for the ABR Driver), What Driver are you using?)strProgId= ellution.&strDRVAcronym&drv strProgId = Matrikon.OPC.Simulation.1SetobjDriver=lngNumChannels=opcDriver.GetChannels(lngChanHandles,strChanNames) Build Variables for SetPropertyData function.lngH

13、andle=lngDataBlockHandles(0) varProperties = Enabled varProperyData = 1opcDriver.GetPropertyDatalngChanHandles(1),varProperties,1IfreadEnable=0lngErrors=opcDriver.SetPropertyData(lngChanHandles(1),varProperties,varProperyData) End If= (lngChanHandles(1),lngDeviceHandles,lngNumDataBlocks=opcDriver.Ge

14、tDataBlocks(lngDeviceHandles(0),lngDataBlockHandles,strDataBlockNames) lngHandle = lngDataBlockHandles(0)opcDriver.GetPropertyDatalngDeviceHandles(0),varProperties,readEnable If readEnable = 0 ThenlngErrors=opcDriver.SetPropertyData(lngDeviceHandles(0),varProperties,End opcDriver.GetPropertyDatalngD

15、ataBlockHandles(0),varProperties,readEnable If readEnable = 0 ThenFori=0TolngErrors=opcDriver.SetPropertyData(lngDataBlockHandles(i),varProperties,varProperyData) Next iEnd SetopcDriver=ThefollowingsolutionexplainshowtoStartandStopa7xdriverthroughVBAcode.Thisle theABRdriver.Toimplementthisnother7.xd

16、river,changetheABRtothethreeletteracronym theotherdriverand switchthe referencet Thiscode will only workwith7xdrivers.Ifyouwant toimplement thisiscodeina newpicture needtosetareferenceellutionABRDrvOPCThiscode will only workwith7xdrivers.Ifyouwant toimplement thisiscodeina newpicture needtosetarefer

17、enceellutionABRDrvOPCServer7.20Library.Tosetareference,usethefollowingOntheSelectheVBEditorchoose ellutionABRDrvOPCServer7.20LibraryfromtheAdddbuttonstoyour pictureandname themcmdStart_ClickandThenpastethefollowingoPrivateSubSetABRDriver=End PrivateSubSetABRDriver=End Thisarticlesdescribeshowtocontr

18、ol (startorstop)the6xdriversthroughd orDOSnTheattachedapplicationDCTRL61.EXEenablesyoutodothis.BelowaretheusageUsage:ddriveracronym delayd START-starttheSTOP-stopthedriverfrompolling STOP_EXIT-stoppollingandSLEEP-setnewsleeptimeSUS- displayscurrent DELAY-WaitaNumberofmillisecondsbeforeexecutingd ( 1

19、000=SLEEP-setnewsleeptimeSUS- displayscurrent DELAY-WaitaNumberofmillisecondsbeforeexecutingd ( 1000=1 Thethedctrl61.exe mustbeacronymmustbe inALLheFIX32orDynamicsdirectory.dand lefromtheDOSprompt:dctrl60STARTlefromaiFIXVBA: lefromaFIX32script:Runtaskc:fix32dctrl60STARTThissolutionshowshowtostartand

20、stopatime-basedorevent-basedschedulehe STOP/STARTaEVENTBASEDPrivateSetVar1=GetObject(,SetVar2=End PrivateSetVar1=GetObject(,SetVar2=End STOP/IMEBASED ToStopthePrivateSetVar1=GetObjectSetVar2=STOP/IMEBASED ToStopthePrivateSetVar1=GetObjectSetVar2= End ToStartthePrivateSetVar1=GetObjectSetVar2= End 9：

21、iFIX_excelPrivate注釋: 1ADO2.023ActiveXDataObjects2.1Library(OfficeExcel9.0objectlibraries(Office4。劃= DimcDimryexcelAsDimMyDate,MyMonth,MyDay,MyHour,MyMinute,DimStartTime,EndTime,Duration,DisplayDay,s DimStartTime,EndTime,Duration,DisplayDay,s Dim Items AsTag1 = TEST Tag2=TEST1 Tag3 = Tag4= Tag5= Tag6

22、= Tag7=Tag8=2Items= MyDate=MyMonth = Month(MyDate) MyDay = Day(MyDate) MyHour = Hour(MyDate) MyMinute=MySecond=StartTime=2000& -&MyMonth & -& MyDay -1& EndTime=2000& -&MyMonth& -&MyDay -1& strQueryAvg=SelectDATETIME,VALUE,TAGFROMFIX&WHEREMODE=AVERAGEand(TAG=&Tag1&orTAG=&Tag2&orTAG=&Tag3&orTAG=&Tag4&

23、orTAG=&Tag5&_ orTAG=&Tag6&orTAG=&Tag7&orTAG=&Tag8&)&_ERVAL=01:00:00and&(DATETIME=ts&StartTime&and&_ DATETIME = ts & EndTime & )DimcnADOAsNewDimrsADOAsSetcnADO=NewcnADO.ConnectionString=DSN=FIXDynamicsHistoricalData;UID=sa;PWD=; cnADO.Open FIX Dynamics Historical Data, sa, SetrsADOSetcnADO=NewcnADO.C

24、onnectionString=DSN=FIXDynamicsHistoricalData;UID=sa;PWD=; cnADO.Open FIX Dynamics Historical Data, sa, SetrsADO=New SQLr= yexcel= Newyexcel.Visible=DimOutReportFileAsString Dim InReportFile As StringInReportFile= yexcel.Workbooks.OpenInReportFile&WhilersADO.EOFForc=0ToIfrsADO(c)Then.Cells(r,c+1).Va

25、lue=Nextr = r + 1 Endyexcel.ActiveSheet.PageSetup.Orien ion=yexcel.ActiveSheet.Pr rSize = yexcel.DisplayAlerts = False OutReportFile=InReportFile&_00&MyMonth& yexcel.DisplayAlertsyexcel.DisplayAlerts = False OutReportFile=InReportFile&_00&MyMonth& yexcel.DisplayAlerts=yexcel= SetcnADO=End 10：IFIX500

26、11：IFIXDimstrvalue7AsDimstrvaluepAs strvalue7strvalue6 strvalue6strvalue5 strvalue5strvalue4 strvalue4strvalue3 strvalue3strvalue2 strvalue2strvalue1=strvaluep=(Val(strvalue1)+Val(strvalue2)+Val(strvalue3)+Val(strvalue4)+ Val(strvalue5) + Val(strvalue6) +Val(strvalue7) / 7) END 12IFIX FIX32產(chǎn)品中，F(xiàn)IX如#

27、GS_LOGIN.NAMEIFIXVBAPrivateSubDimsUserIDAsDimsUserNameAsDimsGroupNameAsSystem.FixGetUserInfosUserID,sUserName,Text1.Caption=13：iFixPLUS版本與NTPLUS版本支持SCADA如#GS_LOGIN.NAMEIFIXVBAPrivateSubDimsUserIDAsDimsUserNameAsDimsGroupNameAsSystem.FixGetUserInfosUserID,sUserName,Text1.Caption=13：iFixPLUS版本與NTPLUS版

28、本支持SCADA。NT版本不支持SCADA。這是二者最大的區(qū)別PLUS版本的節(jié)點(diǎn)可以作為NT節(jié)點(diǎn)，供NT如果NTPLUSPLUSNT兩種版本的報(bào)價(jià)都與點(diǎn)數(shù)有關(guān)，不同點(diǎn)數(shù)的版本價(jià)格不同，價(jià)格隨點(diǎn)數(shù)的增加而增加，PLUS比NT14VBA窗體中實(shí)現(xiàn)定時(shí)器的功能呢？使用user32 中的timer 函數(shù)：PublicDeclareFunctionSetTimerLibuser32(ByValhwndAsLong,ByValnIDEventAsLong,ByVal uElapse As Long, ByVal lpTimerFunc As Long) As LongPublicDeclareFuncti

29、onKillTimerLibuser32(ByValhwndAsLong,ByValnIDEventAsLong)As這兩個(gè)是對(duì)APISetTimerKillTimer。SetTimer(00150,AddressOfTimer_eg) KillTimer(0timerset) ：DeclareFunctionmciSendStringLibm.dllAliasmciSendStringAmandAsString,ByVallpstrReturnStringAsString,ByValhwndCallbackAsLong)AssLong, DimfilenameasString Dim cmd

30、 As String filename = test.wavcmd=open&filename&typeWAVEAudioaliasMyWav Call mciSendString(cmd, 0, 0, 0)CallmciSendString(playMyWav,0,0,：DeclareFunctionsndPlaySoundLibDimfilenameasString Dim cmd As String filename = test.wavcmd=open&filename&typeWAVEAudioaliasMyWav Call mciSendString(cmd, 0, 0, 0)Ca

31、llmciSendString(playMyWav,0,0,：DeclareFunctionsndPlaySoundLibAliassndPlaySoundA(ByVallpszSoundNameAsString,ByValuFlagsAsLong)AsDimfilenameasString filename = test.wavCallsndPlaySound(filename,可以連續(xù)調(diào)用sndPlaySound 。16存歷史庫呢？本例以S 17：iFIX FIXPLC級(jí)、工業(yè)網(wǎng)級(jí)、SCADA級(jí)、LANVIEWPLC級(jí)冗余支持指對(duì)雙PLC的支持，此項(xiàng)支持ellution驅(qū)動(dòng)程序中配置，即可以將下面冗余 說的雙通道，LAN iFIX NetBIOS AutoFailOverRedundancySCADA。18：iFIX SCADA_ASCADA_B1.iFIXHMI：2iFIXRedundancy選項(xiàng)(iFIX安裝時(shí)已安裝：iFIX C 硬件連接：所有計(jì)算機(jī)通過以太網(wǎng)連接。SCADA：SCADA_ASCADA_B上的過程