En la web hay muchos ejemplos de como hacer esto, pero leyéndome la documentación que viene con el EMDK 2.5 (lo pueden además conseguir en la pagina de Motorola), he encontrado la manera de leer los datos de un código de barra utilizando un equipo Symbol formalmente Motorola, en este caso el dispositivo que utilizo es un MC55A. El modo en que lanzas el laser se llama TriggerMode es una enumeración, posee tres elementos: ONCE, ALWAYS y MANUAL, por si prefieres que el laser se encienda presionando el botón para esto o la pistola. Sin mas preámbulos dejo acá la pieza de código en cuestión:
Protected Sub DoScan()
Dim dev As Device = Devices.SupportedDevices(0)
Dim bcode As New Barcode2(dev)
Try
Cursor.Current = Cursors.WaitCursor
bcode.Config.Reader.ReaderSpecific.LaserSpecific.AimDuration
= 500
‘Determina el modo en que el laser es encendido, ONCE es una sola vez,
‘ALWAYS es para cada scan pendiente y MANUAL como su nombre lo indica.
bcode.Config.TriggerMode = TRIGGERMODES.SOFT_ONCE
bcode.Config.Scanner.ActivityLedTime = 500
bcode.Enable()
‘El valor a esperar es en milisegundos en este caso significa que el laser
‘va a esperar 10 segundos o hasta que lea algo.
Dim sdata As ScanData = bcode.ScanWait(10000)
If sdata.Result = Results.SUCCESS Then
Me.TextBox1.Text = sdata.Text
Else
MsgBox("No se detectó ningún código", MsgBoxStyle.Information, "Aplicación Scanner")
End If
bcode.Disable()
bcode.Dispose()
Cursor.Current = Cursors.Default
Catch ex As Exception
Cursor.Current = Cursors.Default
bcode.Disable()
bcode.Dispose()
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Aplicación Scanner")
End Try
End Sub
Pues de esa manera espero que este pedazo de código les ayude si lo necesitan.