QRCodeLibVB

Qrcodelibvb

Qrcodelibvb adalah pustaka pembuatan kode QR yang ditulis dalam Visual Basic.
Menghasilkan simbol kode model 2 berdasarkan JIS X 0510.

Fitur

• Mendukung angka, karakter alfanumerik, byte 8-bit dan mode kanji
• Anda dapat membuat kode QR terpisah
• Dapat disimpan ke file BMP 1bpp atau 24bpp (DIB)
• Dapat disimpan dalam format SVG
• Dapat diambil sebagai objek gambar 1bpp atau 24bpp
• Anda dapat menentukan skema warna (warna depan dan warna latar belakang) dari gambar
• Kode karakter dapat ditentukan dalam mode byte 8-bit

Awal yang cepat

Silakan merujuk ke proyek Qrcodelib atau qrcodelib.dll yang dibangun.

Cara menggunakan

Contoh 1. Menampilkan kode minimum untuk kode QR (bukan kode QR split) yang terdiri dari simbol tunggal.

 Imports Ys.QRCode
Imports System.Drawing

Public Sub Example()
    Dim symbols As Symbols = New Symbols()
    symbols.AppendText( "012345abcdefg" )

    Dim image As Image = symbols( 0 ).GetImage()

End Sub

Contoh 2. Tentukan tingkat koreksi kesalahan

Atur argumen konstruktor dari kelas simbol ke nilai enum errorCorrectionLevel.

 Dim symbols As Symbols = New Symbols(ErrorCorrectionLevel.H)

Contoh 3. Tentukan batas atas nomor model

Atur di Konstruktor Kelas Simbol.

 Dim symbols As Symbols = New Symbols(maxVersion:= 10 )

Contoh 4. Tentukan kode karakter yang akan digunakan dalam mode byte 8-bit

Atur di Konstruktor Kelas Simbol.

 Dim symbols As Symbols = New Symbols(charsetName:= "UTF-8" )

Contoh 5. Buat kode QR split

Atur di Konstruktor Kelas Simbol. Jika Anda tidak menentukan batas atas nomor model, batas atas dibagi dengan nomor model 40.

 Dim symbols As Symbols = New Symbols(allowStructuredAppend:= True )

Berikut adalah contoh pemisahan data ketika data melebihi nomor model 1 dan mendapatkan objek gambar untuk setiap kode QR.

 Dim symbols As Symbols = New Symbols(maxVersion:= 1 , allowStructuredAppend:= True )
symbols.AppendText( "abcdefghijklmnopqrstuvwxyz" )

For Each symbol As Symbol In symbols
    Dim image As Image = symbol.GetImage()
Next

Contoh 6. Simpan ke file BMP

Gunakan metode SavebitMap dari kelas simbol.

 Dim symbols As Symbols = New Symbols()
symbols.AppendText( "012345abcdefg" )

' 24bpp DIB
symbols( 0 ).SaveBitmap( "qrcode.bmp" )

' 1bpp DIB
symbols( 0 ).SaveBitmap( "qrcode.bmp" , monochrome:= True )

' 10 pixels per module
symbols( 0 ).SaveBitmap( "qrcode.bmp" , moduleSize:= 10 )

' Specify foreground and background colors.
symbols( 0 ).SaveBitmap( "qrcode.bmp" , foreRgb:= "#0000FF" , backRgb:= "#FFFF00" )    

Contoh 7. Simpan ke file SVG

Gunakan metode SaveSVG dari kelas simbol.

 Dim symbols As Symbols = New Symbols()
symbols.AppendText( "012345abcdefg" )

symbols( 0 ).SaveSvg( "qrcode.svg" )

Contoh 8. Simpan dalam berbagai format gambar

Gunakan metode simpan dari objek gambar.

 Imports System.Drawing
Imports System.Drawing.Imaging

Dim symbols As Symbols = New Symbols()
symbols.AppendText( "012345" )

Dim image As Image = symbols( 0 ).GetImage()
' PNG
image.Save( "qrcode.png" , ImageFormat.Png)
' GIF
image.Save( "qrcode.gif" , ImageFormat.Gif)
' JPEG
image.Save( "qrcode.jpg" , ImageFormat.Jpeg)

Contoh 9. Dapatkan data gambar yang dikodekan basis64

Gunakan metode getBitMapBase64 dari objek simbol.

 Dim symbols As Symbols = New Symbols()
symbols.AppendText( "012345abcdefg" )

Dim data As String = symbols( 0 ).GetBitmapBase64()
Dim imgTag As String = "<img src=""data:image/bmp;base64," & data & """ />"

Contoh 10. Dapatkan data SVG

Gunakan metode GetSVG dari objek simbol.

 Dim symbols As Symbols = New Symbols()
symbols.AppendText( "012345abcdefg" )

Dim svg As String = symbols( 0 ).GetSvg()