مشروع مفتوح ........تصميم بلاير متعدد المهام

[عبد الهادي بهاب]

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

اليوم مع مشرع مفتوح حول تصميم بلاير متعدد المهام
بداية مدام هناك كائن mediaplayer فالفكرة سهلة جدا
تبقى دمج الكثير من الافكار من هناو هناك
و هنا تاتي عمليةتصور الشكل النهائي لمشروعك
في مثالنا عندما ينصب المستخدم البرنامج فانه سيحظى بعدة مزايا منها
-----------------------------------------
تشغيل الملفات الصوتية
تشغيل الملفات الفيديو
عند البحث في مجلد فانه سيعرض كل محتوياته داخل قائمة
فيه قائمة المفضلة تحفظ ما يريد ان يشاهده او يسمعه دائما و يمكن حذفها كلها او حذف ملف منها
خاصية التسجيل و حفظ الصوت
فيه خاصية التقاط صورة من الفيديو لقطة واحدة او اكثر و حفظها في القرص c
تغيير الستايل و الوان البلاير و لون ازرار
فيه menu للاستخدام المباشر
تمكين المستخدم من استعمال الكيبورد في ادارة هذا البلاير
امكانية اطفاء الجهاز من البلاير
امكانية وضع الجهاز في وضع الانتظار
امكانية تغيير المستخدم من خلال البلاير
امكانية اظهار شاشة التوقف
تغيير الصورة الرمزية للبلاير من خلال اختيارها من جهازك
يحفظ البلاير كل ما قمت به من تغييرات
اذا اكن يوم الجمعة فان البرنامج بمجرد تشغيله يظهر للمستخدم رسالة تذكيرية بانه يجب ان يقرا سورة الكهف و سيضعها في القائمة و تشغل اليا :abc_088:
مواقيت الصلاة
ادعية
حكم
مكتبة للمقالات و الكتب
مكتبة صوتية لاناشيد الوطنية (الجزائر )
مكتبة اناشيد كشفية
جزء عم و سورة الكهف
لعبة بيانو
لعبة ترطيب الصورة
لعبة اعواد الكبريت
---------------------------------------------

هذا هو التطبيق للبرنامج

http://www.mediafire.com/download/2v...iratPlayer.exe (http://www.mediafire.com/download/2vu7g1y9lnslza3/SiratPlayer.exe)


الشكل الخارجي

http://cdn.top4top.co/p_559d87b1.png

https://scontent-mrs1-1.xx.fbcdn.net/hphotos-xpt1/v/t1.0-9/10401409_10208403559396047_6472625779684912375_n.j pg?oh=9e210d666c3d197db2fa30281ace0b9f&oe=57262DBC




https://scontent-mrs1-1.xx.fbcdn.net/hphotos-xap1/v/l/t1.0-9/10426625_10208403591076839_5892018547192392788_n.j pg?oh=031932c64fd90eb21025b887d70c3ff7&oe=573DD730

https://scontent-mrs1-1.xx.fbcdn.net/hphotos-xtf1/v/t1.0-9/971283_10208403593996912_159466816642104073_n.jpg? oh=937943df301ad3820ad50b262ec3129d&oe=573FE979

https://scontent-mrs1-1.xx.fbcdn.net/hphotos-xaf1/v/t1.0-9/10308183_10208403598677029_7797240504720202066_n.j pg?oh=778c436eaa9121685617b1810012136a&oe=572B4C6D


......................
من اجل التعرف على الاكواد المستخدمة في menu التوجه الى Onmenu في الصفحة
----------
من اجل استخدامات الكيبورد في On Key في الصفحة
---------
الالعاب في Dialog مستقلة
-----------
الحكم موجودة في ملف txt و الكود في timer الصفحة
-----------
من اجل تغغير الصورة الكود موجود فيها
----------
من اجل استدعاء الملفات لكل زر كود خاص به و الكبيورد يفعل هذه الازرار
------------
الملف المفتوح
http://www.mediafire.com/download/xvmclq5wz6fetzp/sirat+player.rar

[عبد الهادي بهاب]

في On preload ........الشرح باختصار في يالاكواد



Application.SetMenuBarActive(true);------تفعيل شريط المهم
wnx = Application.GetWndHandle();
INIFile.SetValue("AutoPlay\\Docs\\Settings.ini", "Shape", "Color", "16711680");------اعطاء لون الخلفية من اخر ما غيره المستخدم
Properties = {}
PageName = "Page2";
Properties.BackgroundColor = (10650232);
Application.SetPageProperties(PageName, Properties);
Paragraph.SetProperties("Paragraph1",{BGColor=(10650232)});

----------كود من اجل التاريخ ----------
nDay = String.ToNumber(System.GetDate(DATE_FMT_DAYOFWEEK) );
day = {"ÇáÇÍÏ", "ÇáÇËäíä", "ÇáËáÇËÇÁ", "ÇáÇÑÈÚÇÁ", "ÇáÎãíÓ", "ÇáÍãÚÉ", "ÇáÓÈÊ"}
dayInMonth = System.GetDate(DATE_FMT_DAY);
nMonth = String.ToNumber(System.GetDate(DATE_FMT_MONTH));
month = {"íäÇíÑ", "ÝÈÑÇíÑ", "ãÇÑÓ", "ÇÈÑíá", "ãÇíæ", "íæäíæ", "íæáíæ", "ÇÛÓØÓ", "ÓÈÊãÈÑ", "ÇßÊæÈÑ", "äæÝãÈÑ", "ÏíÓãÈÑ"}
year = System.GetDate(DATE_FMT_YEAR);
Paragraph.SetText("Paragraph2", day[nDay].." "..dayInMonth.." " ..month[nMonth].." "..year);

[عبد الهادي بهاب]

في on show ...........الشرح في الكود

ListBox.DeleteItem("ListBox1", LB_ALLITEMS); ------محو البينات الموجودة في اليستبوكس ---------
---------------
result = GIF.Load("pp", "AutoPlay\\Images\\14.GIF");----------ادراج الصروة المتحركة
result = GIF.Load("p2", "AutoPlay\\Images\\14.GIF");
INIFile.DeleteSection("AutoPlay\\Docs\\1.ini", "1");----------تفريغ ملف الحفظ
ph = INIFile.GetValue("AutoPlay\\Docs\\2.ini", "photo", "photo");--------احضار مسار الصورة التي اختارها المستخدم
Image.Load("Image1", ph); --------وضعها في كائن الصورة
Input.SetText("Input2", "");
v = INIFile.GetValueNames("AutoPlay\\Docs\\2.ini", "Liste");---------قائمة المفضلة

nDay = String.ToNumber(System.GetDate(DATE_FMT_DAYOFWEEK) ); -----البحث عن يوم الجمعة
day = {"ÇáÇÍÏ", "ÇáÇËäíä", "ÇáËáÇËÇÁ", "ÇáÇÑÈÚÇÁ", "ÇáÎãíÓ", "ÇáÍãÚÉ", "ÇáÓÈÊ"}
if nDay == 6 then ------اذا كان اليوم هو الجمعة
Dialog.Message("ÝæÌ ÇáÕÑÇØ ÇáßÔÝí","Çáíæã ÇáÌãÚÉ æ íÓÊÍÈ ÞÑÇÁÉ ÓæÑÉ ÇáßåÝ æåÐÇ ÇáÈÑäÇãÌ íæÝÑ áß ÇáÊÐßíÑæ ÇáÓæÑÉ ßá ííæã ÌãÚÉ");
ListBox.AddItem("ListBox1", "ÇáßåÝ.mp3", "AutoPlay\\Audio\\ama\\ÇáßåÝ.mp3");--------ادراج سورة الكهف في القائمة
ListBox.SelectItem("ListBox1",1);-------تشغيل السورة مباشرة عند التشغيل
else---اذا لم يكن يوم الجمعة
for i,n in pairs(v) do
d = INIFile.GetValue("AutoPlay\\Docs\\2.ini", "Liste", n);
ListBox.AddItem("ListBox1", n, d);----------نعرض قائمة المفضلة في اليسبوكس
end
end


Page.StartTimer(4000,455); -------تشغيل التايمر الخاص بالحكم
Page.StartTimer(10,10);--------تشغيل تايمر الوقت الخاص بالنظام

[عبد الهادي بهاب]

في On Menu -----------------------ساشرح فقط الكودات المتميزة اما البقية فهي خاصة فقط بتشغيل البلاير او تفعيل الازرار

con1 = ListBox.GetCount("ListBox1");------عدد عناصر اليسبوكس
num = String.ToNumber(Input.GetText("Input1"))------رقم النبوت
vol = MediaPlayer.GetVolume("media_player");------حجم الصوت
Input.SetText("Input2", "");

--------- file------------
if e_ID == 101 then
Page.ClickObject("b1");
elseif e_ID == 12 then
Page.Jump("Page1")
elseif e_ID == 102 then
Page.ClickObject("b2");
elseif e_ID == 103 then
Page.ClickObject("b3");
elseif e_ID == 104 then
Page.ClickObject("b8");
elseif e_ID == 106 then-------تشغيل القائمة و عناصر بالتوالي
ListBox.DeleteItem("ListBox1", LB_ALLITEMS);
v = INIFile.GetValueNames("AutoPlay\\Docs\\2.ini", "Liste");
for i,n in pairs(v) do
d = INIFile.GetValue("AutoPlay\\Docs\\2.ini", "Liste", n);
ListBox.AddItem("ListBox1", n, d);
end
ListBox.SelectItem("ListBox1", 1);
Input.SetText("Input2", "r")
elseif e_ID == 105 then -------الخروج من البرنامج بزر esc
Application.Exit(0);
elseif e_ID == 811 then
Page.ClickObject("Image1");
elseif e_ID == 304 then --اظهر المكتبة
DialogEx.Show("bib", true)


elseif e_ID == 901 then-------تشغيل ديالوج مواقيت الصلاة
DialogEx.Show("Salat", true)
elseif e_ID == 902 then-------تشغيل ديالوج الادعية
DialogEx.Show("Doaa", true)

--------------------play-----------------
elseif e_ID == 201 then
MediaPlayer.Play("media_player");
Input.SetText("pl","pl");
elseif e_ID == 202 then
result = DialogEx.Show("record", true, nil, nil);
elseif e_ID == 203 then
MediaPlayer.Pause("media_player");
Input.SetText("pl","pa");
elseif e_ID == 207 then
MediaPlayer.SetFullScreen("media_player", true);
elseif e_ID == 208 then
Page.ClickObject("b12");
elseif e_ID == 210 then
Input.SetText("Input2", "r");
ListBox.SelectItem("ListBox1", Input.GetText("Input1"));
elseif e_ID == 209 then
Input.SetText("Input2", "rr")
elseif e_ID == 204 then
MediaPlayer.Stop("media_player");
elseif e_ID == 2051 then
if num >= con1 then
Input.SetText("Input1", 1)
ListBox.SelectItem("ListBox1", Input.GetText("Input1"));
else
Input.SetText("Input1", num+1);
ListBox.SelectItem("ListBox1", Input.GetText("Input1"));
end
elseif e_ID == 2052 then
if num < 1 then
Input.SetText("Input1", con1);
ListBox.SelectItem("ListBox1", Input.GetText("Input1"));
else
Input.SetText("Input1", num-1)
ListBox.SelectItem("ListBox1", Input.GetText("Input1"));
end
elseif e_ID == 2053 then
ListBox.SelectItem("ListBox1", 1);
elseif e_ID == 2054 then
ListBox.SelectItem("ListBox1", con1);
---------------vitesse------------
elseif e_ID == 2111 then
MediaPlayer.Seek("media_player", SEEK_BEGINNING, 0);
MediaPlayer.Play("media_player");
elseif e_ID == 2112 then
MediaPlayer.Seek("media_player", SEEK_END, 1);
elseif e_ID == 2113 then
MediaPlayer.Seek("media_player", SEEK_BACKWARD, 7.5);
elseif e_ID == 2114 then
MediaPlayer.Seek("media_player", SEEK_FORWARD, 7.5);
-----------volume---------------
elseif e_ID == 2061 then
MediaPlayer.SetVolume("media_player", vol+10);
elseif e_ID == 2062 then
MediaPlayer.SetVolume("media_player", vol-10);
elseif e_ID == 2063 then
MediaPlayer.SetVolume("media_player", 0);
elseif e_ID == 301 then
Page.ClickObject("b6");
elseif e_ID == 302 then
Page.ClickObject("b7");
elseif e_ID == 303 then
Page.ClickObject("b5");
elseif e_ID == 501 then
Page.ClickObject("b9");
elseif e_ID == 502 then
Page.ClickObject("b10");
elseif e_ID == 701 then
Page.ClickObject("b11");
elseif e_ID == 601 then
result = DialogEx.Show("about", true, nil, nil);
elseif e_ID == 602 then ------رابط البرنامج في الفايسبوك
File.OpenURL("https://www.facebook.com/groups/siratigli/", SW_SHOWNORMAL);
elseif e_ID == 801 then ------تغيير الستايل
wnx = Application.GetWndHandle();
INIFile.SetValue("AutoPlay\\Docs\\Settings.ini", "Shape", "Color", "16711680");
Properties = {}
PageName = "Page2";
Properties.BackgroundColor = (16711680);
Application.SetPageProperties(PageName, Properties);
for i=1,13 do
Button.SetProperties("b"..i, {ButtonFile="AutoPlay\\Buttons\\16711680.btn"});
Button.SetProperties("b"..i, {ColorNormal=(16777215)});
end
Label.SetProperties("Label1",{ColorNormal=16777215});
elseif e_ID == 802 then
wnx = Application.GetWndHandle();
INIFile.SetValue("AutoPlay\\Docs\\Settings.ini", "Shape", "Color", "32768");
Properties = {}
PageName = "Page2";
Properties.BackgroundColor = (32768);
Application.SetPageProperties(PageName, Properties);
for i=1,13 do
Button.SetProperties("b"..i, {ButtonFile="AutoPlay\\Buttons\\32768.btn"});
Button.SetProperties("b"..i, {ColorNormal=(16777215)});
end
elseif e_ID == 803 then
wnx = Application.GetWndHandle();
INIFile.SetValue("AutoPlay\\Docs\\Settings.ini", "Shape", "Color", "255");
Properties = {}
PageName = "Page2";
Properties.BackgroundColor = (255);
Application.SetPageProperties(PageName, Properties);
for i=1,13 do
Button.SetProperties("b"..i, {ButtonFile="AutoPlay\\Buttons\\255.btn"});
Button.SetProperties("b"..i, {ColorNormal=(16777215)});
end
Label.SetProperties("Label1",{ColorNormal=(16777215)});
elseif e_ID == 804 then
wnx = Application.GetWndHandle();
INIFile.SetValue("AutoPlay\\Docs\\Settings.ini", "Shape", "Color", "65535");
Properties = {}
PageName = "Page2";
Properties.BackgroundColor = (65535);
Application.SetPageProperties(PageName, Properties);
for i=1,13 do
Button.SetProperties("b"..i, {ButtonFile="AutoPlay\\Buttons\\65535.btn"});
Button.SetProperties("b"..i, {ColorNormal=(16777215)});
end
elseif e_ID == 805 then
wnx = Application.GetWndHandle();
INIFile.SetValue("AutoPlay\\Docs\\Settings.ini", "Shape", "Color", "33023");
Properties = {}
PageName = "Page2";
Properties.BackgroundColor = (33023);
Application.SetPageProperties(PageName, Properties);
for i=1,13 do
Button.SetProperties("b"..i, {ButtonFile="AutoPlay\\Buttons\\33023.btn"});
Button.SetProperties("b"..i, {ColorNormal=(16777215)});
end
elseif e_ID == 806 then
wnx = Application.GetWndHandle();
INIFile.SetValue("AutoPlay\\Docs\\Settings.ini", "Shape", "Color", "16744703");
Properties = {}
PageName = "Page2";
Properties.BackgroundColor = (16744703);
Application.SetPageProperties(PageName, Properties);
for i=1,13 do
Button.SetProperties("b"..i, {ButtonFile="AutoPlay\\Buttons\\16744703.btn"});
Button.SetProperties("b"..i, {ColorNormal=(16777215)});
end

elseif e_ID == 807 then
wnx = Application.GetWndHandle();
INIFile.SetValue("AutoPlay\\Docs\\Settings.ini", "Shape", "Color", "10650232");
Properties = {}
PageName = "Page2";
Properties.BackgroundColor = (10650232);
Application.SetPageProperties(PageName, Properties);
for i=1,13 do
Button.SetProperties("b"..i, {ButtonFile="AutoPlay\\Buttons\\12615808.btn"});
Button.SetProperties("b"..i, {ColorNormal=(16777215)});
end
elseif e_ID == 808 then
wnx = Application.GetWndHandle();
INIFile.SetValue("AutoPlay\\Docs\\Settings.ini", "Shape", "Color", "4194368");
Properties = {}
PageName = "Page2";
Properties.BackgroundColor = (4194368);
Application.SetPageProperties(PageName, Properties);
for i=1,13 do
Button.SetProperties("b"..i, {ButtonFile="AutoPlay\\Buttons\\4194368.btn"});
Button.SetProperties("b"..i, {ColorNormal=(16777215)});
end
elseif e_ID == 809 then
wnx = Application.GetWndHandle();
INIFile.SetValue("AutoPlay\\Docs\\Settings.ini", "Shape", "Color", "16777215");
Properties = {}
PageName = "Page2";
Properties.BackgroundColor = (16777215);
Application.SetPageProperties(PageName, Properties);
for i=1,13 do
Button.SetProperties("b"..i, {ButtonFile="AutoPlay\\Buttons\\16777215.btn"});
Button.SetProperties("b"..i, {ColorNormal=(4194368)});
end
elseif e_ID == 810 then
Page.ClickObject("Label2");

elseif e_ID == 1112 then -------التقاط صور ة
WinApi.CaptureWindow(Application.GetWndHandle(), "C:\\siratigli.bmp");
Dialog.Message("ÝæÌ ÇáÕÑÇØ ÇáßÔÝí","C ÇáÕæÑ Ýí ÇáÞÑÕ");
elseif e_ID == 1113 then------التقاط 10 صور
for e =1,10 do
Application.Sleep(200);
WinApi.CaptureWindow(Application.GetWndHandle(), "C:\\siratigli"..e..".bmp");
end
Dialog.Message("ÝæÌ ÇáÕÑÇØ ÇáßÔÝí","C ÇáÕæÑ Ýí ÇáÞÑÕ");

elseif e_ID == 1001 then
Application.Exit(0)
elseif e_ID == 1003 then -----الخروج من البرنامج .....الخ من المهام
result = DLL.CallFunction("AutoPlay\\Docs\\PCPower.dll", "SetPCPowerState", 4, DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);
elseif e_ID == 1002 then
result = DLL.CallFunction("AutoPlay\\Docs\\PCPower.dll", "SetPCPowerState", 3, DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);
elseif e_ID == 1004 then
result = DLL.CallFunction("AutoPlay\\Docs\\PCPower.dll", "SetPCPowerState", 5, DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);
elseif e_ID == 1005 then
result = DLL.CallFunction("AutoPlay\\Docs\\PCPower.dll", "SetPCPowerState", 2, DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);
elseif e_ID == 1006 then
result = DLL.CallFunction("AutoPlay\\Docs\\PCPower.dll", "SetMonitorPowerState", 3, DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);

end

[عبد الهادي بهاب]

في On Key ---------------
اذا وجدت الكود فيه e_Modifiers.ctrl فهو يتعلق باستعمال زر CTRL مع الزر

if e_Key == 79 then
if e_Modifiers.ctrl == true then
Page.ClickObject("b1");
end


elseif e_Key == 65 then
if e_Modifiers.ctrl == true then
Page.ClickObject("b3");
end


elseif e_Key == 86 then
if e_Modifiers.ctrl == true then
Page.ClickObject("b2");
end


elseif e_Key == 82 then
if e_Modifiers.ctrl == true then
Input.SetText("Input2", "rr")
end


elseif e_Key == 70 then
if e_Modifiers.ctrl == true then
MediaPlayer.SetFullScreen("media_player", true);
end

elseif e_Key == 27 then
Application.Exit(0);


elseif e_Key == 32 then
if Input.GetText("pl") == "pl" then
MediaPlayer.Pause("media_player");
Input.SetText("pl","pa");
elseif Input.GetText("pl") == "pa" then
MediaPlayer.Play("media_player");
Input.SetText("pl","pl");
end



elseif e_Key == 40 then
rep = Input.GetText("Input2");
con1 = ListBox.GetCount("ListBox1");
num = String.ToNumber(Input.GetText("Input1"))

if num >= con1 then
Input.SetText("Input1", 1)
ListBox.SelectItem("ListBox1", Input.GetText("Input1"));
else
Input.SetText("Input1", num+1);
ListBox.SelectItem("ListBox1", Input.GetText("Input1"));
end


elseif e_Key == 38 then
rep = Input.GetText("Input2");
con1 = ListBox.GetCount("ListBox1");
num = String.ToNumber(Input.GetText("Input1"))

if num < 1 then
Input.SetText("Input1", con1);
ListBox.SelectItem("ListBox1", Input.GetText("Input1"));
else
Input.SetText("Input1", num-1)
ListBox.SelectItem("ListBox1", Input.GetText("Input1"));
end


elseif e_Key == 39 then
vv1 = MediaPlayer.GetVolume("media_player");
MediaPlayer.SetVolume("media_player", vv1+5);

elseif e_Key == 37 then
vv1 = MediaPlayer.GetVolume("media_player");
MediaPlayer.SetVolume("media_player", vv1-5);

elseif e_Key == 77 then
if e_Modifiers.ctrl == true then
MediaPlayer.SetVolume("media_player", 0);
end

elseif e_Key == 83 then
if e_Modifiers.ctrl == true then
DialogEx.Show("Salat", true);
end

elseif e_Key == 80 then
WinApi.CaptureWindow(Application.GetWndHandle(), "C:\\siratigli.bmp");
elseif e_Key == 79 then
for e =1,10 do
Application.Sleep(200);
WinApi.CaptureWindow(Application.GetWndHandle(), "C:\\siratigli"..e..".bmp");
end

elseif e_Key == 68 then
if e_Modifiers.ctrl == true then
DialogEx.Show("Doaa", true)
end
elseif e_Key == 66 then
if e_Modifiers.ctrl == true then
DialogEx.Show("bib", true)
end

end

[عبد الهادي بهاب]

السلام عليكم ورحمة الله وبركاته
شكرا استاذ خادم الحرمين على المرور
ان شاء يكون ملهما للباحثين عن اكواد الmenu او الكبيورد او دمج الملفات مع بعضها

[أبو يوسف]

بارك الله فيك أخانا المحترف :abc_152::abc_152::abc_152:

[minomars]

جميل الملف ... برمجة البيانو روووووووووعه
أنت خبير في الاوتوللاي :abc_152:

[عبد الهادي بهاب]

جميل الملف ... برمجة البيانو روووووووووعه
أنت خبير في الاوتوللاي :abc_152:

اهلا و سهلا ..لست خبيرا و لا عشر منه......و لست صاحب برمجة البيانو بل هو يحمل توقيع acme.tek .........انما قمت بدمج المشروع مع البلاير وهي الفكرة التي اقصدها هنا ........من خلال عدة مشاريع تخرج شيء جديد


وهذا ملف مفتوح خاص بالبيانو سيدي الكريم
http://up.top4top.net/downloadf-37vs301-rar.html

تحياتي :abc_023:

[عبد الهادي بهاب]

بارك الله فيك أخانا المحترف :abc_152::abc_152::abc_152:

اهلا استاذ ابو يوسف سرني مروركم

[القواسمي]

جميع المشاريع تسر قلب
فقد وجدت ضالتي في هذا المنتدى شكرا للمشرفين
وشكرا للأعضاء المميزين الذين يتحفوننا يوما بعد يوم بأفكارهم الرائعه والجميله
سوف يتم تحميل المشروع والاستفاده منه بما يرضي الله سبحانه وتعالي
ولكي أخي جزيل الشكر
:abc_152::abc_152::abc_152::abc_152:

[عبد الهادي بهاب]

جميع المشاريع تسر قلب
فقد وجدت ضالتي في هذا المنتدى شكرا للمشرفين
وشكرا للأعضاء المميزين الذين يتحفوننا يوما بعد يوم بأفكارهم الرائعه والجميله
سوف يتم تحميل المشروع والاستفاده منه بما يرضي الله سبحانه وتعالي
ولكي أخي جزيل الشكر
:abc_152::abc_152::abc_152::abc_152:

اهلا و سهلا .....نحن نفخر و نسر بمروركم الكريم ....و غايتنا رضا الله ...ننتظر منكم تجسيدا لما سبق في مشروع سيدي

[القواسمي]

اهلا و سهلا .....نحن نفخر و نسر بمروركم الكريم ....و غايتنا رضا الله ...ننتظر منكم تجسيدا لما سبق في مشروع سيدي

أخي أكيد انا جهزت السيدي
وان شاء الله راح اقوم بتحميله بس المشكله انه حجمه 3 جيجا

[ياسرهتهت]

بسم الله الرحمن الرحيم
ما شاء الله عمل رائع
واكواد مفيدة نتعلم منها
بارك الله فيك وجازك كل خير
موفق بإذن الله ... لك مني أجمل تحية .

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته
في ملف البيانو هناك تكرار لبعض التغمات في بعض الازرار وذلك لتكرار استدعاء
الملف الصوتي مرتين في حدثين مختلفين عند الضغط على الزر :abc_138:

[عبد الهادي بهاب]

السلام عليكم ورحمة الله وبركاته
في ملف البيانو هناك تكرار لبعض التغمات في بعض الازرار وذلك لتكرار استدعاء
الملف الصوتي مرتين في حدثين مختلفين عند الضغط على الزر :abc_138:

اسف استاذي على التاخر في الرد ......لم الاحظ الرد .............

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

في On preload زرعت هذا الكود

num ={};
for i = 65,90 do
e=1
f = ""..i
Table.Insert(num,e,f);
e=e+1
end


for ii=186,221 do
ee=27
d=""..ii
Table.Insert(num,ee,d);
ee=ee+1
end

-----------------------------
-- Get the names of all of the objects on the DialogEx.
botn ={};
object_names = DialogEx.EnumerateObjects();
output_string = "";
for index, object in pairs(object_names) do
type = DialogEx.GetObjectType(object);
if (type == OBJECT_BUTTON) then
output_string = output_string..object.."\r\n";
end
end
for w in string.gmatch(output_string,"[^%s]+") do
z=1
Table.Insert(botn,z,w);
z=z+1
end

و يعني انشاء مصفوفة تتضمن ارقاما و اخرى ما يقابلها من مسميات الزرار في البرنامج

فيمكن ان هناك ------ تخلبيط ------خلبطة ------في هذه الجزئية و الله اعلم

[السعيد الجزائري]

بارك الله فيك أخي اقلي عمل اكثر من رائع زادك الله من كرمه وفضله:abc_152::abc_152::abc_152: