• الشروط والقوانين  |   سياسة الخصوصية  |   مساعدة
  • يا اهل الخبرة ارجو المساعدة في فيجوال بيسك

    ابن الاصول

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

    azizNY

    عضو نشيط
    التسجيل
    7 ديسمبر 2003
    المشاركات
    218
    الإعجابات
    0
    I'll Start it

    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.
     

    ابن الاصول

    قلم فضي
    التسجيل
    21 يوليو 2003
    المشاركات
    2,607
    الإعجابات
    0
    gazak allah kheer

    [color=FF0000]in the name of allah
    thank you very much my brother azizNY
    and but for me some questions[/color]:



    Let's say Text1 = Word
    Text2 = Number
    [color=FF0000]where is it put
    is put in properties name? or what[/color]
    privte sub command1_click() ____> TO CHANGE FROM WORD TO NUMBER

    dim word as integer
    [color=FF0000]what is this[/color]

    if text1 ="" then
    msgbox "Enter Word"
    exit sub
    end if
    [color=0000FF]where is it put[/color]

    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]
    [color=33FF33]thanks
    salaaaaaaaaam[/color]
     

    ابن الاصول

    قلم فضي
    التسجيل
    21 يوليو 2003
    المشاركات
    2,607
    الإعجابات
    0
    Re: gazak allah kheer

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

    azizNY

    عضو نشيط
    التسجيل
    7 ديسمبر 2003
    المشاركات
    218
    الإعجابات
    0
    What i can do

    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,
     

    ابن الاصول

    قلم فضي
    التسجيل
    21 يوليو 2003
    المشاركات
    2,607
    الإعجابات
    0
    Re: What i can do

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

    ابن الاصول

    قلم فضي
    التسجيل
    21 يوليو 2003
    المشاركات
    2,607
    الإعجابات
    0
    Re: Re: What i can do

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

    يافع

    عضو متميز
    التسجيل
    29 مارس 2003
    المشاركات
    1,765
    الإعجابات
    0
    Re: Re: Re: What i can do

    [color=FF0000]أخي عزيز من قام بكتابة هذه الرسالة من جهازي بطريق الخطاء[/color]

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

    Kont fakir ink 3wez 2 :eek:

    sorry,

    salam,
     
    التسجيل
    14 يناير 2004
    المشاركات
    56
    الإعجابات
    0
    هذا الملف مرفق

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

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


    خالص تحياتي


    اصيل
     

    azizNY

    عضو نشيط
    التسجيل
    7 ديسمبر 2003
    المشاركات
    218
    الإعجابات
    0
    Re: هذا الملف مرفق

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

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


    خالص تحياتي


    اصيل
    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,