100% процессора

[JIeT4uK]

Подскажите как нагрузить процессор. Куску кода буду длагодарен

[iGrok]

Бесконечным циклом, например.

[JIeT4uK]

цикл крутится - нагрузка не больше 20 %

[Хакер]

цикл крутится - нагрузка не больше 20 %

1. Код цикла?
2. Сколько логических ядер?

[Mikle]

Подскажите как нагрузить процессор.

Установи Касперского
А серьёзно - процессор, понятие растяжимое.
Можно скомпилировать программу с циклом и запустить столько экземпляров, сколько ядер у процессора, но тут тоже не всё так однозначно.
Скажем, можно нагрузить блоки FPU, а целочисленные будут простаивать, если в процессоре блоков FPU меньше, чем ядер. Если сделать чисто целочисленную задачу, то, запустив столько экземпляров, сколько логических ядер, мы нагрузим процессор на 100% по показаниям Диспетчера задач, но FPU, MMX, SSEx будут простаивать. А можно написать задачу, которая перегрузит шину памяти, при этом тоже по показаниям Диспетчера задач будет загрузка 100%, но реально процессор будет много времени проводить в ожидании.
А можно воспользоваться специальной утилитой, типа Everest (Aida в в новой версии).

[JIeT4uK]

Код: Выделить всё

While st_op = False
r = 46340
r2 = 46340 * 46340
Randomize
x = 1 + CLng(Rnd() * r)
y = 1 + CLng(Rnd() * r)
If (x ^ 2 + y ^ 2) < r ^ 2 Then popal = popal + 1
i = i + 1
pipipi = popal / i * 4
If i = 1000000 Then
i = 1
popal = 1
End If
Wend


в общем надо что бы показатель загрузки процессора был близок к 100%

[Хакер]

Во-первых, попробуй такой код:

Код: Выделить всё

while true
Wend

Во-вторых, вопрос о кол-ве лог. процессоров в системе остался незакрытым.

[The trick]

Нужно создать несколько потоков с долгим циклом по числу процессоров в системе.
Модуль:

Код: Выделить всё

Option Explicit

Public Type SYSTEM_INFO
  dwOemID                       As Long
  dwPageSize                    As Long
  lpMinimumApplicationAddress   As Long
  lpMaximumApplicationAddress   As Long
  dwActiveProcessorMask         As Long
  dwNumberOrfProcessors         As Long
  dwProcessorType               As Long
  dwAllocationGranularity       As Long
  dwReserved                    As Long
End Type

Public Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
Public Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, _
                                                     ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, _
                                                     lpThreadId As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Public flag As Long

Public Sub thread(ByVal unUse As Long)

    Do
    Loop While GetFlag()
   
End Sub

Private Function GetFlag() As Long
    GetFlag = flag
End Function


Форма:

Код: Выделить всё

Option Explicit

Private Sub cmdRun_Click()
    Dim sysInfo As SYSTEM_INFO
    Dim thrd    As Long
    Dim hThread As Long
   
    If flag Then
        flag = 0
        cmdRun.Caption = "Run"
        Exit Sub
    End If
   
    GetSystemInfo sysInfo
   
    cmdRun.Caption = "Stop"
    flag = 1
   
    For thrd = 0 To sysInfo.dwNumberOrfProcessors - 2
        hThread = CreateThread(ByVal 0&, 0, AddressOf thread, ByVal 0&, 0, 0)
        CloseHandle hThread
    Next
   
    While flag
        DoEvents
    Wend
   
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If flag Then cmdRun_Click
End Sub


[JIeT4uK]

замечательно грузит. Огромное спасибо.
А чем можно видеокарту нагрузить?

[Mikle]

А чем можно видеокарту нагрузить?

Например, этим:
https://yadi.sk/d/dlLAfWGack3Z5
Только не отворачивай камеру в сторону от станции.

[strelec]

[Хакер] :: Вырезан код, который был не на том языке, который обсуждается в этом разделе.

[Qwertiy]

strelec, это раздел по VB6, а не VB.NET. И вообще, как-то сложно. По идее, должно хватить соотношения по потоку на ядро процессора. Ну при желании, по 2-3.