كيف يتم حفظ صوره للباركود

ثعلب البرمجه كتب:

السلام عليكم اخواني الكرام

الحمد لله الذي هداني الي هذا المنتدي

فأنا رأيت هنا مواضيع عالية المستوي فعلا

وارجو من الله ان اجد اجابه لسؤالي لديكم

كيف يتم انشاء الباركود داخل بيكتشر بوكس

عن طريق تغير الخط ثم امكانيه حفظ هذه الصوره

جزاكم الله خيرا

انافي انتظار اساتذتي في هذه اللغه

اتوقع انه عليك رسمه من خلال ال +GDI اذا لم يكن لديك مكتبه لذلك.

اما عن الحفض فيمكنع كذلك الرسم على bitmap ثم رسم هذه ال bitmap على ال picture box ومن ثمه حفضها باي صيغه image مدعومه

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

اخي شوف الروابط التاليه

http://neodynamic.com/ND/FaqsTipsTricks.aspx?tabid=66&prodid=0&sid=98

http://www.barcodelib.com/vb_net/

http://www.dlsoft.com/barcodes_in/barcodes_in_VBNET.htm

VB Helper كتب:

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

اخي شوف الروابط التاليه

http://neodynamic.com/ND/FaqsTipsTricks.aspx?tabid=66&prodid=0&sid=98

http://www.barcodelib.com/vb_net/

http://www.dlsoft.com/barcodes_in/barcodes_in_VBNET.htm

بارك الله فيك اخي

انا اريد فعل هذا دون مكتبات

فقط تيكست بوكس وبيكتشر مع امكانية الحفظ

جزاك الله خيرا علي مساعدتك

Ali Al-Zyoud كتب:

اتوقع انه عليك رسمه من خلال ال +GDI اذا لم يكن لديك مكتبه لذلك.

اما عن الحفض فيمكنع كذلك الرسم على bitmap ثم رسم هذه ال bitmap على ال picture box ومن ثمه حفضها باي صيغه image مدعومه

جزاك الله خيرا استازي الفاضل

هل اطمع منك في مثال عن الرسم على bitmap وكيفية الحفظ

هذا المثال ان شاء الله يحل مشكلتي بالكامل

في انتظارك استاذي

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      Dim pictureBox1 As PictureBox
      pictureBox1 = New PictureBox()
      pictureBox1.Size = Me.Size
      pictureBox1.Location = New Point(0, 0)
      bmp = New Bitmap(pictureBox1.Width, pictureBox1.Height)

      pictureBox1.Image = bmp

      Me.Controls.Add(pictureBox1)

      Dim g As Graphics
      g = Graphics.FromImage(bmp)
      g.Clear(Color.Yellow)
      Dim pen As Pen
      pen = New Pen(Color.Blue)
      g.DrawLine(pen, New Point(0, 0), New Point(100, 100))
      g.DrawLine(pen, New Point(100, 0), New Point(0, 100))
      pen.Dispose()
   End Sub

هذا الكود يوضح الفكره

هناك طريقة اسهل بكتير من تصميم ليبل الباركود من خلال Picture box

يوجد برامج كثيرة تقوم بتصميم ليبل الباركو كود وتحفظة علي القرص الصلب كصورة هذا سيوفر عليك عناء التصميم بعد ذلك يمكنك حفظ الصورة داخل قاعده البيانات كـ Binary Data

محمد فؤاد تركي كتب:

هناك طريقة اسهل بكتير من تصميم ليبل الباركود من خلال Picture box

يوجد برامج كثيرة تقوم بتصميم ليبل الباركو كود وتحفظة علي القرص الصلب كصورة هذا سيوفر عليك عناء التصميم بعد ذلك يمكنك حفظ الصورة داخل قاعده البيانات كـ Binary Data

شكرا لك استاذي علي اهتمامك

انا اريد ان اصمم الليبل من داخل برنامجي بالكود

Ali Al-Zyoud كتب:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      Dim pictureBox1 As PictureBox
      pictureBox1 = New PictureBox()
      pictureBox1.Size = Me.Size
      pictureBox1.Location = New Point(0, 0)
      bmp = New Bitmap(pictureBox1.Width, pictureBox1.Height)

      pictureBox1.Image = bmp

      Me.Controls.Add(pictureBox1)

      Dim g As Graphics
      g = Graphics.FromImage(bmp)
      g.Clear(Color.Yellow)
      Dim pen As Pen
      pen = New Pen(Color.Blue)
      g.DrawLine(pen, New Point(0, 0), New Point(100, 100))
      g.DrawLine(pen, New Point(100, 0), New Point(0, 100))
      pen.Dispose()
   End Sub

هذا الكود يوضح الفكره

والله اخجلتني بكرمك استاذي

ربنا يبارك فيك ويزيدك علم

قمت بتنفيذ الكود والحمد لله تم انشاء الباركود كما اريد

يتبقي ان احفظ الصوره

هل يوجد كود يقوم بحفظ الصوره من داخل البيكتشر بوكس

ولكن بجوده عاليه حتي يتعرف عليها الاسكانر

ولك جزيل الشكر اخي الحبيب

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

اخي جرب الكود التالي للحفظ

Picture1.Image.Save("Barcode.jpg")

VB Helper كتب:

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

اخي جرب الكود التالي للحفظ

Picture1.Image.Save("Barcode.jpg")

جزاك الله خيرا استاذي

تم الحفظ بنجاح ولكن عند تحميل الصوره في vb6

لا يتم قبولها ولا اعرف السبب هل يمكن حل هذه النقطه

ربنا يجعلها في ميزان حسناتكم

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

اخي كيف لا يتم قبولها؟!! اما اذا في شيء متعلق بفيجوال بيسك 6 انصح بوضعه في المنتدى الخاص به

الكود دوت نت اخي

ولكني اقوم بتجربة الصور علي برنامج مصمم ب vb6

للتأكد من ان الصور يتم قرائتها علي الاسكانر

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

اخي ممكن تقول لي كيف لم يتم قبول الصورة؟

اولا اخي ربنا يجزيكم كل خير فأنتم قدمتم لي اكود احتاجها جدا

انا ابحث عن هذه الاكواد منذ اكثر من 10 ايام دون نتيجه

كما اوضحت لك انا اتأكد ان الصوره التي ينتجها برنامجي يتم قراءتها بواسطه برنامج

مصمم ب vb6 عند محاولتي وضع الصوره في البيكتشر بوكس تظهر هذه الرساله

حقيقتاً لا اعلم ما انواع الصور التي يدعمها ال vb6 ولكن اتوقع ان تعمل مع الصور بأمتداد bmp على اي نظام اليك المثال التالي

 pictureBox1.Image.Save("1.bmp", System.Drawing.Imaging.ImageFormat.Bmp)

كذلك تأكد تماماً من مكان الحفظ واكتب ال extension مع اسم الصوره

وقد تعمل مع formats اخرى تجرب انوع اخرى مع تغيير ال format وكذلك ال extension

جزاكم الله خير اساتذتي الكرام

ربنا يزيدكم علم

كلمات الشكر تعجز عن اعطائكم حقكم