السلام عليكم ورحمة الله وبركاته
معذرة على التاخر ......... قيه تعديلات ........ اضافة زر للتوقيت الصيفي .......... اضافة ملف ini يكون في القرص c من حاسوبك ليبقى ..... طبعا يمكن اخفاؤه لكي لا تحذفه و الا فسيعتمد على التوقيت العادي ...... البرنامج يتشؤه اليا برقم 0 اي التقيت العادي و اذا فعلت الزر فسيعطيه قيمة 1 و بالتالي سيزيد ساعة اليا لكل المواقيت ........فيه تعديل اخر حول اسماء الله الحسنى عربي فرنسي .......يمكن التعدل على الملفات في ملف docs و ترتيبها ليتوافق الاسم مع ترجمته ليظهرا في نفس الوقت .......كما يمكن اضافة فلاش لاسماء ان وجد او صورة متحركة من باب الجناليات .............بالتوفيق

http://up.top4top.net/downloadf-29tldy1-rar.html

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

هل في ملفك ملف الاكسل csv

أجل
لكن أنظر الكود الموجود في onShow
مختلف عن النسخة التي عندي
[HTML]
Grid.LoadFromFile("Grid1", "AutoPlay\\Docs\\1.csv", ";", true);

----------date arab fran----------
nDay = String.ToNumber(System.GetDate(DATE_FMT_DAYOFWEEK) );
day = {"الاحد", "الاثنين", "الثلاثاء", "الاربعاء", "الخميس", "الحمعة", "السبت"}
dayf = {"dimanche", "lundi", "mardi", "mercredi", "jeudi", "vendredi", "lundi"}
dayInMonth = System.GetDate(DATE_FMT_DAY);
nMonth = String.ToNumber(System.GetDate(DATE_FMT_MONTH));
month = {"يناير", "فبراير", "مارس", "ابريل", "مايو", "يونيو", "يوليو", "اغسطس", "سبتمبر", "اكتوبر", "نوفمبر", "ديسمبر"}
monthf = {"janvier", "février", "mars", "avril", "mai", "juin", "juillet", "aout", "séptembre", "octobre", "novembre", "décembre"}
year = System.GetDate(DATE_FMT_YEAR);
Paragraph.SetText("datea", day[nDay].." "..dayInMonth.." " ..month[nMonth].." "..year);
Paragraph.SetText("datef", dayf[nDay].." "..dayInMonth.." " ..monthf[nMonth].." "..year);
--------------
num = os.date ("%j")-1+1;
ete = INIFile.GetValue("C:\\ete.ini", "heur", "heur");
if ete =="1" then
Button.SetText("Button1", "ETE_On");
Button.SetProperties("Button1", {ButtonFile= "AutoPlay\\Buttons\\ver.btn" })
for i=1,6 do
v = Grid.GetCellText("Grid1", num, i+1);
d1 = String.Mid(v, 1, 2)+1 ;
d2 = String.Mid(v, 4, 2) ;
Input.SetText("Input"..i, d1..":"..d2);
end
elseif ete =="0" then
Button.SetText("Button1", "ETE_Off");
Button.SetProperties("Button1", {ButtonFile= "AutoPlay\\Buttons\\red.btn" })
for i=1,6 do
v = Grid.GetCellText("Grid1", num, i+1);
Input.SetText("Input"..i, v);
end
end
-----------asma-----------
hsna = TextFile.ReadToTable("AutoPlay\\Docs\\hsna.txt");
hsnaf = TextFile.ReadToTable("AutoPlay\\Docs\\hsnaf.txt");
Page.StartTimer(1000, 3);
--------heur------------
Page.StartTimer(10, 1);

[/HTML]

إن كنت قد فهمت الكود فإننا لا نطلب منه البحث عن مواقيت اليوم لإظهارها في الأنبوتات الستة ,
أنظر الكود القديم
[html]

min = {}; heur = {}; e=1;
Page.StartTimer(10, 1);
Grid.LoadFromFile("Grid1", "AutoPlay\\Docs\\1.csv", ";", true);


num = os.date ("%j")-1+1;
for i=1,7 do
Input.SetText("Input"..i, Grid.GetCellText("Grid1", num, i+1));
d1 = String.Mid(Input.GetText("Input"..i), 1, 2) ;
d2 = String.Mid(Input.GetText("Input"..i), 4, 2) ;
Table.Insert(heur,e,d1);
ListBox.AddItem("ListBox1", d1, "");
ListBox.AddItem("ListBox2", d2, "");
Table.Insert(min,e,d2);
e=e+1;
end

----------date arab fran----------
-- تخزين رقم 1 يوم في الاسبوع معمصفوفة ايام الاسبوع
nDay = String.ToNumber(System.GetDate(DATE_FMT_DAYOFWEEK) );
day = {"الاحد", "الاثنين", "الثلاثاء", "الاربعاء", "الخميس", "الجمعة", "السبت"}
dayf = {"dimanche", "lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi"}

-- اليوم من الشهر
dayInMonth = System.GetDate(DATE_FMT_DAY);
-- تخزين رقم الشهر من السنة وتحويلة الي نص داخل المصفوفة
nMonth = String.ToNumber(System.GetDate(DATE_FMT_MONTH));
month = {"يناير", "فبراير", "مارس", "ابريل", "مايو", "يونيو", "يوليو", "اغسطس", "سبتمبر", "اكتوبر", "نوفمبر", "ديسمبر"}
monthf = {"janvier", "février", "mars", "avril", "mai", "juin", "juillet", "août", "septembre", "octobre", "novembre", "décembre"}

--السنة
year = System.GetDate(DATE_FMT_YEAR);

-- دمج مغيرات اليوم والشهر والسنة
Paragraph.SetText("datea", day[nDay].." "..dayInMonth.." " ..month[nMonth].." "..year);
Paragraph.SetText("datef", dayf[nDay].." "..dayInMonth.." " ..monthf[nMonth].." "..year);


--------------
num = os.date ("%j")-1+1;
ete = INIFile.GetValue("C:\\ete.ini", "heur", "heur");
if ete =="1" then
Button.SetText("Button1", "ETE_On");
Button.SetProperties("Button1", {ButtonFile= "AutoPlay\\Buttons\\ver.btn" })
for i=1,6 do
v = Grid.GetCellText("Grid1", num, i+1);
d1 = String.Mid(v, 1, 2)+1 ;
d2 = String.Mid(v, 4, 2) ;
Input.SetText("Input"..i, d1..":"..d2);
end
elseif ete =="0" then
Button.SetText("Button1", "ETE_Off");
Button.SetProperties("Button1", {ButtonFile= "AutoPlay\\Buttons\\red.btn" })
for i=1,6 do
v = Grid.GetCellText("Grid1", num, i+1);
Input.SetText("Input"..i, v);
end
end
--------heur------------
Page.StartTimer(10, 1);


[/html]

و الله أعلم

الشرح ...... في الكود اسفله

[HTML]
Grid.LoadFromFile("Grid1", "AutoPlay\\Docs\\1.csv", ";", true); -------استدعاء البيانات من ملف الاكسل

----------date arab fran----------التاريخ بالعربي و الفرنسي ما فيه مشكل -----------
nDay = String.ToNumber(System.GetDate(DATE_FMT_DAYOFWEEK) );
day = {"الاحد", "الاثنين", "الثلاثاء", "الاربعاء", "الخميس", "الحمعة", "السبت"}
dayf = {"dimanche", "lundi", "mardi", "mercredi", "jeudi", "vendredi", "lundi"}
dayInMonth = System.GetDate(DATE_FMT_DAY);
nMonth = String.ToNumber(System.GetDate(DATE_FMT_MONTH));
month = {"يناير", "فبراير", "مارس", "ابريل", "مايو", "يونيو", "يوليو", "اغسطس", "سبتمبر", "اكتوبر", "نوفمبر", "ديسمبر"}
monthf = {"janvier", "février", "mars", "avril", "mai", "juin", "juillet", "aout", "séptembre", "octobre", "novembre", "décembre"}
year = System.GetDate(DATE_FMT_YEAR);
Paragraph.SetText("datea", day[nDay].." "..dayInMonth.." " ..month[nMonth].." "..year);
Paragraph.SetText("datef", dayf[nDay].." "..dayInMonth.." " ..monthf[nMonth].." "..year);
--------------
num = os.date ("%j")-1+1; ---- رقم اليوم و المقابل للـ ID في الاكسلو الغريد ------------
ete = INIFile.GetValue("C:\\ete.ini", "heur", "heur");-------- نرجع لملف ini الذي جفظناه في القرص c-------
if ete =="1" then ------- فان القيمة واحد اي التوقيت الصيفي --------
Button.SetText("Button1", "ETE_On");-------يكتب ete_on اي التوقيت شغال ------
Button.SetProperties("Button1", {ButtonFile= "AutoPlay\\Buttons\\ver.btn" })---يجعل الزر اخضر -----------
for i=1,6 do ---------- من اجل كل الانبوتات -------و الليبلات
v = Grid.GetCellText("Grid1", num, i+1);.........نستدعي القيم الموجودة في الصف من الغريد رقمه هو نفس اليوم و قيم الاعمدة .........
d1 = String.Mid(v, 1, 2)+1 ; ------نستخلص فقط الساعات و نضيف ساعة للحاصل
d2 = String.Mid(v, 4, 2) ; -------- نستخلص الدقائق
Input.SetText("Input"..i, d1..":"..d2);-------نضع في الانبوتات هذه القيم
end
elseif ete =="0" then----------من اجل التوقيت العادي----------
Button.SetText("Button1", "ETE_Off");--------نكتب في الزر ete_off اي التوقيت الصيفي غير فعال -------
Button.SetProperties("Button1", {ButtonFile= "AutoPlay\\Buttons\\red.btn" })------يصبح الزر احمر-------
for i=1,6 do
v = Grid.GetCellText("Grid1", num, i+1);
Input.SetText("Input"..i, v);-----------نكتب الموجود في الخانات دون تغيير ----------
end
end
-----------asma-----------
hsna = TextFile.ReadToTable("AutoPlay\\Docs\\hsna.txt");
hsnaf = TextFile.ReadToTable("AutoPlay\\Docs\\hsnaf.txt");
Page.StartTimer(1000, 3);
--------heur------------
Page.StartTimer(10, 1);

[/HTML]

..............................
......................

ساحاول تصليح الخطا ........

تم التصحيح .....ارجو ان اكون وفقت في زر الصيف ...............

http://up.top4top.net/downloadf-30zbln1-rar.html

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

هذا تطبيق البرنامج بعد تحويله الى ملف تنفيذي

http://up.top4top.net/downloadf-30d71k1-rar.html

مجهود رائـــــع ... بارك الله فيك

مرور طيب استاذ ربيع

بسم الله الرحمن الرحيم
أولا الشكر لك أخي إقلي ...... لكن ولللأسف البرنامج حتى التنفيذي منه لم يعمل البتة في بادئ الأمر ولما غيرت إسمه إلى حروف فرنسية إشتغل
لكن الأمر عجيب لا يحمل أوقات الصلوات و يحسب أنه تبقى للظهر 3 ساعات و 47 دق .
أسماء الله الحسنى و التوقيت و التاريخ كل ذلك يعمل بشكل جيد
أنظر الصورة في المرفقات
إظطررت إلى تغيير اسم الملف apz إلى حروف فرنسية حتى أستطيع فتحه ,
في الواقع منذ تحميلي للبرنامج auto Play و أنا أعاني من مشكل اللغة العربية ; و رغم أني أختار الخط العربي فالظهر إن حملت برنامجك يظهر هكذا
ÇáÙåÑوإن كتبته أنا يظهر نقاط إستفهام ?????? رغم اني إخترت خط عربي و في Script : Arabe
أنطلاقا من رد الأخ ربيع فالبرنامج يعمل عنده جيدا
إذا المشكلة في حاسوبي و للأسف لم أجد لها حلا إلى اليوم ,,,,

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

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