version update

added error handling for case when objective is defined with more than one cell
minor improvements to test modules

Author: GCuser99

dev/ActiveX_DLL/no_registration/SolverWrapper_win32.dll

@@ -17,43 +17,43 @@ Option Explicit
 
 'This is a non-linear problem - use slvGRG_Nonlinear
 Sub Solve_Portfolio_of_Securities()
-    Dim Problem As Object
+    Dim oProblem As Object
     Dim ws As Worksheet
 
-    Set Problem = New_SolvProblem
+    Set oProblem = New_SolvProblem
 
     Set ws = ThisWorkbook.Worksheets("Portfolio of Securities")
 
     'initialize the problem by passing a reference to the worksheet of interest
-    Problem.Initialize ws
+    oProblem.Initialize ws
 
     'define the objective cell to be optimized
-    Problem.Objective.Define "E18", slvMaximize
+    oProblem.Objective.Define "E18", slvMaximize
 
     'define and initialize the decision cell(s)
-    Problem.DecisionVars.Add "E10:E14"
-    Problem.DecisionVars.Initialize 0.2, 0.2, 0.2, 0.2, 0.2
+    oProblem.DecisionVars.Add "E10:E14"
+    oProblem.DecisionVars.Initialize 0.2, 0.2, 0.2, 0.2, 0.2
 
     'add some constraints
-    Problem.Constraints.AddBounded "E10:E14", 0#, 1#
-    Problem.Constraints.Add "E16", slvEqual, 1#
-    Problem.Constraints.Add "G18", slvLessThanEqual, 0.071
+    oProblem.Constraints.AddBounded "E10:E14", 0#, 1#
+    oProblem.Constraints.Add "E16", slvEqual, 1#
+    oProblem.Constraints.Add "G18", slvLessThanEqual, 0.071
 
     'set the solver engine to use
-    Problem.Solver.Method = slvGRG_Nonlinear
+    oProblem.Solver.Method = slvGRG_Nonlinear
 
     'set some solver options
-    Problem.Solver.Options.AssumeNonNeg = True
-    Problem.Solver.Options.RandomSeed = 7
+    oProblem.Solver.Options.AssumeNonNeg = True
+    oProblem.Solver.Options.RandomSeed = 7
 
-    Problem.Solver.SaveAllTrialSolutions = True
+    oProblem.Solver.SaveAllTrialSolutions = True
 
     'solve the optimization problem
-    Problem.SolveIt
+    oProblem.SolveIt
 
     'save all trial solutions that passed the constraints to the worksheet
-    If Problem.Solver.SaveAllTrialSolutions Then
+    If oProblem.Solver.SaveAllTrialSolutions Then
         ws.Range("o2:az10000").ClearContents
-        Problem.SaveSolutionsToRange ws.Range("o2"), keepOnlyValid:=True
+        oProblem.SaveSolutionsToRange ws.Range("o2"), keepOnlyValid:=True
     End If
 End Sub

dev/ActiveX_DLL/no_registration/SolverWrapper_win64.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.7
+' SolverWrapper v0.8
 '
 ' A wrapper for automating MS Excel's Solver Add-in
 '

dev/ActiveX_DLL/no_registration/test_Portfolio_of_Securities.bas

@@ -12,7 +12,7 @@ Attribute VB_Description = "A class to set/manage Solver constraints."
 '@Exposed
 '@folder("SolverWrapper.Source")
 ' ==========================================================================
-' SolverWrapper v0.7
+' SolverWrapper v0.8
 '
 ' A wrapper for automating MS Excel's Solver Add-in
 '
@@ -279,7 +279,7 @@ Private Sub ProcessConstraintParams(ByRef cellRef As Variant, ByVal relation As
 
     Set ws = oSolverSheet
 
-    'check that Relation is in valid range
+    'check that relation is in valid range
     If relation < SlvRelation.[_First] Or relation > SlvRelation.[_Last] Then
         Err.Raise vbObjectError + 4001, , "Please specify a valid Relation between 1 and 6."
     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.7
+' SolverWrapper v0.8
 '
 ' A wrapper for automating MS Excel's Solver Add-in
 '
@@ -65,11 +65,9 @@ Public stopRestorePrevious As Boolean
 Public enableInternalEvents As Boolean
 Public enableUserDefinedCallback As Boolean
 
-'internal event that triggers chained public event in SolvProblem
+'internal events that triggers chained public event in SolvProblem
 Public Event ShowTrialInternal(ByVal reason As Long, ByVal trialNum As Long, cancel As Boolean)
-'internal event that triggers chained public event in SolvProblem
 Public Event BeforeSolveInternal(cancel As Boolean)
-'internal event that triggers chained public event in SolvProblem
 Public Event AfterSolveInternal(ByVal returnMsgCode As Long, ByVal trialNum As Long)
 'internal event that triggers chained public callback function in SolvProblem
 Public Event ShowTrialCallbackInternal(ByVal reason As Long, ByVal trialNum As Long, cancel As Boolean)

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.7
+' SolverWrapper v0.8
 '
 ' A wrapper for automating MS Excel's Solver Add-in
 '

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.7
+' SolverWrapper v0.8
 '
 ' A wrapper for automating MS Excel's Solver Add-in
 '
@@ -67,6 +67,10 @@ Attribute Define.VB_UserMemId = 0
     Else
         Err.Raise vbObjectError + 4001, , "Please specify a valid cell reference"
     End If
+    
+    If ws.Range(setCell).Count > 1 Then
+        Err.Raise vbObjectError + 4001, , "Objective Cell must be a single cell on the active sheet"
+    End If
 
     If goal < SlvGoalType.[_First] Or goal > SlvGoalType.[_Last] Then
         Err.Raise vbObjectError + 4001, , "Please specify an objective Goal value between 1 and 3."