إعـــــــلان

عبد الهادي بهاب · 02-04-2020, 02:54 AM

السلام عليكم ورحمة الله وبركاته

مع خاصية جديدة وهي تتعلق بالصوتيات ..

قراءة صوتية او تلاوة كل الايات في النتائج

في الصفحة في الحدث OnAudio
نضيف هذا الكود

كود PHP:


if Audio.GetCurrentPos(CHANNEL_NARRATION) == Audio.GetLength(CHANNEL_NARRATION) then

Page.ClickObject("B_Next");

end

وهو ببساطة سيراقب تقدم الصوت لديك اي قراءة الاية لما ينتهي مباشرة هو سيفعلزر الصوت التالي وهو لا يعني بالضرورة الاية التالية في السورة لكن الاية التي في نتائج اليسبوكس
...........
لازم تفعل خاصية القراءة المتظامنة مع العرض في الاسفل
ستلاحظ لما ينتهي من قراءة الاية الاولى مباشرة سينطلق في قراءة الاية الموالية

وهو ما سيدقعنا الى التفكير في اضافة صفحة جديدة للمشروع وهي عرض الايات و السور

بالتوفيق

عبد الهادي بهاب · 02-04-2020, 03:57 AM

السلام عليكم ورحمة الله وبركاته
مع خاصية جديدة وهي

وضع مؤشر لتقدم الصوت اي قراءة القراءن

طبعا ممكن نستغني عن الاكواد كلها باستعمال قارئ الميديا بلاير
لكن ممكن نستفيد من مشاريع سابقة في الميدان مثل هذا المشروع

الملف المفتوح لهذا الدرس
http://www.mediafire.com/file/egdazj...Slide.apz/file

الان في اسفل زر استماع الاية اضف عنصر سلايد Slider
قبله و بعده اضف ليبال لعرض طول صوت الاية و من الجهة الاخرى سيظهر تقدم الاية .........

الان في زر الصوت امحو الموجود و استبدله بهذا الكود و هو المسؤول عن تحويل طول الاية الى ثواني و دقائق بينها نقطتين على شكل ساعة
ثم تشغيل التيمر المسؤول عن تقدم السلايدر اي التلاوة

كود PHP:


Audio.Stop(CHANNEL_NARRATION);

Raya =  ListBox.GetItemData("ListBox2", AudioAya);

Rsora = ListBox.GetItemText("ListBox2", AudioAya);

------------- name ayaettes -------------

if String.ToNumber(Rsora) < 10 then Rsora = "00"..Rsora;

elseif  String.ToNumber(Rsora) > 9 and String.ToNumber(Rsora) < 100 then Rsora = "0"..Rsora; 

elseif String.ToNumber(Rsora) > 99 then Rsora = ""..Rsora;

end



if String.ToNumber(Raya) < 10 then Raya = Rsora.."00"..Raya;

elseif  String.ToNumber(Raya) > 9 and String.ToNumber(Raya) < 100 then Raya = Rsora.."0"..Raya; 

elseif  String.ToNumber(Raya) > 99 then  Raya = Rsora..Raya; 

end



Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\quran\\"..Rsora.."\\"..Raya..".mp3", true);

MaxP = Audio.GetLength(CHANNEL_NARRATION);

Slider.SetRange("Plu_Audio", 0, MaxP);

function Au()

    local nPosT = MaxP

    local nPosT = Math.Round(nPosT, 0);

    local sSecT = Math.Mod(nPosT, 60)

    local nStr = String.Length(sSecT);

    if nStr == 1 then

        sSecT = ":0"..sSecT

    else

        sSecT=":"..sSecT

    end

    local nMinT = Math.Floor(nPosT/60) 

    return String.Concat(nMinT, sSecT);

end

Label.SetText("MaL", Au());

Page.StartTimer(150, 11);

في التيمر نضيف التالي

كود PHP:


if e_ID == 11 then

local nPosTrek = Audio.GetCurrentPos(CHANNEL_NARRATION)

Slider.SetSliderPos("Plu_Audio", nPosTrek);

Label.SetText("PrAu", Audio.ConvertTime(CHANNEL_USER1));



end

الان سنتفرغ للسلايدر و اظهارتقدم التلاوة كرقم
اضف الكود الى GlobalFunction

كود PHP:


function Audio.IsInRect(strObject)

    local bReturn = false;

    local tPos = Plugin.GetPos(strObject)    

    local tSize = Plugin.GetSize(strObject)

    local tMouse = System.GetMousePosition(true);

    local nX = tMouse.X

    local nY = tMouse.Y

    if (nX >= tPos.X) and (nX <= tPos.X + tSize.Width) then

        if (nY >= tPos.Y) and (nY <= tPos.Y + tSize.Height) then

            bReturn = true;

        end

    end

    return bReturn;    

end

------------------------------------------------------------------

function Audio.ConvertTime(channel)

    local nPosTrek = Audio.GetCurrentPos(CHANNEL_NARRATION)

    local nPosTrek = Math.Round(nPosTrek, 0);

    local sSecTrek = Math.Mod(nPosTrek, 60)

    local nString = String.Length(sSecTrek);

    if nString == 1 then

        sSecTrek = ":0"..sSecTrek

    else

        sSecTrek=":"..sSecTrek

    end

    local nMinTrek = Math.Floor(nPosTrek/60) 

    return String.Concat(nMinTrek, sSecTrek);

end

-------------

الوظيفة الاولى وهي الخاصة بتقدم موقع الصوت مع السلادر
اما الثانية لتحويل موقع الصوت الحالي للتلاوة الى ثواني و دقائق

---------------
اخر مرحلة وهي في السلايدر نفسه
اضف ما يلي

كود PHP:


if Audio.IsInRect(this)  and System.IsKeyDown(1) then

    Audio.Seek(CHANNEL_USER1, SEEK_SPECIFIC, e_Pos);

end

وهكذا بعد البحث و تشغيل سماع الاية سيظهر على يمين السلايدر طول الصوت و على يساره رقم متغيير لتقدم قراءة الاية

بالتوفيق

**كينج نت كينج نت** · 02-04-2020, 02:52 PM

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

عبد الهادي بهاب · 04-04-2020, 11:04 PM

مشروع في زمن الكورونا

السلام عليكم ورحمة الله وبركاته
لمتابعة لمشروع البحث في المصحف الشريف
اليوم مع خاصية جديدة وهي

تصديرالاية كصورة مع خلفية جميلة

يعني لما تبحث عن ما تريد ستجد زر جديد اضفناه في الاسفل سميناه ( تصدي الاية كصورة ) و طبعا سميه كما تريد في تعديلك
و الغرض منه الحصول على نتيجة جميلة للبحث و اماكنية رفعه كصورة على المواقع و التواصل الاجتماعي
برمجيا استخدمنا اضافة capture
و مجموعة 20 صور تكون خلفية للاية
في زر التقاط الصورة نضع زر

كود PHP:


myDocsFolder = Shell.GetFolder(SHF_MYDOCUMENTS);
Folder.Create(myDocsFolder.."\\New");
ppw = Image.GetPos("ArrierPlan");
w = Image.GetSize("ArrierPlan").Width;
h = Image.GetSize("ArrierPlan").Height;
Capture.WindoRgion(Raya.."-"..Rsora, myDocsFolder.."\\New", ppw.X, ppw.Y, w, h, IMAGE_PNG);
File.Open(myDocsFolder.."\\New\\"..Raya.."-"..Rsora..".png", "", SW_SHOWNORMAL);

يمكن تحريك الكتابة لوضعها اين تريد والكود في MoussMove في احداث الصفحة
ايضا فيه زر لتغيير لون الخط و قد استعملنا ملف dll خاص باظهارمربع الوان

كود PHP:


result = DLL.CallFunction("AutoPlay\\Docs\\CHCOLOR.DLL", "SelectColor", ",\"FFFFFF\",\"HEX\",\"192;;192;;192\",\"FALSE\"", DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL)
result = tonumber(String.TrimLeft(String.Left(result, String.Find(result, "::", 1, false)-1), "#"),16);
Paragraph.SetProperties("Paragraph1", {ColorNormal = (result)})

لشرح صفحة التقاط الصورة

ستكون الصورة في ملف new في المستندات

الملف بعد تشغيله يكون كالتالي

الملف المفتوح المعدل
http://www.mediafire.com/file/es7icg...pture.apz/file

بالتوفيق

عبد الهادي بهاب · 04-04-2020, 11:50 PM

المشاركة الأصلية بواسطة كينج نت مشاهدة المشاركة

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

منون على ترك اثرك في الموضوع

عبد الهادي بهاب · 04-04-2020, 11:55 PM

السلام عليكم ورحمة الله وبركاته
في موضوع تغيير لون الخط ممكن نستفيد من object يسمى Buttoncolor
لتحميل الاضافة من هنا
http://www.mediafire.com/file/f023s9...utton.rar/file

ضعها في objects في plugings في مسار البرنامج في البرامج

ثم ضع في On Selct

كود PHP:


tblParaProps.ColorNormal = e_Color;

tblParaProps.ColorHighlight = e_Color;

tblParaProps.ColorDown = e_Color;

tblParaProps.ColorDisabled = e_Color;

Paragraph.SetProperties("Paragraph1", tblParaProps);

لتغيير الخط كليا

بالتوفيق

عبد الهادي بهاب · 06-04-2020, 01:43 AM

السلام عليكم ورحمة الله وبركاته
مع خاصية جديدة وهي

اظهار الاية بلتشكيل او بدونه

ببساطة اضف زرين و سمي الاول اظخار التشكيل و الثاني دون تشكيل
نزرع في الزر الاول دون تشكيل

كود PHP:


istibdalate={["ó"] = "",["ð"] = "",["õ"] = "",["ö"] = "",["ú"] = "",["ø"] = "",["ö"] = "",["ñ"] = ""} 

Ntxt = string.gsub ( txt, ".",istibdalate); 

Input.SetText("Input_Info_Display", Ntxt);

و في الاخر

كود PHP:


Input.SetText("Input_Info_Display", txt);

بالتوفيق

عبد الهادي بهاب · 06-04-2020, 04:45 PM

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

نفعل الاضافة SysDialog

للتحميل من هنا
http://www.mediafire.com/file/5m7upa...ialog.rar/file

من اجل تغيير حجم و لون و نوع الخط للاية الظاهرة
نضع زر في الاسفل و نزرع فيه الكود التالي

كود PHP:


local tFlags={}

tFlags.Bold=true
tFlags.Italic=false
tFlags.NoExtended=false
tFlags.StrikeOut=false
tFlags.Underline=false
tFlags.Color=Math.HexColorToNumber("000000")
tFlags.Scripe=Arabe


local tFont = SysDialog.Font("Traditional Arabic",22, tFlags);
if tFont then
    
tblParaProps = {};
tblParaProps.FontName = tFont.Font;
tblParaProps.FontSize = tFont.Size;
tblParaProps.FontWeight = FW_NORMAL;
tblParaProps.FontScript = ANSI_CHARSET;
tblParaProps.FontUnderline = tFont.Underline;
tblParaProps.FontStrikeout = tFont.StrikeOut;
tblParaProps.FontItalic = tFont.Italic;
tblParaProps.Cursor = CURSOR_HUND;
tblParaProps.ColorNormal =tFont.Color;
tblParaProps.ColorHighlight =tFont.Color;
tblParaProps.ColorDown = tFont.Color;
tblParaProps.ColorDisabled = tFont.Color;
Paragraph.SetProperties("Paragraph1",tblParaProps);
end

بالتوفيق

عبد الهادي بهاب · 07-04-2020, 03:33 AM

في زمن كورونا

السلام عليكم ورحمة الله وبركاته
في خاصية جديدة او تعديل على الخاصية السابقة

نريد لما يضغط على البحث و تظهر نتائج البحث سيحدد النص المبحوث عنه في الاية
مثال

بكل بساطةسنضيف في زر اظهار الاية دون تشكيل ما يلي في اسفل الموجود

كود PHP:


cherh = string.gsub (Input.GetText("Input1"), ".",istibdalate); 



find = String.Find(Ntxt, cherh, 1) ;

if find then

Input.SetSelection("Input_Info_Display", find, find + #ali);



end

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

عبد الهادي بهاب · 09-04-2020, 03:27 AM

شاهدي في زمن الكورونا

السلام عليكم ورحمة الله وبركاته
تتمة للمشروع القرآني ........اليوم مع خاصية جديدة في اضافة اللغات الى الموسوعة
سنضيف خاصية الترجمة الى الفرنسية و الانجليزية

اولا ننوه بالموقع الجميل
http://www.qurandatabase.org/
الذي يوفر قواعد بيانية للقران الكريم بكل اللغات بمختلف الصيغ

نزلت منه ترجمتين لفرنسية و الانجليزية بصيغة csv
طبعا ما يهمني غي الملف هو رقم السورة و رقم الاية و نصها و محيت الباقي
ثم حولتها الى db عن طريق تنزيل المحتوى الى غريد ثم تحويل الغريد الى db
عبر الكود التالي :

كود PHP:


Grid.LoadFromFile("Grid1", "AutoPlay\\Docs\\cvb.csv", ";", true)



sDatabaseFile = _SourceFolder .. "\\AutoPlay\\Docs\\coranFR.db";

db = SQLite.Open("AutoPlay\\Docs\\coranFR.db");

SQLite.Query(db,"CREATE TABLE coran(Sora_Num , Aya_Num , Aya_text)");



for i = 1,Grid.GetRowCount("Grid1") do

is = Grid.GetCellText("Grid1", i, 0);

v = Grid.GetCellText("Grid1", i, 1);

p = Grid.GetCellText("Grid1", i, 2);



SQLite.Query(db,"insert into coran values('" .. is.."', '"..v.."', '"..p .."')");



end

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

الان هنا تجد الملفين :
https://www.mediafire.com/file/fq25q...fr_en.rar/file

ضعهما في ملف docs
ثم سنضيف زرين لاظهار الترجمة فرنسي او انجليزي
------------------
ممكنننزل اللغات المختلفة و نفس العملية نحولها بالكود السابق الى قواعد db
--------------------
الان شنيف هذا الشؤط في مجريات البحث اي كلما وجد الاية التي نبحث عنها بالعربي سنبحث عن رقمها و سورتها في قواعد الانجليزي و العربي

اينما وجدت listbox1 في كودالبحث الصق فوقه ما يلي

كود PHP:


  MonNumA = tonumber(s.Data[i]["Aya_Num"]) ; MonNumS = tonumber(s.Data[i]["Sora_Num"]);

  for ifr,vfr in pairs(sFR.Data) do 

  if MonNumS == tonumber(sFR.Data[ifr]["Sora_Num"]) then

  if MonNumA == tonumber(sFR.Data[ifr]["Aya_Num"]) then

  FrAya[tol] = sFR.Data[ifr]["Aya_text"] ; end end end

  ------rn -----------

  for ien,ven in pairs(sEN.Data) do 

  if MonNumS == tonumber(sEN.Data[ien]["Sora_Num"]) then

  if MonNumA == tonumber(sEN.Data[ien]["Aya_Num"]) then

  EnAya[tol] = sEN.Data[ien]["Aya_text"] ; end end end

  ----------------------

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

الان في زر الفرسية ضع

كود PHP:


if tonumber(Rsora) == 1 and  tonumber(Raya) == 1 then

 txta = sFR.Data[1]["Aya_text"];

Input.SetText("Input_Info_Display", txta)

else

txta = FrAya[AudioAya] ;

Input.SetText("Input_Info_Display", txta)

end

ة في الانجليزي

كود PHP:


if tonumber(Rsora) == 1 and  tonumber(Raya) == 1 then

 txtab = sEN.Data[1]["Aya_text"];

Input.SetText("Input_Info_Display", txtab)

else

txtab = EnAya[AudioAya] ;

Input.SetText("Input_Info_Display", txtab)

end

الملف المفتوح للمشوع المعدل - اخر تحديث -

https://www.mediafire.com/file/5mqp2...r_eng.apz/file
-------------------------

**غريب يا فؤادي غريب يا فؤادي** · 10-04-2020, 12:10 AM

ماشاء الله
عمل جبااار
الله يبارك فيك ويجعلها في موازين حسناتك يارب ويرزقك الإخلاص لوجهه

عبد الهادي بهاب · 10-04-2020, 03:03 AM

المشاركة الأصلية بواسطة غريب يا فؤادي مشاهدة المشاركة

ماشاء الله
عمل جبااار
الله يبارك فيك ويجعلها في موازين حسناتك يارب ويرزقك الإخلاص لوجهه

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

**غريب يا فؤادي غريب يا فؤادي** · 12-04-2020, 12:16 AM

المشاركة الأصلية بواسطة عبد الهادي بهاب مشاهدة المشاركة

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

بارك الله فيك
حقيقة وددت ان انشى المشروع من البداية
لكن فضلت أن احمل المشروع الجاهز الذي صممته أنت جزاك الله خير
حملت المشروع والاضافات
ولكن المشروع لا يعمل ووتظهر رسالة أنه يوجد خطأ بتفعيل الاضافة المسماة COLORBUTTON مع اني اضفتها مع الترخيص الخاص بها
Error: Plugin "C:\Program Files (x86)\AutoPlay Media Studio 8 Trial\Plugins\Objects\COLORBUTTON\COLORBUTTON.APO" is not licensed for re-distribution
أخي هل لديك مُعرف فيسبوك لأضيفك ؟

عبد الهادي بهاب · 12-04-2020, 01:50 AM

المشاركة الأصلية بواسطة غريب يا فؤادي مشاهدة المشاركة

بارك الله فيك
حقيقة وددت ان انشى المشروع من البداية
لكن فضلت أن احمل المشروع الجاهز الذي صممته أنت جزاك الله خير
حملت المشروع والاضافات
ولكن المشروع لا يعمل ووتظهر رسالة أنه يوجد خطأ بتفعيل الاضافة المسماة COLORBUTTON مع اني اضفتها مع الترخيص الخاص بها
Error: Plugin "C:\Program Files (x86)\AutoPlay Media Studio 8 Trial\Plugins\Objects\COLORBUTTON\COLORBUTTON.APO" is not licensed for re-distribution
أخي هل لديك مُعرف فيسبوك لأضيفك ؟

مرحبا بكم سيدي ...
ساعيد رفعها من جديد ..ضعها في مكانها قبل تشغيل البرنامج
https://top4top.io/downloadf-1562vdwt11-rar.html
-----------
ستضع الملف المعدل اليوم ان شاء الله بعد رفعه
متابعة طبية
-----------
في الفايس بوك هو نفسه اسمي عبد الهادي بهاب

عبد الهادي بهاب · 13-04-2020, 12:43 PM

السلام عليكم ورحمة الله وبركاته

مواصلة للمشروع سنضيف جملة من الخاصيات منها :
-استعراض السور و قراءتها
- البحث باعتبار التشكيل
- البحث باهمال همزة الالف

اضفنا صفحة الاستقبال

صفحة استعراض السور

صفحة البحث

قمنا بتعديل قواعد البيانات .... تصحيح بعض الاخطاء فيها
--------------
الشكل النهائي لحد الان

---------
ملاحظة : يجب وضع الملف الصوتي للقران باسم quran في ملف Audio

الملف المعدل للمشروع
http://www.mediafire.com/file/k97adx...cture.apz/file

ارجو ابلاغنا عن اي خطأ

إعـــــــلان

ملف مفتوح متجدد ... البحث في القران الكريم

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك