بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اخواني الاعزاء عشمي فيكم كبير اتمنى ان لا تردوني خائباً اريد المساعدة في تحضير برنامج ..بواسطة فيجوال بيسك فكرة البرنامج كالتالي يتكون البرنامج من ليبلين 2label ومن مربعي نص 2text وزرين امر يكون في الليبل الاول عبارة( الرقم ) ويكون في الثاني عبارة( اللفظ) ويكون التكسن فارغين من اجل ادخال القيم المطلوب هو الكود البرمجي الذي يغير الرقم من ( رقم الى لفظ) والعكس اي اريد تغيير اللفظ في زر الامر الثاني من لفظ الى رقم هذا فكرة البرنامج باختصار اتمنى ان اجد منكم من يساعدني كونه امر مهم بالنسبة لي واي استفسار حول نقطة لم تفتهم انا حاضر وموجود في الاخير لكم فائق الاحترام والتقدير اخوكم المحب ابن الاصول

Ok , I will start it but i will not do it for all numbers, you finish up the numbers Let's say Text1 = Word Text2 = Number privte sub command1_click() ____> TO CHANGE FROM WORD TO NUMBER dim word as integer if text1 ="" then msgbox "Enter Word" exit sub end if word = UCASE(text2) if word = "ONE" then label2 = "1" elseif word="TWO" then label2 = "2" and so on.... end if end sub THe same applies to the second command button privte sub command2_click() ____> TO CHANGE FROM Number TO Word dim numberas integer if text2 ="" then msgbox "Enter number" exit sub end if number= text2 if number= "1" then label1 = "ONE" elseif number="2" then label1 = "TWO" and so on.... end if end sub Hope it helps salam.

in the name of allah thank you very much my brother azizNY and but for me some questions: Let's say Text1 = Word Text2 = Number where is it put is put in properties name? or what privte sub command1_click() ____> TO CHANGE FROM WORD TO NUMBER dim word as integer what is this if text1 ="" then msgbox "Enter Word" exit sub end if where is it put word = UCASE(text2) if word = "ONE" then label2 = "1" elseif word="TWO" then label2 = "2" and so on.... end if end sub THe same applies to the second command button privte sub command2_click() ____> TO CHANGE FROM Number TO Word dim numberas integer if text2 ="" then msgbox "Enter number" exit sub end if number= text2 if number= "1" then label1 = "ONE" elseif number="2" then label1 = "TWO" and so on.... end if end sub Hope it helps salam. [/B][/QUOTE] thanks salaaaaaaaaam

هل ممكن تحويل الارقام الى كملت عربية يعني بدلاً من one تتحول الى واحد وكذلك بقية الارقام ام انه يتم تحويلها الى انجليزي فقط ايضاً اخي لاحبذا تشرح بالعربي لاني مبتدء وشرح مفصل ودقيق يعني اعمل كذا وكذا اشكر وربنا يكرمك

Ok, i really cant explain it in arabic, but i did explain it throughly in english in the code (looks much organized than here) About if u can but arabic instead of english, i will say it depends on the computer u are using, and the computer that ur client is usig.. if both support arabic then u can do it.. Salam,

نص مقتبس من رسالة : azizNY اقتباس Ok, i really cant explain it in arabic, but i did explain it throughly in english in the code (looks much organized than here) About if u can but arabic instead of english, i will say it depends on the computer u are using, and the computer that ur client is usig.. if both support arabic then u can do it.. Salam, thank you my friend 1000 1000 1000 1000 thanks bark allah feek salam

اخي العزيز لم يتبقى لي الا ملاحظة واحدة لماذا استخدمت 4 ليبلات كنت اريد فقط 2 ليبل و 2 تكست يعني label 1 تكون للرقم ويقابله text 1 وlabel 2يكون للفظ ويقابله text 2

أخي عزيز من قام بكتابة هذه الرسالة من جهازي بطريق الخطاء اقتباس الرّسالة الأصليّة كتبت بواسطة ابن الاصول اخي العزيز لم يتبقى لي الا ملاحظة واحدة لماذا استخدمت 4 ليبلات كنت اريد فقط 2 ليبل و 2 تكست يعني label 1 تكون للرقم ويقابله text 1 وlabel 2يكون للفظ ويقابله text 2 Wallah fehimtak khata.. Kont fakir ink 3wez 2 :o sorry, salam,

اخي العزيز هذا افضل نموذج لعلمية ( تفقيط الارقام ) وهوا يتعامل بالاحرف المذكرة والاحرف المانثة خالص تحياتي اصيل

اقتباس الرّسالة الأصليّة كتبت بواسطة اصيل من يافع اخي العزيز هذا افضل نموذج لعلمية ( تفقيط الارقام ) وهوا يتعامل بالاحرف المذكرة والاحرف المانثة خالص تحياتي اصيل Nice program.. but done u thinnk its going a little too complicated for such an easy task.. But it seems that tiy have an excellent knwledge in visual basic, how long have u been doing it? Salam,