الصفحة الرئيسية>المتعلقة بالبرمجة>فيجوال بيسك
تنزيل

QRCODELIBVB

QRCODELIBVB هي مكتبة توليد رمز الاستجابة السريعة مكتوبة في Visual Basic.
يولد رموز رمز النموذج 2 بناءً على JIS X 0510.

سمات

  • يدعم الأرقام والأحرف الأبجدية الرقمية وأساليب بايت 8 بت و Kanji
  • يمكنك إنشاء رموز QR المقسمة
  • يمكن حفظها إلى ملف BMP 1BPP أو 24BPP (DIB)
  • يمكن حفظها بتنسيق SVG
  • يمكن استردادها ككائن صورة 1BPP أو 24BPP
  • يمكنك تحديد نظام الألوان (لون الأمامي ولون الخلفية) للصورة
  • يمكن تحديد رموز الأحرف في وضع بايت 8 بت

بداية سريعة

يرجى الرجوع إلى مشروع QRCODELIB أو QRCODELIB.DLL المصمم.

كيفية استخدام

مثال 1. يوضح الحد الأدنى من الرمز لرمز QR (وليس رمز QR المقسم) الذي يتكون من رمز واحد. 

 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

مثال 2. حدد مستوى تصحيح الخطأ

قم بتعيين وسيطة مُنشأة لفئة الرموز على قيمة التعداد errorcrestrectlevel. 

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

مثال 3. حدد الحد الأعلى لرقم الطراز

اضبطه في مُنشئ فئة الرموز. 

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

مثال 4. حدد رمز الحرف المراد استخدامه في وضع بايت 8 بت

اضبطه في مُنشئ فئة الرموز. 

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

مثال 5. إنشاء رمز QR المقسم

اضبطه في مُنشئ فئة الرموز. إذا لم تحدد الحد الأعلى لرقم الطراز ، يتم تقسيم الحد الأعلى برقم الطراز 40. 

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

فيما يلي مثال على تقسيم البيانات عندما تتجاوز البيانات رقم النموذج 1 والحصول على كائن الصورة لكل رمز 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

مثال 6. حفظ إلى ملف BMP

استخدم طريقة SaveBitMap لفئة الرمز. 

 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" )

مثال 7. حفظ إلى ملف SVG

استخدم طريقة SaveSVG لفئة الرمز. 

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

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

مثال 8. احفظ في تنسيقات الصور المختلفة

استخدم طريقة حفظ كائن الصورة. 

 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)

مثال 9. احصل على بيانات الصورة المشفرة BASE64

استخدم طريقة getBitMapBase64 لكائن الرمز. 

 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 & """ />"

مثال 10. الحصول على بيانات SVG

استخدم طريقة GETVG لكائن الرمز. 

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

Dim svg As String = symbols( 0 ).GetSvg()
يوسع
معلومات إضافية
تطبيقات ذات صلة
نوصي لك
أخبار ذات صلة الكل