Archivo de la etiqueta: motorola

Motorola finalmente actualiza el Atrix 2


Motorola finalmente y para alegría de sus usuarios ha actualizado el Motorola Atrix 2 (MB865) a la última versión de Android ICS (4.0.4), entre las mejoras que se destacan están las siguientes:

  • La interfaz
  • Una nueva actualización del MotoBlur
  • Smartactions
  • Face unlock
  • People App
  • Screenshot

Esta es sin duda la actualización mas grande que ha sufrido el dispositivo desde su lanzamiento en el 2011. Esperemos ahora ver el feedback de los usuarios. Así que si eres un propietario de este móvil, puedes actualizarlo desde hoy.

Por si interesa puedes descargarte el documento de la nota de prensa haciendo clic aquí

Leyendo datos desde un lector de códigos de barra Symbol (Motorola)

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.