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

[شواقه]

السلام عليك ورحمه الله وبركاته
كيفكم انشاء الله تكونو بخير
خدمتي با الفيجول بيسك الاصطار السادس كا التالي :-
اخووواني انا بعمل برنامج الاله الحاسبه على الفيجول بيسك واريد منكم خدمه لاني عجزت عنها وهي كا التالي:-
انا بسوي في form1 بسوي التنسيق زي الي في الاله الحاسبه العاديه وابي الكود كيف اعمله الذي يخليني مثلا انقر على اي رقم في الاله المجهزه يطلع الرقم في التكست بوكس وبعدين اسوي علامه الجمع او قسمه او ضرب او ناقص
ينكتب لي العلامه بجانب الرقم الي كتبته وبعدي اكتب الرقم التاني وينكتب بعد العلامه يكونان في تكست واحد طبعا وبعدين اسوي يساوي يطلع لي الناتج بنفس التكست بوكس وهذا مشكلتي او طلبي الى اخواني با المجلس اليمني وانشاء الله يردو عليا با قرب وقت وتمنياتي لكم با النجاع والتوفيق وكسب الخير. انا ما طلبت منكم لني عارفه انكم با باتساعدوني .
وشكررررررررررا
مع تحيات اختكم شواقه

[عبير]

الااخت شواقة اتمنى يكون هذا طلبك :)

[طالبة علم]

السلام عليكم ورحمة الله ...

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

[نجيب المجيدي]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
شوفي يا أختي

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

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

نعمل في البداية مصفوفة أدوات لأزرار الأوامر الخاصة بالأرقام من 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

في الحقيقة هذا ما كتبته بمجرد رؤيتي للموضوع يعني لسه ما جربته
لكن جربيه وردي فيما إذا اشتغل أو لا

تحياتي ...

والسلام عليكم ورحمة الله وبركاته

[شواقه]

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

[3laa3sam]

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