[VB.NET] افضل ما توصلت له لنظام الباركود

PHP كود :

   Protected Overrides Sub OnPaint(e As PaintEventArgs)
        MyBase.OnPaint(e)

        e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias

        Dim str As String = "123456789"
        Dim bytes = Encoding.UTF8.GetBytes(str)
        Dim s As String = String.Join(Of String)("", bytes.Select(Of String)(Function(b) Convert.ToString(b, 2)))
        Dim f As Font = New Font("times new roman", 12.0F, FontStyle.Bold)
        Dim txtSize As SizeF = e.Graphics.MeasureString(s, f)
        Dim x As Integer = 100
        Dim y As Integer = 100
        For i = 0 To s.Length - 1
            Dim current As String = (s(i))
            Dim chrWidth As Integer = e.Graphics.MeasureString(current, f).Width
            Dim chrHeight As Integer = e.Graphics.MeasureString(current, f).Height
            Dim chrRect As Rectangle = New Rectangle(x, y, Math.Min(chrWidth, 2), Math.Max(chrHeight, 100))
            If current = 0 Then
                'e.Graphics.DrawString(current, f, New SolidBrush(Color.Black), chrRect)
                Using sb As New SolidBrush(Color.Black)
                    e.Graphics.FillRectangle(sb, chrRect)
                End Using
            ElseIf current = 1 Then
                'e.Graphics.DrawString(current, f, New SolidBrush(Color.White), chrRect)
                Using sb As New SolidBrush(Color.White)
                    e.Graphics.FillRectangle(sb, chrRect)
                End Using
            Else
                Exit For
            End If

            x += Math.Min(chrWidth, 2)
        Next

    End Sub

كود :

       ' انشاء صورة عرضها عدد حروف الباينرى المستخدم

        Dim bmp As Bitmap = New Bitmap(Len(Binaryz), 210, System.Drawing.Imaging.PixelFormat.Format24bppRgb)

        Dim z As String ' متغير لمعرفة لون الخط 

        Dim GraphZ As Graphics = Graphics.FromImage(bmp)

        Dim RectZ As Rectangle = New Rectangle(0, 0, bmp.Width, bmp.Height) ' مستطيل بحجم الصورة لاعطاء الخلفية باللون الابيض

        ' فرشاه لدهان المستطيل السابق باللون الابيض

        Dim myBrush As Brush = New Drawing.Drawing2D.LinearGradientBrush(RectZ, Color.White, Color.White, Drawing.Drawing2D.LinearGradientMode.ForwardDiagonal)

        ' دهان المستطيل السابق باللون الابيض

        GraphZ.FillRectangle(myBrush, RectZ)

        '  رسم خطوط الباركود

        Dim PenZ As Pen

        Dim point1 As Point ' نقطة بداية الخط

        Dim point2 As Point ' نقطة نهاية الخط

        For I = 1 To Len(Binaryz)

            z = Mid(Binaryz, I, 1)

            If z = "0" Then

                PenZ = New Pen(Color.Black, 1)

                point1 = New Point(I, 45)

                point2 = New Point(I, 120)

                GraphZ.DrawLine(PenZ, point1, point2)

            Else

                PenZ = New Pen(Color.White, 1)

                point1 = New Point(I, 45)

                point2 = New Point(I, 120)

                GraphZ.DrawLine(PenZ, point1, point2)

            End If

        Next

        ' رسم النص المراد ترميزه اسفل الكود

        Dim format1 As New StringFormat

        format1.Alignment = StringAlignment.Center

        GraphZ.DrawString(TheText, New Font("times new roman", 16, FontStyle.Bold), New SolidBrush(Color.Black), bmp.Width / 2, 120, format1)

        GraphZ.DrawString(Kind, New Font("times new roman", 24, FontStyle.Bold), New SolidBrush(Color.Black), bmp.Width / 2, 165, format1)

        GraphZ.DrawString(Price, New Font("times new roman", 24, FontStyle.Bold), New SolidBrush(Color.Black), bmp.Width / 2, 0, format1)

        Code128 = bmp