[ahmedfa71]

السلام عليكم ورحمة الله وبركاته
لدي رقم حساب على سبيل المثال الرقم 1245789892
عملية حساب المفتلح تكون على هذا الشكل نبدأ بضرب الأرقام  في 4 فما فوقمن اليمين إلى اليسار على الشكل التالي
(2*4)+(9*5)+(8*6)+(9*7)+(8*8)+(7*9)+(5*10)+(4*11)+(2*12)+(1*13)
=13+24+44+50+36+64+63+42+45+8
=389
وبالتالي رقم الحساب هو 89
بحيث أضع الرقم في تيكست بوكس 1
ليظهر المفتاح في التكسب بوكي رقم 2
فأرجو المساعدة في هذا برمجيا
والسلام عليكم ورحمة الله وبركاته

[ابو ليلى]

اهلاً اخي الكريم في البداية يظهر انك مو حافظ جدول الضرب 


بالنسبة للكود جرب ما يلي

PHP كود :

       If IsNumeric(TextBox1.Text) Then
            Dim Str As String = TextBox1.Text.Trim
            Dim p As Integer = 4

            Dim MyNumbers As New List(Of Integer)
            For i = 0 To Len(Str) - 1
                MyNumbers.Add(CInt((Mid(Str, Len(Str) - i, 1))) * p)
                p += 1
            Next

            Dim Result As Integer
            For Each Entry As Integer In MyNumbers
                Result += Entry
            Next

            If Len(Result) >= 3 Then
                Result = Mid(Result, Len(Result) - 2, 2)
                MsgBox(Result)
            End If

        End If 


[silverlight]

هذا حل اخر .....

PHP كود :

       Dim x As Integer = 4
        Dim y As Integer = 1245789892
        Dim s As String = y.ToString()
        Dim values As Integer() = New Integer(s.Length - 1) {}
        For i As Integer = 0 To s.Length - 1
            Dim current As String = y.ToString()(i)
            ' في الخطوة التالية يت م عكس الارقام
            values(s.Length - 1 - i) = CInt(current)
        Next

        Dim total As Integer = 0
        For i As Integer = 0 To values.Length - 1
            Dim v As Integer = values(i)
            total += (v) * (x)
            x += 1
        Next

        ' استخدم الناتج الاجمالي كما يحلو لك 


الناتج بطريقتك يكون كالتالي

PHP كود :

total = total Mod 100 


[ahmedfa71]

شكرا لكل الإخوة على الردود
وعلى الكود الشغال
بارك الله فيكم

---

السلام عليكم ورحمة الله وبركاته
عند تجربة الكود
If IsNumeric(TextBox1.Text) Then
            Dim Str As String = TextBox1.Text.Trim
            Dim p As Integer = 4

            Dim MyNumbers As New List(Of Integer)
            For i = 0 To Len(Str) - 1
                MyNumbers.Add(CInt((Mid(Str, Len(Str) - i, 1))) * p)
                p += 1
            Next

            Dim Result As Integer
            For Each Entry As Integer In MyNumbers
                Result += Entry
            Next

            If Len(Result) >= 3 Then
                Result = Mid(Result, Len(Result) - 2, 2)
                TextBox2.Text = Result
                ' MsgBox(Result)
            End If

        End If
الكود شغال مع جميع الأرقام ما عدا عند البدأ بالرقم  0 أو 1 أو 2 تظهر رسالة خطأ
يتوقف البرنامج عند السطر
  Result = Mid(Result, Len(Result) - 2, 2)

Conversion from string "" to type 'Integer' is not valid