الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

بدأه ثعلب البرمجه في 20 يوليو 2011 · 14 رد · 1,212 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

#4
VB Helper كتب:

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

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

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

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

Ali Al-Zyoud كتب:

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

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

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

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

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

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

#5
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

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

#6

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

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

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#7
محمد فؤاد تركي كتب:

هناك طريقة اسهل بكتير من تصميم ليبل الباركود من خلال 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

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

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

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

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

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

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

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

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

#8

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

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

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

.:: Wish to become better and better ::.

#9
VB Helper كتب:

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

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

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

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

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

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

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

#10

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

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

.:: Wish to become better and better ::.

#11

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

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

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

#12

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

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

.:: Wish to become better and better ::.

#13

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

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

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

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

166951226.jpg

#14

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

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

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

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

1
#15

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

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

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

1

مواضيع مشابهة