Integer to Long
This commit is contained in:
parent
7f2f3592fe
commit
5ee89a26a0
|
|
@ -347,7 +347,7 @@ Public Class Frame_3D
|
|||
Dim frameCombDT As New DataTable
|
||||
|
||||
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
|
||||
frameCombDT.Columns.Add("Enum " & j, GetType(Integer))
|
||||
|
|
@ -447,7 +447,7 @@ Public Class Frame_3D
|
|||
End Function
|
||||
|
||||
Private Shared Function Calculate_Factorial(num As Integer)
|
||||
Dim result As Integer
|
||||
Dim result As Long
|
||||
If num = 0 Then
|
||||
result = 1
|
||||
Else
|
||||
|
|
|
|||
Loading…
Reference in New Issue