کمک در سورس ماشین حساب

سلام : خیلی وقت بود دیگه وی بی کار نکرده بودم و رفتم سمت Net. و C++ یکی از دوستام یه ماشین حساب ازم

خواست که علاوه بر این که کلید های اعداد رو بزنی و عملیات +،-،/،* بشه . یک قابلیت هم داشته باشه که یک راست

داخل خود تکس باکس اعداد رو وارد کنی و عملیات + ، - ،/ ، * انجام بشه . حالا من یکم یادم رفته متد های وی بی

ولی به نظر خودم باید اینکار رو بکنم : اول عدد اول رو تا موقعی که به هر کدوم از +،-،/،* رسید جدا کنم و در یک متغیر

بریزم بعدا عدد دوم رو هم همین طور از بعد از +،-،/،* جدا کنم و درون متغیر دوم بریزم در آخر هم یک متغیر op قرار بدم

که در بین این دو عدد جستجو کنه ببینه کدام یک از عملگر ها +،-،/،* درون تکس باکس بوده و در op قرار بده و محاسبه

کنه . حالا اینکه چه طوری این کار رو بکنم یعنی جستجو یک عبارت عددی مثل : "54+123" که تا قبل از" + " از سمت

چپ جداکنه و دورن متغیر بریزه و خود عملگر "+" هم درون متغیر op بریزه و از بعد از "+" هم درون متغیر دوم ، رو

نمیدونم . ممنون میشم دوستان کمک کنند .


الان یعنی عدد وارد شده تا قبل از عملگر رو جدا میکنه میریزه تو یک متغیر خود متغیر هم که مشخص میشه درون

op قرار میده ، فقط مونده از بعد از عملگر رو جداکنه و درون متغیر بریزه ؟؟؟؟؟؟؟ چه طوری؟

کد :

کد:

---

Dim num1 as Integer
Dim num2 as Integer

Dim op As String
Private Sub Command1_Click()

For i = 0 To Len(Text1.Text)
Text1.SelStart = i
Text1.SelLength = 1
If Text1.SelText = "*" Or Text1.SelText = "-" Or Text1.SelText = "*" Or Text1.SelText = "/" Then
op = Text1.SelText: Print op: Exit For
End If

Next

'کدی که عدد رو از عملگر جدا میکنه و در متغیر num1 میریزه حالا مونده از بعد از عملگر رو جدا کنه و درون num2 بریزهکه بلد نیستم

Data = Len(Text1.Text)
num1 = Mid(Text1.Text, 1, Data - 1)

End Sub

---

با تشکر

با سلام خدمت شما دوست عزیز
من از توضیحاتی که شما دادید و متوجه شدم برنامه باید عبارتی مثل 12+56 رو که مستقیم وارد تکست میشه رو محاسبه کنه
اگه برنامه ای که میخوایید اینه براتون نوشتم :

کد:

---

---

کد:

---

Dim S As Integer
Dim A As String
Dim A1 As String
Dim B As String
Dim B1 As String
Dim Y As Boolean

Private Sub Form_Load()
Y = False
End Sub

Private Sub Command1_Click()
S = Len(Text1.Text)
For i = 1 To S

 If Mid(Text1.Text, i, 1) = "+" Then
  i = i + 1
  Y = True
 End If

 If Mid(Text1.Text, i, 1) <> "+" Then

  If Y = False Then
  A1 = Mid(Text1.Text, i, 1)
  A = A & A1
  End If

  If Y = True Then
  B1 = Mid(Text1.Text, i, 1)
  B = B & B1
  End If
 End If

Next i
Form1.Caption = Val(A) + Val(B)

End Sub

---

این برنامه فقط حالت + رو حساب میکنه اگه همین برنامه رو مد نظرتون هست واسه سه حالت دیگه هم با قرار دادن یک Or بنویسید
مشابه همین برنامه
موفق باشید

نقل قول:

---

نوشته شده توسط ali.barcelona [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

با سلام خدمت شما دوست عزیز
من از توضیحاتی که شما دادید و متوجه شدم برنامه باید عبارتی مثل 12+56 رو که مستقیم وارد تکست میشه رو محاسبه کنه
اگه برنامه ای که میخوایید اینه براتون نوشتم :

کد:

---

---

کد:

---

Dim S As Integer
Dim A As String
Dim A1 As String
Dim B As String
Dim B1 As String
Dim Y As Boolean

Private Sub Form_Load()
Y = False
End Sub

Private Sub Command1_Click()
S = Len(Text1.Text)
For i = 1 To S

 If Mid(Text1.Text, i, 1) = "+" Then
  i = i + 1
  Y = True
 End If

 If Mid(Text1.Text, i, 1) <> "+" Then

  If Y = False Then
  A1 = Mid(Text1.Text, i, 1)
  A = A & A1
  End If

  If Y = True Then
  B1 = Mid(Text1.Text, i, 1)
  B = B & B1
  End If
 End If

Next i
Form1.Caption = Val(A) + Val(B)

End Sub

---

این برنامه فقط حالت + رو حساب میکنه اگه همین برنامه رو مد نظرتون هست واسه سه حالت دیگه هم با قرار دادن یک Or بنویسید
مشابه همین برنامه
موفق باشید

---

چرا خروجی برنامه روی کپشن فرمه حداقل به صورت Msgbox تایپش می کردید بهتر بود