[VanToM]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
إخواني الكرام
أريد عمل برنامج قرآن كريم بدون إنترنت
ويكون بعدة قراء
بحيث إني أختار الشيخ ثم أختر السورة فيتم قرأتها بصوت الشيخ
انا يمكنني عمل البرنامج بحمد لله ولكن بصوت شيخ واحد
فكيف يمكنني جعله متعدد الشيوخ ؟؟؟؟:confused:

[Easy4ever]

لنفرض انك وضعت كل قارئ في مجلد مستقل وليكن لدينا اثنان
الأول الشيخ عبدالرحمن السديس اسم المجلد Sudais
والثاني الشيخ عبدالباسط اسم المجلد Abdalbasit

الأن في البرنامج ضع اسماء الشيوخ في ComboBox
وأجعل عند أختيار اسم يقوم بتخزين اسم المجلد المقابل له مثال على هذا

عرف متغير بالأعلى من نوع نص وليكن NameFile

كود :

[SIZE=4]Dim NameFile As String[/SIZE]

في حدث SelectedIndexChanged لـ أداة ComboBox1
أكتب الكود التالي

كود :

[SIZE=4]If ComboBox1.Text = "عبدالرحمن السديس" Then

NameFile = "Sudais"

ElseIf ComboBox1.Text = "عبدالباسط" Then

NameFile = "Abdalbasit"

End If[/SIZE]

وبالتالي مسار سورة الفاتحة ستكون كتالي

كود :

[SIZE=4]Application.StartupPath & "\" & Namefile & "\Al_Fatiha.mp3"[/SIZE]

سواء كان للقارئ الشيخ عبدالرحمن السديس أو الشيخ عبدالباسط

[VanToM]

Easy 4ever كتب :لنفرض انك وضعت كل قارء في مجلد مستقل وليكن لدينا اثنان
الأول الشيخ عبدالرحمن السديس اسم المجلد Sudais
والثاني الشيخ عبدالباسط اسم المجلد Abdalbasit

الأن في البرنامج ضع اسماء الشيوخ في ComboBox
وأجعل عند أختيار اسم يقوم بتخزين اسم المجلد المقابل له مثال على هذا

عرف متغير بالأعلى من نوع نص وليكن NameFile

كود :

[SIZE=4]Dim NameFile As String[/SIZE]

في حدث SelectedIndexChanged لـ أداة ComboBox1
أكتب الكود التالي

كود :

[SIZE=4]If ComboBox1.Text = "عبدالرحمن السديس" Then

NameFile = "Sudais"

ElseIf ComboBox1.Text = "عبدالباسط" Then

NameFile = "Abdalbasit"

End If[/SIZE]

وبالتالي مسار سورة الفاتحة ستكون كتالي

كود :

[SIZE=4]Application.StartupPath & "\" & Namefile & "\Al_Fatiha.mp3"[/SIZE]

سواء كان للقارئ الشيخ عبدالرحمن السديد أو الشيخ عبدالباسط

ممكن مثال اخي الكريم ؟
سوي برنامج واعطيني المشروع

[Easy4ever]

~ المثال بالمرفق ~

[3amo]

بارك الله فيك وزادك من علمه وجعله في ميزان حسناتك

[Easy4ever]

3amo كتب :بارك الله فيك وزادك من علمه وجعله في ميزان حسناتك

أجمعين آمين

[VanToM]

Easy 4ever كتب :أجمعين آمين

أشكرك اخي الكريم
ربي يجعله في ميزان حسناتك