استغلال رسالة الخطأ في منع الأرقام

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

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

وهذه محاولة في منع كتابة أرقام في الانبوت
و قبول الحروف فقط - أثناء استمرارية الكتابة -
----
في الانبوت و في الحدثon char مثلا
نكتب
function kiss ()
x= string.sub (Input.GetText(this),#Input.GetText(this))+0
end
if pcall(kiss) then
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_080:

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
محاولة لتوظيف الاكواد
http://www.gulfup.com/?8Xmjzz
شـكــ وبارك الله فيك ـــرا لك .:abc_152:.. لك مني أجمل تحية .

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

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

مرور طيب أخي صالحي .. لم أستطيع تحميل الملف مشكور..

لك مني هذه المحاولة ففي السابقة يوجد عيب وهو نستطيع تمرير أرقام
فعندما نكتب مفردة يمكن وضع المؤشر بين الحروف فنكتب أرقام دون
شعور الدالة

الحل : جرب هذا الكود في الحدث on char بالذات
function thameur ()
c = String.Char(e_Char)
if c+1~=0 then
result = String.Replace(Input.GetText(this), c, "", false);
Input.SetText(this, result);
end
end
if pcall(thameur) then
Dialog.TimedMessage("لحظة؟", "لا يمكن كتابة الارقام", 500, MB_ICONINFORMATION);
Input.SetSelection(this,1,-1);
Input.SetSelection(this,-1,-1);
end

نلتقي بمحبة :abc_088:و ود :abc_088:

[المحترف القادم]

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

فتح الله عليك .. يا حبيب والديك

أحب التنويه فقط لشيء بسيط ..

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

وهذه محاولة في منع كتابة أرقام في الانبوت
و قبول الحروف فقط - أثناء استمرارية الكتابة -
----
في الانبوت و في الحدثon char مثلا
نكتب
function kiss ()
x= string.sub (Input.GetText(this),#Input.GetText(this))+0
end
if pcall(kiss) then
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_080:

هذا الكود الذي به خلل يمنع كتابة الحروف ويقبل الأرقام :abc_070:
والخلل ( إمكانية كتابة حروف بين الأرقام )


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

مرور طيب أخي صالحي .. لم أستطيع تحميل الملف مشكور..

لك مني هذه المحاولة ففي السابقة يوجد عيب وهو نستطيع تمرير أرقام
فعندما نكتب مفردة يمكن وضع المؤشر بين الحروف فنكتب أرقام دون
شعور الدالة

الحل : جرب هذا الكود في الحدث on char بالذات
function thameur ()
c = String.Char(e_Char)
if c+1~=0 then
result = String.Replace(Input.GetText(this), c, "", false);
Input.SetText(this, result);
end
end
if pcall(thameur) then
Dialog.TimedMessage("لحظة؟", "لا يمكن كتابة الارقام", 500, MB_ICONINFORMATION);
Input.SetSelection(this,1,-1);
Input.SetSelection(this,-1,-1);
end

نلتقي بمحبة :abc_088:و ود :abc_088:

وهذا الكود يمنع كتابة الأرقام ويقبل الحروف :abc_138:

كود يمنع الحروف وبه خلل >>> هل يمكن تعديله أستاذي القدير

وكود يمنع الأرقام >> وشغال تمام ولا يوجد به خلل

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

كود يمنع الحروف وبه خلل هل يمكن تعديله

جرب هذا التعديل موفق

function bel ()
h =String.Char(e_Char)
if h ~="." then
h =h+0
end;end
if not pcall(bel) then
Input.SetText(this, String.Replace(Input.GetText(this), h, "", false));
Dialog.TimedMessage("انتبه", "لايمكن كتابة حروفا أو رموزا", 500, MB_ICONINFORMATION);
Input.SetSelection(this,1,-1);Input.SetSelection(this,-1,-1);
end

[المحترف القادم]

فتح الله عليك .. أستاذ ثامر

[abohmam]

جزاك الله خيرا أخى ثامر

ماشاء الله طرح مميز ومتابعة رائعة

بارك الله فيك وفى جميع الأخوة

[الحارث بن فيصل]

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