يا اهل الخبرة ارجو المساعدة في فيجوال بيسك

[ابن الاصول]

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

[azizNY]

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 تتحول الى واحد وكذلك بقية الارقام
ام انه يتم تحويلها الى انجليزي فقط
ايضاً اخي لاحبذا تشرح بالعربي لاني مبتدء وشرح مفصل ودقيق يعني اعمل كذا وكذا
اشكر وربنا يكرمك

[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,

[ابن الاصول]

نص مقتبس من رسالة : 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,

[اصيل من يافع]

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

وهوا يتعامل بالاحرف المذكرة والاحرف المانثة


خالص تحياتي


اصيل

[azizNY]

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

وهوا يتعامل بالاحرف المذكرة والاحرف المانثة


خالص تحياتي


اصيل

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,