簡介一套VB.NET條形碼電子掃描槍客戶端源碼面向需要開發(fā)掃碼錄入場景的VB開發(fā)者可配合掃描槍實時讀取并展示單號、所屬客戶、機器型號、條碼號、掃描時間及備注等信息適用于倉儲、生產(chǎn)記錄、物料追蹤等條碼應(yīng)用環(huán)節(jié)。壓縮包內(nèi)共24個文件以11個.vb窗體/模塊源碼為主輔以4個.resx資源文件、.sln與.vbproj工程文件并包含.mdb數(shù)據(jù)文件和.dll引用整體僅195KB結(jié)構(gòu)緊湊且目錄層次清晰便于二次學(xué)習(xí)與改造。目前已有419人學(xué)習(xí)瀏覽代碼采用多窗體分段設(shè)計主顯示區(qū)清晰呈現(xiàn)每條掃描記錄兼顧數(shù)據(jù)接收、界面綁定與數(shù)據(jù)庫寫入等流程通過研讀源碼可掌握掃描槍輸入處理、界面更新及簡單數(shù)據(jù)持久化的典型寫法對VB.NET桌面應(yīng)用與硬件交互入門均有良好參考價值。1. VB.NET條形碼掃描槍源碼到底解決什么問題做上位機的同行應(yīng)該都有過這種經(jīng)歷倉庫那邊拿著一把電子掃描槍說“你幫我接一下掃一條碼要能自動進系統(tǒng)”。等你過去一看槍是USB口的插上確實能出字可焦點不對、回車多一個、數(shù)據(jù)還時不時斷成兩截最后只能寫個VB.NET小程序兜底。這套VB.NET條形碼電子掃描槍源程序干的就是這件事——把掃描槍當(dāng)成一個可靠的輸入源通過串口把條碼讀進來按幀拼好再吐給業(yè)務(wù)系統(tǒng)。它適合兩類人一類是剛接觸上位機開發(fā)的需要一套能跑通的參考代碼另一類是現(xiàn)場已經(jīng)翻過車的想看看別人怎么處理斷包、亂碼和結(jié)束符這幾個經(jīng)典問題。源碼本身不復(fù)雜但串口收碼這件事細(xì)節(jié)全在協(xié)議和數(shù)據(jù)的邊界條件里。2. 掃描槍的數(shù)據(jù)鏈路為什么是串口協(xié)議參數(shù)怎么定2.1 掃描槍的三類輸出模式USB鍵盤、USB串口、傳統(tǒng)串口市面上絕大多數(shù)電子掃描槍物理接口看著都是USB但工作模式其實能分成三種。第一種是USB鍵盤模式也叫HID模式掃描槍模擬鍵盤按鍵條碼字符一個個“敲”進系統(tǒng)焦點在哪就輸?shù)侥牟恍枰?qū)動也不用寫代碼但焦點亂跳、回車多余、輸入法干擾這些毛病全集中在這條路上。第二種是USB串口模式需要在設(shè)備管理器里裝一個虛擬COM口驅(qū)動操作系統(tǒng)把掃描槍映射成一個串口應(yīng)用程序通過COM口收數(shù)據(jù)。第三種是傳統(tǒng)串口也就是DB9接口工業(yè)現(xiàn)場的老設(shè)備還在用信號電平是RS232協(xié)議最簡單直接。這套VB.NET源碼默認(rèn)走的是第二種和第三種的共同邏輯把掃描槍當(dāng)作一個串口設(shè)備來讀。我在實際項目里踩過坑才明白庫房的老槍很多是USB口插上去系統(tǒng)只認(rèn)鍵盤這時候必須用掃描槍配套的設(shè)置軟件把輸出模式從“USB鍵盤”切到“USB串口”或者直接換一把帶串口的槍。源碼本身不負(fù)責(zé)切換模式那一步要在掃描槍的硬件配置里完成。2.2 串口協(xié)議參數(shù)波特率、校驗位與結(jié)束符的默認(rèn)值串口通信的核心就是一個約定兩端得用同一套參數(shù)說話否則收到的一定是亂碼。VB.NET里SerialPort控件需要配的參數(shù)不多但每一個都有講究。波特率是每秒傳輸?shù)奈粩?shù)掃描槍出廠默認(rèn)大多在9600也有部分型號是115200。數(shù)據(jù)位基本固定是8校驗位一般選None停止位是One這套組合寫出來就是“9600, 8, N, 1”也是源碼里最常見的初始化配置。我接手別人的源碼時會先看一個細(xì)節(jié)結(jié)束符是什么。很多掃描槍在掃完一條碼之后會自動補一個后綴常見的是回車符CR也就是\r或者回車加換行CRLF。這個參數(shù)直接影響上位機怎么判斷“一條條碼已經(jīng)完整到達”。源碼里通常用NewLine屬性來聲明結(jié)束符或者干脆在代碼里手動對比字節(jié)。這里有個新手容易忽視的點掃描槍本身的設(shè)置里可以關(guān)掉后綴但如果上位機代碼已經(jīng)按回車符來切分?jǐn)?shù)據(jù)關(guān)掉后綴反而會讓數(shù)據(jù)粘連在一起。先確認(rèn)槍的配置再改代碼順序不能反。2.3 源碼里的數(shù)據(jù)幀結(jié)構(gòu)起始、條碼內(nèi)容與結(jié)尾標(biāo)識掃描槍發(fā)出來的數(shù)據(jù)除了條碼本身其實是一個完整的幀。幀的頭部可能包含前綴字符不過大多數(shù)場景下前綴是空的內(nèi)容就是條碼的ASCII字符比如一長串?dāng)?shù)字最后是結(jié)束符。源碼里收碼的邏輯就是在數(shù)據(jù)流里找“內(nèi)容開始”和“內(nèi)容結(jié)束”這兩個邊界。常見做法是用SerialPort.ReadLine()它的工作方式就是不斷讀直到碰到NewLine屬性里指定的字符才返回一行這一行就是完整的條碼。這套源碼里比較值得看的是它對“邊界”的處理如果掃描槍設(shè)置了前綴和后綴代碼里要有對應(yīng)的剝離邏輯如果槍什么都沒設(shè)那就只有內(nèi)容本身。我拿到源碼后會先在窗體上放一個TextBox把收到的原始字節(jié)以十六進制形式打出來先看清楚真實的數(shù)據(jù)幀長什么樣再決定要不要改切割邏輯。這個習(xí)慣幫我在好幾個項目里省掉了“看起來沒毛病但就是不對”的排查時間。3. 把源碼跑起來解壓、開工程、連掃描槍3.1 工程文件清單與項目結(jié)構(gòu)拿到源碼包第一件事不是急著雙擊運行而是先看一下目錄結(jié)構(gòu)搞清楚哪些文件是核心哪些是Visual Studio自動生成的輔助文件。一個典型的VB.NET WinForms串口收碼工程主要會包含這些文件文件/文件夾作用是否可以改動.sln 解決方案文件整個工程的入口雙擊它打開Visual Studio不動.vbproj 項目文件記錄項目引用和編譯配置一般不動Form1.vb窗體和業(yè)務(wù)邏輯代碼串口配置和數(shù)據(jù)接收都在這核心改動區(qū)Form1.Designer.vb窗體上控件的布局和初始化代碼可能不動Form1.resx窗體的資源文件圖標(biāo)和字符串資源在這里不動bin/Debug或bin/Release編譯生成的exe文件目錄運行看效果我一般會先把Form1.vb完整讀一遍重點關(guān)注三個位置Form1_Load里的串口初始化、DataReceived事件處理函數(shù)、以及條碼封裝的屬性。源碼包里如果還有使用說明文檔或接線圖優(yōu)先看文檔里的串口參數(shù)說明。有些工程會附帶一個“測試模式”不需要接真槍也能模擬收數(shù)這對調(diào)試特別有用。3.2 串口初始化的代碼位置與參數(shù)表打開Form1.vb最關(guān)鍵的初始化學(xué)代碼通常在窗體的Load事件里。常見寫法如下Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 配置串口參數(shù)參數(shù)必須與掃描槍硬件設(shè)置一致 With SerialPort1 .PortName COM3 串口號按設(shè)備管理器實際值修改 .BaudRate 9600 波特率掃描槍默認(rèn)一般是9600 .DataBits 8 數(shù)據(jù)位固定8位 .Parity Parity.None 校驗位無校驗 .StopBits StopBits.One 停止位1位 .ReadTimeout 500 讀超時單位毫秒防卡死 .NewLine vbCr 行結(jié)束符設(shè)為回車符 .ReceivedBytesThreshold 1 緩存區(qū)有多少字節(jié)觸發(fā)DataReceived事件 End With 打開串口如果端口被占用會拋異常要加Try...Catch Try SerialPort1.Open() Label1.Text 串口已打開 SerialPort1.PortName Catch ex As Exception Label1.Text 打開失敗 ex.Message End Try End Sub這段代碼里的參數(shù)要逐條說清楚。PortName必須和設(shè)備管理器里顯示的COM號完全一致包括大小寫COM3和com3在某些系統(tǒng)里能通但別賭這個。BaudRate是兩邊通信的“語速”掃描槍出廠默認(rèn)9600但也有廠家默認(rèn)38400的確認(rèn)方法是看槍的說明書或者用廠商工具讀配置。NewLine是最容易被忽略的它必須和掃描槍發(fā)出的結(jié)束符一致如果槍發(fā)的是回車加換行這里只寫vbCr那串口會讀到兩次回車邏輯多出一條空行。ReceivedBytesThreshold設(shè)為1的意思是緩沖區(qū)里只要有一個字節(jié)就觸發(fā)DataReceived事件這個值越小響應(yīng)越快但對數(shù)據(jù)處理邏輯的要求越高。3.3 連接真機掃碼測試與信號確認(rèn)代碼能編譯通過只是第一步接上真槍才算真正跑通。連接流程我用四個步驟走先把掃描槍的USB線插到電腦上打開設(shè)備管理器展開“端口(COM和LPT)”節(jié)點確認(rèn)有沒有出現(xiàn)新的COM口。如果槍是USB鍵盤模式這里顯示的是“USB輸入設(shè)備”而不是COM口需要先用廠商的配置軟件把模式切到串口再重新插拔COM口才會出現(xiàn)。然后把源碼里PortName改成步驟一看到的COM號點Visual Studio里的“啟動”按鈕運行程序窗體上會顯示串口已打開。接著拿一張條碼對準(zhǔn)掃描槍扣扳機如果一切正常條碼內(nèi)容會出現(xiàn)在窗體的文本框里。這時候要注意看光標(biāo)落點如果程序自動把條碼賦值到指定輸入框說明收碼流程通暢如果出現(xiàn)了亂碼八成是編碼問題下一步就要看核心收碼代碼是怎么處理字節(jié)流和字符集的。最后測三組不同類型的條碼純數(shù)字的、含字母的、含符號的確認(rèn)內(nèi)容完整無丟失。這一步不是走過場很多現(xiàn)場問題就是混合條碼掃到一半卡住的。4. 核心代碼拆解從DataReceived到完整條碼4.1 事件驅(qū)動的收碼邏輯SerialPort的DataReceived事件是異步的數(shù)據(jù)到達串口緩沖區(qū)時會觸發(fā)但這個事件運行在一個獨立的線程上不能直接操作窗體控件必須用Invoke切回UI線程。這是VB.NET串口編程里最基礎(chǔ)也最容易翻車的地方。Private Sub SerialPort1_DataReceived(sender As Object, e As SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived 此事件在后臺線程觸發(fā)不能直接操作窗體控件 Dim receivedData As String Try ReadLine會讀到NewLine屬性指定的結(jié)束符為止 如果設(shè)置的是vbCr那這里讀到的是不含回車符的條碼內(nèi)容 receivedData SerialPort1.ReadLine() Catch ex As Exception 如果結(jié)束符不匹配或超時會拋異常這里記錄下來便于排查 Debug.WriteLine(讀取異常 ex.Message) Return End Try 用Invoke把結(jié)果交回UI線程避免跨線程操作控件報錯 Me.Invoke(Sub() textBox1.AppendText(receivedData Environment.NewLine) End Sub) End Sub這段代碼的精髓在Invoke這一步。有人圖省事直接在里面寫textBox1.Text receivedData運行起來會隨機報“線程間操作無效”的錯這就是跨線程訪問控件的問題。DataReceived事件觸發(fā)頻率極高每一個字節(jié)都可能觸發(fā)一次ReceivedBytesThreshold1時如果用ReadLine它內(nèi)部會等夠一行數(shù)據(jù)才返回這樣能把高頻觸發(fā)合并成一條完整數(shù)據(jù)。Debug.WriteLine則是一個排查利器它把異常寫到Visual Studio的輸出窗口現(xiàn)場看不到界面變化時看輸出窗口能定位問題。4.2 斷包重組為什么不能只讀一次ReadLine寫起來簡單但它有邊界條件如果結(jié)束符不是預(yù)期的vbCr或vbLf或者掃描槍被設(shè)置成無后綴模式ReadLine會一直等直到ReadTimeout時間到才拋異常。這類問題在源碼里通常換一種寫法不依賴結(jié)束符自己拼字節(jié)。Private unprocessedBuffer As New StringBuilder() Private Sub SerialPort1_DataReceived(sender As Object, e As SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived Dim byteBuffer(SerialPort1.BytesToRead - 1) As Byte SerialPort1.Read(byteBuffer, 0, byteBuffer.Length) 轉(zhuǎn)換成字符串后拼到緩沖區(qū) Encoding.ASCII適用于標(biāo)準(zhǔn)條碼如果含中文需要用對應(yīng)編碼 Dim segment As String System.Text.Encoding.ASCII.GetString(byteBuffer) unprocessedBuffer.Append(segment) 檢查緩沖區(qū)里是否有結(jié)束符假設(shè)結(jié)束符是回車 If unprocessedBuffer.ToString().Contains(vbCr) Then Dim fullLine As String unprocessedBuffer.ToString() Dim lines() As String fullLine.Split(New String() {vbCr}, StringSplitOptions.RemoveEmptyEntries) 最后一段可能是不完整數(shù)據(jù)留在緩沖區(qū)等下一批 If not fullLine.EndsWith(vbCr) Then unprocessedBuffer.Clear() unprocessedBuffer.Append(lines(lines.Length - 1)) Array.Resize(lines, lines.Length - 1) Else unprocessedBuffer.Clear() End If For Each completeLine As String In lines Me.Invoke(Sub() textBox1.AppendText(completeLine Environment.NewLine) End Sub) Next End If End Sub這種做法的核心思路是每次事件到達先把緩沖區(qū)里的字節(jié)全部讀出來轉(zhuǎn)成字符串再判斷這一批數(shù)據(jù)有沒有湊成完整的一行。如果上一批數(shù)據(jù)到一半這批補上后半段通過\unprocessedBuffer\變量在多次事件之間保存狀態(tài)。Array.Resize那段處理的是“一次收到多行”的情況比如掃描槍連續(xù)掃了兩張條碼緩沖區(qū)里有兩個回車符拆完第一行后剩下的第二行還要再回傳。這個邏輯在只處理單條碼的小程序里看不出差別但對接連續(xù)掃描場景時是必須的。4.3 編碼陷阱ASCII與GB2312的亂碼邊界條碼數(shù)據(jù)本身是ASCII字符集數(shù)字、字母、符號都能覆蓋。但實際項目里有個繞不開的場景條碼內(nèi)容里可能帶中文或者掃碼之后要連帶讀取一個中文名稱。這時候用Encoding.ASCII去解碼中文字符會全部變成問號而且字節(jié)數(shù)對不上。正確做法是查代碼頁用GB2312或UTF-8解碼。 ASCII解碼只適用于純英文數(shù)字條碼 Dim asciiData As String System.Text.Encoding.ASCII.GetString(byteBuffer) 中文環(huán)境建議用GB2312注意代碼頁936對應(yīng)的就是GB2312 Dim gbData As String System.Text.Encoding.GetEncoding(GB2312).GetString(byteBuffer) 如果硬件配置的是UTF-8那就用UTF8別和GB2312混 Dim utf8Data As String System.Text.Encoding.UTF8.GetString(byteBuffer)我見過最典型的翻車現(xiàn)場是這樣的一臺工業(yè)掃描槍條碼里是數(shù)字備注字段是中文上位機用ASCII解碼數(shù)字正常中文全是“???”。查了很久才發(fā)現(xiàn)不是硬件問題是軟件解碼編碼不對。還有一次是掃描槍本身設(shè)置成了UTF-8輸出代碼里寫死GB2312結(jié)果數(shù)字沒事字母“é”變亂碼。正確思路是先用十六進制顯示工具看原始字節(jié)再反推編碼不要靠猜。5. 避坑與排查掃描槍接入上位機的五個常見問題5.1 掃描沒反應(yīng)串口號被占用或驅(qū)動缺失現(xiàn)象程序點“打開串口”報錯或者打開了但掃碼槍扣扳機完全沒反應(yīng)。原因最常見的是COM口被其他程序占用比如掃描槍廠商的配置工具、某個串口調(diào)試助手甚至上一次運行的程序沒退出把COM口鎖住了。第二個常見原因是USB轉(zhuǎn)串口驅(qū)動缺失設(shè)備管理器里看到的不是COM口而是一個帶黃色感嘆號的未知設(shè)備。解決先關(guān)閉所有可能占用串口的軟件拔掉掃描槍重新插上然后打開設(shè)備管理器看端口狀態(tài)感嘆號就用驅(qū)動精靈或驅(qū)動光盤裝驅(qū)動如果COM口號特別大比如COM17在設(shè)備管理器里手動把它改成COM3這種短號再改代碼里的PortName。5.2 數(shù)據(jù)斷成幾截ReceivedBytesThreshold與拼接邏輯現(xiàn)象條碼內(nèi)容明明是一整條程序里卻分兩次顯示中間還夾著亂碼或空行。原因掃描槍發(fā)送數(shù)據(jù)的速度和串口讀數(shù)據(jù)的節(jié)奏不一致。ReceivedBytesThreshold設(shè)成1時一個字節(jié)到達就會觸發(fā)DataReceived但ReadLine邏輯是OK的問題往往出在用的是ReadExisting或Read方法并且沒有把多次讀取的內(nèi)容拼起來。解決方案有兩個取舍。如果掃描槍的結(jié)束符設(shè)置可靠直接用ReadLine它能等完整行。如果槍沒設(shè)結(jié)束符就用我之前寫過的StringBuilder拼接方案。一個調(diào)試技巧在DataReceived開頭把BytesToRead的值打出來如果每次只有幾個字節(jié)說明數(shù)據(jù)確實是分批發(fā)過來的代碼必須有拼接能力如果一次就是幾十字節(jié)說明槍是一次性發(fā)完的簡單處理也行。5.3 中文變問號編碼不匹配現(xiàn)象條碼里的字母和數(shù)字正常中文全部顯示為或者變成亂碼符號。原因源碼里默認(rèn)用了Encoding.ASCII解碼ASCII不包含中文字符集高位字節(jié)全部被替換。另一種可能掃描槍的配置文件里把輸出編碼設(shè)成了UTF-8而上位機代碼用的GB2312解碼兩邊不一致。解決先確認(rèn)掃描槍的編碼設(shè)置用廠商工具讀一下通常出廠默認(rèn)是ASCII或GB2312。然后把代碼里的解碼方式改一致。注意一點修改編碼后要重新掃碼因為之前已經(jīng)解碼錯誤的數(shù)據(jù)不會自動恢復(fù)。5.4 自動回車帶出多余換行結(jié)束符設(shè)置現(xiàn)象每掃一條碼文本框里會多出一個空行或者數(shù)據(jù)下面會多出一個換行。原因掃描槍默認(rèn)設(shè)置了回車加換行后綴CRLF而上位機的NewLine只設(shè)了vbCr那么收到CR之后ReadLine返回接著來的LF又被當(dāng)成新數(shù)據(jù)讀了一次顯示出來就是空行。反過來也可能代碼按CRLF切分槍只發(fā)了CR數(shù)據(jù)就粘連在一起。解決看設(shè)備管理器里的硬件配置讀出掃描槍的后綴設(shè)置。如果槍是CRLF代碼的NewLine就寫vbCrLf如果只有CR就寫vbCr。我的習(xí)慣是統(tǒng)一讓槍只發(fā)CR代碼里也只認(rèn)CR這樣最簡單少一個字節(jié)出錯概率就低一分。5.5 USB槍插上沒COM口模式切換與虛擬串口現(xiàn)象插上掃描槍設(shè)備管理器里怎么找都沒有COM口看起來就是鍵盤設(shè)備。原因掃描槍出廠默認(rèn)是USB鍵盤模式不會映射串口。要切換到USB串口模式必須用槍的廠商設(shè)置軟件生成配置碼用掃描槍掃一下配置碼條碼完成切換。解決搜“掃描槍型號設(shè)置碼”一般就兩種方式一種是掃配置碼一種是打開設(shè)置軟件點選模式再確認(rèn)。切換后重新插拔USB線設(shè)備管理器里會出現(xiàn)新COM口。這個模式切換是一次性的記憶在掃描槍的Flash里換電腦也不用重新設(shè)置。如果切換后依然沒有COM口換個USB口試試有些老式USB口供電不足也會導(dǎo)致掃描槍不枚舉串口。6. 進階把掃碼結(jié)果接進業(yè)務(wù)流附多線程與校驗技巧源碼基礎(chǔ)功能跑通之后下一步就是和業(yè)務(wù)系統(tǒng)對接。常見的需求是掃到條碼后自動查詢數(shù)據(jù)庫或者自動錄入Excel再進一步可能要求連續(xù)掃碼不停頓。這時候有幾個習(xí)慣性做法值得直接落地。第一個是前臺顯示和后臺數(shù)據(jù)分離。DataReceived事件里拿到條碼后不要急著刷新界面而是判斷一下業(yè)務(wù)規(guī)則再決定要不要顯示。比如倉庫需要校驗條碼前綴代碼里加一個正則判斷不匹配的就彈警告音而不錄入系統(tǒng)。下面是加校驗的示例Private Sub ProcessBarcode(fullBarcode As String) 業(yè)務(wù)校驗前綴必須是RM長度為13位否則警告 If Not fullBarcode.StartsWith(RM) OrElse fullBarcode.Length 13 Then Beep() Debug.WriteLine(非法條碼 fullBarcode) Return End If 校驗通過后把數(shù)據(jù)交給UI線程顯示 Me.Invoke(Sub() DataGridView1.Rows.Add(fullBarcode, DateTime.Now.ToString(HH:mm:ss)) End Sub) End Sub第二個技巧是手動觸發(fā)掃描。某些掃描槍在串口模式下支持發(fā)送觸發(fā)指令上位機可以主動發(fā)一個字符讓掃描槍開燈掃一次。常見做法是發(fā)送一個“喚醒碼”具體指令看槍的指令手冊代碼里一行即可 發(fā)送觸發(fā)指令讓掃描槍開始一次掃描具體指令值以硬件手冊為準(zhǔn) SerialPort1.Write(Chr(H07))第三個是UI卡頓的處理。掃碼槍快速連續(xù)掃的時候DataReceived事件會頻繁觸發(fā)如果在Invoke里做復(fù)雜的數(shù)據(jù)庫操作UI線程會被拖死。我一般把掃碼結(jié)果丟進一個隊列后臺線程去消費這樣界面永遠(yuǎn)流暢。這個做法在日掃千件的倉庫場景里很有用。最后補一個血淚教訓(xùn)以我自己的習(xí)慣凡是涉及掃描槍的工程第一次連接真機時一定要開十六進制顯示窗口用代碼打印原始字節(jié)確認(rèn)數(shù)據(jù)幀再談業(yè)務(wù)邏輯。不要再寫死編碼或結(jié)束符一定要以硬件實際配置為準(zhǔn)。這樣排查問題的思路才是對的。希望這篇文章能把你在掃描槍接上位機這條路上可能遇見的坑提前填平祝調(diào)試順利。本文還有配套的精品資源點擊獲取