ارجو خدمه من خبراء الفيجول بيسك

الكاتب : شواقه   المشاهدات : 848   الردود : 5    ‏2004-02-28
      مشاركة رقم : 1    ‏2004-02-28
  1. شواقه

    شواقه عضو

    التسجيل :
    ‏2004-02-28
    المشاركات:
    3
    الإعجاب :
    0
    السلام عليك ورحمه الله وبركاته
    كيفكم انشاء الله تكونو بخير
    خدمتي با الفيجول بيسك الاصطار السادس كا التالي :-
    اخووواني انا بعمل برنامج الاله الحاسبه على الفيجول بيسك واريد منكم خدمه لاني عجزت عنها وهي كا التالي:-
    انا بسوي في form1 بسوي التنسيق زي الي في الاله الحاسبه العاديه وابي الكود كيف اعمله الذي يخليني مثلا انقر على اي رقم في الاله المجهزه يطلع الرقم في التكست بوكس وبعدين اسوي علامه الجمع او قسمه او ضرب او ناقص
    ينكتب لي العلامه بجانب الرقم الي كتبته وبعدي اكتب الرقم التاني وينكتب بعد العلامه يكونان في تكست واحد طبعا وبعدين اسوي يساوي يطلع لي الناتج بنفس التكست بوكس وهذا مشكلتي او طلبي الى اخواني با المجلس اليمني وانشاء الله يردو عليا با قرب وقت وتمنياتي لكم با النجاع والتوفيق وكسب الخير. انا ما طلبت منكم لني عارفه انكم با باتساعدوني .
    وشكررررررررررا
    مع تحيات اختكم شواقه
     
  2.   مشاركة رقم : 2    ‏2004-02-28
  3. عبير

    عبير عضو

    التسجيل :
    ‏2004-02-02
    المشاركات:
    85
    الإعجاب :
    0
    الااخت شواقة اتمنى يكون هذا طلبك :)
     
  4.   مشاركة رقم : 3    ‏2004-02-28
  5. طالبة علم

    طالبة علم عضو

    التسجيل :
    ‏2003-12-21
    المشاركات:
    185
    الإعجاب :
    0
    السلام عليكم ورحمة الله ...

    يمكنك أختي الكريمة استخدام الخاصية Caption والتي سترجع النص المكتوب على الزر لتضيفي الى الـ TextBox النص المطلوب والكود التالي
    كود:
    Private Sub cmdPlus_Click()
    .
    .
    txtDisplay.Text = txtDisplay.Text & cmdPlus.Caption
    .
    .
    End Sub
    يتضمن الفكرة ويمكنك أضافته الى داخل الاجراء cmdPlus_Click والذي أخذت فيه زر علامة الجمع كمثال ويمكنك تكرارها بالنسبة لبقية الأزرار ، الى أن تصلي الى اليساوي فتغيري الكود بحسب ماقد أخذتيه في عين الأعتبار أثناء سير البرنامج ... أتمنى أن تفيد الفكرة ...
    ...
     
  6.   مشاركة رقم : 4    ‏2004-02-28
  7. نجيب المجيدي

    نجيب المجيدي عضو فعّال

    التسجيل :
    ‏2003-12-08
    المشاركات:
    527
    الإعجاب :
    0
    بسم الله الرحمن الرحيم
    السلام عليكم ورحمة الله وبركاته
    شوفي يا أختي

    أنا راح أعطيك اللي طلبتيه لكن لازم تعرفي ان البرنامج ناقص بهذه الطريقة وعشان تسوي برنامج حلو افتحي الحاسبة تبع الويندوز وحاولي تسوي برنامج مشابه

    وهذا الكود اللي طلبتيه على أساس ان اسماء الأدوات زي ما هي :

    نعمل في البداية مصفوفة أدوات لأزرار الأوامر الخاصة بالأرقام من 0 إلى 9 ونضيف أزرار العمليات + و - و * و / و =
    نكتب في general :

    كود:
    dim cmd as string
    dim Fval as integer
    ونكتب في أحد أزرار الأرقام مايلي:

    كود:
    text1.text = text1.text + command1(index).caption 
    وفي أزرار العمليات نكتب التالي :

    كود:
    cmd = command2(index).caption 
    Fval=text1.text
    text1.text= ""
    وفي زر = نضع الكود التالي :

    كود:
    select case (cmd)
    case "+": text1.text = val(Fval)+val(text1.text)
    case "-": text1.text = val(Fval)-val(text1.text)
    case "*": text1.text = val(Fval)*val(text1.text)
    case "/": text1.text = val(Fval)/val(text1.text)
    end select 
    في الحقيقة هذا ما كتبته بمجرد رؤيتي للموضوع يعني لسه ما جربته
    لكن جربيه وردي فيما إذا اشتغل أو لا

    تحياتي ...

    والسلام عليكم ورحمة الله وبركاته
     
  8.   مشاركة رقم : 5    ‏2004-02-29
  9. شواقه

    شواقه عضو

    التسجيل :
    ‏2004-02-28
    المشاركات:
    3
    الإعجاب :
    0
    مشكوووووره الف الف الف شكرا لخواني واخواتي

    بسم الله الرحمن الرحيم
    اشكر الاخت///عبير اشكر /الاخت طالبة علم اشكرا/الاخ نجيب المجيدي
    ربنا يوووفقكم ويرزقكم من مخازينه ربنا يزد لكم علما من وحكمه ويوفقكم الى كل خير وانشاء الله يوفقكم الله وتصبحونا من علما الفيجول بيسك ما دام وانتم بتحلو لاخوانك واخووواتكم المشاكل
    وان شاء الله ارد لكم جميل ما قدمتوه
    وشكرا
    اختكم / شواقه
     
  10.   مشاركة رقم : 6    ‏2004-02-29
  11. 3laa3sam

    3laa3sam عضو فعّال

    التسجيل :
    ‏2003-06-21
    المشاركات:
    619
    الإعجاب :
    0
    إن شاء الله....

    ماشاء الله أقول إيه بقى.....ربنا يوفقك دنتوا اهوا سيبتوا إختنا شواقه مبسوطه قوي، ربنا يوفقكم.
     

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