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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مثال بسيط عن كيفية عمل برنامج المصحف كمثال موقع [ quran.ksu.edu.sa ] elgokr 10 1,801 01-02-20, 09:35 PM
آخر رد: egypt 2020
  [مشروع] اضافة وعرض اى نوع من الملفات داخل قاعدة بيانات SQL elgokr 6 1,418 21-01-20, 08:55 PM
آخر رد: abubasilIraq
  وسائل البحث في قاعدة بيانات sql server العتيق 0 209 19-01-20, 01:36 AM
آخر رد: العتيق
  اضافة وحذف وتعديل البيانات في datagridview بدون قاعدة بيانات ggtt17121985 0 276 10-12-19, 01:32 AM
آخر رد: ggtt17121985
  سحب البيانات من قاعدة بيانات أكسيس access وعرضها في أداة Combobox مع عدم تكرار البيان ggtt17121985 1 317 25-11-19, 05:39 PM
آخر رد: asemshahen5
  ابسط مثال للتصاريح سعود 44 18,232 25-11-19, 01:06 AM
آخر رد: EMADSSS
  مثال لانشاء برنامج تجريبي او جعل البرنامج الخاص بك نسخة تجريبية ahmadpal 5 992 06-11-19, 01:58 PM
آخر رد: nasrey1987
Video [مشروع] لعبة إختبر معلوماتك [أسئلة عشوائية]+[قاعدة بيانات xml] + [تأثيرات صوتية] عبدالله الدوسري 6 2,431 27-10-19, 05:05 PM
آخر رد: m7mood3toom
  [VB.NET] مثال على بحث الملفات في نظام الوندوز 3booody 3 369 27-10-19, 02:04 AM
آخر رد: 3booody
  [مثال] مثال لنسخ وإستعادة قاعدة البيانات ( تحديث) نسخ تلقائي للقاعدة حسب اليوم والساعة جميل علي 75 21,229 24-10-19, 03:47 PM
آخر رد: nouribenyahia

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


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