This little block of code will is used in a console app to test throuput on threads.
TOTAL can be equal to 1 to 64
Try 9 threads on an 8 core machine, seven run at the same speed, and two run at one-half
Try 4 threads then 5 threads.... the scaling is exactly linear right from 1 to 8
Imports System
Imports System.Threading
Imports System.Threading.Tasks
Module Module12
Private TOTAL As Integer = 8 - 1 'array size = number of threads starting a zero (ex. 8-1 = 8threads)
Private ClassThreadHolders(TOTAL) As LoopThread 'array of classes
Private ThreadArray(TOTAL) As Thread 'array of threads
Private TotalAccumIncs As Long
Private AccumIncs As Integer
<MTAThread()>
Sub Main()
Dim n As Integer = 0 'local loop var used in fors
Dim ThreadPrintLoop As New Thread(AddressOf PrintLoop)
Console.WriteLine("Building threads...")
For n = 0 To TOTAL 'for each thread
ClassThreadHolders(n) = New LoopThread 'assign the class
ThreadArray(n) = New Thread(AddressOf ClassThreadHolders(n).ActualThread) 'assign the pointer to the thread function
Next
Console.WriteLine("starting threads...")
For n = 0 To TOTAL 'for each thread
ThreadArray(n).Start() 'start the thread
Next
Console.WriteLine("Starting Printloop...")
ThreadPrintLoop.Start() 'start printing thread
Console.WriteLine("Waiting for keypress...")
Console.ReadKey() 'wait for key
End 'orderly shutdown
End Sub
Private Sub PrintLoop() 'thread to print data on
Do 'infinite loop of thread
Thread.Sleep(1000) 'sleep 1000 = 1 sec delay
For j As Integer = 0 To TOTAL 'for each thread
ClassThreadHolders(j).Grab() 'force the grab
Next
TotalAccumIncs = 0
Console.Clear()
For j As Integer = 0 To TOTAL
AccumIncs = ClassThreadHolders(j).GetGrabbed
TotalAccumIncs += AccumIncs
Console.Write(Format(AccumIncs, "000,000,000,000 "))
Next
Console.Write(vbCrLf + Format(TotalAccumIncs, "000,000,000,000 "))
Loop
End Sub
Public Class LoopThread 'need a class to have a pointer to a function that can be arrayed
Private GrabbedInc As Integer
Private Inc As Integer = 1 'class var must be fully declared
Private GrabFlag As Boolean
Private num As Double = 10
Private num2 As Double = 5
Public Sub ActualThread() 'sub on the thread
Do 'infinite loop of thread
If GrabFlag = True Then
GrabFlag = False
GrabbedInc = Inc
Inc = 0
End If
'num = num * num2 / 50
Inc += 1
Loop
End Sub
Sub Grab()
GrabFlag = True
End Sub
Public ReadOnly Property GetGrabbed() As Integer
Get
Return GrabbedInc
End Get
End Property
End Class
End Module
. Drivers lag behind and not as tested as the more popular 32. Other strange print and pdf issues can pop up with apps like QB and more. I would just change back to win7 32 if it was not so much work at this point. I want to love it, but just do not see where it helps me in any way. 
Thread Closed
This thread is kinda stale and has been closed but if you'd like to continue the conversation, please create a new thread in our Forums,
or Contact Us and let us know.