منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
الباركود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : الباركود (/showthread.php?tid=24658)

الصفحات: 1 2

الباركود - djelloul - 25-04-18

السلام عليكم ورحمة الله تعالى وبركاته
السادة الكرام 

هل أستطيع أن أجد لديكم مكتبة DLL لعمل ملصقات الباركود
ألف شكر لكم مسبقا
تحياتي

RE: الباركود - فراس الغزي - 25-04-18

اخي  العزيز  استخدم  هذه  المكتبه فهية سهلة  وسريعة  انا استهخدمها شخصيا  

MessagingToolkit.Barcode.dll

RE: الباركود - djelloul - 25-04-18

ألف شكر لك 
أنا فعلا أستخدم هذه المكتبة لكن وجدت فيها صعوبة نوعا ما في حفظ صورة الباركود داخل قاعدة البيانات بعد تحويلها إلى بايتات
كود التحويل الذي أستخدمه هو :
كود :
   Public Function ConvertToData(ByVal MyImage As Image) As Byte()
       Dim ms As New MemoryStream()
       PicBarCode.BackgroundImage.Save(ms, System.Drawing.Imaging.ImageFormat.Bmp)
       Dim mybyte(ms.Length - 1) As Byte
       ms.Position = 0
       ms.Read(mybyte, 0, ms.Length)
       MsgBox(mybyte)
       Return mybyte

   End Function

فإن كان لديك أي اقتراح أكون ممتنا
شكرا لك مرة أخرى

RE: الباركود - فراس الغزي - 25-04-18

اخي  اعطني  الصفحة الخاصة بالاضافة  وانا اقوم بها  ان شاء الله  تعالى

RE: الباركود - djelloul - 25-04-18

عفوا ليست الإضافة فقد كنت مخطئا فبدل أن أجعل الحفظ يأخذ من PicturBox  جعلته عن غير قصد يأخذ من textBox لكن هناك أمر مهم أخر أحتاج لأن أجعل خاصية resolution للـ generator الخاص بالكود بار لأنه يكون داخل PicturBox غير واضح وبالتالي عند طباعة الملصقات تكون غير واضحة تماما فهل لديك فكرة؟

RE: الباركود - فراس الغزي - 26-04-18

تفضل  اخي  هسى  ان ينفعك  هذا الكود  


كود :
 Private Sub Butcaret_Click(sender As Object, e As EventArgs) Handles Butcaret.Click
        Dim Generator As New MessagingToolkit.Barcode.BarcodeEncoder
        Generator.IncludeLabel = True
        Generator.CustomLabel = Textcod.Text
        Try
            PictureBox1.Image = New Bitmap(Generator.Encode(MessagingToolkit.Barcode.BarcodeFormat.Code128, Textcod.Text))
        Catch ex As Exception

        End Try
    End Sub


RE: الباركود - djelloul - 26-04-18

شكرا لك
لكني هذا ما قمت به وزيادة ولكن عند الطباعة تظهر الملصقات بدقة رديئة جدا لا يستطيع قارئ الباركود قرائتها
كود :
 Dim Generator As New MessagingToolkit.Barcode.BarcodeEncoder
       'Dim br As String = txt_N_Lot.Text & txtCBR.Text
       Generator.IncludeLabel = True
       Generator.CustomLabel = txt_N_Lot.Text & " " & txtCBR.Text
       Generator.Height = 50
       Generator.Margin = 0
       Generator.MarginSize = 0
       Generator.RotateFlipType = RotateFlipType.RotateNoneFlipNone
       Generator.LabelPosition = MessagingToolkit.Barcode.LabelPositions.BottomCenter
       Generator.LabelFont = New Font("Arial", 9.9F, Drawing.FontStyle.Regular)
       Generator.Alignment = MessagingToolkit.Barcode.AlignmentPositions.Left

       'HorizontalResolution = HorizontalResolution(90)



       'Generator.ProcessTilde = True

       'Barcode Size Related Settings

       'barcode.Resolution = 96


       'PictureBox1.Image = New Bitmap(Generator.Encode(MessagingToolkit.Barcode.BarcodeFormat.Code39, TextBox1.Text))
       PicBarCode.BackgroundImage = New Bitmap(Generator.Encode(MessagingToolkit.Barcode.BarcodeFormat.Code128, txt_N_Lot.Text & " " & txtCBR.Text))


RE: الباركود - فراس الغزي - 26-04-18

اخي العزيز  انا بالنسبة  الي استخدم الكود الي في  الاعلى  والحمد لله  ماشي  تمام  ويشتغل  عندي  على  كثير برامج  والباركو  تمام يقراه  وبسهلة  ومن  دون  تأخير  ابدا  انت  حاول  تجرب  تكتب  الكود المختصر  الي  ارسلته لي  وان شاء الله  تضبط  معاك  يارب

RE: الباركود - djelloul - 26-04-18

إن شاء الله   ألف شكر لك 
فقط سؤال أخير هل قمت بطباعة الملصقات على طابعة خاصة بها ؟

RE: الباركود - فراس الغزي - 26-04-18

العفو  اخي  لا  طابعة  عادية  كانون  ورق  A4 طبيعي  ومن ثم لسقت الورق  على  الاجهزة و اشتغل  تمام  والحمد لله