џўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ0џўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABC XџўџBMPџўџџўџџўџџўџ џўџџўџџўџџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗn џўџџўџ{Ext("New Instrument Wizard")}Т,№№№џўџ%%%%%$$$$&&ABCџџџџўџџўџџўџџўџ 0f37c3a4e014b900d5a9a0857c3f0721џўџџўџџўџџўџРРРœdкœdкЮчї (џўџ џўџџўџѓџМ џўџArialьщиџџџъџўџ%%%%%$$$$&&ABCџўџџўџџўџџўџ%hvƒџўџ&4751150283q39099-1998239X РРР џўџ&4751150283q39099-1998239џўџџўџ Base channel:ѕџ"џўџTahomaџўџ%%%%%$$$$&&ABCџџџџўџџўџџўџџўџъ ї РРР џўџџўџџўџWelcome to the Fluke DAQ WizardѓџМ"џўџTahomaџўџ%%%%%$$$$&&ABCџџџџўџџўџџўџџўџ$–]j‡ РРР џўџџўџџўџ Network Configuration ѕџ"џўџTahomaџўџ%%%%%$$$$&&ABC№№№џўџџўџџўџџўџНvƒi РРР џўџџўџџўџInstrument Type:ѕџ"џўџTahomaџўџ%%%%%$$$$&&ABCџџџџўџџўџџўџџўџ Šѓџўџ&50911175283q65099-4738239’ РРР џўџ&50911175283q65099-4738239џўџџўџTo continue, to click Next.ѕџ"џўџTahomaџўџ%%%%%$$$$&&ABCџџџџўџџўџџўџџўџПРРР џўџ џўџџўџѓџМ џўџArialРРРџџџъџўџ%%%%%$$$$&&ABCџўџџўџџўџџўџР "РРР џўџ џўџџўџѓџМ џўџArialРРРџџџъџўџ%%%%%$$$$&&ABCџўџџўџџўџџўџЃљ $џўџ&62011211283q97299-3738239ррРРР џўџџўџџўџџўџџўџhЗiVњ  џўџџ$nType = $InstWizard.BCN If $InstWizard.BCN_Aux >= 0 Then If ValidateSettings() Then $InstWizard.Finish = Not $InstWizard.Finish $Close("Wizard_step1") End If Else MsgBox "Please select a valid base channel !",vbOKOnly+vbError,"Error" End IfџўџџŠCall StSetMnTagVal__(96, 0, 0, 0, 0, 5, 1, "", StGetMnTagVal__(418, 0, 5, 0, 0, "") ) If StGetMnTagVal__(418, 0, 7, 0, 0, "") >= 0 Then If ValidateSettings() Then Call StSetMnTagVal__(418, 0, 8, 0, 0, 5, 4, "", Not StGetMnTagVal__(418, 0, 8, 0, 0, "") ) Call StFunction1__(34, 1, "Wizard_step1") End If Else MsgBox "Please select a valid base channel !",vbOKOnly+vbError,"Error" End IfџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџhЗ џўџ&62011211283q97299-3738239 џўџџўџFinishѕџ"џўџTahomaРРРџџџъџўџ%%%%%$$$$&&ABCџўџЬ!ЬџўџџўџџўџџўџўT $џўџ&71111211283q115499-2828239ррРРР џўџџўџџўџџўџџўџhЗiVњ џўџЪIf $InstWizard.BCN>=0 Then If ValidateSettings() Then $Close("Wizard_step1") $Open("Wizard_step2") End If Else MsgBox "Please select a valid base channel !",vbOKOnly+vbError,"Error" End IfџўџџIf StGetMnTagVal__(418, 0, 5, 0, 0, "") >=0 Then If ValidateSettings() Then Call StFunction1__(34, 1, "Wizard_step1") Call StFunction1__(33, 1, "Wizard_step2") End If Else MsgBox "Please select a valid base channel !",vbOKOnly+vbError,"Error" End IfџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџhЗ џўџ&71111211283q115499-2828239 џўџџўџNext >>ѕџ"џўџTahomaРРРџџџъџўџ%%%%%$$$$&&ABCџўџЬ!ЬџўџџўџџўџџўџfМ $џўџ&81511211283q136299-1788239ррРРР џўџџўџџўџџўџџўџhЗiVњ џўџ Wizard_step1џўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџџўџhЗџўџhЗ џўџ&81511211283q136299-1788239 џўџџўџCancelѕџ"џўџTahomaРРРџџџъџўџ%%%%%$$$$&&ABCџўџЬ!ЬџўџџўџџўџџўџЕ)Fџўџ&80811-11283q56299-688239 ==РРР џўџ&80811-11283q56299-688239 џўџџўџ9This wizard will guide you to configure a new instrument.ѕџ"џўџTahomaРРРџџџъџўџ%%%%%$$$$&&ABCџўџџўџџўџџўџFg˜Ѕџўџ&4741184283q49099-2348239Gh•ЂРРР 5џўџ&4741184283q49099-2348239џўџџўџComm:ѕџ"џўџTahomaџўџ%%%%%$$$$&&ABCџџџџўџџўџџўџџўџ1a„.’ЖЪџўџ&77311121283q83299-3188239.’ЖЪЮчї  џўџ џўџџўџџўџџўџџўџhInstWizard.CommType = 0 And (InstWizard.Label <> "1586A Super-DAQ" and InstWizard.Label <>"2638A HYDRA")xxhЗЂ=Ђџў1586A Super-DAQ‚Ђџў2638A HYDRA‚„„џўџhЗџўџ0џўџ0.000000џўџ100џўџ 100.000000dџўџhЗџўџ0џўџ0.000000џўџ100џўџ 100.000000dџўџhЗ;џўџ&77311121283q83299-3188239џўџ.Ж’Ъџўџџўџџўџџўџџўџ.fЙЦ.fЙЦРРР џўџџўџџўџџўџџўџџўџbNetTypehЗRџўџ0џўџ0.000000џџџъџўџ1џўџ1.000000€€€€€€џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџџўџ IP Address:ѕџ"џўџTahomaџўџ%%%%%$$$$&&ABCџџџ)џўџ)џўџџўџџўџ1a„mБЖЪџўџ&54811121283q67099-2558239mБЖЪЮчї џўџ&54811121283q67099-2558239џўџџџџџўџbNetTypehЗRѕџ џўџTahomaџўџInstWizard.ipAddr_3hЗЂџўџџўџ0џўџ0.000000џўџ255џўџ 255.000000џўџџўџ)џўџ)џўџџўџџўџ1a„ИќЖЪџўџ&62311121283q82099-1808239ИќЖЪЮчї џўџ&62311121283q82099-1808239џўџџџџџўџbNetTypehЗRѕџ џўџTahomaџўџInstWizard.ipAddr_2hЗЂџўџџўџ0џўџ0.000000џўџ255џўџ 255.000000џўџџўџ)џўџ)џўџџўџџўџ1a„GЖЪџўџ&69811121283q97099-1058239GЖЪЮчї џўџ&69811121283q97099-1058239џўџџџџџўџbNetTypehЗRѕџ џўџTahomaџўџInstWizard.ipAddr_1hЗЂџўџџўџ0џўџ0.000000џўџ255џўџ 255.000000џўџџўџ)џўџ)џўџџўџџўџ1a„N’ЖЪџўџ&77311121283q112099-308239N’ЖЪЮчї џўџ&77311121283q112099-308239џўџџџџџўџbNetTypehЗRѕџ џўџTahomaџўџInstWizard.ipAddr_0hЗЂџўџџўџ0џўџ0.000000џўџ255џўџ 255.000000џўџџўџџўџџўџџўџџўџџўџџўџ1a„.’ЖЫ.’ЖЫЮчї  џўџ џўџџўџџўџџўџџўџ_InstWizard.Label = "1586A Super-DAQ" or InstWizard.Label ="2638A HYDRA" or nApplicationMode = 1xxhЗЂџў1586A Super-DAQ=Ђџў2638A HYDRA=…=…џўџhЗџўџ0џўџ0.000000џўџ100џўџ 100.000000dџўџhЗџўџ0џўџ0.000000џўџ100џўџ 100.000000dџўџhЗDџўџџўџ.Ж’Ыџўџџўџџўџџўџџўџ7КЖЫџўџ&55711122283q62699-30982397КЖЫРРР  џўџ џўџџўџџўџџўџџўџInstWizard.CommType = 1hЗЂ=џўџhЗџўџ0џўџ0.000000џўџ100џўџ 100.000000dџўџhЗџўџ0џўџ0.000000џўџ100џўџ 100.000000dџўџhЗAџўџ&55711122283q62699-3098239џўџ7ЖКЫџўџџўџџўџџўџџўџ7iКЧ7iКЧРРР >џўџџўџџўџ COM Port:ѕџ"џўџTahomaџўџ%%%%%$$$$&&ABCџџџ$џўџ$џўџџўџџўџmКЖЫџўџ&55711122283q68099-2558239mКЖЫРРР ?џўџ&55711122283q68099-2558239џўџџџџџўџJInstWizard.Label <> "1586A Super-DAQ" AND InstWizard.Label <>"2638A HYDRA"bbhЗЂџў1586A Super-DAQ‚Ђџў2638A HYDRA‚„ѕџ"џўџTahomaџўџџўџInstWizard.COMPortџўџџўџCOMPortList[0]џўџ255џўџџФAuto (Single) COM1 COM2 COM3 COM4 COM5 COM6 COM7 COM8 COM9 COM10 COM11 COM12 COM13 COM14 COM15 COM16 COM17 COM18 COM19 COM20 COM21 COM22 COM23 COM24 COM25 COM26 COM27 COM28 COM29 COM30 COM31 COM32 COM33 COM34 COM35 COM36 COM37 COM38 COM39 COM40 COM41 COM42 COM43 COM44 COM45 COM46 COM47 COM48 COM49 COM50 COM51 COM52 COM53 COM54 COM55 COM56 COM57 COM58 COM59 COM60 COM61 COM62 COM63 COM64џўџџўџџўџџўџџўџџўџџўџџўџџўџџўџ1a„.’ЖЪџўџ&77311121283q83299-3188239.’ЖЪЮчї  џўџ џўџџўџџўџџўџџўџ}InstWizard.CommType = 0 And (InstWizard.Label = "1586A Super-DAQ" or InstWizard.Label ="2638A HYDRA" or nApplicationMode = 1)ŽŽhЗЂ=Ђџў1586A Super-DAQ=Ђџў2638A HYDRA=…=…„џўџhЗџўџ0џўџ0.000000џўџ100џўџ 100.000000dџўџhЗџўџ0џўџ0.000000џўџ100џўџ 100.000000dџўџhЗCџўџ&77311121283q83299-3188239џўџ.Ж’Ъџўџџўџџўџџўџџўџ.fЙЦ.fЙЦРРР џўџџўџџўџџўџџўџџўџbNetTypehЗRџўџ0џўџ0.000000џџџъџўџ1џўџ1.000000€€€€€€џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџ0.000000џџџъџўџџўџџўџ IP Address:ѕџ"џўџTahomaџўџ%%%%%$$$$&&ABCџџџ)џўџ)џўџџўџџўџ1a„mБЖЪџўџ&54811121283q67099-2558239mБЖЪЮчї џўџ&54811121283q67099-2558239џўџџџџџўџbNetTypehЗRѕџ џўџTahomaџўџInstWizard.ipAddr_3hЗЂџўџџўџ0џўџ0.000000џўџ255џўџ 255.000000џўџџўџ)џўџ)џўџџўџџўџ1a„ИќЖЪџўџ&62311121283q82099-1808239ИќЖЪЮчї џўџ&62311121283q82099-1808239џўџџџџџўџbNetTypehЗRѕџ џўџTahomaџўџInstWizard.ipAddr_2hЗЂџўџџўџ0џўџ0.000000џўџ255џўџ 255.000000џўџџўџ)џўџ)џўџџўџџўџ1a„GЖЪџўџ&69811121283q97099-1058239GЖЪЮчї џўџ&69811121283q97099-1058239џўџџџџџўџbNetTypehЗRѕџ џўџTahomaџўџInstWizard.ipAddr_1hЗЂџўџџўџ0џўџ0.000000џўџ255џўџ 255.000000џўџџўџ)џўџ)џўџџўџџўџ1a„N’ЖЪџўџ&77311121283q112099-308239N’ЖЪЮчї џўџ&77311121283q112099-308239џўџџџџџўџbNetTypehЗRѕџ џўџTahomaџўџInstWizard.ipAddr_0hЗЂџўџџўџ0џўџ0.000000џўџ255џўџ 255.000000џўџџўџџўџџўџџўџџўџ$џўџ$џўџџўџџўџm r‡џўџ&5311154283q51899-1198239зuWuРРР џўџ&5311154283q51899-1198239џўџџџџџўџhЗѕџ"џўџTahomaџўџџўџInstWizard.BCN_Auxџўџџўџџўџџўџџ1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99џўџџўџџўџџўџ$џўџ$џўџџўџџўџ‘r‡џўџ&7721154283q92699488239зuWuРРР  џўџ џўџџўџџўџџўџџўџnApplicationMode<>1hЗ‚џўџhЗџўџ0џўџ0.000000џўџ100џўџ 100.000000dџўџhЗџўџ0џўџ0.000000џўџ100џўџ 100.000000dџўџhЗџўџ&7721154283q92699488239џўџџџџџўџhЗѕџ"џўџTahomaџўџџўџџўџInstWizard.LabelџўџInstrumentType[0]џўџInstrumentTypeSizeџўџN2640A NetDAQ 2645A NetDAQ 2680A DAS 2686A DLS 1586A SUPER DAQ 2638A HYDRAџўџџўџџўџџўџ)џўџ)џўџџўџџўџ1a„r†ZoЮчї  џўџ џўџџўџџўџџўџџўџnApplicationMode = 1hЗ=џўџhЗџўџ0џўџ0.000000џўџ100џўџ 100.000000dџўџhЗџўџ0џўџ0.000000џўџ100џўџ 100.000000dџўџhЗџўџџўџџџџџўџhЗѕџ џўџTahomaџўџ"1586A Super-DAQ"((hЗџў1586A Super-DAQџўџџўџџўџ0.000000џўџџўџ0.000000џўџџўџ$џўџ$џўџџўџџўџm ”Љџўџ&5311188283q58699-1878239lŸ‘ІРРР 6џўџ&5311188283q58699-1878239џўџџџџџўџbInstWizard.Label <> "1586A Super-DAQ" And InstWizard.Label <>"2638A HYDRA" and nApplicationMode<>1xxhЗЂџў1586A Super-DAQ‚Ђџў2638A HYDRA‚„‚„ѕџ"џўџTahomaџўџџўџInstWizard.CommTypeџўџџўџџўџџўџLAN USBџўџџўџџўџџўџџўџџўџ0.000000hЗiVџўџVBScript…џўџџ5' Here you can declare variables and procedures and implement Line2=' some pre-defined procedures for screen. ' Declaration of variables Dim mathEnd ' Declaration of procedures Function CheckIP() If $bNetType = 0 And ($InstWizard.ipAddr_0 = 0 And $InstWizard.ipAddr_1 = 0 And $InstWizard.ipAddr_2 = 0 And $InstWizard.ipAddr_3 = 0) Then CheckIP = False Else CheckIP = True End If End Function Function CheckBCN() $InstWizard.BCN = $InstWizard.BCN_Aux+1 If $nDevices[$InstWizard.BCN]>=0 Then CheckBCN= False Else CheckBCN= True End If End Function Function ValidateSettings() If ($InstWizard.Label <> "1586A Super-DAQ" And $InstWizard.Label <>"2638A HYDRA") Or (($InstWizard.Label = "1586A Super-DAQ" Or $InstWizard.Label ="2638A HYDRA") And $InstWizard.CommType = 0 ) Then If Not CheckIP() Then MsgBox $Ext("The IP address specified is invalid, please specify a valid IP Address"), vbOKOnly + vbExclamation, $Ext("Fluke DAQ Wizard") ValidateSettings = False ElseIf Not CheckBCN() Then MsgBox $Ext("The base channel number that you specified is already in use by another instrument, please specify a different one."), vbOKOnly + vbExclamation, $Ext("Fluke DAQ Wizard") ValidateSettings = False Else ValidateSettings = True End If ElseIf Not CheckBCN() Then MsgBox $Ext("The base channel number that you specified is already in use by another instrument, please specify a different one."), vbOKOnly + vbExclamation, $Ext("Fluke DAQ Wizard") ValidateSettings = Fals Else ValidateSettings = True End If End Function ' Initialization of variables and tags Line9= Line10=' Implementation of pre-defined procedures. Dim auxCommType,auxLabel ' Note: The name of them can NOT be changed. ' This function is called when the screen is open. Sub Screen_OnOpen() If $nApplicationMode = 1 Then $InstWizard.Label = "1586A Super-DAQ" End If mathEnd = $InstWizard.BCN_Aux If $InstWizard.CommType = 1 Then 'Call Function End If auxCommType = $InstWizard.CommType auxLabel = $InstWizard.Label End Sub ' This function is called while the screen is open. Sub Screen_WhileOpen() If auxLabel <> $InstWizard.Label Then If $InstWizard.Label <> "1586A Super-DAQ" And $InstWizard.Label <>"2638A HYDRA" Then $InstWizard.CommType = 0 End If auxLabel = $InstWizard.Label End If If auxCommType <> $InstWizard.CommType Then If $InstWizard.CommType = 1 Then 'Call Function End If auxCommType = $InstWizard.CommType End If Select Case UCase($InstWizard.Label) Case "2640A NETDAQ" $InstWizard.Type = 0 $nType = 0 Case "2645A NETDAQ" $InstWizard.Type = 1 $nType = 1 Case "2680A DAS" $InstWizard.Type = 2 $nType = 2 Case "2686A DLS" $InstWizard.Type = 3 $nType = 3 Case UCase("1586A Super-DAQ") $InstWizard.Type = 4 $nType = 4 Case "2638A HYDRA" $InstWizard.Type = 5 $nType = 5 End Select If mathEnd = -1 Then $InstWizard.BCN_Aux = 9 Dim Inst For Inst=10 To 99 If $nDevices[Inst] < 0 Then $InstWizard.BCN_Aux = Inst-1 Exit For End If Next '$InstWizard.Type = 2 $InstWizard.Slot1=-1 $InstWizard.Slot2=-1 $InstWizard.Slot3=-1 $InstWizard.Slot4=-1 $InstWizard.Slot5=-1 $InstWizard.Slot6=-1 $InstWizard.Slot1Aux=0 $InstWizard.Slot2Aux=0 $InstWizard.Slot3Aux=0 $InstWizard.Slot4Aux=0 $InstWizard.Slot5Aux=0 $InstWizard.Slot6Aux=0 mathEnd = $InstWizard.BCN_Aux Else mathEnd = $InstWizard.BCN_Aux End If End Sub ' This function is called when the screen is closed. Sub Screen_OnClose() End Subџўџџ Dim mathEnd Function CheckIP() If StGetMnTagVal__(82, 0, 0, 0, 0, "") = 0 And (StGetMnTagVal__(418, 0, 1, 0, 0, "") = 0 And StGetMnTagVal__(418, 0, 2, 0, 0, "") = 0 And StGetMnTagVal__(418, 0, 3, 0, 0, "") = 0 And StGetMnTagVal__(418, 0, 4, 0, 0, "") = 0) Then CheckIP = False Else CheckIP = True End If End Function Function CheckBCN() Call StSetMnTagVal__(418, 0, 5, 0, 0, 1, 14, "", StGetMnTagVal__(418, 0, 7, 0, 0, "") +1) If StGetMnTagVal__(126, StGetMnTagVal__(418, 0, 5, 0, 0, "") , 0, 0, 0, "") >=0 Then CheckBCN= False Else CheckBCN= True End If End Function Function ValidateSettings() If (StGetMnTagVal__(418, 0, 26, 0, 0, "") <> "1586A Super-DAQ" And StGetMnTagVal__(418, 0, 26, 0, 0, "") <>"2638A HYDRA") Or ((StGetMnTagVal__(418, 0, 26, 0, 0, "") = "1586A Super-DAQ" Or StGetMnTagVal__(418, 0, 26, 0, 0, "") ="2638A HYDRA") And StGetMnTagVal__(418, 0, 28, 0, 0, "") = 0 ) Then If Not CheckIP() Then MsgBox StFunction1__(31, 1, "The IP address specified is invalid, please specify a valid IP Address"), vbOKOnly + vbExclamation, StFunction1__(31, 1, "Fluke DAQ Wizard") ValidateSettings = False ElseIf Not CheckBCN() Then MsgBox StFunction1__(31, 1, "The base channel number that you specified is already in use by another instrument, please specify a different one."), vbOKOnly + vbExclamation, StFunction1__(31, 1, "Fluke DAQ Wizard") ValidateSettings = False Else ValidateSettings = True End If ElseIf Not CheckBCN() Then MsgBox StFunction1__(31, 1, "The base channel number that you specified is already in use by another instrument, please specify a different one."), vbOKOnly + vbExclamation, StFunction1__(31, 1, "Fluke DAQ Wizard") ValidateSettings = Fals Else ValidateSettings = True End If End Function Dim auxCommType,auxLabel Sub Screen_OnOpen() If StGetMnTagVal__(543, 0, 0, 0, 0, "") = 1 Then Call StSetMnTagVal__(418, 0, 26, 0, 0, 1, 50, "", "1586A Super-DAQ") End If mathEnd = StGetMnTagVal__(418, 0, 7, 0, 0, "") If StGetMnTagVal__(418, 0, 28, 0, 0, "") = 1 Then End If auxCommType = StGetMnTagVal__(418, 0, 28, 0, 0, "") auxLabel = StGetMnTagVal__(418, 0, 26, 0, 0, "") End Sub Sub Screen_WhileOpen() If auxLabel <> StGetMnTagVal__(418, 0, 26, 0, 0, "") Then If StGetMnTagVal__(418, 0, 26, 0, 0, "") <> "1586A Super-DAQ" And StGetMnTagVal__(418, 0, 26, 0, 0, "") <>"2638A HYDRA" Then Call StSetMnTagVal__(418, 0, 28, 0, 0, 1, 65, "", 0) End If auxLabel = StGetMnTagVal__(418, 0, 26, 0, 0, "") End If If auxCommType <> StGetMnTagVal__(418, 0, 28, 0, 0, "") Then If StGetMnTagVal__(418, 0, 28, 0, 0, "") = 1 Then End If auxCommType = StGetMnTagVal__(418, 0, 28, 0, 0, "") End If Select Case UCase(StGetMnTagVal__(418, 0, 26, 0, 0, "") ) Case "2640A NETDAQ" Call StSetMnTagVal__(418, 0, 6, 0, 0, 1, 80, "", 0) Call StSetMnTagVal__(96, 0, 0, 0, 0, 1, 81, "", 0) Case "2645A NETDAQ" Call StSetMnTagVal__(418, 0, 6, 0, 0, 1, 83, "", 1) Call StSetMnTagVal__(96, 0, 0, 0, 0, 1, 84, "", 1) Case "2680A DAS" Call StSetMnTagVal__(418, 0, 6, 0, 0, 1, 86, "", 2) Call StSetMnTagVal__(96, 0, 0, 0, 0, 1, 87, "", 2) Case "2686A DLS" Call StSetMnTagVal__(418, 0, 6, 0, 0, 1, 89, "", 3) Call StSetMnTagVal__(96, 0, 0, 0, 0, 1, 90, "", 3) Case UCase("1586A Super-DAQ") Call StSetMnTagVal__(418, 0, 6, 0, 0, 1, 92, "", 4) Call StSetMnTagVal__(96, 0, 0, 0, 0, 1, 93, "", 4) Case "2638A HYDRA" Call StSetMnTagVal__(418, 0, 6, 0, 0, 1, 95, "", 5) Call StSetMnTagVal__(96, 0, 0, 0, 0, 1, 96, "", 5) End Select If mathEnd = -1 Then Call StSetMnTagVal__(418, 0, 7, 0, 0, 1, 101, "", 9) Dim Inst For Inst=10 To 99 If StGetMnTagVal__(126, Inst, 0, 0, 0, "") < 0 Then Call StSetMnTagVal__(418, 0, 7, 0, 0, 1, 105, "", Inst-1) Exit For End If Next Call StSetMnTagVal__(418, 0, 11, 0, 0, 1, 110, "", -1) Call StSetMnTagVal__(418, 0, 12, 0, 0, 1, 111, "", -1) Call StSetMnTagVal__(418, 0, 13, 0, 0, 1, 112, "", -1) Call StSetMnTagVal__(418, 0, 14, 0, 0, 1, 113, "", -1) Call StSetMnTagVal__(418, 0, 15, 0, 0, 1, 114, "", -1) Call StSetMnTagVal__(418, 0, 16, 0, 0, 1, 115, "", -1) Call StSetMnTagVal__(418, 0, 17, 0, 0, 1, 116, "", 0) Call StSetMnTagVal__(418, 0, 18, 0, 0, 1, 117, "", 0) Call StSetMnTagVal__(418, 0, 19, 0, 0, 1, 118, "", 0) Call StSetMnTagVal__(418, 0, 20, 0, 0, 1, 119, "", 0) Call StSetMnTagVal__(418, 0, 21, 0, 0, 1, 120, "", 0) Call StSetMnTagVal__(418, 0, 22, 0, 0, 1, 121, "", 0) mathEnd = StGetMnTagVal__(418, 0, 7, 0, 0, "") Else mathEnd = StGetMnTagVal__(418, 0, 7, 0, 0, "") End If End Sub Sub Screen_OnClose() End SubџўџhЗiVЂЂЂ`RЂЂЂЂЂЂ>Ђ"#џўџINSTWIZARD.BCNџўџINSTWIZARD.BCN_AUXџўџINSTWIZARD.FINISHџўџNTYPEџўџBNETTYPEџўџINSTWIZARD.COMMTYPEџўџINSTWIZARD.IPADDR_0џўџINSTWIZARD.IPADDR_1џўџINSTWIZARD.IPADDR_2џўџINSTWIZARD.IPADDR_3џўџINSTWIZARD.LABELџўџCOMPORTLIST[0]џўџINSTWIZARD.COMPORTџўџNAPPLICATIONMODEџўџINSTRUMENTTYPE[0]џўџINSTRUMENTTYPESIZE