إستفتاء : هل الموضوع مفيد ؟
نعم الموضوع مفيد وفكرة جديدة .
نعم الموضوع مفيد .
الموضوع غير مفيد .
[عرض النتائج]
 
 
تقييم الموضوع :
  • 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 1 93 12-10-19, 01:55 AM
آخر رد: عبد العزيز البسكري
  مثال عن BackgroundWorker وحفظ معلومات الاتصال . asemshahen5 0 71 11-10-19, 02:06 PM
آخر رد: asemshahen5
  مثال عن الباركود asemshahen5 15 1,766 20-09-19, 01:54 AM
آخر رد: مصمم هاوي
Video [مشروع] لعبة إختبر معلوماتك [أسئلة عشوائية]+[قاعدة بيانات xml] + [تأثيرات صوتية] عبدالله الدوسري 5 1,901 04-09-19, 07:07 PM
آخر رد: أمجد وضاح
  [مشروع] مثال للعمل مع الـBackgroundWorker سعود 3 298 17-08-19, 06:20 PM
آخر رد: سعود
  [VB.NET] مشروع شاشة تسجيل دخول بقاعدة بيانات اكسس ammar2018 2 1,820 15-08-19, 08:27 PM
آخر رد: basheer
  [مثال] مثال لنسخ وإستعادة قاعدة البيانات ( تحديث) نسخ تلقائي للقاعدة حسب اليوم والساعة جميل علي 74 19,539 12-08-19, 12:20 PM
آخر رد: عماني939
  برنامج لنسخ البيانات من قاعدة بيانات اكسيس الي سيكوال Emam emam 1 171 09-08-19, 09:41 PM
آخر رد: asemshahen5
  مثال تغيير ثيم البرنامج وقت التشغيل honest 4 2,661 08-08-19, 06:01 AM
آخر رد: محمد كريّم
  مثال لانشاء برنامج تجريبي او جعل البرنامج الخاص بك نسخة تجريبية ahmadpal 4 415 07-08-19, 07:41 PM
آخر رد: ahmadpal

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


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