تقييم الموضوع :
  • 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 ك ب / التحميلات : 167)
اللَّهُمَّ أَنْتَ رَبِّي ، لا إِلَه إِلاَّ أَنْتَ خَلَقْتَني وأَنَا عَبْدُكَ ، وأَنَا على عهْدِكَ ووعْدِكَ ما اسْتَطَعْتُ ، أَعُوذُ بِكَ مِنْ شَرِّ ما صنَعْتُ ، أَبوءُ لَكَ بِنِعْمتِكَ علَيَ ، وأَبُوءُ بذَنْبي فَاغْفِرْ لي ، فَإِنَّهُ لا يغْفِرُ الذُّنُوبِ إِلاَّ أَنْتَ .
الرد }}}
تم الشكر بواسطة: ربيع , Amir_Alzubidy
#2
السلام عليكم اخي العزيز

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

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

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

بالتوفيق
الرد }}}
تم الشكر بواسطة:
#8
جزاك الله خيرا
الرد }}}
تم الشكر بواسطة:
#9
ياليت المرفق مرة اخرى
الرد }}}
تم الشكر بواسطة:
#10
السلام عليكم

تم

يعطيك العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Star برنامج إدارة المشتركين لأصحاب الشبكات BroadBand CRM Manager waataanys 0 873 29-04-23, 07:56 PM
آخر رد: waataanys
  برنامج شئون الموظفين - بيتا 1 العزابي 15 26,978 10-04-22, 11:22 PM
آخر رد: بديع بوحلو
  برنامج أوقات الصلاة FFF 7 6,530 30-07-20, 07:23 PM
آخر رد: المعترس
  برنامج القرآن الكريم مفتوح المصدر لغة فيجوال بيسك دوت نت 2008 مدينة الحبيب 10 9,854 30-07-20, 07:18 PM
آخر رد: المعترس
  برنامج صنع الأيقونات بجميع المميزات Osama_Ghareeb 6 7,031 12-04-20, 02:08 PM
آخر رد: الجوال
  برنامج مشغل الموسيقى الاصدار الثانى بعد حل المشكلات وباضافات جديده ومتميزه هتنبهروا !! elmobde3 11 8,102 21-10-19, 08:36 AM
آخر رد: sdbalushi
  برنامج تحميل من صنعى (Download Manager) mostafa.vb 4 5,291 05-02-18, 09:39 PM
آخر رد: anoname
  برنامج معرفة رابط الصفحة المفتوحة بمتصفحات الإنترنت [Vb.2008] kslawy 2 3,350 20-01-18, 04:59 PM
آخر رد: YousefOkasha
  برنامج دمج لونين لخلفيات البرامج rinawi 2 3,814 17-06-17, 04:03 AM
آخر رد: حمادة دراز
  [VB.NET] برنامج القرآن الكريم مفتوح المصدر ahmed4240 0 3,485 10-11-16, 12:34 AM
آخر رد: ahmed4240

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


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