[VB6] Priorità nei processi

[barney09]

Ho un applicazione che lavora molto di CPU.

Di default ha la massima priorità sui processi sul PC?

c'è modo di settare il programma, in modo che abbia a disposizione

il massimo di risorse possibili sul pc?

grazie

[oregon]

Cosa fa di tanto particolare e specifico con la CPU?

[barney09]

fa moltissimi controlli su delle stringhe di mille caratteri, le rigira e le ricompone, per poi riscriverle su disco...


diciamo che la cpu è sempre al 50 %....


Aumentando la priorità, posso ottenere una maggiore velocità di elaborazione???

[xegallo]

Private Declare Function SetThreadPriority Lib "kernel32" _
    (ByVal hThread As Long, ByVal nPriority As Long) As Long
    
Private Declare Function SetPriorityClass Lib "kernel32" _
    (ByVal hProcess As Long, ByVal dwPriorityClass As Long) As Long
    
Private Declare Function GetThreadPriority Lib "kernel32" _
    (ByVal hThread As Long) As Long
    
Private Declare Function GetPriorityClass Lib "kernel32" _
    (ByVal hProcess As Long) As Long


Private Const THREAD_BASE_PRIORITY_MAX = 2
Private Const THREAD_PRIORITY_NORMAL = 0
Private Const THREAD_BASE_PRIORITY_MIN = -2

Public Enum Priority
    Alta = &H80
    Normale = &H20
    Bassa = &H40
End Enum



Public Function setPriority(ClassePriorità As Priority)
Dim hThread As Long
Dim hProcess As Long

    hThread = GetCurrentThread
    hProcess = GetCurrentProcess
    
    If GetPriorityClass(hProcess) <> ClassePriorità Then
        Select Case ClassePriorità
            Case Is = Alta
                SetThreadPriority hThread, THREAD_BASE_PRIORITY_MAX
            Case Is = Normale
                SetThreadPriority hThread, THREAD_PRIORITY_NORMAL
            Case Is = Bassa
                SetThreadPriority hThread, THREAD_BASE_PRIORITY_MIN
        End Select
        
        SetPriorityClass hProcess, ClassePriorità
    End If

End Function

per chiamarla

call setpriority(alta)

[oregon]

Sì ... ma non credo guadagnerai molto ...

Le operazioni di I/O su disco sono "lente" e sono in gran numero ...

E poi non e' mai consigliabile alterare (anche se temporaneamente) la priorita' dei processi ...

Non succede nulla di particolare, intendiamoci ...

Probabilmente, otterresti un miglioramento in termini di percentuale di occupazione della CPU se, nel ciclo di trattamento inserissi una pausa del thread di 1 ms con la API

Sleep 1

[barney09]

grazie...