;استفسار-كيفية عمل الة حاسبة بسيطة

هذا الأمر طبيعي لأن الكود الذي كتبته يقوم بذلك عدل الكود ليصبح كما يلي :

Private Sub B5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B5.Click
T1.Text += 9
End Sub

Private Sub B6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B6.Click
T1.Text += 6
End Sub

Private Sub B7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B7.Click
T1.Text+ = 3
End Sub

Private Sub B9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B9.Click
T1.Text+ = 8
End Sub

Private Sub B10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B10.Click
T1.Text+ = 5
End Sub

Private Sub B11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B11.Click
T1.Text+ = 2
End Sub

Private Sub B13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B13.Click
T1.Text += 7
End Sub

Private Sub B14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B14.Click
T1.Text+ = 4
End Sub

Private Sub B15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B15.Click
T1.Text+ = 1
End Sub

بحيث نقوم بإضافة الرقم إلى نص مربع النص و ليس تحول النص إلى الرقم

أرجو أن يكون الكود واضح

تحياتي

اخي الكريم كود اللى اعطيتنيه يجمع انا اريد كود يسمح بالكتابه لاى عدد اظغط عليه مثال اضغط 5 يكتب 5 بعدين اظغط9 يكتب9 بحيث تصبح 95 اما الكود اللى كتبته يجمعها مباشره

ضع بدل الـ + علامة & أي:

T1.Text& = 3

لأنها تستخدم مع النصوص :)

ولكن عند اجراء عمليات حسابية يفضل أن تكتب:

val(T1.Text)

والتي ترجع القيمة كرقم وليس كنص :lol:

العمليات الحسابية

متغيرات او ماذا ؟؟

كيف اقول اجمع العدد السابق والتالي

بعدين اضغط على = ويجي الناتج

عندما تضغط على + (يعني داخل الزر) تكتب

operation=1
x=val(T1.Text)

مع العلم أن المتغيرات عامة

dim operation as integer
dim x as double
dim z,y as double

وبعدين في زر = تكتب:

y=val(T1.text)
select case operation
case 1:
z=x+y
T1.text=z
end select

حيث أنك في كل عملية تسوي نفس الشيء لكن مع تغيير قيمة المتغير operation وتعمل باقي الcase في الselect case

عفواً منك أخي لكن الكود اللي أنا كتبته بيلبي طلبك 100%

على كل أنا جهزتلك مثال لآلة حاسبة بسيطة

أرجو إنك تدرسه و تخبرني على أي نقطة بتستعصي عليك

تحياتي

Calc.zip

تحياتي لكم اجرب واشوف