大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
在VB环境中执行源代码,本身就是调试模式
创新互联建站主要从事成都做网站、成都网站制作、成都外贸网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务色尼,十载网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18980820575
按F8即可逐语句运行
点击语句左端空白处,将其背景色变为深红,就是添加断点,运行到该语句会停下来
可以在变量、对象等语句上点击右键,选择“添加监视”即可
已测试,源码如下:
一、Matlab函数代码
function x = LU5(a, b)
for i = 1 : length(a)
x(i) = a(i) + b(i);
end
二、VB.NET 2005 测试代码
Private Sub test()
Dim st As New QCS_com.QCS_LU5
Dim a() As Double = {1, 2, 3, 4}
Dim b() As Double = {1, 2, 3, 4}
Dim x As New Object
st.lu5(1, x, a, b)
Dim r As Double(,)
r = CType(x, Double(,))
End Sub
三、测试截图见附图
补充一下环境:Matlab6.5 版本,是基于COM调用的。最新版的.net调用没试验过。这个是我前一阵子帮同学写的,他装的版本是6.5,所以就装了个6.5的版本,后来因为涉及到小波及拟合,用COM打包调用有些问题,最后还是采用了引擎方式进行处理了。
1、首先打开VB软件,绘制好相应的控件,两个命令按钮,一个列表框,一个文本框。
2、接下来大概更改一下各个控件的属性。
3、然后编写命令按钮从键盘输入文本框,并能能够添加项目代码。
4、编写删除代码,记得要遍历查询。
5、运行后便可以看到这样的程序。即编写一个为列表框添加删除选项成功。
VB.NET2008代码:
Dim xlapp1 As Excel.Application
Dim xlworksheet As Excel.Worksheet
Dim xlworkbk As Excel.Workbook
xlapp1 = New Excel.Application
xlworkbk = xlapp1.Workbooks.Open("Excel文件名")
xlworksheet = xlworkbk.Worksheets("Sheet名")
xlworksheet.Cells.Item(行编号, 列编号).value ="需要输入的数据"
xlworkbk.Close()
另外,xlworksheet.UsedRange.Rows.Count是最大行数,可以用这个算行编号。
注意,需要引用Microsoft Excel Object Library(在COM的那个选项卡里)。
非常简单,我给你段源码,你自己看着修改,注释也给你标清楚了。
Dim TempPath As String = System.Environment.GetFolderPath(System.Environment.SpecialFolder.Desktop) "\月报表" Format(Now, "yyyy年MM月dd日") ".xls" ‘这个是设置EXCEL的文件路径,我这个是默认桌面
Dim MyExcel As New Microsoft.Office.Interop.Excel.Application() ‘实例化EXCEL
MyExcel.Application.Workbooks.Open(TempPath)’打开EXCEL
MyExcel.Visible = True '是否显示打开的EXCEL,我这个是显示
MyExcel.Cells(4, 1) = textbox1.text ‘将textbox1的内容写入到EXCEL的第4行第1列,以下相同
MyExcel.Cells(4, 2) = textbox2.text
MyExcel.Cells(4, 3) = textbox3.text
MyExcel.Cells(4, 4) = textbox4.text
你需要安装vb6.0开发软件
如果安装了,就可以直接打开源码测试了,后缀名是vbp,(就是vb的工程文件)
如果没有安装vb6.0,还想打开源码看程序,那就右击 用记事本 打开后缀名为frm的文件,他是vb的窗口文件,源码都在他里面
一般得源码是没有生成exe可执行文件的,那样文件太多,太大,浪费空间
如果你自己想生成exe可执行文件,那就vb6.0得文件菜单中把文件保存成exe可执行文件就可以了,非常简单
好运!