إستفتاء : هل الموضوع مفيد ؟
نعم الموضوع مفيد وفكرة جديدة .
نعم الموضوع مفيد .
الموضوع غير مفيد .
[عرض النتائج]
 
 
تقييم الموضوع :
  • 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 ك ب / التحميلات : 17)

اكملت المشروع مع التنسيق 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشروع تعدد لغات للبرنامج من قاعدة بيانات MsAccess asemshahen5 2 570 30-03-20, 05:20 PM
آخر رد: Hanyvedio
Wink [مشروع] انشاء فورم تسجيل وتسجيل دخول باستخدام قاعدة بيانات فايربيس بالفيجوال ستوديو vb. net ahmadpal 0 48 30-03-20, 04:32 AM
آخر رد: ahmadpal
  انشاء برنامج يقوم بتخزين البيانات في قاعدة بيانات اون لاين فاير بيس vb.net ahmadpal 0 68 29-03-20, 07:08 PM
آخر رد: ahmadpal
  مثال عن الباركود asemshahen5 20 2,698 22-03-20, 07:05 PM
آخر رد: asemshahen5
  ياشباب ازاي استخدام ملف xmlكقاعده بيانات ؟؟ modywassemmody 0 66 17-03-20, 02:25 PM
آخر رد: modywassemmody
  [مثال] قراءة بيانات ملف نصي في الليست بوكس والبحث داخلها والحفظ سعود الشامان 1 806 08-03-20, 05:46 PM
آخر رد: وعد مولود
Smile [VB.NET] {تم التعديل}مثال حول استخدام مكتبات جوجل درايف معاند الحظ 2 145 07-03-20, 01:47 PM
آخر رد: معاند الحظ
  مطلوب مثال لعمل جرد بالبار كود new_programer 3 172 07-03-20, 01:03 AM
آخر رد: asemshahen5
  الربط مع قاعدة بيانات Sql server مع اضافة ازارار حفظ والحذف وازرار التنقل ggtt17121985 0 132 04-03-20, 10:03 PM
آخر رد: ggtt17121985
  [VB.NET] مثال بسيط عن كيفية عمل برنامج المصحف كمثال موقع [ quran.ksu.edu.sa ] elgokr 10 1,997 01-02-20, 09:35 PM
آخر رد: egypt 2020

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


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