[malek369]

السلام عليكم اخي 
انا بعمل ببرنامج تمام هلا هي الكود

كود :

Private Function dodo(ByVal value As String) As Boolean

       Dim checksum As Integer = 0
       Dim doubleflag As Boolean = (value.Length Mod 2 = 0)

       Dim digit As Char
       Dim digitvalue As Integer
       For Each digit In value
           digitvalue = Integer.Parse(digit)
           If doubleflag Then
               digitvalue *= 2
               If digitvalue > 9 Then
                   digitvalue -= 9
               End If
           End If
           checksum += digitvalue
           doubleflag = Not doubleflag

       Next
       Return (checksum Mod 10 = 0)


   End Function

هلا بدي عن طريق list box يصير ياخد رقم رقم ويتاكدلي ازا العملية تمام يحفظ كل الي بطابقو الشروط ويحطهم بمستند نص وازا ما طابق ما يعملو اشي 

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


       Dim i As Integer

       For i = 0 To ListBox1.Items.Count - 1
           If dodo(ListBox1.Items(i)) Then

               MsgBox("Oky")

           Else

               MsgBox("Non")
           End If

       Next

هاد الكود ما اشتغل معي بيعطيني مشكلة 

بزبط هون

كود :

digitvalue = Integer.Parse(digit)

وبكتبلي عليها System.FormatException: 'تنسيق سلسلة الإدخال غير صحيح.'
فياريت احمد منكم يا غوالي يساعدني في حل هالمشكلة وشكرا الكم احلى منتدى بالكون