كيف يمكن جعل بلجن Calendar يكتب التاريخ بالعربي ؟

[ياسرهتهت]

بسم الله الرحمن الرحيم

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

في هذا المشروع يتم تحديد التاريخ بستخدام بلجن Calendar

http://b.top4top.net/p_47brrn1.gif

بعد عمل Focus فيInput يظهر البلجن Calendar
ليتم تحديد التاريخ المطلوب ، ويظهر في Input على شكل ارقام

السؤال : كيف اجعل التاريخ المحدد يظهر بالعربي كما في البرجراف(Paragraph)

رابط ملف مفتوح

http://up.top4top.net/downloadf-47ahta1-rar.html

موفقين بإذن الله ... لكم مني أجمل تحية .

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

مساء بإذن الله سأحاول المشاركة معكم
الرد محجوز:abc_086:

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

السلام عليكم ورحمة الله وبركاته
كيف نفكر في الحل ؟
على مستوى العنصر الممثل لــ Calendar و في حدثه On select
نسنتطبع الاعلان عن e_StartDate و هو معبر عن التاريخ المختار
و لتقسيم هذا التاريخ الى اليوم و الشهر و السنة باتأكيد يمكن استعمال
الدالة String.Mid لأعرف و أحدد
أن :
String.Mid(e_StartDate, 1, 4)
معبر عن السنة
و أن :
String.Mid(e_StartDate, 6, 2)
معبر عن الشهر
و أن :
String.Mid(e_StartDate, 9, 2)
معبر عن اليوم
أليس كذلك؟ نتابع :abc_138:

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

بعد ما عرفنا اليوم و الشهر و السنة
نحولهم الى قيمة رقمية
باستعمال الدالة os.time و بحكم أننا لا نريد التوقيت سيعتمد تلقائيا الساعة 12 و لكن سنهملها
ليكون الكود التالي :
k = os.time({year=String.Mid(e_StartDate, 1, 4), month=String.Mid(e_StartDate, 6, 2), day=String.Mid(e_StartDate, 9, 2)})

يحدد قيمة رقمية للتاريخ المختار و التي يستحيل ان تكون لتاريخ آخر
يتبع

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

بعد الحصول على تلك القيمة
و قبل التعامل معها لارجاعها لتاريخ مرة ثانية نخاطب النظام
باللغة العربي و كما تعرضنا لذلك بالإجراء :
os.setlocale("Arabic")
الان بعد هذه الاجراءات صار التاريخ مخزن و قابل للاستدعاء بالطريقة التي
نريدها يتبع

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

نريده عربي .. مثلا هكذا
اسم اليوم - اليوم - الشهر باللغة العربية - السنة
هاهــو التاريخ المطلوب :
d=os.date("%A %d %B %Y", k)
نجمع الان هذه المحاولة

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

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

ليكون الان في عنصر Plugin1 الموجود في صفحة الديالوج
الكود التالي :
k = os.time({year=String.Mid(e_StartDate, 1, 4), month=String.Mid(e_StartDate, 6, 2), day=String.Mid(e_StartDate, 9, 2)})
os.setlocale("Arabic")
d=os.date("%A %d %B %Y", k)
result = DialogEx.Close(0);

موفق :abc_138:
نقرأ حلول اجمل بالتوفيق

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

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

[ياسرهتهت]

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

ليكون الان في عنصر Plugin1 الموجود في صفحة الديالوج
الكود التالي :
k = os.time({year=String.Mid(e_StartDate, 1, 4), month=String.Mid(e_StartDate, 6, 2), day=String.Mid(e_StartDate, 9, 2)})
os.setlocale("Arabic")
d=os.date("%A %d %B %Y", k)
result = DialogEx.Close(0);

موفق :abc_138:
نقرأ حلول اجمل بالتوفيق

---------------------------------------------------
بسم الله الرحمن الرحيم
ما شاء الله
افكار واكواد حصرية فهمها يحتاج ساعات
فكيف بالذي كتبها

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


http://b.top4top.net/p_47jx091.png



موفق بإذن الله ... لك مني أجمل تحية .

:abc_138::abc_138:

[ياسرهتهت]

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

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

بسم الله الرحمن الرحيم

لا استاذي الكريم الكود يحقق المطلوب 100%:abc_051:
والتاخير في الرد بسبب بطأ النت عندي في هذا التوقيت
تقبل تقديري واحترامي
:abc_138::abc_138::abc_138:

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

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

شكرا لاستاذين الكريمين

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

تحياتي :abc_152::abc_152:

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

ســـؤال يفرض نفسه كيف نتخلى عن ملف Date.dll و تحقيق عند دخول التجميعية
كتابة للتاريخين بالعربي في الانبوت و Paragraph1
-------------------------------
نحذف Date.dll + نمسح أكواد الصفحة في on show اذ كان النظام يقبل اللغة العربية

ونكتب في on show
os.setlocale("Arabic")
d=os.date("%A %d %B %Y")
Paragraph.SetText("Paragraph1", d);
r=os.date("%x")
moish = String.Mid(r, 4, 2)
-----------------------------
my_table = {["01"] = "محرم ",["02"] = "صفر",["03"] = "ربيع الأول",["04"] = "ربيع الثاني",["05"] = "جمادي الأول",["06"] = "جمادي الثاني",["07"] = "رجب",["08"] = "شعبان",["09"] = "رمضان",["10"] = "شوال",["11"] = "ذو القعدة",["12"] = "ذو الحجة"};
for i , n in pairs (my_table) do
if i == moish then
higri = String.Replace(r, moish,n, false);
end
end
Input.SetText("Input2", higri);

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

[ياسرهتهت]

ســـؤال يفرض نفسه كيف نتخلى عن ملف Date.dll و تحقيق عند دخول التجميعية
كتابة للتاريخين بالعربي في الانبوت و Paragraph1
-------------------------------
نحذف Date.dll + نمسح أكواد الصفحة في on show اذ كان النظام يقبل اللغة العربية

ونكتب في on show
os.setlocale("Arabic")
d=os.date("%A %d %B %Y")
Paragraph.SetText("Paragraph1", d);
r=os.date("%x")
moish = String.Mid(r, 4, 2)
-----------------------------
my_table = {["01"] = "محرم ",["02"] = "صفر",["03"] = "ربيع الأول",["04"] = "ربيع الثاني",["05"] = "جمادي الأول",["06"] = "جمادي الثاني",["07"] = "رجب",["08"] = "شعبان",["09"] = "رمضان",["10"] = "شوال",["11"] = "ذو القعدة",["12"] = "ذو الحجة"};
for i , n in pairs (my_table) do
if i == moish then
higri = String.Replace(r, moish,n, false);
end
end
Input.SetText("Input2", higri);

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

بارك الله فيك استاذي
تم التطبيق بنجاح 100%
شكرا جزيلا على هذة المعلومات والدروس القيمة


:abc_138::abc_138::abc_138:

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

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

شكرا لاستاذين الكريمين

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

تحياتي :abc_152::abc_152:

بارك الله فيك ... ملاحظة جيدة و لو انه كذلك العناوين الدالة على الطلب بوضوح في قسم الاستفسارات - القسم المفضل -:abc_145:
هي في حد ذاتها دروس يمكن الوصول او الاشارة لها بسهولة ... سيأتي جيل - إن شاء الله - يغربل ما يقال هنا و هناك
فقط علينا تحقيق مقروئية لا تنتهي بانتهاء الروابط حتى نؤسس نهايات جيدة لكل انطلاقة جديدة . موفق :abc_138: