這個要看掃描槍的通訊接口和通訊協(xié)議,以及接口程序是否支持VB.NET等。
公司主營業(yè)務(wù):網(wǎng)站制作、成都網(wǎng)站建設(shè)、移動網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實(shí)現(xiàn)互聯(lián)網(wǎng)宣傳,提高企業(yè)的競爭能力。創(chuàng)新互聯(lián)建站是一支青春激揚(yáng)、勤奮敬業(yè)、活力青春激揚(yáng)、勤奮敬業(yè)、活力澎湃、和諧高效的團(tuán)隊(duì)。公司秉承以“開放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化,感謝他們對我們的高要求,感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn),讓我們激情的團(tuán)隊(duì)有機(jī)會用頭腦與智慧不斷的給客戶帶來驚喜。創(chuàng)新互聯(lián)建站推出拜城免費(fèi)做網(wǎng)站回饋大家。
我用過的掃描槍的輸入是用的com輸入,在VB里添加MSComm控件即可。視設(shè)備管理器里識別為com幾就選com幾。
掃描的時候,MSComm控件有comEvReceive事件,可以作為觸發(fā)事件的,比如控件名是MSComm1
那這個MSComm1_OnComm()里,如果有這個觸發(fā)事件,就可以聲明一個字符型來接受MSComm1.input
這個輸入可能根據(jù)不同掃描槍不同要進(jìn)行些處理以得到你需要的條碼實(shí)值
當(dāng)然條碼槍具體給你什么你可以去Windows自帶的Hyper Terminal里看到
有個了這個條碼值,在你圖里對應(yīng)的第二個表里其他的Textbox或者label控件就可以寫相應(yīng)的Caption了,無非是if,case判斷了
不加數(shù)據(jù)庫連接的話就沒那么復(fù)雜了
空口說白話也不行,以下是基于Motolora Symbol P370/470型對條碼值的一些處理,直接寫在OnComm里了,process_no就是看到這個號碼做相應(yīng)處理的判斷,可以另起爐灶寫一個到時候調(diào)用就是
Private Sub MSComm1_OnComm()
Dim st As String
If MSComm1.CommEvent = comEvReceive Then
st = MSComm1.Input
If st Chr(3) Then
st_all = st_all + st
Else
Txt_Pt.Text = Trim(Mid(st_all, InStr(st_all, Chr(2)) + 1, 10))
st_all = ""
Process_no
End If
End If
End Sub
以上只是com接收事件和取值的例子,判斷不必參考的,關(guān)鍵無非是把接收值讀入st,再對st_all這個全局變量賦值(不然你一會用那個條碼值可沒有個地方記錄了)
非com輸入恕在下暫時無能為力
如果是usb掃描槍,是焦點(diǎn)在哪它就輸入在哪,不能自動對應(yīng)到相應(yīng)的文本框
如果是串口掃描槍可以實(shí)現(xiàn)你的功能,在代碼里判斷相應(yīng)的串口對應(yīng)文本框
文章名稱:條碼掃描槍vb.net 條碼掃描槍怎么連接電腦
分享鏈接:http://muchs.cn/article28/dohhhcp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供Google、電子商務(wù)、品牌網(wǎng)站制作、用戶體驗(yàn)、微信公眾號、域名注冊
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)