Generador de Códigos QR

generador de codigo QR

Este Generador de Códigos QR es un programa simple fácil de aprender, que genera texto en código QR utilizando la librería MessagingToolkit.QRCode. Esta aplicación también le permite que el código QR sea exporte como imagen a la carpeta Mis Documentos de su ordenador. todo lo que tiene que hacer es seguir el procedimiento a continuación.

Creando Aplicación
Paso 1
Abra Microsoft Visual Studio 2010, 2012, 2013, 2015, 2017 0 2019 y cree una nueva aplicación de formulario de Windows para Visual Basic .Net.

Buscar Registros Entre dos Fechas en C Sharp y Base de Datos MS Access

Paso 2
Realice el formulario tal como se muestra a continuación.

generador de codigos qr

Paso 3
Presione F7 para abrir el editor de código. En el editor de código, agregue un espacio de nombres para acceder a las bibliotecas QR.
Nota: Agregue MessagingToolkit.QRCode.Codec en sus referencias.

Imports MessagingToolkit.QRCode.Codec

Paso 4
Cree el método para Generar los códigos QR.

Private Sub qrcodeGen()
       Try
           Dim qrCode As New QRCodeEncoder
           qrCode.QRCodeEncodeMode = QRCodeEncoder.ENCODE_MODE.BYTE
           qrCode.QRCodeErrorCorrect = QRCodeEncoder.ERROR_CORRECTION.L
           Me.PictureBox1.Image = qrCode.Encode(Me.txtCode.Text, System.Text.Encoding.UTF8)


       Catch ex As Exception
           MessageBox.Show(ex.Message, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Information)
       End Try
   End Sub

Paso 5
Cree el método para Exportar la imagen QR generada.

Private Sub btnExport_Click(sender As Object, e As EventArgs) Handles btnExport.Click
        Try
            If Me.PictureBox1.Image IsNot Nothing Then
                Me.PictureBox1.Image.Save(IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.MyDocuments, Me.txtCode.Text & ".jpg"))
                MessageBox.Show("QR SE GUARDO CORRECTAMENTE")
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Try
    End Sub

Paso 6
Mande llamar el método que genero para crear los códigos QR en el botón Generar Código.

Private Sub btnGenerate_Click(sender As Object, e As EventArgs) Handles btnGenerate.Click
        Try
            Call qrcodeGen()

        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Try
    End Sub

Ahí lo tenemos,ya fue creado con éxito nuestro Generador de Códigos QR. Espero que este sencillo tutorial te ayude a lo que estás buscando.

Antes de la descarga del Tutorial presiona el siguiente enlace para que te suscribas a nuestro Canal de YouTube:

SUSCRIBETE AL CANAL DE YOUTUBE AQUI !

Generador de Códigos QR – Descargar el Tutorial en el siguiente enlace:

DESCARGAR AQUÍ

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *