إستفتاء : هل الموضوع مفيد ؟
نعم الموضوع مفيد وفكرة جديدة .
نعم الموضوع مفيد .
الموضوع غير مفيد .
[عرض النتائج]
 
 
تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] مثال للتعامل مع ملف XML كقاعدة بيانات
#11
جزاك الله الف الف خير 

+1
الرد }}}
تم الشكر بواسطة: elgokr , elgokr , ابراهيم ايبو
#12
بارك اله فيك   وجعلة الله في ميزان حسناتك -- وجاري العمل على المشروع لتحويله الى 2010 ان شاء الله.
Dim x As Integer
        For x = 1 To 100         
   ("الْحَمْدُ لِلَّهِ رَبِّ الْعَالَمِينَ")MsgBox
   Next x
الرد }}}
تم الشكر بواسطة: elgokr , ابراهيم ايبو , ابراهيم ايبو
#13
السلام عليكم .. 

واجهتني بعض الاخطاء الصغيرة وهي



كود :
imgstr = ImageToString(PictureBox1.Image)



----------------------------------------------------------------------------------------------------------------------------------






وجدت ما الخطا هنا لقد قمت بوضع كود (Function) الذي في الاسفل في كلاس جديد (Class1) وعند نقل هذا الفنكشن الي نفس الفورم وهو فورم 1 اختفت المشكلة...^^!  Big Grin

كود :
'كود تحويل الصورة إلى سلسلة نصية base64 والعكس :

   Private Function ImageToString(img As Image) As String
       Dim m As New MemoryStream()
       img.Save(m, System.Drawing.Imaging.ImageFormat.Jpeg)
       Return Convert.ToBase64String(m.ToArray())
   End Function

   Private Function StringToImage(imgstring As String) As Image
       Dim imgbytes As Byte() = Convert.FromBase64String(imgstring)
       Dim m As New MemoryStream(imgbytes)
       Return Image.FromStream(m)
   End Function
---------------------------------------------------------------------------------------------------------------
تبقى هذه المشكلة الصغيرة 
كود :
imgstr = ImageToString(PictureBox1.Image)

           nod.ChildNodes(2).InnerText = imgstr

Dim x As Integer
        For x = 1 To 100         
   ("الْحَمْدُ لِلَّهِ رَبِّ الْعَالَمِينَ")MsgBox
   Next x
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#14
ضيف هذه الأسطر :

كود :
Private Function ImageToString(img As Image) As String
      Dim m As New MemoryStream()
      img.Save(m, System.Drawing.Imaging.ImageFormat.Jpeg)
      Return Convert.ToBase64String(m.ToArray())
  End Function

  Private Function StringToImage(imgstring As String) As Image
      Dim imgbytes As Byte() = Convert.FromBase64String(imgstring)
      Dim m As New MemoryStream(imgbytes)
      Return Image.FromStream(m)
  End Function

أيضا في اعلا الصفحة تعرف المتغير :


كود :
Dim imgstr As String = ""


   
يا رحمن الدنيا والآخرة ورحيمهما
الرد }}}
تم الشكر بواسطة: EYADISMAIL , elgokr , ابراهيم ايبو
#15
(08-03-19, 02:43 PM)حريف برمجة كتب : ضيف هذه الأسطر :

كود :
Private Function ImageToString(img As Image) As String
      Dim m As New MemoryStream()
      img.Save(m, System.Drawing.Imaging.ImageFormat.Jpeg)
      Return Convert.ToBase64String(m.ToArray())
  End Function

  Private Function StringToImage(imgstring As String) As Image
      Dim imgbytes As Byte() = Convert.FromBase64String(imgstring)
      Dim m As New MemoryStream(imgbytes)
      Return Image.FromStream(m)
  End Function

أيضا في اعلا الصفحة تعرف المتغير :


كود :
Dim imgstr As String = ""

تسلم يداك ---- بارك الله فيك .... Heart

المشروع مرفق المرحلة الاولي (اضافة - تعديل - حذف ) على الفيجوال بيسك 2010 --- والمرحلة الثانية جاري تتبع شرح مشرفنا وسيتم ارفاق المشروع كامل عند الانتهاء منه ان شاء الله
Dim x As Integer
        For x = 1 To 100         
   ("الْحَمْدُ لِلَّهِ رَبِّ الْعَالَمِينَ")MsgBox
   Next x
الرد }}}
تم الشكر بواسطة: حريف برمجة , elgokr , ابراهيم ايبو
#16
تم تنقيح مثالك أخي إياد إسماعيل وإكمال الناقص ووضعه في المشاركة الأولى ،،

شكراً وجزاك الله خير
يا رحمن الدنيا والآخرة ورحيمهما
الرد }}}
تم الشكر بواسطة: elgokr , ابراهيم ايبو , ابراهيم ايبو
#17
(08-03-19, 03:37 PM)حريف برمجة كتب : تم تنقيح مثالك أخي إياد إسماعيل وإكمال الناقص ووضعه في المشاركة الأولى ،،

شكراً وجزاك الله خير

بارك الله فيك ... وجزاك الله كل خير عني وعن الجميع ---  Heart
Dim x As Integer
        For x = 1 To 100         
   ("الْحَمْدُ لِلَّهِ رَبِّ الْعَالَمِينَ")MsgBox
   Next x
الرد }}}
تم الشكر بواسطة: elgokr , ابراهيم ايبو , ابراهيم ايبو
#18
السلام عليكم-- تحية لمشرفنا (حريف برمجة)

تحديث ( تم تعديل المشروع الان كما في شرح "حريف برمجة" 100%)

.rar   XMLApp - 2010--100%.rar (الحجم : 836.66 ك ب / التحميلات : 26)

اكملت المشروع مع التنسيق 98% مشكلة صغيره جدا وهي عدم ظهور الصورة في التقارير لا اعرف السبب قمت بمراجعة الخطوات على ما اعتقد تمام .. 

المشروع في المرفقات.... Heart



Dim x As Integer
        For x = 1 To 100         
   ("الْحَمْدُ لِلَّهِ رَبِّ الْعَالَمِينَ")MsgBox
   Next x
الرد }}}
تم الشكر بواسطة: elgokr , ابراهيم ايبو , ابراهيم ايبو
#19
(08-03-19, 06:10 PM)EYADISMAIL كتب :

الصورة موجوده وظاهرة ولكن في صفحة رقم 2 ،، صغّر الأعمدة أو قم بتعديل الهامش للتقرير كالتالي :

   

   
يا رحمن الدنيا والآخرة ورحيمهما
الرد }}}
تم الشكر بواسطة: EYADISMAIL , elgokr , elgokr , ابراهيم ايبو
#20
Heart 
فعلا "حريف برمجة"  Heart

تسلم يداك..   ..جعلك الله من الذين ينظرون إلى وجهه الكريم..
Dim x As Integer
        For x = 1 To 100         
   ("الْحَمْدُ لِلَّهِ رَبِّ الْعَالَمِينَ")MsgBox
   Next x
الرد }}}
تم الشكر بواسطة: elgokr , elgokr , ابراهيم ايبو , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  انشاء قاعدة بيانات اكسس بالكود Kamil 0 179 17-02-24, 10:43 PM
آخر رد: Kamil
  [مثال] مثال لنسخ وإستعادة قاعدة البيانات ( تحديث) نسخ تلقائي للقاعدة حسب اليوم والساعة جميل علي 81 48,103 10-02-24, 11:26 AM
آخر رد: محمد العموري
  طريقة سهلة للاتصال بقاعدة بيانات SQL مع اضافة ايقونات للتحكم في تدفق البيانات ggtt17121985 0 542 06-11-23, 10:16 AM
آخر رد: ggtt17121985
  مشروع تعدد لغات للبرنامج من قاعدة بيانات MsAccess asemshahen5 6 3,653 18-05-23, 03:39 AM
آخر رد: mohamed gida
Lightbulb عمل Attach و Detach و Backup و Restore لقاعدة بيانات MS Sql Server asemshahen5 19 8,873 19-03-23, 09:01 PM
آخر رد: atefkhalf2004
Photo [VB.NET] أحتاج مساعدتكم لطباعة بيانات الفورم في كرستال ربورت Sidiki 1 637 25-02-23, 08:36 PM
آخر رد: Taha Okla
Lightbulb خطوة خطوة بالكود كورس كامل للربط بين فيجوال بيسك دوت نت مع قاعدة بيانات MYSQL ggtt17121985 0 1,003 06-01-23, 09:04 AM
آخر رد: ggtt17121985
  مثال استيراد اى ملف اكسيل وتصدير البيانات الى ملف اكسيل new_programer 3 3,426 07-12-22, 12:19 PM
آخر رد: hoda299
Rainbow [مشروع] محول بيانات الانترنت محمد مسافر 0 704 14-11-22, 02:52 AM
آخر رد: محمد مسافر
Video [مشروع] لعبة إختبر معلوماتك [أسئلة عشوائية]+[قاعدة بيانات xml] + [تأثيرات صوتية] عبدالله الدوسري 12 18,081 30-10-22, 05:52 PM
آخر رد: ibra9009

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم