قد سبق لي نحميل المديول من هذا المنتدى العظيم لكن للأسف لا أجده
أرجو تحويل الأرقام إلي حروف
مثلاً
المدخل 15152.15
المخرج خمسة عشر الفاً و مائة و أثنان و خمسون ريال و خمسة عشر هلله
و شكراً
طلب بسيط بخصوص التفقيط
مغلق
انت عايز المديول ولا عايز تعرف الطريقة ؟
يا ريت الطريقة و لو مدعمة بمثال يبقه تمام و شكراً جداً
ما زلت في الأنتظار
الطريق مش صعبه بس محتاجه تفكير شويه
الفكره تعتمد على :
بفرض انك تريد ادخال رقم فى مربع نص و عند الضغط على زر يتم التحويل الى حروف
مثال مبسط:
dim a as long
a= text1.text
select case a
case 1:text2.text=",واحد"
case 2:
case3:
end select
هكذا لحد 10 بعد ذالك تعرف ال 20 30 40 50 60 70 80 90 100
ثم 1000
هتستخدم طبعا اكثر دوال النصوص len ,left, rigth,mid
مع الشرط if if and if or للتائكد من حجم الرقم
مثلا:
if a > 10 then
صدقنى هى سهلة خالص بس محتاجه لحبه شغل بص لو وجدت صعوبه فى عملها قولى وهعملك مثال
انا عملتلك مثال بالمرة علشان مكنشى حرمك من حاجه
انا ضغطه ب winrar
الملف :
و الله ده أنت حرمني من كل حاجه
المثال الي أنت عامله لو واحد لسه بيتعلم هيعمله
الموضوع مش سهل زي ما أنت شايفه
لو عندك مثال كامل ضعه في المنتدى حتى أستفيد و أعضاء المنتدى يستفيدوا
( مع العلم المثال كان موجود من قبل في المنتدى لكن بعض تغير المنتدى أختفى الموضوع )
أسف لتضيع و قتكم
شكراً
انا عارف ان المثال سهل واى حد ممكن يعملو يعنى مش حاجه مستحيله بس انا قولتلك
انه بيعتمد على نفس الفكرة على العموم انا اسف يا سيدى ولا تزعل نفسك
أنا مش قصدي يا باشا أنا قصدي لو فيه مثال جاهز مش لازم الواحد يقعد يعمله من جديد
كتير قوي الواحد وقع في مشاكل كانت محتاجه يوم و يومين شغل و بمثال جاهز حل مشاكل كتير أنا الي أسف يا سيدي و فرصه سعيده الي عرفتني عليك يا half angel
هذا الموضوع مغلق.