VB调用lingo请各位大侠多多指教!用lingo计算线性规划,变量和约束条件的上限由VB界面输入确定,最后,再用VB读
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/05/11 21:23:08
VB调用lingo
请各位大侠多多指教!用lingo计算线性规划,变量和约束条件的上限由VB界面输入确定,最后,再用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).
在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).
VB调用lingo请各位大侠多多指教!用lingo计算线性规划,变量和约束条件的上限由VB界面输入确定,最后,再用VB读
用VB计算N!分别用while和for循环语句计算N!(N由界面输入)
Lingo解线性规划,约束条件很多着呢么输入?
求lingo高手指教!这个约束条件用lingo怎么写?
VB 输入 半径 计算圆的周长和面积公式
vb
输入半径,用VB编写计算圆面积和圆周长的程序
请问怎么样用lingo计算线性规划问题啊,主要是我要用到的变量很多大概有100来个,约束条件大概有20多个,怎么可以简单
VB编程计算由下列公式确定的S值S = 1 + + + + … + ( A.frm)
vb 输入10个整数,计算偶数个数 ,奇数和.
用VB语言:输入一个3位数,使结果为各位数立方和
怎么用VB计算N的阶层