如何解决达到最大时间限制后自动选择“停止”按钮
我正在使用现代 API 在循环中运行多项优化,并希望在达到优化的最大时间限制后自动单击消息框中的“停止”按钮并开始下一次优化。
Dim prob As New Problem
Dim obj As New RSP.Function
prob.Init ThisWorkbook.Worksheets("Constraints")
prob.Engine.Params("MaxTime") = 100
Constraints.Activate
obj.Init "G6"
prob.Solver.SolverType = Solver_Type_Maximize
obj.FunctionType = Function_Type_Objective
prob.Functions.Add obj
prob.Solver.Optimize
我的代码有效,所以我能够启动求解器并获得结果,但是一旦达到时间限制,我总是必须手动单击停止按钮按钮,并且希望它自动单击“停止”,因为我是连续运行 10 多项优化。
感谢您的帮助!
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。