VB 識(shí)別條形碼

一、條形碼的讀取

洛江ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場(chǎng)景，ssl證書(shū)未來(lái)市場(chǎng)廣闊！成為成都創(chuàng)新互聯(lián)公司的ssl證書(shū)銷(xiāo)售渠道，可以享受市場(chǎng)價(jià)格4-6折優(yōu)惠！如果有意向歡迎電話聯(lián)系或者加微信：18982081108（備注：SSL證書(shū)合作）期待與您的合作！

用過(guò)鍵盤(pán)口式的掃條碼工具的朋友就知道，它就如同在鍵盤(pán)上按下數(shù)字鍵一樣，基本不需任何編程和處理。但如果你使用的是其它接口的話，可能你就要為該設(shè)備編寫(xiě)通訊代碼了。以下有一段簡(jiǎn)單的25針串口的條碼讀取器通訊代碼。

Option Explicit

Dim sData As String

Private Sub Form_Load()

With MSComm1

.CommPort = 3 '設(shè)為COM3，試運(yùn)行的系統(tǒng)而定，你可提供一個(gè)Combox讓用戶選擇。

.PortOpen = True　'打開(kāi)通訊端口

End With

End Sub

Private Sub MSComm1_OnComm()

Dim EndPos As Integer

Select Case MSComm1.CommEvent

Case comEvReceive '當(dāng)有數(shù)據(jù)傳送過(guò)來(lái)時(shí)

sData = sData Trim(MSComm1.Input)

'檢索回車(chē),通常讀卡機(jī)每組數(shù)據(jù)結(jié)尾都返回一個(gè)回車(chē)作為結(jié)束符

EndPos = InStr(1, sData, Chr(13))

If EndPos = 0 Then '如果未結(jié)束就繼續(xù)努力

Else '讀完一組。

lblBarCode.Caption = sData '顯示一組條形碼

With lstBarCode

.AddItem Mid(sData, 1, EndPos - 1) '添加一組條形碼到列表

End With

sData = "" '清空

End If

End Select

End Sub

Private Sub cmdEnd_Click()

MSComm1.PortOpen = False '關(guān)閉端口

End

End Sub

二：條形碼的生成

在VB上編程本來(lái)就不難。以下關(guān)于條形碼生成的代碼也是很容易理解，只需使用一個(gè)OFFICE的附帶的 BarCode控件就可以輕松打印出11種不同標(biāo)準(zhǔn)的條形碼，足以滿足我們的要求。想起我書(shū)架上的一本書(shū)中的一篇用Turbo C編寫(xiě)條形碼打印程序文章，長(zhǎng)篇大論，那時(shí)不知看了n天，打了n小時(shí)字結(jié)果也不盡人意，現(xiàn)在真是幸福多了:)。廢話說(shuō)完，得回歸正題。且看條形碼生成的代碼及有關(guān)說(shuō)明。

源代碼主要由兩個(gè)窗體（frmMain主窗體和frmOption條碼設(shè)置窗體）和兩個(gè)模塊組成(modGetScreen.bas、SysDLG32.bas)。考慮到篇幅，這里只列出部分較為關(guān)鍵的代碼。

新建一個(gè)標(biāo)準(zhǔn)工程，添加一個(gè)名為(Microsoft Access BarCode

Control9)的條形碼部件，并添加一個(gè)條碼控件到窗口，并將窗口改名為frmMain，如圖所示。由于控件比較多，這里不便細(xì)說(shuō)，詳細(xì)內(nèi)容請(qǐng)看源代碼。

模塊modGetScreen.bas代碼如下：

Option Explicit

聲明BitBlt、GetDesktopWindow、GetWindowDC、ReleaseDC這幾個(gè)API函數(shù)略

Public RegUser As Boolean

Sub GetObjImage1(Obj As Object, OwnerForm As PictureBox, Picture1

As PictureBox)

'hDC

Dim hWndDesk As Long

Dim hDCDesk As Long

'區(qū)域表達(dá)變量

Dim x As Long

Dim y As Long

Dim w As Long

Dim h As Long

x = Obj.Left Screen.TwipsPerPixelX

y = Obj.Top Screen.TwipsPerPixelY

w = Obj.Width Screen.TwipsPerPixelX

h = Obj.Height Screen.TwipsPerPixelY

hDCDesk = OwnerForm.hdc

'取出圖像

Call BitBlt(Picture1.hdc, 0, 0, w, h, hDCDesk, x, y,

vbSrcCopy)

Call ReleaseDC(hWndDesk, hDCDesk)

End Sub

主窗體frmMain.frm部分代碼如下：

Private Sub cmdPrint_Click()

'生成條形碼圖像

Dim r As Long, i As Integer, t As String,cfile As

String '臨時(shí)變量

t = BarCode

For i = 0 To Val(Times) - 1

BarCode1.Value = BarCode + i

DoEvents

Picture1.Refresh

GetObjImage1 BarCode1, Conel, Picture1

If RegUser = False Then '如果未注冊(cè)添加MASK標(biāo)記

Picture1.PaintPicture Picture2.Picture, 300, 300

End If

If Dir(SavePath, vbDirectory) = "" Then MkDir SavePath

SavePath = SavePath IIf(Right(SavePath, 1) "", "",

"")

cfile = SavePath BarCode1.Value ".bmp"

SavePicture Picture1.Image, cfile '將條形碼保存為圖像文件以便打印

Next

BarCode = t

End Sub

條形碼設(shè)置窗體frmOption.frm代碼如下：

Option Explicit

'條形碼設(shè)置模塊

Private Sub cboBig_Click()

BarCode1.Style = cboBig.ListIndex '改變標(biāo)準(zhǔn)

End Sub

Private Sub cboDirection_Click()

BarCode1.Direction = cboDirection.ListIndex '改變方向

End Sub

Private Sub cboLine_Click()

BarCode1.LineWeight = cboLine.ListIndex '改變線寬

End Sub

Private Sub cboSmall_Click()

BarCode1.SubStyle = cboSmall.ListIndex '改變樣式

End Sub

Private Sub Check1_Click()

BarCode1.ShowData = Check1.Value '是否顯示數(shù)據(jù)

End Sub

Private Sub cmdChange_Click()

'設(shè)置長(zhǎng)、寬大小

BarWidth = BarCode1.Height

BarHeight = BarCode1.Width

cmdRefresh_Click

End Sub

Private Sub cmdOK_Click()

'傳送條形碼設(shè)定到主界面

With frmMain.BarCode1

.LineWeight = BarCode1.LineWeight

.Style = BarCode1.Style

.SubStyle = BarCode1.SubStyle

.Direction = BarCode1.Direction

.Width = BarCode1.Width

.Height = BarCode1.Height

.ShowData = BarCode1.ShowData

Me.Hide

End With

With frmMain

.Picture1.Width = .BarCode1.Width

.Picture1.Height = .BarCode1.Height

.Conel.Width = .BarCode1.Width

.Conel.Height = .BarCode1.Height

End With

End Sub

Private Sub cmdRefresh_Click()

BarCode1.Width = BarWidth

BarCode1.Height = BarHeight

End Sub

Private Sub Form_Load()

LoadBarInfo

BarWidth = BarCode1.Width

BarHeight = BarCode1.Height

End Sub

Sub LoadBarInfo() '初始化選項(xiàng)

LoadBigClass cboBig

LoadSmallClass cboSmall

LoadLineSize cboLine

LoadDirection cboDirection

End Sub

Sub LoadBigClass(cbo As ComboBox) '條碼標(biāo)準(zhǔn)

With cbo

.AddItem "UPC-A"

.AddItem "UPC-E"

.AddItem "EAN-13"

.AddItem "EAN-8"

.AddItem "Case Code"

.AddItem "Codabar (NW-T)"

.AddItem "Code-39"

.AddItem "Code-128"

.AddItem "U.S. Postnet"

.AddItem "U.S. Postal FIM"

.AddItem "JP Post"

.ListIndex = 2

End With

End Sub

Sub LoadSmallClass(cbo As ComboBox) '條碼樣式

With cbo

.AddItem "Standard"

.AddItem "2-Digit Supplement"

.AddItem "5-Digit Supplement"

.AddItem "POS Case Code"

.ListIndex = 0

End With

End Sub

許多人在編寫(xiě)數(shù)據(jù)庫(kù)應(yīng)用程序時(shí)，都想要加上條形碼功能加強(qiáng)工作效率，尤其是銷(xiāo)售管理，圖書(shū)館管理這類(lèi)流量大的應(yīng)用軟件，但由于條形碼技術(shù)難以掌握、標(biāo)誰(shuí)又多以及過(guò)去的技術(shù)種種原因，使得許多人望而卻步。本文介紹的一套簡(jiǎn)單實(shí)用的條形碼解決方法，希望能幫助各位完善軟件系統(tǒng)的功能。

VB.net如何在水晶報(bào)表上打印條碼

很簡(jiǎn)單。只需要安裝Code39字體，或者加載到系統(tǒng)中就可以。

報(bào)表設(shè)置該字體自然就表示成條形碼了。

Code39字體從網(wǎng)上搜索能搜索到。

用vb.net開(kāi)發(fā)一個(gè)pos收銀系統(tǒng)，要求如下： 課程設(shè)計(jì) ——POS收銀系統(tǒng)

ext1.Text = a

Text2.Text = b

c = Val(Text1.Text) + Val(Text2.Text)

End Sub

我也是剛學(xué)VB，這是我自己做的。不知道能不能幫上你的忙。 隨機(jī)數(shù)字（20以內(nèi)）的加法。

vb.net條碼打印控件

工具箱，然后隨便選擇一項(xiàng)，右鍵 選擇項(xiàng)，在.com控件里，microsoft bar ctrol 9.0

VB.NET如何操作條碼掃描槍，如何設(shè)置，如何進(jìn)行條形碼的設(shè)置及打印

這個(gè)要看掃描槍的通訊接口和通訊協(xié)議，以及接口程序是否支持VB.NET等。

如何在vb.net 中錄入條形碼字符，謝謝

93條碼和CODE39一樣，起始符和結(jié)束符都是*號(hào)，你做的條碼掃描不出來(lái)的原因，估計(jì)和校驗(yàn)碼有關(guān)。93條碼規(guī)定在數(shù)據(jù)的最后有兩個(gè)校驗(yàn)位C和K，如果你的數(shù)據(jù)里沒(méi)有生成這兩個(gè)校驗(yàn)位，那肯定是無(wú)法掃描的。