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

الكاتب : ابن الاصول   المشاهدات : 887   الردود : 9    ‏2003-12-24
      مشاركة رقم : 1    ‏2003-12-24
  1. ابن الاصول

    ابن الاصول قلم فضي

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

    azizNY عضو

    التسجيل :
    ‏2003-12-07
    المشاركات:
    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.
     
  4.   مشاركة رقم : 3    ‏2003-12-24
  5. ابن الاصول

    ابن الاصول قلم فضي

    التسجيل :
    ‏2003-07-21
    المشاركات:
    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]
     
  6.   مشاركة رقم : 4    ‏2003-12-24
  7. ابن الاصول

    ابن الاصول قلم فضي

    التسجيل :
    ‏2003-07-21
    المشاركات:
    2,607
    الإعجاب :
    0
    Re: gazak allah kheer

    هل ممكن تحويل الارقام الى كملت عربية يعني بدلاً من one تتحول الى واحد وكذلك بقية الارقام
    ام انه يتم تحويلها الى انجليزي فقط
    ايضاً اخي لاحبذا تشرح بالعربي لاني مبتدء وشرح مفصل ودقيق يعني اعمل كذا وكذا
    اشكر وربنا يكرمك
     
  8.   مشاركة رقم : 5    ‏2003-12-24
  9. azizNY

    azizNY عضو

    التسجيل :
    ‏2003-12-07
    المشاركات:
    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,
     
  10.   مشاركة رقم : 6    ‏2003-12-25
  11. ابن الاصول

    ابن الاصول قلم فضي

    التسجيل :
    ‏2003-07-21
    المشاركات:
    2,607
    الإعجاب :
    0
    Re: What i can do

    نص مقتبس من رسالة : azizNY
    thank you my friend
    1000 1000 1000 1000 thanks
    bark allah feek
    salam
     
  12.   مشاركة رقم : 7    ‏2003-12-25
  13. ابن الاصول

    ابن الاصول قلم فضي

    التسجيل :
    ‏2003-07-21
    المشاركات:
    2,607
    الإعجاب :
    0
    Re: Re: What i can do

    اخي العزيز لم يتبقى لي الا ملاحظة واحدة
    لماذا استخدمت 4 ليبلات كنت اريد فقط 2 ليبل و 2 تكست
    يعني label 1 تكون للرقم ويقابله text 1
    وlabel 2يكون للفظ ويقابله text 2
     
  14.   مشاركة رقم : 8    ‏2004-01-17
  15. يافع

    يافع عضو متميّز

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

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

    Wallah fehimtak khata..

    Kont fakir ink 3wez 2 :eek:

    sorry,

    salam,
     
  16.   مشاركة رقم : 9    ‏2004-01-17
  17. اصيل من يافع

    اصيل من يافع عضو

    التسجيل :
    ‏2004-01-14
    المشاركات:
    56
    الإعجاب :
    0
    هذا الملف مرفق

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

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


    خالص تحياتي


    اصيل
     
  18.   مشاركة رقم : 10    ‏2004-01-17
  19. azizNY

    azizNY عضو

    التسجيل :
    ‏2003-12-07
    المشاركات:
    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,
     

مشاركة هذه الصفحة