تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
برنامج لصنع صور متحركة بصيغة gif
#1
السلام عليكم إخواني الكرام
كيف حالكم ؟

هذا الموضوع ملك للأستاذ Mohammed Asaad وقد طلبت منه أن أنقل مشاركاته ووافق بحمد اللهSmile

السلام عليكم ورحمة الله وبركاته
في هذا البرنامج نقوم بصنع صورة بصيغة GIF باستخدام مكتبة وجدتها في أحد المواقع وهىGif.Components.dll
لعمل البرنامج يجب استدعاء المكتبة ووضعتها في المسار \bin\debug

ووضعت لكم الكود مع الشرح
   
رمز برمجي:
   
كود :
'يجب استدعاء المجالات التالية
Imports System
Imports System.Drawing
Imports System.Drawing.Imaging
Imports Gif.Components



Public Class MainForm



   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'تعيين أنواع الملفات التي يمكن فتحها
       openDialog.Filter = "كل الملفات |*png;*bmp;*jpg"

       If openDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
            'في حال تحقق شرط ضغط الزر OK يتم أضافة مكان الصورة إلى القائمة
           lstPictures.Items.Add(openDialog.FileName)


       End If

   End Sub




   Private Sub lstPictures_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstPictures.Click
        'عند الضغط على أي مسار يتم عرض الصورة في الخانة الأولى
       picFrame.ImageLocation = lstPictures.SelectedItem
   End Sub


   Private Sub lstPictures_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstPictures.SelectedIndexChanged
        'عند الضغط على أي مسار يتم عرض الصورة في الخانة الأولى
       picFrame.ImageLocation = lstPictures.SelectedItem
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'الملف TestImage سيتم جعله منصة التجربة ليتم حفظ الصورة بداخله
       Dim TestImage As String = Application.StartupPath & "\test.gif"
        'الأداة AnimatedGifEncoder تجدونها داخل المكتبة GIF التي قمنا باضافتها للمراجع
       Dim GifEncoder As New AnimatedGifEncoder()
        'يتم حفظ الصورة القديمة
       Kill(TestImage)
        'نخبر الأداة ببداية عملها بتحديد مسار الملف التجربة
       GifEncoder.Start(TestImage)
        'هنا يتم تحديد الوقت الفاصل بين كل إطارين
       GifEncoder.SetDelay(updownDelay.Value * 1000)
       GifEncoder.SetRepeat(0)

        'نصنع هنا حلقة يتم فيها إضافة الأطر واحدا واحدا بمساعدة الأداة إلى ملف TestImage
       Dim i As Integer
       For i = 0 To lstPictures.Items.Count - 1 Step 1
           GifEncoder.AddFrame(Image.FromFile(lstPictures.Items.Item(i)))
       Next
        'نخبر الأداة بانتهاء عملها في عملية التحويل
       GifEncoder.Finish()
        'هنا نعرض نتيجة التحويل
       picGIF.ImageLocation = TestImage



   End Sub

   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        'في هذا الحدث يتم حفظ الصورة التي قمنا بصنعها في أي مكان نريد باستخدام SaveFileDialog ونقوم فقط بنسخ الصورة التجريبية ولا تلزم عملية التحويل مرة أخرى
       Dim TestImage As String = Application.StartupPath & "\test.gif"
       saveDialog.Filter = "GIF |*.gif"

       If saveDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
           FileCopy(TestImage, saveDialog.FileName)

       End If
   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'اغلاق البرنامج
       Me.Close()
   End Sub
End Class



والبرنامج وضعته في المرفقات
واي استفسار أنا جاهز


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 65.6 ك ب / التحميلات : 74)
اللَّهُمَّ أَنْتَ رَبِّي ، لا إِلَه إِلاَّ أَنْتَ خَلَقْتَني وأَنَا عَبْدُكَ ، وأَنَا على عهْدِكَ ووعْدِكَ ما اسْتَطَعْتُ ، أَعُوذُ بِكَ مِنْ شَرِّ ما صنَعْتُ ، أَبوءُ لَكَ بِنِعْمتِكَ علَيَ ، وأَبُوءُ بذَنْبي فَاغْفِرْ لي ، فَإِنَّهُ لا يغْفِرُ الذُّنُوبِ إِلاَّ أَنْتَ .
الرد }}}}
تم الشكر بواسطة: ربيع , Amir_alzubidy
#2
السلام عليكم اخي العزيز

