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

عبد الهادي بهاب · 06-02-2016, 07:45 PM

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

كود PHP:


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);

عبد الهادي بهاب · 06-02-2016, 07:50 PM

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

كود PHP:


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);--------تشغيل تايمر الوقت الخاص بالنظام

عبد الهادي بهاب · 06-02-2016, 07:58 PM

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

كود PHP:


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

عبد الهادي بهاب · 06-02-2016, 07:59 PM

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

كود PHP:


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

عبد الهادي بهاب · 06-02-2016, 08:59 PM

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

**أبو يوسف أبو يوسف** · 07-02-2016, 10:11 PM

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

**minomars minomars** · 08-02-2016, 12:29 AM

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

عبد الهادي بهاب · 08-02-2016, 12:49 AM

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

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

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

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

تحياتي

عبد الهادي بهاب · 08-02-2016, 12:50 AM

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

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

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

**القواسمي القواسمي** · 09-02-2016, 09:01 PM

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

عبد الهادي بهاب · 10-02-2016, 10:06 AM

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

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

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

**القواسمي القواسمي** · 10-02-2016, 10:53 AM

المشاركة الأصلية بواسطة المحترف اقلي مشاهدة المشاركة

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

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

**ياسرهتهت ياسرهتهت** · 10-02-2016, 03:53 PM

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 15-02-2016, 09:13 PM

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

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

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

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

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك