المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : استغلال رسالة الخطأ في منع الحروف


ثامر أبو بلقيس
08-01-2015, 09:05 PM
السلام عليكم ورحمة الله وبركاته
تنويعا و تزامنا مع ما يطرح من مواضيع هادفة
وجدت نفسي أتعلم في كتابة كود يسمح بكتابة الأرقام
ومنع الحروف فاستغليت رسالة الخطأ

لا أعرف مدى فعالية هذه المحاولة لكن دعنا نجرب
كتابة هذا الكود في انبوت و بالضبط في الحدث on char
function bel ()
v = Input.GetText(this)+0
end
if pcall(bel) then
else
Dialog.TimedMessage("انتبه", "لايمكن كتابة الحروف", 500, MB_ICONINFORMATION);
Input.SetText(this, string.sub (Input.GetText(this), 1,#Input.GetText(this)-1));
Input.SetSelection(this,1,-1);
Input.SetSelection(this,-1,-1);
end

لنجرب و إن شاء الله تكون النتائج مقبولة لحد ما :abc_138:

عوض السوداني
08-01-2015, 10:30 PM
بارك الله فيك اخي ثامر
ابتكار قيم ومفيد بالتوفيق
ومزيد من التقدم والازدهار
:abc_023:

ثامر أبو بلقيس
08-01-2015, 10:39 PM
بارك الله فيك شكرا :abc_138:

احترامي :abc_138:

أبو يوسف
09-01-2015, 02:36 PM
أنا لا أعمل في مجالكم ولكن كل الشكر لك بطرح اي شيء تتعلمه حتى وهو في طور التطور

.

abohmam
09-01-2015, 09:05 PM
بارك الله فيك أخانا ثامر ابا بلقيس

مسيرة متميزة من الإبداع

جزاك الله خيرا

ياسرهتهت
09-10-2018, 10:21 PM
بسم الله الرحمن الرحيم
دائما نجد عندك المفيد والرائع
موفق بإذن الله ... لك مني أجمل تحية .
:abc_152::abc_152:

ورشة عمل هشام
10-10-2018, 03:06 PM
بسم الله الرحمن الرحيم
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
يمكن اختصار هذه الطريقة بالكود الذي اقدمه لكم مع فائق الاحترام والتقدير



if e_Char >=0 and e_Char <=47 or e_Char >=58 and e_Char <= 127 then
if e_Char ~= 8 then
--Dialog.Message("","áÇíãßä ßÊÇÈÉ ÇáÇÍÑÝ")
Input.SetText(this ,String.Replace(Input.GetText(this),String.Char(e_ Char),"",false) )
end
end



يمكن وضع هذا الكود في الانبوت في الحدث On Cahr
وان لاحظة ان الاحرف العربية تظهر غير فقط في الرقم 127 الى 300 او اكثر

ثامر أبو بلقيس
01-11-2018, 10:45 AM
شكرا..:abc_050: