mehdi-tarkian
/
X2021
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Integer to Long

This commit is contained in:
Mans 2021-05-07 15:22:30 +02:00
parent 7f2f3592fe
commit 5ee89a26a0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Wardrobe/SolidWorks/Frame_3D.vb
View File

@ -347,7 +347,7 @@ Public Class Frame_3D
Dim frameCombDT As New DataTable Dim frameCombDT As New DataTable
Dim numOfValues As Integer = l Dim numOfValues As Integer = l
Dim numOfComb As Integer = Calculate_Factorial(frameLengths.Count) / (Calculate_Factorial(numOfValues) * Calculate_Factorial(frameLengths.Count - numOfValues)) Dim numOfComb As Long = Calculate_Factorial(frameLengths.Count) / (Calculate_Factorial(numOfValues) * Calculate_Factorial(frameLengths.Count - numOfValues))
For j = 1 To numOfValues For j = 1 To numOfValues
frameCombDT.Columns.Add("Enum " & j, GetType(Integer)) frameCombDT.Columns.Add("Enum " & j, GetType(Integer))
@ -447,7 +447,7 @@ Public Class Frame_3D
End Function End Function
Private Shared Function Calculate_Factorial(num As Integer) Private Shared Function Calculate_Factorial(num As Integer)
Dim result As Integer Dim result As Long
If num = 0 Then If num = 0 Then
result = 1 result = 1
Else Else