%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC0%%%%%$$$$&&ABC%%%%%$$$$&&ABC XBMP hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhn{Ext("New Instrument Wizard")},%%%%%$$$$&&ABC 0f37c3a4e014b900d5a9a0857c3f0721  E&3M  BPlease click finish to close the wizard and add the new instrument"Tahoma%%%%%$$$$&&ABC $&62111211283q97499-3728239 hiV -$Close("Wizard_step3") $Open("Wizard_step2")SCall StFunction1__(34, 1, "Wizard_step3") Call StFunction1__(33, 1, "Wizard_step2")hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh&62111211283q97499-3728239 << Back"Tahoma%%%%%$$$$&&ABC!( 5  .Final step, click finish to add the instrument"Tahoma%%%%%$$$$&&ABCf $&81511211283q136299-1788239 hiV  Wizard_step3hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh&81511211283q136299-1788239 Cancel"Tahoma%%%%%$$$$&&ABC!T $&71111211283q115499-2828239 hiV If $InstWizard.BCN >= 0 Then $nType = $InstWizard.BCN $InstWizard.Finish = $Toggle($InstWizard.Finish) $Close("Wizard_step3") Else MsgBox "Please select a valid base channel !",vbOKOnly+vbError,"Error" End IfxIf StGetMnTagVal__(418, 0, 5, 0, 0, "") >= 0 Then Call StSetMnTagVal__(96, 0, 0, 0, 0, 5, 2, "", StGetMnTagVal__(418, 0, 5, 0, 0, "") ) Call StSetMnTagVal__(418, 0, 8, 0, 0, 5, 3, "", StFunction1__(251, 1, StGetMnTagVal__(418, 0, 8, 0, 0, "") )) Call StFunction1__(34, 1, "Wizard_step3") Else MsgBox "Please select a valid base channel !",vbOKOnly+vbError,"Error" End Ifhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh&71111211283q115499-2828239 Finish"Tahoma%%%%%$$$$&&ABC! &56311175283q70499-4738239  &56311175283q70499-4738239'To add the instrument, to click Finish."Tahoma%%%%%$$$$&&ABC   Arial%%%%%$$$$&&ABC "   Arial%%%%%$$$$&&ABC;U&78611120283q76099-1118239;U  nType>1h`>h00.000000100 100.000000dh00.000000100 100.000000dh5&78611120283q76099-1118239;U;Z&4611168283q43499-2138239;Z #&4611168283q43499-2138239Slot 2:"Tahoma%%%%%$$$$&&ABC;ZYf&4611121283q34099-1198239;ZYf $&4611121283q34099-1198239Slot 1:"Tahoma%%%%%$$$$&&ABC;Z&46111116283q53099-3098239;Z %&46111116283q53099-3098239Slot 3:"Tahoma%%%%%$$$$&&ABCYf&6501121283q71899708239Yf &&6501121283q71899708239Slot 4:"Tahoma%%%%%$$$$&&ABC&6501168283q81299-248239 '&6501168283q81299-248239Slot 5:"Tahoma%%%%%$$$$&&ABC&65011116283q90899-1208239 (&65011116283q90899-1208239Slot 6:"Tahoma%%%%%$$$$&&ABC$$_&5971172283q60699-1698239_  !nType<>5 And nType<>4 and nType>1DDh```>h00.000000100 100.000000dh00.000000100 100.000000dh)&5971172283q60699-1698239 nType = 5h`="TahomaInstWizard.Slot2AuxNone PAI FAI$$_Uj_Uj  !nType<>5 And nType<>4 and nType>1DDh```>h00.000000100 100.000000dh00.000000100 100.000000dh* nType = 5h`="TahomaInstWizard.Slot1AuxNone PAI FAI$$_&5971172283q60699-1698239_   nType = 4h`=h00.000000100 100.000000dh00.000000100 100.000000dh+&5971172283q60699-1698239h"TahomaInstWizard.Slot2AuxNone High-Capacity DAQ-STAQ$$_Uj&5971125283q51299-758239_Uj  nType =4h`=h00.000000100 100.000000dh00.000000100 100.000000dh,&5971125283q51299-758239h"TahomaInstWizard.Slot1AuxNone High-Capacity DAQ-STAQ$$_Uj&5971125283q51299-758239_Uj  nType =5h`=h00.000000100 100.000000dh00.000000100 100.000000dh-&5971125283q51299-758239h"TahomaInstWizard.Slot1AuxNone Module Enabled$$_&59711120283q70299-2658239_  nType>1h`>h00.000000100 100.000000dh00.000000100 100.000000dh.&59711120283q70299-2658239nType = 4 or nType = 5..h`=`="TahomaInstWizard.Slot3AuxNone PAI FAI$$_&5971172283q60699-1698239_  nType =5h`=h00.000000100 100.000000dh00.000000100 100.000000dh/&5971172283q60699-1698239h"TahomaInstWizard.Slot2AuxNone Module Enabled$$_&59711120283q70299-2658239_  nType =5h`=h00.000000100 100.000000dh00.000000100 100.000000dh0&59711120283q70299-2658239h"TahomaInstWizard.Slot3AuxNone Module Enabled$$Uj&7861125283q890991148239Uj  nType>1h`>h00.000000100 100.000000dh00.000000100 100.000000dh1&7861125283q890991148239nType = 4 or nType = 5..h`=`="TahomaInstWizard.Slot4AuxNone PAI FAI$$&7861172283q98499208239  nType>1h`>h00.000000100 100.000000dh00.000000100 100.000000dh2&7861172283q98499208239nType = 4 or nType = 5..h`=`="TahomaInstWizard.Slot5AuxNone PAI FAI$$&78611120283q108099-768239  nType>1h`>h00.000000100 100.000000dh00.000000100 100.000000dh3&78611120283q108099-768239nType = 4 or nType = 5..h`=`="TahomaInstWizard.Slot6AuxNone PAI FAI DIO0.000000hiVVBScript(' Here you can declare variables and procedures and implement Line2=' some pre-defined procedures for screen. ' Declaration of variables ' Declaration of procedures ' Initialization of variables and tags Line9= Line10=' Implementation of pre-defined procedures. ' Note: The name of them can NOT be changed. ' This function is called when the screen is open. Sub Screen_OnOpen() $InstWizard.Slot1Aux = $InstWizard.Slot1+1 $InstWizard.Slot2Aux = $InstWizard.Slot2+1 $InstWizard.Slot3Aux = $InstWizard.Slot3+1 $InstWizard.Slot4Aux = $InstWizard.Slot4+1 $InstWizard.Slot5Aux = $InstWizard.Slot5+1 $InstWizard.Slot6Aux = $InstWizard.Slot6+1 End Sub ' This function is called while the screen is open. Sub Screen_WhileOpen() $InstWizard.Slot1 = $InstWizard.Slot1Aux-1 $InstWizard.Slot2 = $InstWizard.Slot2Aux-1 $InstWizard.Slot3 = $InstWizard.Slot3Aux-1 $InstWizard.Slot4 = $InstWizard.Slot4Aux-1 $InstWizard.Slot5 = $InstWizard.Slot5Aux-1 If $InstWizard.Slot6Aux = 5 Then $InstWizard.Slot6 = 3 Else $InstWizard.Slot6 = $InstWizard.Slot6Aux-1 End If End Sub ' This function is called when the screen is closed. Sub Screen_OnClose() End SubK Sub Screen_OnOpen() Call StSetMnTagVal__(418, 0, 17, 0, 0, 1, 15, "", StGetMnTagVal__(418, 0, 11, 0, 0, "") +1) Call StSetMnTagVal__(418, 0, 18, 0, 0, 1, 16, "", StGetMnTagVal__(418, 0, 12, 0, 0, "") +1) Call StSetMnTagVal__(418, 0, 19, 0, 0, 1, 17, "", StGetMnTagVal__(418, 0, 13, 0, 0, "") +1) Call StSetMnTagVal__(418, 0, 20, 0, 0, 1, 18, "", StGetMnTagVal__(418, 0, 14, 0, 0, "") +1) Call StSetMnTagVal__(418, 0, 21, 0, 0, 1, 19, "", StGetMnTagVal__(418, 0, 15, 0, 0, "") +1) Call StSetMnTagVal__(418, 0, 22, 0, 0, 1, 20, "", StGetMnTagVal__(418, 0, 16, 0, 0, "") +1) End Sub Sub Screen_WhileOpen() Call StSetMnTagVal__(418, 0, 11, 0, 0, 1, 25, "", StGetMnTagVal__(418, 0, 17, 0, 0, "") -1) Call StSetMnTagVal__(418, 0, 12, 0, 0, 1, 26, "", StGetMnTagVal__(418, 0, 18, 0, 0, "") -1) Call StSetMnTagVal__(418, 0, 13, 0, 0, 1, 27, "", StGetMnTagVal__(418, 0, 19, 0, 0, "") -1) Call StSetMnTagVal__(418, 0, 14, 0, 0, 1, 28, "", StGetMnTagVal__(418, 0, 20, 0, 0, "") -1) Call StSetMnTagVal__(418, 0, 15, 0, 0, 1, 29, "", StGetMnTagVal__(418, 0, 21, 0, 0, "") -1) If StGetMnTagVal__(418, 0, 22, 0, 0, "") = 5 Then Call StSetMnTagVal__(418, 0, 16, 0, 0, 1, 31, "", 3) Else Call StSetMnTagVal__(418, 0, 16, 0, 0, 1, 33, "", StGetMnTagVal__(418, 0, 22, 0, 0, "") -1) End If End Sub Sub Screen_OnClose() End SubhiV `INSTWIZARD.BCNINSTWIZARD.FINISHNTYPEINSTWIZARD.SLOT1AUXINSTWIZARD.SLOT2AUXINSTWIZARD.SLOT3AUXINSTWIZARD.SLOT4AUXINSTWIZARD.SLOT5AUXINSTWIZARD.SLOT6AUX