VB.Net Threading suspending and resuming

Question

Хорошо, поэтому для школы нам нужно создать программу для потоковой передачи, которая приостанавливается и возобновляется. Предполагается, что он будет отсчитываться от 0 до 6, а затем возвращается к нулю, а затем снова возвращается обратно.

Однако вместо того, чтобы печатать значения по мере их подсчета, вместо этого оно просто печатает значение 1 за один раз. Код выглядит следующим образом:

Module Module1 
Public A As System.Threading.Thread = New Threading.Thread(AddressOf MethodA) 
Public B As System.Threading.Thread = New Threading.Thread(AddressOf MethodB) 


Sub MethodA() 
    Dim C As Integer 
    C = 0 
    C = C + 1 
    If C = 6 Then 
     B.Start() 
     If A.ThreadState = Threading.ThreadState.Running Then 
      A.Suspend() 
     End If 
    End If 
    Console.Write(C) 
End Sub 

Sub MethodB() 
    Dim C As Integer 
    C = 6 
    C = 6 - 1 
    For C > 0 
     Console.Write(C) 
    Next 

    If A.ThreadState = Threading.ThreadState.Suspended Then 
     A.Resume() 
    End If 
End Sub 

Sub Main() 
    A.Start() 
    Console.ReadLine() 
End Sub 

End Module 

Answer 1

Глядя на ваш код, я предполагаю, что происходит в вашей консоли выводит только 1, а затем ожидает пользователь, чтобы выйти. См. Мои комментарии ниже.

Sub MethodA() 
    Dim C As Integer 
    C = 0 
    C = C + 1 'set C equal to 0 + 1 
    If C = 6 Then 'C equals 1, not 6 
     B.Start() 
     If A.ThreadState = Threading.ThreadState.Running Then 
      A.Suspend() 
     End If 
    End If 
    Console.Write(C) 'Write C, which is 1 
End Sub 

Кроме того, у вас есть:

For C > 0 
    Console.Write(C) 
Next 

Но я уверен, что правильный синтаксис будет:

For C = 6 To 0 Step -1 
    Console.Write(C) 
Next 

Это должно вам начать снова.

Редактировать: В принципе именно то, что сказал @Capellan в своем комментарии.