تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] تصميم تجميعة لسورة الاخلاص ( تلاوة.فيديوهات.فلاشات. تفسير. ترجمة )
#1
السلام عليكم
ممكن نستعمل vb في انشاء تجميعات تربوية او تعليمية او شروحات معينة

في المثال الثالي سنصمم تجميعة حول موضوع سورة الاخلاص
نجمع فيه :
تلاوات المشايخ 
فيدوهات لتفسير السورة 
فلاشات تعليمية
تفاسير مختلفة 
ترجمة للسورة  منعدة لغات 

الان سنستعمل 5 من الكومبوكس
بحيث كل كومبوكس سيحتوي  اسماء ملفات كل مجلد اعني الفلاشات و و و 

لذلك نستعمل الكود هذا لمل كل كومبوكس

PHP كود :
 ' القراء
        For Each Mfile In IO.Directory.GetFiles(Application.StartupPath & "\mp3")
            Dim type As New IO.FileInfo(Mfile)
            lst_mp3aya.Add(Mfile)
            Dim nn = Mid(type.Name, 1, type.Name.Length - 4)
            ComboBox1.Items.Add(nn)
        Next

        ' 
صور القراء
        For Each Mimg In IO
.Directory.GetFiles(Application.StartupPath "\photos")
 
           Dim type As New IO.FileInfo(Mimg)
 
           Dim nnr Mid(type.Nametype.Name.Length 2type.Name.Length)
 
           If nnr "jpg" Then
                lst_ImageChyoukh
.Add(Mimg)
 
           End If
 
       Next

        
'فيدوهات
        For Each Mfile In IO.Directory.GetFiles(Application.StartupPath & "\Videos")
            Dim type As New IO.FileInfo(Mfile)
            lst_video.Add(Mfile)
            Dim nn = Mid(type.Name, 1, type.Name.Length - 4)
            ComboBox2.Items.Add(nn)
        Next

        ' 
فلاشات
        For Each Mfile In IO
.Directory.GetFiles(Application.StartupPath "\Flash")
 
           Dim type As New IO.FileInfo(Mfile)
 
           lst_Flach.Add(Mfile)
 
           Dim nn Mid(type.Name1type.Name.Length 4)
 
           ComboBox3.Items.Add(nn)
 
       Next


        
' تفاسير
        For Each Mfile In IO.Directory.GetFiles(Application.StartupPath & "\Tafsir")
            Dim type As New IO.FileInfo(Mfile)
            lst_Tafasir.Add(Mfile)
            Dim nn = Mid(type.Name, 1, type.Name.Length - 4)
            ComboBox4.Items.Add(nn)
        Next


        ' 
ترجمات
        For Each Mfile In IO
.Directory.GetFiles(Application.StartupPath "\trjama")
 
           Dim type As New IO.FileInfo(Mfile)
 
           lst_Tarajom.Add(Mfile)
 
           Dim nn Mid(type.Name1type.Name.Length 4)
 
           ComboBox5.Items.Add(nn)
 
       Next 

يعني شرط الملفات تكون في مجلد bin

 في كل مرة نسجل روابط الملفات في مصفوفات و نستدعيها لقرائتها

الان في صفحة العمل نضع صورة لعرض القراء تظهر فقط مع الكومبوكس الاول

ميدا بلاير يكون صغيرا في العرض لاستماع التلاوة


ثم يزيد في كوموكس الفيدوهات

في الفلاش نستعمل قارئ الفلاش 

في التفاسير و التراجم اعتمدنا عنصر الويب

بسبب الخط  الصيني ...الخ

الشكل النهائي للعمل





الان مع لملف المفتوح للعمل


.rar   sorat_Ikhlias.rar (الحجم : 542.65 ك ب / التحميلات : 14)



وهو فارغ من الملفات ( من اجل الحجم )

حمل الملفات التالية 
http://www.mediafire.com/file/l9zlk98qedozjjg/Ikhlas.rar/file

و ضعها في مجلد \bin\Debug


 بالتوفيق

سؤال في الموضوع

كيف اسكت الفلاش عند اختيار مثلا تفسير او تلاوة

رغم انني استعملت

flash.stop()
 لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
الرد
تم الشكر بواسطة: asemshahen5 , Anas Mahmoud , Anas Mahmoud


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] تصميم برنامج ميثاق فلسطين عبد الهادي بهاب 0 111 17-09-20, 01:40 AM
آخر رد: عبد الهادي بهاب
Wink [مشروع] مشروع تصميم فورم بشكل جديد بالفيجوال ستوديو مع السورس كود ahmadpal 5 1,057 15-09-20, 04:56 PM
آخر رد: Ali 2020
  [مشروع] تصميم برنامج تعليمي للاطفال ... الحساب الذهني Calcul Mental عبد الهادي بهاب 0 82 12-09-20, 09:12 PM
آخر رد: عبد الهادي بهاب
  [مشروع] تصميم برنامج تعليمي مراجعة تفاعلية لعلمية الجمع عبد الهادي بهاب 4 228 11-09-20, 01:01 AM
آخر رد: عبد الهادي بهاب
  [مشروع] تصميم برنامج تعليمي للاطفال ..المقارنة بين الاطوال عبد الهادي بهاب 1 154 10-09-20, 05:03 PM
آخر رد: عبد الهادي بهاب
  [مشروع] تصميم برنامح تعليمي للاطفال ...رتب كلمات الجملة ( سحب الكلمة ) عبد الهادي بهاب 0 115 07-09-20, 12:52 AM
آخر رد: عبد الهادي بهاب
  [مشروع] تصميم لعبة السلم و الافعى عبد الهادي بهاب 0 107 05-09-20, 07:04 PM
آخر رد: عبد الهادي بهاب
  تصميم برنامج صانع الشهادات التقديرية عبد الهادي بهاب 0 124 05-09-20, 06:17 PM
آخر رد: عبد الهادي بهاب
  [مشروع] تصميم لعبة المربعات squaresgame عبد الهادي بهاب 0 111 04-09-20, 02:13 PM
آخر رد: عبد الهادي بهاب
  [مشروع] تصميم لعبة الدبناصور لمتصفح كروم T- rex runner عبد الهادي بهاب 0 129 03-09-20, 04:09 AM
آخر رد: عبد الهادي بهاب

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


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