انجمن کدستانMoisrex

این تابع رو همین دیروز نوشتم . 10 تا عدد رو جمع زدم و همگی درست بودن . برای این که مطئمن بشید جواب درسته یا نه چند بار با ماشین حساب ویندوز همون اعداد رو امتحان کنید و نتایج رو مقایسه کنید . مقایسه حتما انجام بدید حتی اگه یه نتیجه اشتباه باشه یعنی یه جای کار اشتباه

متغیر ها :

{

متغیر ها رو هر چقدر خواستید تغییر بدید

Dim a(500) As Integer

Dim b(500) As Integer

Dim v(500 As Integer

Dim q As Integer = 0

Dim u As Integer

Dim tagh As Integer = 0

Dim f As Integer

Dim e1 As Integer

Dim d1, d2, d3 As String

تابـــــــــــع ://

Function bigplus(ByVal a1 As String, ByVal a2 As String)

tagh = 0

q = 0

f = Len(d1)

e1 = Len(d2)

For i = 1 To Len(a1)

a(i) = Mid(d1, f, 1)

q = q + 1

f = f - 1

If f = 0 Then f = 1

Next

For s = 1 To Len(a2)

b(s) = Mid(d2, e1, 1)

u = u + 1

e1 = e1 - 1

If e1 = 0 Then e1 = 1

Next

For m = 1 To q

If m q Then

d3 = d3 & ((a(m) + b(m) + tagh) Mod 10)

tagh = (a(m) + b(m) + tagh) \ 10

Else

tagh = (a(m) + b(m) + tagh)

d3 = d3 & StrReverse(tagh)

End If

Next

d3 = StrReverse(d3)

Return d3

End Function

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

برای مثال :

TextBox3.Clear()

d1 = TextBox1.Text

d2 = TextBox2.Text

d3 = TextBox3.Text

TextBox3.Text = bigplus(d1, d2)

برای این که محدودیتی در تعداد ارقام وجود نداشته باشه خصوصیت max length جعبه متن رو به مقادیر مورد نظر تغییر بدید .

با فهمیدن سورس بالا :

1. استفاده از آرایه
2. تابع نویسی
3. دستور شرطی
4. حلقه for
5. استفاده از تابع
6. کار با جعبه متن
7. الگوریتم جمع دو عدد بزرگ
8. را یاد گرفته اید .
موفق باشیـــــد + نظــــــــــر یادتون نره