w new = w old + . . .

   Dim Valid As Boolean
    Dim c As Integer = 0
    Do
        Valid = True
        c += 1

        For i As Integer = 0 To ListBox1.Items.Count - 1
            Dim s() As String = Microsoft.VisualBasic.Split(ListBox1.Items(i), " ")
            Dim y As Single = (W(1) * CInt(s(0)) + W(2) * CInt(s(1)) + W(3) * 1)
            W(1) += Alpha * CSng(CInt(s(2)) - y) * CSng(CInt(s(0)))
            W(2) += Alpha * CSng(CInt(s(2)) - y) * CSng(CInt(s(1)))
            W(3) += Alpha * CSng(CInt(s(2)) - y) * 1.0
        Next
        For i As Integer = 0 To ListBox1.Items.Count - 1
            Dim s() As String = Microsoft.VisualBasic.Split(ListBox1.Items(i), " ")
            Dim y As Single = (W(1) * CInt(s(0)) + W(2) * CInt(s(1)) + W(3) * 1)
            If CInt(s(2)) = 1 Then
                If y < 1 Then
                    Valid = False
                End If
            Else
                If y >= 1 Then
                    Valid = False
                End If
            End If
        Next
    Loop Until ((Valid) Or (c > 100000))
    If c > 10000 Then
        MsgBox("I Can't Learn!", MsgBoxStyle.Exclamation)
    End If

s(0) = voroodie avval
s(1) = voroodie dovom
s(2) = khoroojie matloob

s = [-1 -1  1 1;
     -1  1 -1 1;
     -1 -1 -1 1];
 %first row of s show first input of AND 
 %second row of s show second input of AND
 %3th row show out put
w = [rand();rand();1]
%set random initial weight
s_c = 1;
alpha = 0.1;
iteration_c = 1;

for iteration_c = 1:4
    for s_c = 1:4
        y = (w(1)*(s(1,s_c)))+(w(2)*(s(2,s_c)))+(w(3));
        w(1) = w(1) + (alpha.*(s(3,s_c) - y).*s(1,s_c));
        w(2) = w(2) + (alpha.*(s(3,s_c) - y).*s(2,s_c));
        w(3) = w(3) + (alpha.*(s(3,s_c) - y));
    end
end
w
for s_c = 1:4
    end_value = (w(1).*(s(1,s_c)))+(w(2).*(s(2,s_c)))+w(3)
end

w =

    0.9597
    0.3404
    1.0000


w =

    0.5926
    0.5525
   -0.2758


end_value =

   -1.4210


end_value =

   -0.3159


end_value =

   -0.2358


end_value =

    0.8693