منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - تصميم تجميعة لسورة الاخلاص ( تلاوة.فيديوهات.فلاشات. تفسير. ترجمة )

السلام عليكم
ممكن نستعمل 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.Name, type.Name.Length - 2, type.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.Name, 1, type.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.Name, 1, type.Name.Length - 4)
            ComboBox5.Items.Add(nn)
        Next 

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

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

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

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

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

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

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

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

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

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

[attachment=25570]

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

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

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

بالتوفيق

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

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

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

flash.stop()

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

عبد الهادي بهاب