VB.NET如何操作条码扫描枪,如何设置,如何进行条形码的设置及打印

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了VB.NET如何操作条码扫描枪,如何设置,如何进行条形码的设置及打印相关的知识,希望对你有一定的参考价值。

VB.NET 条码扫描

这个要看扫描枪的通讯接口和通讯协议,以及接口程序是否支持VB.NET等。 参考技术A Imports System
Imports System.IO.Ports

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'获取计算机有效串口
Dim ports As String() = SerialPort.GetPortNames() '必须用命名空间,用SerialPort,获取计算机的有效串口
Dim port As String
For Each port In ports
portnamebox.Items.Add(port) '向combobox中添加项
Next port
'初始化界面
baudratebox.SelectedIndex() = 2
portnamebox.SelectedIndex() = 0
Serial_Port1() '初始化串口
Label3.Text = SerialPort1.IsOpen
statuslabel.Text = "串口未连接"
statuslabel.ForeColor = Color.Red
sendbox.Text = "123"
' baudratebox.Text = baudratebox.Items(0) 注释和不注释的地方可以替换
'portnamebox.Text = portnamebox.Items(0)
End Sub

Private Sub Serial_Port1() '设置串口参数
SerialPort1.BaudRate = Val(baudratebox.Text) '波特率
SerialPort1.PortName = portnamebox.Text '串口名称
SerialPort1.DataBits = 8 '数据位
SerialPort1.StopBits = IO.Ports.StopBits.One '停止位
SerialPort1.Parity = IO.Ports.Parity.None '校验位
End Sub

'关闭串口连接
Private Sub closebtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebtn.Click
Try
SerialPort1.Close() '关闭串口
Label3.Text = SerialPort1.IsOpen
If SerialPort1.IsOpen = False Then
statuslabel.Text = "串口未连接"
statuslabel.ForeColor = Color.Red
receivebox.Text = ""
receivebytes.Text = ""
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

'打开串口连接
Private Sub openbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles openbtn.Click
Try
SerialPort1.Open() '打开串口
Label3.Text = SerialPort1.IsOpen
If SerialPort1.IsOpen = True Then
statuslabel.Text = "串口已连接"
statuslabel.ForeColor = Color.Green
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

'发送数据
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
SerialPort1.Write(sendbox.Text)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

End Sub

'触发接收事件
Public Sub Sp_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Me.Invoke(New EventHandler(AddressOf Sp_Receiving)) '调用接收数据函数
End Sub

'接收数据
Private Sub Sp_Receiving(ByVal sender As Object, ByVal e As EventArgs)
Dim strIncoming As String
Try
receivebytes.Text = Str(Val(receivebytes.Text) + SerialPort1.BytesToRead)
If SerialPort1.BytesToRead > 0 Then
Threading.Thread.Sleep(100) '添加的延时
strIncoming = SerialPort1.ReadExisting.ToString '读取缓冲区中的数据
SerialPort1.DiscardInBuffer()
receivebox.Text = strIncoming
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
End Class本回答被提问者采纳

金蝶盘点机PDA仓库条码管理:仓库如何盘点

1.1. 仓库盘点

传统的仓库盘点,需要人工手工抄写盘点单,时候再去电脑上一行行的录入盘点单,操作非常耗时费力,往往需要盘点好几天,最终盘点效果还不好,在抄写过程中容易出现错误,从而造成盘点结果不准确。

如果使用了盘点机PDA实现扫描商品条码盘点,扫描商品条码,录入盘点数量,或者自动增加1。盘点数据实时传输到电脑上,轻松高效快捷准确。

1.使用盘点机盘点的基本操作是:扫描商品条码,录入盘点数量,按OK,盘点数据零点几秒就上传到后台数据库中。实时性非常高。

2.支持多台盘点机同时盘点,盘点数据实时累加,另外一般建议2个人一组一台盘点机,一个人清点商品数量,一个人手持盘点机扫描商品录入盘点数量,高效配合,高效盘点。

3.盘点扫描时,比如一堆矿泉水20瓶,您可以选择【连续】勾勾,扫描一个商品条码数量增加一个,扫描20次;也可以去掉【连续】勾勾,扫描其中一个商品条码,然后手工录入数量20。具体根据自己的实际情况来。

4.盘点机可以在A店使用,也可以拿到B店使用。多台盘点机也可以在同一个店铺使用。一般出入库开单是每店常备一个。然后盘点时可以把多个盘点机拿到同一个店铺进行快速盘点。

以上是关于VB.NET如何操作条码扫描枪,如何设置,如何进行条形码的设置及打印的主要内容,如果未能解决你的问题,请参考以下文章

phonegap 条码扫描仪:如何一次进行多次扫描

如何在ipod中使用前置摄像头进行条码扫描

扫描枪怎么设置?

如何将 ZXing 库集成到 Android Studio 进行条码扫描?

VB如何获取USB口条码枪的扫描数据?

如何在 android zxing 中扫描带有嵌入权重的条码