Begrænse brug af CPU

Ikke så vidt jeg ved, men du kan eks. gøre sådan her.

Sub EnLangsomBeregning()
  Dim bAllDone As Boolean
  While Not bAllDone
    \' Lav en beregning
    DoEvents
  WEnd
End Sub

Hver gang systemet støder på DoEvenst vil den checke brugerinterfacet, og løbe andre kørende processer igennem. Derved undgår du at programmet \"fryser\" systemet i længere tid af gangen.

Hvis du kan aflæse din CPU, og se hvor meget den er belastet, via VB. Så kan du også lave en begrænsning på hvornår dit VB-program skal lave noget og ikke.

Blot ved brug af en If sætning.

Selvom programmet tager al CPU kraften, frigiver den det igen, så snart et andet program vil have noget, så det er ikke et problem.

Det programmet gør, at at køre et loop, hvor jeg via timer laver en pause på 30 sek. i hvert loop. Er der en anden metode til dette?

- Kristian

Det kommer an på hvad du laver i loop\'en.

Hvilken loop bruger du? (Do While, eller Do Until, eller bare en uendligheds loop?)

Det er et uendeligt loop.
Jeg checker nogle ting i en database i hvert loop, og kalder så en \"hjemmelavet\" pause funktion, som venter 30 sekunder via \"timer\".

Og du ønsker at denne procedure maks må bruge 10% CPU kraft.

Den del der tager mest kraft er jo når den aflæser databaen. Den mulighed der findes er jo at sprede denne over en længere tid.

Hvis vi siger at det normalt tager 1 sek. for dit program for at aflæse enkelte værdie r fra databasen, derefter venter 30 sek og aflæser derefter igen osv.

Det vil sige at din funktion tager 31 sek at udføre. Nu skal du egentligt bare forlænge aflæsningen til de 31 sek, og derefter droppe din indlagte pausen.

Der gælder nu for dit vedkomne at sætte din kode op så den kun aflæser i databasen under bestemte forhold, inden for de 31 sek.

Efter følgende diagram gælder kun for en aflæsning i en database.
Programmet:
-tid = 30 sek
-Tjek om forhold er i orden (ja/nej)
-Hvis ja aflæs
-Vent tid sek.

-Hvis Nej, (tid - 1) vent 1 sek
-loop   

En mere specifik løsning kan jeg ikke komme med her... men jeg tror du ved hvad der menes.

loopen skal naturligvis springe tilbage til tjek forhold.

Og er der gået 29 sek, så skal den aflæse uden forholdene er i orden.

Programmet bruger nu al kraften, også selvom jeg sletter alt hvad det lavet i loopet. Så det der tager kraften er nok min timer. Koden til den ser således ud:
Public Function Pause(HalveSekunder)
Dim PauseTid As Byte
Dim Tid As Variant
HalveSekunder = HalveSekunder / 2
Tid = Timer
PauseTid = HalveSekunder
Do Until Timer > Tid + PauseTid
  DoEvents
Loop
End Function

Kan dette forbedres?

Er det nødvendigt at køre så langt ned i tid?

Og jeg vil mene at en For løsning vil kræve mindre tid at løse. Do Until bruger så langt jeg har kunnet se mere proc tid.

Dim PauseTid As Byte
Dim Tid As Variant

HalveSekunder = HalveSekunder / 2
Tid = Timer
PauseTid = HalveSekunder

Tid_Ialt = Tid + PauseTid

For i = 0 to Tid_Ialt - 1


Do Until Timer > Tid + PauseTid
  DoEvents
Loop

En gang til....

Tid_Ialt = Tid + PauseTid

For i = 0 to Tid_Ialt - 1
    DoEvent
Next i

End Sub

Nu virker det faktisk (mht. at bruge mindre kraft). Men den virker desværre ikke som en tæller længere?! Loopet varer kun en brøkdel af et sekund, uanset hvad jeg kalder rutinen med?!

Det er fordi den ikke belaster så meget på timeren som kører over cpu\'en.

Jeg tænkte mig heller ikke helt om, Tid_Ialt vil selvfølgelig ikke være det samme som en tids enhed du kan bruge. Denne enhed skal måske sættes højere op så det er nogen størrere tal du leger med. Men undgå Timeren, da den må bruge mere cpu kraft, end det er nødvendigt.

Ok, tak for hjælpen.