02/10/2018, 00:03

Hướng dẫn tạo mã QR code cho sản phẩm

Hôm nay, mình xin hướng dẫn các bạn tạo ra mã QR code cho sản phẩm (dùng để scan code hoặc đăng nhập như chương trình zalo của zing trên windows...) - Bài viết mình sử dụng dịch vụ web services của VB.NET kết nối với API của google, để lấy về một mã QR code. ...

Hôm nay, mình xin hướng dẫn các bạn tạo ra mã QR code cho sản phẩm (dùng để scan code hoặc đăng nhập như chương trình zalo của zing trên windows...)

- Bài viết mình sử dụng dịch vụ web services của VB.NET kết nối với API của google, để lấy về một mã QR code.

Đầu tiên mình xin giới thiệu đường dẫn api của google: 

https://chart.googleapis.com/chart 

Với các tham số truyền vào bạn có thể mã hóa ký tự mình muốn nhập vào thành một mã qr code.

Dưới đây: là cấu pháp dùng để truyền dữ liệu cho google. Các bạn có thể tham khảo chi tiết trên url: https://chart.googleapis.com/chart 

google qr

+ cht = qr (tạo mã QR)

+ chs = x (định nghĩa kích thước cho mã QR)

+ chl = Mình sẽ truyền giá trị muốn mã hóa QR vào đây.

choe=<output_encoding> (mặc định là UTF-8)

VD: Bây giờ ta muốn mã hóa chuỗi "LAPTRINHVB.NET" thành mã QR có kích thước 256x256 ta sẽ có được url và giá trị truyền vào như sau:

http://chart.googleapis.com/chart?cht=qr&chs=256x256&chl=LAPTRINHVB.NET

Dưới đây là đoạn mã tạo QR bằng VB.NET :

Private Function Tao_QR_Code(Data As String, Size As Size)
        Dim web As New System.Net.WebClient()
        Dim url As String = "http://chart.googleapis.com/chart?chs="
        url &= Size.Width.ToString() & "x" & Size.Height.ToString()
        url &= "&cht=qr&chl=" & System.Uri.EscapeDataString(Data)
        MsgBox(url)
        Dim bytes As Byte() = web.DownloadData(url)
        Dim bmp As Bitmap = Nothing
        Using mem As New IO.MemoryStream(bytes)
            bmp = Bitmap.FromStream(mem)
        End Using
        Return bmp
    End Function

+ sự kiện click vào nút tạo mã :

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        PictureBox1.Image = Tao_QR_Code(TextBox1.Text, New Size(256, 256))
    End Sub

Vậy là đã hoàn tất. Chúc các bạn thành công.

Bạn nào có thắc mắc xin để lại commnet.

Tags: qrcode
0