vb.net連接儀器 vb connectionstring

關(guān)于用VB實現(xiàn)電腦控制儀器的問題

你指的是VB 6.0 還是 VB.net ？，VB.net 中的 system.io 命名空間中有 SerialPort 控件，可以實現(xiàn)串口通信，各種參數(shù)都可以可視化設(shè)置，VB 6.0 我覺得應(yīng)該也差不多，希望對你有幫助~

十余年的方城網(wǎng)站建設(shè)經(jīng)驗，針對設(shè)計、前端、開發(fā)、售后、文案、推廣等六對一服務(wù)，響應(yīng)快，48小時及時工作處理。全網(wǎng)營銷推廣的優(yōu)勢是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同，自動調(diào)整方城建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計，從而大程度地提升瀏覽體驗。成都創(chuàng)新互聯(lián)從事“方城網(wǎng)站設(shè)計”,“方城網(wǎng)站推廣”以來，每個客戶項目都認(rèn)真落實執(zhí)行。

關(guān)于用VB編寫儀器控制軟件

你需要了解硬件和軟件問題

1）硬件：你先確認(rèn)一下，光譜儀和計算機是通過什么接口來通訊的（例如RS232 RS485 RS422 等）

2）軟件：通訊協(xié)議（例如Modbus canbus Profibus control-net 等）

或者光譜儀供應(yīng)商提供驅(qū)動程序（DLL動態(tài)連接庫）

然后再用VB VC 等編程軟件來開發(fā)你的控制程序

VB.NET怎么調(diào)用攝像頭啊?求實例,最好配注釋啊

Private Const WS_CHILD = H40000000

Private Const WS_VISIBLE = H10000000

Private Const WM_CAP_START = H400

Private Const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10

Private Const WM_CAP_SET_SCALE = WM_CAP_START + 53

Private Const WM_CAP_SET_PREVIEWRATE = WM_CAP_START + 52

Private Const WM_CAP_SET_PREVIEW = WM_CAP_START + 50

Private Declare Function capCreateCaptureWindowA Lib "avicap32.dll" ( _

ByVal lpszWindowName As String, _

ByVal dwStyle As Long, _

ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Integer, _

ByVal hWndParent As Long, ByVal nID As Long) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long

Private Sub Form_Load()

'建立采集窗口（不顯示窗口，處理后顯示到PIC控件）

uwndc = capCreateCaptureWindowA("", WS_VISIBLE Or WS_CHILD, 0, 0, 320, 240, Me.hWnd, 0)

'連接

SendMessage uwndc, WM_CAP_DRIVER_CONNECT, 0, 0

'Scale開

SendMessage uwndc, WM_CAP_SET_SCALE, True, 0

'顯示刷新MS

SendMessage uwndc, WM_CAP_SET_PREVIEWRATE, 40, 0

'用予覽方式顯示(特殊需要，不顯示予纜）

SendMessage uwndc, WM_CAP_SET_PREVIEW, True, 0

End Sub

上述代碼就可以實現(xiàn) 但是要注意相應(yīng)的控件是否存在不存在的你自己畫出來

vb.net的數(shù)據(jù)庫連接

1·綁定數(shù)據(jù)源來進行連接

2.用代碼連接

先到數(shù)據(jù)庫建立一個數(shù)據(jù)庫和相應(yīng)的表

連接數(shù)據(jù)庫的代碼：

Dim str As String = "Data Source=服務(wù)器名;Initial Catalog=數(shù)據(jù)庫名;Persist Security Info=True;User ID=;Password="

dim conn As SqlClient.SqlConnection

try

conn = New SqlClient.SqlConnection

conn.ConnectionString = str

conn.Open()

Return True

Catch ex As Exception

MsgBox(ex.ToString)

Return False

End Try

登錄代碼：Dim str As String = "Data Source=服務(wù)器名;Initial Catalog=數(shù)據(jù)庫名;Persist Security Info=True;User ID=;Password="

dim conn As SqlClient.SqlConnection

conn = New SqlClient.SqlConnection

conn.ConnectionString = str

conn.Open()

sqlstr = "Select * From Amd Where AmdName='" TextBox1.Text "' And AmdPwd = '" TextBox2.Text "'"

Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(sqlstr, conn)

Dim dr As SqlClient.SqlDataReader

dr = sqlcmd.ExecuteReader

If dr.Read = True Then '判斷一條記錄為真

kf.Show() '顯示下個窗體

Me.Hide() ’隱藏當(dāng)前窗體

Else

MessageBox.Show("輸入信息有誤！", "提示")

TextBox1.Text = ""

TextBox2.Text = ""

End If

本文題目：vb.net連接儀器 vb connectionstring
網(wǎng)頁鏈接：http://muchs.cn/article48/doesihp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供手機網(wǎng)站建設(shè)、Google、網(wǎng)站排名、關(guān)鍵詞優(yōu)化、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)站設(shè)計

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源：創(chuàng)新互聯(lián)

猜你還喜歡下面的內(nèi)容