在VB環(huán)境中執(zhí)行源代碼,本身就是調(diào)試模式
創(chuàng)新互聯(lián)建站主要從事成都做網(wǎng)站、成都網(wǎng)站制作、成都外貿(mào)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)色尼,十載網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):18980820575
按F8即可逐語句運(yùn)行
點(diǎn)擊語句左端空白處,將其背景色變?yōu)樯罴t,就是添加斷點(diǎn),運(yùn)行到該語句會停下來
可以在變量、對象等語句上點(diǎn)擊右鍵,選擇“添加監(jiān)視”即可
已測試,源碼如下:
一、Matlab函數(shù)代碼
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
三、測試截圖見附圖
補(bǔ)充一下環(huán)境:Matlab6.5?版本,是基于COM調(diào)用的。最新版的.net調(diào)用沒試驗(yàn)過。這個(gè)是我前一陣子幫同學(xué)寫的,他裝的版本是6.5,所以就裝了個(gè)6.5的版本,后來因?yàn)樯婕暗叫〔皵M合,用COM打包調(diào)用有些問題,最后還是采用了引擎方式進(jìn)行處理了。
1、首先打開VB軟件,繪制好相應(yīng)的控件,兩個(gè)命令按鈕,一個(gè)列表框,一個(gè)文本框。
2、接下來大概更改一下各個(gè)控件的屬性。
3、然后編寫命令按鈕從鍵盤輸入文本框,并能能夠添加項(xiàng)目代碼。
4、編寫刪除代碼,記得要遍歷查詢。
5、運(yùn)行后便可以看到這樣的程序。即編寫一個(gè)為列表框添加刪除選項(xiàng)成功。
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 ="需要輸入的數(shù)據(jù)"
xlworkbk.Close()
另外,xlworksheet.UsedRange.Rows.Count是最大行數(shù),可以用這個(gè)算行編號。
注意,需要引用Microsoft Excel Object Library(在COM的那個(gè)選項(xiàng)卡里)。
非常簡單,我給你段源碼,你自己看著修改,注釋也給你標(biāo)清楚了。
Dim TempPath As String = System.Environment.GetFolderPath(System.Environment.SpecialFolder.Desktop) "\月報(bào)表" Format(Now, "yyyy年MM月dd日") ".xls" ‘這個(gè)是設(shè)置EXCEL的文件路徑,我這個(gè)是默認(rèn)桌面
Dim MyExcel As New Microsoft.Office.Interop.Excel.Application() ‘實(shí)例化EXCEL
MyExcel.Application.Workbooks.Open(TempPath)’打開EXCEL
MyExcel.Visible = True '是否顯示打開的EXCEL,我這個(gè)是顯示
MyExcel.Cells(4, 1) = textbox1.text ‘將textbox1的內(nèi)容寫入到EXCEL的第4行第1列,以下相同
MyExcel.Cells(4, 2) = textbox2.text
MyExcel.Cells(4, 3) = textbox3.text
MyExcel.Cells(4, 4) = textbox4.text
你需要安裝vb6.0開發(fā)軟件
如果安裝了,就可以直接打開源碼測試了,后綴名是vbp,(就是vb的工程文件)
如果沒有安裝vb6.0,還想打開源碼看程序,那就右擊 用記事本 打開后綴名為frm的文件,他是vb的窗口文件,源碼都在他里面
一般得源碼是沒有生成exe可執(zhí)行文件的,那樣文件太多,太大,浪費(fèi)空間
如果你自己想生成exe可執(zhí)行文件,那就vb6.0得文件菜單中把文件保存成exe可執(zhí)行文件就可以了,非常簡單
好運(yùn)!