أستغفر الله العظيم ... سبحان الله وبحمده



العودة   منتديات داماس > برامج الكمبيوتر والانترنت > برامج


مواضيع مميزة  


آخر عشرة مواضيع المواضيع النشطة


03-12-2010, 09:46 PM
chronoservices غير متصل
عضو جديد
رقم العضوية: 357094
تاريخ التسجيل: Dec 2010
المشاركات: 2
إعجاب: 0
تلقى 0 إعجاب على 0 مشاركة
تلقى دعوات الى: 0 موضوع
    #17  

كيفية عمل أسطوانة للقرآن الكريم قرأت في هذا ولم يشرح جيدا أكواد مما جعلني أجد صعوبة ممكن شرح بتفصيل أحي جزاك اله الف خير



و اله لا يضيع أجر المحسنين

03-12-2010, 10:32 PM
ابو منصر العمودى غير متصل
الوسـام الماسـي
رقم العضوية: 90874
تاريخ التسجيل: Jul 2007
المشاركات: 21,142
إعجاب: 4,795
تلقى 11,135 إعجاب على 1,410 مشاركة
تلقى دعوات الى: 2070 موضوع
    #18  

شكرالك اخى الكريم وبارك الله فيك


03-12-2010, 11:34 PM
chronoservices غير متصل
عضو جديد
رقم العضوية: 357094
تاريخ التسجيل: Dec 2010
المشاركات: 2
إعجاب: 0
تلقى 0 إعجاب على 0 مشاركة
تلقى دعوات الى: 0 موضوع
    #19  



http://www.geek4arab.com/vb/showthread.php?t=264&page=8


لقد فعلت كل هذه المراحل ولكن لايعمل الصوت ماه الخطأ

الكود الي وضعته في liste box لسور القرأنية:


--كيفية الحصول على الكود السابق
-- إيجاد النص المكتوب في الكومبو بوكس
nSelect = ComboBox.GetText("ComboBox1");
-- إيجاد السور المحددة في اللست بوكس
Sura_Selected = ListBox.GetSelected("ListBox1");
--إيجاد الداتا للسورة المحددة
result = ListBox.GetItemData("ListBox1", Sura_Selected[1]);

-- ألآن نبدأ في الكود
if nSelect == "إختر المقرئ"then
--عرض رسالة خطأ إختر المقرئ من فضلك
Dialog.Message("","إختر المقرئ من فضلك");

elseif nSelect == "محمود خليل الحصري" then
-- تشغيل السورة الموافقة للداتا في مجلد الشيخ الحصري
MediaPlayer.Load("media_player", "AutoPlay\\Audio\\hossari\\"..result..". mp3");
--تشغيل صفحة الويب الموافقة للسورة المختارة
Web.LoadURL("Web1", "AutoPlay\\Docs\\"..result..".htm");

-- نقوم بنفس ما قمنا به مع الشيخ الحصري للشيوخ الآخرين
elseif nSelect == "عبدالباسط عبدالصمد" then
-- تشغيل السورة الموافقة للداتا في مجلد الشيخ
MediaPlayer.Load("media_player", "AutoPlay\\Audio\\basset\\"..result..".m p3");
--تشغيل صفحة الويب الموافقة للسورة المختارة
Web.LoadURL("Web1", "AutoPlay\\Docs\\"..result..".htm");

elseif nSelect == "محمد صديق المنشاوي"then
-- تشغيل السورة الموافقة للداتا في مجلد الشيخ
MediaPlayer.Load("media_player", "AutoPlay\\Audio\\menshawi\\"..result.." .mp3");
--تشغيل صفحة الويب الموافقة للسورة المختارة
Web.LoadURL("Web1", "AutoPlay\\Docs\\"..result..".htm");

-- وهكذا
end

الكود الموضوع في WMP plugin


-- السورة الموالية في اللست بوكس
nItemsInListBox = ListBox.GetCount("ListBox1");

if nItemsInListBox ~= 0 then
-- إيجاد العنصر والسورة المحددة
tSelected = ListBox.GetSelected("ListBox1");
sJustFinishFile = ListBox.GetItemData("ListBox1", tSelected[1]);
nFileIndex = ListBox.FindItem("ListBox1", -1, 1, sJustFinishFile);
nNextFileIndex = nFileIndex+1;

if nFileIndex == nItemsInListBox or nFileIndex > nItemsInListBox then
--nNextFileIndex > nItemsInListBox or -- this will select the 1st song of the PlayList when
-- the last file is finished
ListBox.SelectItem("ListBox1", 1);
sFileName = ListBox.GetItemData("ListBox1", 1);
else
-- تشغيل السورة الموالية
sFileName = ListBox.GetItemText("ListBox1", nNextFileIndex);
result = ListBox.GetItemData("ListBox1", nNextFileIndex);
ListBox.SelectItem("ListBox1", nNextFileIndex);
nSelect = ComboBox.GetText("ComboBox1");
if nSelect == "محمود خليل الحصري"then
MediaPlayer.Load("media_player", "AutoPlay\\Audio\\hossari\\"..result..". mp3");
elseif result == "عبدالباسط عبدالصمد" then
MediaPlayer.Load("media_player", "AutoPlay\\Audio\\basset\\"..result..".m p3");
elseif result == "محمد صديق المنشاوي" then
MediaPlayer.Load("media_player", "AutoPlay\\Audio\\menshawi\\"..result.." .mp3");
-- ويمكنك وضع المزيد من المقرئين هنا بنفس الطريقة
end
Web.LoadURL("Web1", "Autoplay\\Docs\\"..result..".htm");
end
end

05-12-2010, 11:52 AM
جلال3 غير متصل
عضو مميز
رقم العضوية: 50536
تاريخ التسجيل: Aug 2006
المشاركات: 314
إعجاب: 1
تلقى 5 إعجاب على 4 مشاركة
تلقى دعوات الى: 0 موضوع
    #25  

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

06-12-2010, 07:29 AM
ashrafkaood غير متصل
عضو فعال
رقم العضوية: 4053
تاريخ التسجيل: Jan 2004
المشاركات: 29
إعجاب: 1
تلقى 7 إعجاب على 2 مشاركة
تلقى دعوات الى: 0 موضوع
    #26  

بعد اذن صاحب الموضوع الجميل جزاه الله كل خير وجعله فى ميزان حسناته
واسكنه الله الفردوس الاعلى
رفعت لكم ملفين كانوا مفقودين وهما
1- ملف 005 (سورة المائدة) للشيخ عبدالباسط
2- ملف 067 (سورة الملك) للشيخ الشريم
خذ الملفين وضع كل واحد فى AutoPlay - Audio-عبد الباسط الملف رقم 005
والاخر فى الشريم
تجد ان شاء الله كل شىء تمام
وجزاه الله كل خير صاحب الموضوع
الملفين هم


http://www.mediafire.com/file/miezwjbb9auj84m/005.mp3


http://www.mediafire.com/file/h48786yhw3bhdc0/067.mp3


 


أغلى هديه "الموسوعة القرآنية بصوت ستة قراء صوت وصوره" من تصميمي

English

Powered by vBulletin® Version
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
The owner and operator of the site is not responsible for the availability of, or any content provided.
Topics that are written in the site reflect the opinion of the author.
جميع ما يُطرح من مواضيع ومشاركات تعبر عن رأي كاتبها ولا تعبر عن رأي مالك الموقع أو الإدارة بأي حال من الأحوال.