بارك الله فيك وجزاك خيراSmile
الرد }}}}
تم الشكر بواسطة:
#3
sajad كتب :السلام عليكم اخي العزيز

بارك الله فيك وجزاك خيراSmile

وعليكم السلام
يعطيك العافية أخي الكريم
أنا لا أستحق الشكر " فقد نقلت الموضوع فقط " :d
تحياتي لك
اللَّهُمَّ أَنْتَ رَبِّي ، لا إِلَه إِلاَّ أَنْتَ خَلَقْتَني وأَنَا عَبْدُكَ ، وأَنَا على عهْدِكَ ووعْدِكَ ما اسْتَطَعْتُ ، أَعُوذُ بِكَ مِنْ شَرِّ ما صنَعْتُ ، أَبوءُ لَكَ بِنِعْمتِكَ علَيَ ، وأَبُوءُ بذَنْبي فَاغْفِرْ لي ، فَإِنَّهُ لا يغْفِرُ الذُّنُوبِ إِلاَّ أَنْتَ .
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy
#4
بارك الله فيك اخي الكريم
الرد }}}}
تم الشكر بواسطة:
#5
بارك الله فيك اخي Omar Mekkawy ولاخ Mohammed Asaad
اذا كنت تسير في خطة الامس <> ستصل في المستقبل الى اليوم
الرد }}}}
تم الشكر بواسطة:
#6
بارك الله فيك اخي
الرد }}}}
تم الشكر بواسطة:
#7
السلام عليكم ورحمة الله وبركاته
جزاك الله خيرا أخي الكريم
وزادك من علمه

بالتوفيق
الرد }}}}
تم الشكر بواسطة:
#8
جزاك الله خيرا
الرد }}}}
تم الشكر بواسطة:
#9
ياليت المرفق مرة اخرى
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#10
السلام عليكم

تم

يعطيك العافية
شـــايـفـــك

الرد }}}}
تم الشكر بواسطة: سعود , Omar Mekkawy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برنامج القرآن الكريم مفتوح المصدر لغة فيجوال بيسك دوت نت 2008 مدينة الحبيب 8 1,515 27-11-16, 01:27 AM
آخر رد: طارق عوض
  [VB.NET] برنامج القرآن الكريم مفتوح المصدر ahmed4240 0 65 10-11-16, 12:34 AM
آخر رد: ahmed4240
  برنامج شئون الموظفين - بيتا 1 العزابي 13 7,036 23-07-16, 11:02 PM
آخر رد: الوادي
  نصوص الإتصال بأغلب قواعد البيانات مجمعة في برنامج واحد [vb.2008] kslawy 12 2,684 09-06-16, 05:05 PM
آخر رد: samihsaad_22
  برنامج إشعارات - لإشعارك بالمواضيع والمشاركات الجديدة في هذا القسم sooriaty03 15 2,175 24-11-15, 10:00 AM
آخر رد: qqqqq1972
  برنامج تحميل من صنعى (Download Manager) mostafa.vb 3 1,144 09-09-15, 05:51 AM
آخر رد: midosafwat
  برنامج مشغل الموسيقى الاصدار الثانى بعد حل المشكلات وباضافات جديده ومتميزه هتنبهروا !! elmobde3 10 1,775 06-09-15, 01:57 AM
آخر رد: abo_ramas
  [VB.NET] شرح كيفية عمل برنامج تشفير بخوارزمية base64 alking-0999 4 823 07-07-15, 03:18 PM
آخر رد: abulayth
  برنامج الشامل لجرد السكاني ضمن محلة الدريساوي 6 1,921 07-05-15, 10:21 PM
آخر رد: كريستا
  [برنامج سورس كود] برنامج CodeConverter مبرمج بلا حدود 10 3,530 04-02-15, 03:39 PM
آخر رد: h5ha

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


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