چگونه چند عدد را با هم جمع کنم؟

[m23702]

می خواهم در طراحی ماشین حساب با هر بار کلیک کردن دکمه + اعداد داخل TEXTبا هم جمع شوند ولی من دو متغیر دارم و به همین خاطر فقط دو عدد با هم جمع می شوند بلد نیستم این کار را تعمیم دهم .لطفا کمکم کنید!
(دکمه های عملگر را به صورت آرایه تعریف کرده ام)

[meh_secure]

نمونه کدهای این برنامه بسیار زیاده جستجو کنید.

[subsub]

من که منظور شما را نفهمیدم. meh_secure درسته که سوال این دوست عزیز کمی ابتدائیه ولی ممکنه تازه کار باشند. اگه می خواستند جستجو کنند که اینجا یه تاپیک باز نمی کردند

[touraj]

من هم قبلاً همین مشکل رو داشتم. باید براش اولویت عملگر رو تعریف کنی. یعنی اول ضرب، بعد تقسیم و بعدش هم جمع و منها رو قرار بدی. کد سورسش زیاده. البته خیلیهاش هم درست کار نمیکنن. من الان نمونه ای ندارم که بهت بدم. ولی یادمه اون موقع از بین 14 تا برنامه فقط یکیش درست کار کرد که یه ایتالیایی هم اونو نوشته بود.

[perfeshnal]

سلام
این یک سورس ماشین حسابه امیدوارم بدردت بخوره

[perfeshnal]

اگه سوال دیگه ای هم داشتی بپرس تا جواب تو من یا دوستان دیگه بدن

[amirsadeghi]

سلام
نگاه کن برای راحت تر بودن سورستو بزار تا من مشکلشو رفع کنم و بهت کامل شدشو بدم
فعلا بای

[powerboy2988]

midoni sare chey?
u vaghti ke yeki az 4 dokmey (+,*,-,/) ro az roye keyboard zadi bayad mohtaviate text ro to motagheyere avalet berizi ba text ro pak koni. ke u hamchin kari nemikoni

[powerboy2988]

agar be barnamey jenabe ("perfeshnal") ham negah koni ham moshkelo dare

[captain95]

سلام.
من تازه کار با vb6 را شروع کردم. در یک برنامه که برای تمرین نوشتم میخوام دو متغیر رو با هم جمع کنم و در متغیر سوم ذخیره کنم و نهایتاا در label نشون بدم. اما وقتی از علامت + استفاده میکنم به صورت & به اون نگاه میکنه و وقتی مثلا میخوام 1+2 رو جمع کنم مینویسه 21 در صورتی که من میخوام 3 بنویسه.البته من میخوام که دو عدد رو از 2 تا textbox بگیره و در نهایت با زدن دکمه Cmd جمع دو عدد رو در label نشون بده. البته در مورد ضرب و تقسیم مشکلی نداره کدی که نوشتم به صورت زیره :
Private Sub cmd1_Click()
Dim a, b, c As Integer
a = Txt1.Text
b = txt2.Text
c = a + b

lbl1.Caption = c
End Sub


lbl نام label , همچنین txt1 , txt2 نام دوتا textbox وهمچنین cmd نام دکمه ی command است.
لطفا بگید اشکال از چیه؟

[saba_v]

با سلام خدمت شما .مقادیری که در داخل textbox قرارمی گیرند از نوع رشته می باشند .شما باید برنامه به شکل زیر بنویسید
dim a as integer ,b as integer , c as integer
a=val(txt1.text)
b=val(txt2.text)
c=a+b
lbl1.caption=str(c)

تابع val برای تبدیل رشته به عدد استفاده می شود .
تابع str برای تبدیل عدد به رشته

موفق باشید

[perfeshnal]

سلام

بهتره که کدهاتون رو به این صورت قرار بدید از تگ کد استفاده کنید.

Private Sub Cmd1_Click()

 

 Dim a As Integer, b As Integer, c As Integer

 a = Val(Txt1.Text)

 b = Val(Txt2.Text)

 c = a + b

 lbl1.Caption = Str(c)



End Sub