성능 향상을 위해 VB.NET 2013에서 프로그램을 어떻게 향상시킬 수 있습니까?

Question

필자는 CORE I7이 6 스레드로 프로그램을 작성했지만 잘 실행되지만 CELERON을 실행하면 작동하지 않습니다. 스레드가 작동을 멈추는 것 같습니다.

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load 
    Timer1.Enabled = True 
    CheckForIllegalCrossThreadCalls = False 

    trd = New Thread(AddressOf ThreadTask) 
    barreras_trd = New Thread(AddressOf barreras) 
    sensores_trd = New Thread(AddressOf sensores) 
    convierte_trd = New Thread(AddressOf convierte) 
    emite_tiquet_trd = New Thread(AddressOf tiquet) 
    actualiza_trd = New Thread(AddressOf actualiza_grilla) 

    trd.IsBackground = True 
    barreras_trd.IsBackground = True 
    sensores_trd.IsBackground = True 
    convierte_trd.IsBackground = True 
    emite_tiquet_trd.IsBackground = True 
    actualiza_trd.IsBackground = True 

    trd.Start() 
    barreras_trd.Start() 
    sensores_trd.Start() 
    convierte_trd.Start() 
    emite_tiquet_trd.Start() 
    actualiza_trd.Start() 

    Me.DataGridView1.FirstDisplayedScrollingRowIndex = Me.DataGridView1.RowCount - 1 

    'Select the last row. 
    Me.DataGridView1.Rows(Me.DataGridView1.RowCount - 1).Selected = True 
End Sub 

Answer 1

우리는 당신의 스레드 방법이 무엇 아무 생각했습니다 없기 때문에, 우리가 많이 제공 할 수는 없지만 적어도 이들 중 하나를 단순화 할 수 있습니다 :

옵션 1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load 
    Timer1.Enabled = True 

    ' Runs all in parallel (give or take the scheduler and duration) 
    Task.Run(Sub() ThreadTask()) 
    Task.Run(Sub() barreras()) 
    Task.Run(Sub() sensores()) 
    Task.Run(Sub() convierte()) 
    Task.Run(Sub() tiquet()) 
    Task.Run(Sub() actualiza_grilla()) 

    Me.DataGridView1.FirstDisplayedScrollingRowIndex = Me.DataGridView1.RowCount - 1 

    'Select the last row. 
    Me.DataGridView1.Rows(Me.DataGridView1.RowCount - 1).Selected = True 
End Sub 

옵션 2

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load 
    Timer1.Enabled = True 

    Task.Run(Sub() AllThreads()) 

    Me.DataGridView1.FirstDisplayedScrollingRowIndex = Me.DataGridView1.RowCount - 1 

    'Select the last row. 
    Me.DataGridView1.Rows(Me.DataGridView1.RowCount - 1).Selected = True 
End Sub 

Sub AllThreads() 
    ' Runs each in series 
    ThreadTask() 
    barreras() 
    sensores() 
    convierte() 
    tiquet() 
    actualiza_grilla() 
End Sub