Отправлено: 10.10.15 11:23. Заголовок: Загрузить проц на ~90%

Посоветуйте код на Harbour что бы проц грузануть процентов на 90 или около того.

 Отправлено: 10.10.15 11:44. Заголовок: Не выйдет на Харборе..

Не выйдет на Харборе грузить проц. Уж очень Харбор аккуратный в этом смысле.
Сколько тестировал раньше - у меня не получалось.
Делай на Клипере - вот он может загрузить проц !

 Отправлено: 10.10.15 12:59. Заголовок: Andrey пишет: Не вы..

Andrey пишет:

цитата:

Не выйдет на Харборе грузить проц

Правда ?

Потестил , таки можно.
Грузим на 75 %

 
 #include "hbthread.ch"  
 Proc main 
 local a 
 local b 
 local c 
  
 public lexit:=.t. 
 cls 
 a:=hb_threadStart(HB_THREAD_INHERIT_MEMVARS,@test()) 
 b:=hb_threadStart(HB_THREAD_INHERIT_MEMVARS,@test()) 
 c:=hb_threadStart(HB_THREAD_INHERIT_MEMVARS,@test()) 
  
 inkey(0) 
 lexit:=.f. 
  
 hb_threadJoin( a ) 
 hb_threadJoin( b ) 
 hb_threadJoin( c ) 
 return 
  
 Func Test() 
    do while lexit 
    enddo    
 return  
 

 Отправлено: 11.10.15 11:38. Заголовок: Dima пишет: Потести..

Dima пишет:

цитата:

Потестил , таки можно. Грузим на 75 %

Молодец !