كيف نمنع كتابة الأعداد العشرية

اكتب هدا الكود في الحدت keyPress للاداة text

keyascii=iif(instr("0123456789",chr$(keyascii),keyascii,Empty)

الكود السابق لا يسمح لك سوى بكتابة الارقام فقط

وارجو ان يكون هدا طلبك، ان لم يكن هو اخبرنا

لك تحياتي

عندما اريد كتابة عدد صحيح من رقم :اكتب الكود التالي:

   h2 = Int(Rnd * 10)

من رقمين

h1 = Int(Rnd * 10) + 1
h2 = Int(Rnd * 10)

      L1.Caption = (h1 * 10) + h2

أخي العزيز طارق

أخي العزيز منصور

بارك الله بكما وجزاكما الله كل خير

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

أخواني أنا أريد عندما يكتب المستخدم عدد عشري تظهر

له رسالة تطلب منه كتابة أعداد صحيحة.

فمثلاً لو كان هنالك خانتان يدخل المستخدم في كل منهما رقماً

ثم يضغط على زر يقوم بقسمة الرقم الأول على الثاني كما يلي:

في الخانة الأولى 25 وفي الثانية 2 عندما يضغط على الزر يكون

الناتج 12.5

ولكن عندما يكتب المستخدم في إحدى الخانتين 42.5 عدد عشري

ويضغط على الزر تظهر له رسالة تطلب منه كتابة أعداد صحيحة.

بارك الله بكم (f)(f)(f)