作业帮VB调用lingo请各位大侠多多指教!用lingo计算线性规划,变量和约束条件的上限由VB界面输入确定,最后,再用VB读取lingo计算结果?
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/06 07:57:27
VB调用lingo请各位大侠多多指教!用lingo计算线性规划,变量和约束条件的上限由VB界面输入确定,最后,再用VB读取lingo计算结果?
VB调用lingo
请各位大侠多多指教!用lingo计算线性规划,变量和约束条件的上限由VB界面输入确定,最后,再用VB读取lingo计算结果?
VB调用lingo请各位大侠多多指教!用lingo计算线性规划,变量和约束条件的上限由VB界面输入确定,最后,再用VB读取lingo计算结果?
这个我做过,不简单也不容易,举例说明,你按下面的去做一遍就知道怎么解决你的问题了.
在VB里面“工程”菜单下面添加“添加模块”,打开对话框,找到路径：X:\Program Files\lingo80\Dll（X为驱动盘）下的“Lingd80.bas”,添加到VB中.
在VB界面上设计Text1和Text2、Command1.
编写语句：
Private Sub Command1_Click()
'------------------------
Dim nError As Long
Dim pLINGO As Long
Dim nPointersNow As Long
Dim cScript As String
Dim Apppath As String
Dim dStatus As Double
Apppath = "take" & Space(1) & Right(App.Path,Len(App.Path) - 2)
'------------------------
On Error GoTo ERROREXIT
pLINGO = LScreateEnvLng()
'------------------------
Dim x As Double,y As Double
x = Text1.Text
'------------------------
nError = LSsetPointerLng(pLINGO,x,nPointersNow)
nError = LSsetPointerLng(pLINGO,y,nPointersNow)
'------------------------
On Error GoTo ERROREXIT
nError = LSexecuteScriptLng(pLINGO,cScript)
'------------------------
dStatus = -1#
nError = LSsetPointerLng(pLINGO,dStatus,nPointersNow)
'------------------------
cScript = "SET ECHOIN 1" & Chr(10)
cScript = cScript & Apppath & "\LINGO1.lng" & Chr(10)
cScript = cScript & "GO" & Chr(10)
cScript = cScript & "QUIT" & Chr(10)
cScript = cScript & Chr(0)
On Error GoTo ERROREXIT
nError = LSexecuteScriptLng(pLINGO,cScript)
'------------------------
LScloseLogFileLng (pLINGO)
LSdeleteEnvLng (pLINGO)
'------------------------
Text2.Text = y
ERROREXIT:
End Sub
然后再用lingo8.0编写代码（命名为LINGO1.lng,注意要保存为.lng文件）：
model:
data:
x=@pointer(1);
enddata
y=x*2;
data:
@pointer(2)=y;
enddata
end
将.lng文件和VB代码放同一文件夹,即可运行VB控制Lingo的输入（本程序是由VB的Text1输入x,由lingo完成y=2x计算,计算结果返回到VB中Text2）.