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

یه توضیحات مختصر درباره کد علاقه مندان عزیز که هنوز تاپیک رو باز نکردید :دی

این تابع چنین کاری رو مرحله به مرحله انجام میده :

1- رقم های متن مورد نظر رو از راست به چب جدا میکنه

اونا رو تو آرایه های first و second میریزه

بعد یه حلقه از مقدار اولیه تا طول عدد بزرگ تر درست میکنیم و یکی یکی آرایه ها با هم جمع میشن

بعد یه سری عملیات که در سورس مشاهده میکنید بهش اضافه میشه و سرانجام متن برعکس میشه ( return strreverse(d3) تا به حالت درست خودش برگرده

ممنونم علاقه مندان عزیز :دی

اصلاح شد دوباره : ( در جمع زدن مثلا 0460 + 0069 مینوشت 539 )

Dim first(99999) As Integer

Dim second(99999) As Integer

Dim zero11(99999) As Integer

Dim d3 As String

Dim tagh As Integer

Dim zero1 As Integer

Dim zero2 As Integer

Dim big

Dim z1 As Integer

Dim hasel As String

Dim z2 As Integer

Dim small

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

big = Nothing

z1 = 0

z2 = 0

bigplus = Nothing

small = Nothing

If Len(a1) > Len(a2) Then

big = Len(a1)

small = Len(a2)

Else

big = Len(a2)

small = Len(a1)

End If

zero1 = 1

zero2 = 1

d3 = Nothing

tagh = Nothing

If Mid(a1, 1, 1) = "0" Then

While Mid(a1, zero1, 1) = "0"

a1 = Replace(a1, Mid(a1, zero1, 1), "", 1, 1)

zero1 = zero1 + 1

a1 = Trim(a1)

End While

End If

If Mid(a2, 1, 1) = "0" Then

While Mid(a2, zero2, 1) = "0"

a2 = Replace(a2, Mid(a2, zero2, 1), "", 1, 1)

zero2 = zero2 + 1

a2 = Trim(a2)

End While

End If

For u = 0 To (100)

first(u) = Mid(a1, Len(a1) - z1, 1)

If z1 + 1 = Len(a1) Then Exit For

z1 = z1 + 1

Next

For u2 = 0 To (100)

second(u2) = Mid(a2, Len(a2) - z2, 1)

If z2 + 1 = Len(a2) Then Exit For

z2 = z2 + 1

Next

For v1 = 0 To (big)

If v1 < (big) Then

d3 = d3 & ((first(v1) + second(v1) + tagh) Mod 10)

tagh = ((first(v1) + second(v1)) \ 10)

ElseIf v1 = (big) Then

d3 = d3 & ((first(v1) + second(v1) + tagh) Mod 10)

End If

Next

Return StrReverse(d3)

d3 = ""

a1.Clone()

a2.Clone()

big = Nothing

z1 = 0

z2 = 0

small = Nothing

If Len(a1) > Len(a2) Then

big = Len(a1)

small = Len(a2)

Else

big = Len(a2)

small = Len(a1)

End If

zero1 = 1

zero2 = 1

End Function

خوب بودند!

ندیدم ولی بهتر میشه کد هات رو اینجوری بزاری:

هان؟چی؟تابع؟بسکام؟سی پلاس پلاس؟من؟

نقل قول از 2880

ندیدم ولی بهتر میشه کد هات رو اینجوری بزاری:

کد:

مثال

نقل قول از mhmh77

هان؟چی؟تابع؟بسکام؟سی پلاس پلاس؟من؟

با تشکر

++

این VB بود نه c++

c++ این جا آموزش نمیدم