مشکل در پاسخ صحیح برنامه

[hanan.f.1994]

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

یه برنامه است که مجموع ارقام یه عدد رو برمیگردونه ولی برای بعضی از اعداد پاسخ درست نمیده
مثلا: رای 42 شش رو برمیگردونه یا برای 52 هفت رو بر میگردونه ولی برای 151 هشت رو برمیگردونه یا برای 64 یازده رو برمیگردونه.

اگه ممکنه کمکم کنید.

سورس برنامه با تابع بازگشتی:


Private Function Digit_Sum(ByRef BytN As Integer) As Long
If BytN <> 0 Then
Return BytN Mod 10 + Digit_Sum(BytN / 10)
End If
End Function

ممنوم
دوستدارتون
حنان:لبخند:

[sagggad]

داداش یک کم بیشتر راجع به برنامت توضیح بده.تو چه چیزی اعداد رو میریزی بعد از جمع بستن تو چی نشون میده؟؟این ها رو بگو تا بتونم کمکت کنم.اگه میتونی سورس برنامت روهم بذار
موفق باشید

[hanan.f.1994]

داداش یک کم بیشتر راجع به برنامت توضیح بده.تو چه چیزی اعداد رو میریزی بعد از جمع بستن تو چی نشون میده؟؟این ها رو بگو تا بتونم کمکت کنم.اگه میتونی سورس برنامت روهم بذار
موفق باشید


اینم کد کلش:
Public Class Form1

Private Sub CmdDigNum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdDigNum.Click
Dim LngNum As Integer
LngNum = Val(InputBox("Input Number: ", "Get"))
LblAns.Text = Digit_Sum(LngNum)
End Sub
Private Function Digit_Sum(ByRef BytN As Integer) As Long
If BytN <> 0 Then
Return BytN Mod 10 + Digit_Sum(BytN / 10)
End If
End Function
End Class

:لبخندساده:

[sagggad]

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

[محمد آشتیانی]

اینهمه محاسبات :)


Public Function DigitSum(ByVal Input As String) As Integer

Dim i As Integer
Dim Sum As Integer

For i = 0 To Input.Length - 1
Sum += CInt(Input.Substring(i, 1))
Next

Return Sum

End Function

[sagggad]

داداش این سورس همونچیزیه که میخوای:
لینک دانلود:114122
موفق باشید:لبخندساده:

[sagggad]

از این کد استفاده کن چون سورس بالا یه سری اشکالاتی داشت:

On Error GoTo e
Label1.Text = "0"
Dim i As Integer
Dim sum As Integer
Dim s As String = TextBox1.Text
{}(Dim chr As Char() = New Char(s.Length - 1
()chr = s.ToArray
For i = 0 To chr.Count - 1
((sum = sum + Val(chr(i
Label1.Text = sum
Next
Exit Sub
:e
این هم سورس جدیدش:
لینک دانلود:114125
امیدوارم اون چیزی که میخوای باشه:لبخندساده: