API tools faq
paste
Guest User

Untitled

a guest
Feb 21st, 2018
58
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 17.83 KB | None | 0 0
raw download clone embed print report
  1.         <MethodImpl((MethodImplOptions.NoOptimization Or MethodImplOptions.NoInlining))> _
  2.         Private Function Setup(ByRef strGivenFluidName As Object) As Object
  3.             Dim objectValue As Object
  4.             Dim num17 As Integer
  5.             Dim expressionStack_880_0 As Object
  6.             Try
  7.                 Dim num18 As Integer
  8.                 Dim expressionStack_166_0 As Object
  9.                 Dim expressionStack_15B_0 As Object
  10.                 Dim expressionStack_1D7_0 As Object
  11.                 Dim expressionStack_1CC_0 As Object
  12.                 Dim expressionStack_83A_0 As Integer
  13. Label_0001:
  14.                 num18 = 1
  15.                 If (Operators.CompareString(Me.strIniPath, "", True) <> 0) Then
  16.                     GoTo Label_00DB
  17.                 End If
  18. Label_0021:
  19.                 num18 = 2
  20.                 Me.strIniPath = (MyProject.Application.Info.DirectoryPath.ToString & "\CoilSelectionNET.ini")
  21. Label_0048:
  22.                 num18 = 3
  23.                 Dim section As String = "NIST"
  24.                 Dim key As String = "FluidsDirectory"
  25.                 Me.strFluidsDirectory = Me.GetString(Me.strIniPath, section, key, (MyProject.Application.Info.DirectoryPath.ToString & "\fluids\"))
  26. Label_0091:
  27.                 num18 = 4
  28.                 Dim str6 As String = "NIST"
  29.                 key = "MixturesDirectory"
  30.                 Me.strMixturesDirectory = Me.GetString(Me.strIniPath, str6, key, (MyProject.Application.Info.DirectoryPath.ToString & "\mixtures\"))
  31. Label_00DB:
  32.                 num18 = 6
  33.                 Me.ierr = 0
  34. Label_00E5:
  35.                 num18 = 7
  36.                 Dim str As String = ""
  37. Label_00EE:
  38.                 num18 = 8
  39.                 If Not Operators.ConditionalCompareObjectEqual(strGivenFluidName, Me.strFldOld, True) Then
  40.                     GoTo Label_0111
  41.                 End If
  42. Label_0105:
  43.                 num18 = 9
  44.                 objectValue = Nothing
  45.                 GoTo Label_087A
  46. Label_0111:
  47.                 num18 = 11
  48.                 Dim arguments As Object() = New Object() {RuntimeHelpers.GetObjectValue(strGivenFluidName)}
  49.                 Dim copyBack As Boolean() = New Boolean() {True}
  50.                 If Not copyBack(0) Then
  51.                     expressionStack_166_0 = NewLateBinding.LateGet(Nothing, GetType(Strings), "UCase", arguments, Nothing, Nothing, copyBack)
  52.                     GoTo Label_0166
  53.                 Else
  54.                     expressionStack_15B_0 = NewLateBinding.LateGet(Nothing, GetType(Strings), "UCase", arguments, Nothing, Nothing, copyBack)
  55.                 End If
  56.                 strGivenFluidName = RuntimeHelpers.GetObjectValue(arguments(0))
  57.                 expressionStack_166_0 = expressionStack_15B_0
  58. Label_0166:
  59.                 If Not Operators.ConditionalCompareObjectEqual(expressionStack_166_0, "AIR", True) Then
  60.                     GoTo Label_0182
  61.                 End If
  62. Label_0177:
  63.                 num18 = 12
  64.                 strGivenFluidName = "nitrogen,.7812,argon,.0092,oxygen,.2096"
  65. Label_0182:
  66.                 num18 = 14
  67.                 Dim objArray As Object() = New Object() {RuntimeHelpers.GetObjectValue(strGivenFluidName)}
  68.                 copyBack = New Boolean() {True}
  69.                 If Not copyBack(0) Then
  70.                     expressionStack_1D7_0 = NewLateBinding.LateGet(Nothing, GetType(Strings), "UCase", objArray, Nothing, Nothing, copyBack)
  71.                     GoTo Label_01D7
  72.                 Else
  73.                     expressionStack_1CC_0 = NewLateBinding.LateGet(Nothing, GetType(Strings), "UCase", objArray, Nothing, Nothing, copyBack)
  74.                 End If
  75.                 strGivenFluidName = RuntimeHelpers.GetObjectValue(objArray(0))
  76.                 expressionStack_1D7_0 = expressionStack_1CC_0
  77. Label_01D7:
  78.                 If (Strings.InStr(Conversions.ToString(expressionStack_1D7_0), ".MIX", CompareMethod.Text) <= 0) Then
  79.                     GoTo Label_02FA
  80.                 End If
  81. Label_01F3:
  82.                 num18 = 15
  83.                 Dim fileNumber As Integer = FileSystem.FreeFile
  84. Label_01FD:
  85.                 num18 = &H10
  86.                 FileSystem.FileOpen(fileNumber, Conversions.ToString(Operators.ConcatenateObject(Me.strMixturesDirectory, strGivenFluidName)), OpenMode.Input, OpenAccess.Default, OpenShare.Default, -1)
  87. Label_021E:
  88.                 num18 = &H11
  89.                 Dim str2 As String = FileSystem.LineInput(fileNumber)
  90. Label_0229:
  91.                 num18 = &H12
  92.                 str2 = FileSystem.LineInput(fileNumber)
  93. Label_0234:
  94.                 num18 = &H13
  95.                 FileSystem.Input(fileNumber, Me.nc)
  96. Label_0245:
  97.                 num18 = 20
  98.                 Dim nc As Integer = Me.nc
  99.                 Dim index As Integer = 1
  100.                 GoTo Label_0283
  101. Label_0256:
  102.                 num18 = &H15
  103.                 str2 = FileSystem.LineInput(fileNumber)
  104. Label_0261:
  105.                 num18 = &H16
  106.                 str = (str & Me.strFluidsDirectory & str2 & "|")
  107. Label_0278:
  108.                 num18 = &H17
  109.                 index += 1
  110. Label_0283:
  111.                 If (index <= nc) Then
  112.                     GoTo Label_0256
  113.                 End If
  114. Label_028D:
  115.                 num18 = &H18
  116.                 Dim num9 As Integer = Me.nc
  117.                 index = 1
  118.                 GoTo Label_02C1
  119. Label_029E:
  120.                 num18 = &H19
  121.                 FileSystem.Input(fileNumber, Me.x(index))
  122. Label_02B6:
  123.                 num18 = &H1A
  124.                 index += 1
  125. Label_02C1:
  126.                 If (index <= num9) Then
  127.                     GoTo Label_029E
  128.                 End If
  129. Label_02CB:
  130.                 num18 = &H1B
  131.                 FileSystem.FileClose(New Integer() {fileNumber})
  132. Label_02E4:
  133.                 num18 = &H1C
  134.                 Me.hfld.Value = str
  135.                 GoTo Label_0541
  136. Label_02FA:
  137.                 num18 = 30
  138.                 If (Strings.InStr(Conversions.ToString(strGivenFluidName), ",", CompareMethod.Text) <= 0) Then
  139.                     GoTo Label_0504
  140.                 End If
  141. Label_031C:
  142.                 num18 = &H1F
  143.                 Dim str3 As String = Conversions.ToString(strGivenFluidName)
  144. Label_0329:
  145.                 num18 = &H20
  146.                 Me.nc = 0
  147. Label_0335:
  148.                 num18 = &H22
  149.                 index = Strings.InStr(str3, ",", CompareMethod.Text)
  150. Label_0348:
  151.                 num18 = &H23
  152.                 If (index <> 0) Then
  153.                     GoTo Label_0366
  154.                 End If
  155. Label_0357:
  156.                 num18 = &H24
  157.                 index = (Strings.Len(str3) + 1)
  158. Label_0366:
  159.                 num18 = &H26
  160.                 Me.nc += 1
  161. Label_0378:
  162.                 num18 = &H27
  163.                 If (Me.nc <= 20) Then
  164.                     GoTo Label_03B8
  165.                 End If
  166. Label_038C:
  167.                 num18 = 40
  168.                 Me.ierr = 1
  169. Label_0397:
  170.                 num18 = &H29
  171.                 Me.herr.Value = "Too many components"
  172. Label_03AC:
  173.                 num18 = &H2A
  174.                 objectValue = Nothing
  175.                 GoTo Label_087A
  176. Label_03B8:
  177.                 num18 = &H2C
  178.                 If (index <> 0) Then
  179.                     GoTo Label_03D6
  180.                 End If
  181. Label_03C7:
  182.                 num18 = &H2D
  183.                 index = (Strings.Len(str3) + 1)
  184. Label_03D6:
  185.                 num18 = &H2F
  186.                 Me.x(Me.nc) = Conversion.Val(Strings.Left(str3, (index - 1)))
  187. Label_03F7:
  188.                 num18 = &H30
  189.                 str3 = Strings.Mid(str3, (index + 1))
  190. Label_0408:
  191.                 num18 = &H31
  192.                 If (Operators.CompareString(str3, "", True) <> 0) Then
  193.                     GoTo Label_0335
  194.                 End If
  195. Label_0428:
  196.                 num18 = 50
  197.                 Dim num6 As Double = 0
  198. Label_0437:
  199.                 num18 = &H33
  200.                 Dim num10 As Integer = Me.nc
  201.                 index = 1
  202.                 GoTo Label_0465
  203. Label_0448:
  204.                 num18 = &H34
  205.                 num6 = (num6 + Me.x(index))
  206. Label_045A:
  207.                 num18 = &H35
  208.                 index += 1
  209. Label_0465:
  210.                 If (index <= num10) Then
  211.                     GoTo Label_0448
  212.                 End If
  213. Label_046F:
  214.                 num18 = &H36
  215.                 If Not (num6 = 0) Then
  216.                     GoTo Label_04B2
  217.                 End If
  218. Label_0486:
  219.                 num18 = &H37
  220.                 Me.ierr = 1
  221. Label_0491:
  222.                 num18 = &H38
  223.                 Me.herr.Value = "Composition not set"
  224. Label_04A6:
  225.                 num18 = &H39
  226.                 objectValue = Nothing
  227.                 GoTo Label_087A
  228. Label_04B2:
  229.                 num18 = &H3B
  230.                 Dim num11 As Integer = Me.nc
  231.                 index = 1
  232.                 GoTo Label_04E7
  233. Label_04C3:
  234.                 num18 = 60
  235.                 Me.x(index) = (Me.x(index) / num6)
  236. Label_04DC:
  237.                 num18 = &H3D
  238.                 index += 1
  239. Label_04E7:
  240.                 If (index <= num11) Then
  241.                     GoTo Label_04C3
  242.                 End If
  243. Label_04F1:
  244.                 num18 = &H3E
  245.                 Me.hfld.Value = str
  246.                 GoTo Label_0541
  247. Label_0504:
  248.                 num18 = &H40
  249. Label_0509:
  250.                 num18 = &H41
  251.                 Me.nc = 1
  252. Label_0514:
  253.                 num18 = &H42
  254.                 Me.hfld.Value = Conversions.ToString(Operators.ConcatenateObject(Operators.ConcatenateObject(Me.strFluidsDirectory, strGivenFluidName), ".fld"))
  255. Label_0541:
  256.                 num18 = &H44
  257.                 Me.herr.Value = ""
  258. Label_0556:
  259.                 num18 = &H45
  260.                 Me.hrf.Value = "ASH"
  261. Label_056B:
  262.                 num18 = 70
  263.                 Me.hfmix.Value = (Me.strFluidsDirectory & "hmx.bnc")
  264. Label_058B:
  265.                 num18 = &H47
  266.                 If (Me.nc >= 1) Then
  267.                     GoTo Label_05CA
  268.                 End If
  269. Label_059E:
  270.                 num18 = &H48
  271.                 Me.ierr = 1
  272. Label_05A9:
  273.                 num18 = &H49
  274.                 Me.herr.Value = "Setup failed"
  275. Label_05BE:
  276.                 num18 = &H4A
  277.                 objectValue = Nothing
  278.                 GoTo Label_087A
  279. Label_05CA:
  280.                 ProjectData.ClearProjectError()
  281.                 Dim num16 As Integer = 2
  282. Label_05D2:
  283.                 ProjectData.ClearProjectError()
  284.                 num16 = 0
  285. Label_05DA:
  286.                 num18 = &H4E
  287.                 Dim hfld As FixedLengthString = Me.hfld
  288.                 str6 = hfld.Value
  289.                 Dim hfmix As FixedLengthString = Me.hfmix
  290.                 key = hfmix.Value
  291.                 Dim hrf As FixedLengthString = Me.hrf
  292.                 section = hrf.Value
  293.                 Dim herr As FixedLengthString = Me.herr
  294.                 Dim str11 As String = herr.Value
  295.                 Dim num12 As Integer = &H2710
  296.                 Dim num13 As Integer = &HFF
  297.                 Dim num14 As Integer = 3
  298.                 Dim num15 As Integer = &HFF
  299.                 Nist7.SETUPdll(Me.nc, str6, key, section, Me.ierr, str11, num12, num13, num14, num15)
  300.                 herr.Value = str11
  301.                 hrf.Value = section
  302.                 hfmix.Value = key
  303.                 hfld.Value = str6
  304. Label_0684:
  305.                 num18 = &H4F
  306.                 objectValue = RuntimeHelpers.GetObjectValue(strGivenFluidName)
  307. Label_0691:
  308.                 num18 = 80
  309.                 Me.strFldOld = Conversions.ToString(strGivenFluidName)
  310.                 GoTo Label_087A
  311. Label_06AA:
  312.                 num18 = &H52
  313.                 ProjectData.ClearProjectError()
  314.                 If (num17 = 0) Then
  315.                     Throw ProjectData.CreateProjectError(-2146828268)
  316.                 End If
  317.                 GoTo Label_06CD
  318.                 Dim expressionStack_6D1_0 As Integer = num17
  319.                 GoTo Label_06D1
  320. Label_06CD:
  321.                 expressionStack_6D1_0 = (num17 + 1)
  322. Label_06D1:
  323.                 num17 = 0
  324.                 Select Case expressionStack_6D1_0
  325.                     Case 1
  326.                         GoTo Label_0001
  327.                     Case 2
  328.                         GoTo Label_0021
  329.                     Case 3
  330.                         GoTo Label_0048
  331.                     Case 4
  332.                         GoTo Label_0091
  333.                     Case 5, 6
  334.                         GoTo Label_00DB
  335.                     Case 7
  336.                         GoTo Label_00E5
  337.                     Case 8
  338.                         GoTo Label_00EE
  339.                     Case 9
  340.                         GoTo Label_0105
  341.                     Case 10, 11
  342.                         GoTo Label_0111
  343.                     Case 12
  344.                         GoTo Label_0177
  345.                     Case 13, 14
  346.                         GoTo Label_0182
  347.                     Case 15
  348.                         GoTo Label_01F3
  349.                     Case &H10
  350.                         GoTo Label_01FD
  351.                     Case &H11
  352.                         GoTo Label_021E
  353.                     Case &H12
  354.                         GoTo Label_0229
  355.                     Case &H13
  356.                         GoTo Label_0234
  357.                     Case 20
  358.                         GoTo Label_0245
  359.                     Case &H15
  360.                         GoTo Label_0256
  361.                     Case &H16
  362.                         GoTo Label_0261
  363.                     Case &H17
  364.                         GoTo Label_0278
  365.                     Case &H18
  366.                         GoTo Label_028D
  367.                     Case &H19
  368.                         GoTo Label_029E
  369.                     Case &H1A
  370.                         GoTo Label_02B6
  371.                     Case &H1B
  372.                         GoTo Label_02CB
  373.                     Case &H1C
  374.                         GoTo Label_02E4
  375.                     Case &H1D, &H3F, &H43, &H44
  376.                         GoTo Label_0541
  377.                     Case 30
  378.                         GoTo Label_02FA
  379.                     Case &H1F
  380.                         GoTo Label_031C
  381.                     Case &H20
  382.                         GoTo Label_0329
  383.                     Case &H21, &H22
  384.                         GoTo Label_0335
  385.                     Case &H23
  386.                         GoTo Label_0348
  387.                     Case &H24
  388.                         GoTo Label_0357
  389.                     Case &H25, &H26
  390.                         GoTo Label_0366
  391.                     Case &H27
  392.                         GoTo Label_0378
  393.                     Case 40
  394.                         GoTo Label_038C
  395.                     Case &H29
  396.                         GoTo Label_0397
  397.                     Case &H2A
  398.                         GoTo Label_03AC
  399.                     Case &H2B, &H2C
  400.                         GoTo Label_03B8
  401.                     Case &H2D
  402.                         GoTo Label_03C7
  403.                     Case &H2E, &H2F
  404.                         GoTo Label_03D6
  405.                     Case &H30
  406.                         GoTo Label_03F7
  407.                     Case &H31
  408.                         GoTo Label_0408
  409.                     Case 50
  410.                         GoTo Label_0428
  411.                     Case &H33
  412.                         GoTo Label_0437
  413.                     Case &H34
  414.                         GoTo Label_0448
  415.                     Case &H35
  416.                         GoTo Label_045A
  417.                     Case &H36
  418.                         GoTo Label_046F
  419.                     Case &H37
  420.                         GoTo Label_0486
  421.                     Case &H38
  422.                         GoTo Label_0491
  423.                     Case &H39
  424.                         GoTo Label_04A6
  425.                     Case &H3A, &H3B
  426.                         GoTo Label_04B2
  427.                     Case 60
  428.                         GoTo Label_04C3
  429.                     Case &H3D
  430.                         GoTo Label_04DC
  431.                     Case &H3E
  432.                         GoTo Label_04F1
  433.                     Case &H40
  434.                         GoTo Label_0504
  435.                     Case &H41
  436.                         GoTo Label_0509
  437.                     Case &H42
  438.                         GoTo Label_0514
  439.                     Case &H45
  440.                         GoTo Label_0556
  441.                     Case 70
  442.                         GoTo Label_056B
  443.                     Case &H47
  444.                         GoTo Label_058B
  445.                     Case &H48
  446.                         GoTo Label_059E
  447.                     Case &H49
  448.                         GoTo Label_05A9
  449.                     Case &H4A
  450.                         GoTo Label_05BE
  451.                     Case &H4B, &H4C
  452.                         GoTo Label_05CA
  453.                     Case &H4D
  454.                         GoTo Label_05D2
  455.                     Case &H4E
  456.                         GoTo Label_05DA
  457.                     Case &H4F
  458.                         GoTo Label_0684
  459.                     Case 80
  460.                         GoTo Label_0691
  461.                     Case &H51, &H53
  462.                         GoTo Label_087A
  463.                     Case &H52
  464.                         GoTo Label_06AA
  465.                     Case Else
  466.                         GoTo Label_086F
  467.                 End Select
  468. Label_082B:
  469.                 num17 = num18
  470.                 If (num16 <= -2) Then
  471.                     expressionStack_83A_0 = 1
  472.                 Else
  473.                     expressionStack_83A_0 = num16
  474.                 End If
  475.                 Select Case expressionStack_83A_0
  476.                     Case 0
  477.                         GoTo Label_086F
  478.                     Case 1
  479.                         GoTo Label_06CD
  480.                     Case 2
  481.                         GoTo Label_06AA
  482.                 End Select
  483.             Catch obj3 As Exception
  484.                 ProjectData.SetProjectError(DirectCast(obj3, Exception))
  485.                 GoTo Label_082B
  486.             End Try
  487. Label_086F:
  488.             Throw ProjectData.CreateProjectError(-2146828237)
  489. Label_087A:
  490.             If (num17 = 0) Then
  491.                 Return objectValue
  492.             Else
  493.                 expressionStack_880_0 = objectValue
  494.             End If
  495.             ProjectData.ClearProjectError()
  496.             Return expressionStack_880_0
  497.         End Function
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!