version update

removed incorrect error handling for exceeding maximum number of constraints Solver can handle - SolverWrapper now defers to DLL for handling

Author: GCuser99

dev/ActiveX_DLL/no_registration/SolverWrapper_win32.dll

@@ -3,7 +3,7 @@ Attribute VB_Description = "This class is used for object instantiation when ref
 '%ModuleDescription "This class is used for object instantiation when referencing SolverWrapper externally from another VBA project"
 '@folder("SolverWrapper.Source")
 ' ==========================================================================
-' SolverWrapper v0.8
+' SolverWrapper v0.9
 '
 ' A wrapper for automating MS Excel's Solver Add-in
 '

dev/ActiveX_DLL/no_registration/SolverWrapper_win64.dll

@@ -12,7 +12,7 @@ Attribute VB_Description = "A class to set/manage Solver constraints."
 '@Exposed
 '@folder("SolverWrapper.Source")
 ' ==========================================================================
-' SolverWrapper v0.8
+' SolverWrapper v0.9
 '
 ' A wrapper for automating MS Excel's Solver Add-in
 '
@@ -60,10 +60,6 @@ Private oSolverSheet As Worksheet
 '%Description("Adds a constraint to the current problem.")
 Public Sub Add(ByVal cellRef As Variant, ByVal relation As SlvRelation, Optional ByVal formulaText As Variant)
 Attribute Add.VB_Description = "Adds a constraint to the current problem."
-    If Me.Count + 1 > 100 Then
-        Err.Raise vbObjectError + 4001, , "Number of Constraints  must be less than or equal to 100"
-    End If
-    
     Dim ws As Worksheet
     Dim solver_num As Long
 
@@ -291,13 +287,13 @@ Private Sub ProcessConstraintParams(ByRef cellRef As Variant, ByVal relation As
         Err.Raise vbObjectError + 4001, , "Please specify a valid cell reference"
     End If
 
-    'could do this check in SolveIt right before calling dll - that way user can do things in any order
-    'check that lhs refer(s) to the decision variables
     If relation > 3 Then
+        'LHS MUST refer to the decision variables
+        'and thus dose not count against the 100-cell constraint limit
         If Not NameExists("solver_adj", ws) Then
             Err.Raise vbObjectError + 4001, , "Cannot set constraint relations slvInt, slvBin, or slvAllDif, until after the decision variables are defined."
         End If
-        If Not IsRangeInRange(ws.Range(cellRef), ws.Range(ws.Names("solver_adj").Name)) Then
+        If Not IsRangeInRange(ws.Range(cellRef), ws.Names("solver_adj").RefersToRange) Then
             'the int, bin, and alldifferent constraints can only be applied to decision vars
             Err.Raise vbObjectError + 4001, , "The selected Relation only applies to contraints on decision variables."
         End If

dist/SolverWrapperDLLSetup.exe

@@ -11,7 +11,7 @@ Attribute VB_Description = "This private class is used to communicate directly w
 '%ModuleDescription "This private class is used to communicate directly with DLL and is not exposed to User."
 '@folder("SolverWrapper.Source")
 ' ==========================================================================
-' SolverWrapper v0.8
+' SolverWrapper v0.9
 '
 ' A wrapper for automating MS Excel's Solver Add-in
 '

src/twinBASIC/project/SolverWrapper.twinproj

@@ -12,7 +12,7 @@ Attribute VB_Description = "A class to define the Decision variable, i.e. the ce
 '@Exposed
 '@folder("SolverWrapper.Source")
 ' ==========================================================================
-' SolverWrapper v0.8
+' SolverWrapper v0.9
 '
 ' A wrapper for automating MS Excel's Solver Add-in
 '
@@ -53,9 +53,9 @@ Private oSolverSheet As Worksheet
 ' ==========================================================================
 
 '@DefaultMember
-'%Description("Adds a cell or range of cells that will be changed to achieve desired result in the target (objective) cell.")
+'%Description("Adds a cell(s) range that will be changed to achieve the desired result in the Objective cell - limited to 200 cells.")
 Public Sub Add(ParamArray cellRefs() As Variant)
-Attribute Add.VB_Description = "Adds a cell or range of cells that will be changed to achieve desired result in the target (objective) cell."
+Attribute Add.VB_Description = "Adds a cell(s) range that will be changed to achieve the desired result in the Objective cell - limited to 200 cells."
 Attribute Add.VB_UserMemId = 0
     Dim rCellRef As Range
     'initialize rCellRef - there can be more than one call to Add so check to see if its been called before...
@@ -67,8 +67,9 @@ Attribute Add.VB_UserMemId = 0
     End If
 
     If Me.Count + rCellRef.Count > 200 Then
-        Err.Raise vbObjectError + 4001, , "Number of Decision Variables must be less than or equal to 200"
+        Err.Raise vbObjectError + 4001, , "Number of Decision Variable cells must be less than or equal to 200"
     End If
+    
     ProcessDecisionVars rCellRef
 End Sub
 

src/twinBASIC/source/ClassFactory.bas

@@ -12,7 +12,7 @@ Attribute VB_Description = "A class to define the Solver Objective function."
 '@Exposed
 '@folder("SolverWrapper.Source")
 ' ==========================================================================
-' SolverWrapper v0.8
+' SolverWrapper v0.9
 '
 ' A wrapper for automating MS Excel's Solver Add-in
 '

src/twinBASIC/source/SolvConstraints.cls

@@ -12,7 +12,7 @@ Attribute VB_Description = "A class to set Solver Options."
 '@Exposed
 '@folder("SolverWrapper.Source")
 ' ==========================================================================
-' SolverWrapper v0.8
+' SolverWrapper v0.9
 '
 ' A wrapper for automating MS Excel's Solver Add-in
 '