Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

температура скорость

Страницы: 1 2 >
duk_ © (2005-05-30 21:04:00)
Подскажите как можно получить скорость кулера, температуру процессора.

Duk_ (2005-06-08 09:29:00) [1]
To n0name: Спасибо. Получил

n0name (2005-06-07 18:04:00) [2]
http://www.koders.com/c/fid8BF7DA480D97C44C2AFB89275C3C2759C54B87F8.aspx?s=CPU+temperature
http://www.koders.com/c/fidB65B57C7E1A367253FC9DC7B83607E64134899C3.aspx?s=CPU+temperature
http://www.koders.com/c/fid7D324AF41DFE7FCD741EC66247F23B595803D981.aspx?s=CPU+temperature

NikNet (2005-06-07 17:04:00) [3]
Каждая микросхема мониторинга возвращает по разному например:
Intel они возвращают в 9-разрядном виде а VIA в 12-разрядном!
Для Интоловских Надо сдвинуть на целых 4- разрядов
а вот для VIA надо сдвинуть на 6 - разряда в лево! и т. д.
Вот таблица для разных микросхем (Определить можно по резутату)

Стандартные значение:
----------
Для 9-разрядного

+125
+25
+1,5
+0
-0,5
-25
-55

----------
Для 12-разрядного

+125
+25
+1,0
+0,0625
+0
-0,0625
-1,0
-25
-55

================================================================
Для винтелятора вычесляется вот по этой формуле:
Значение счетчика =
(1,35 * (10 в степени 6) )/(Число оборотов * делитель)

================================================================
Вообще это все можно прочитать на сайте www.Intel.com!
также для других микросхем....

n0name (2005-06-07 15:23:00) [4]
А сейчас?
Я высылал на duk_777@rambler.ru

Duk_ (2005-06-07 15:01:00) [5]
To n0name: Не дошло че-то

n0name (2005-06-07 14:57:00) [6]
-=S.S=- © (06.06.05 11:35) [25]
Ага.
NikNet © (06.06.05 21:38) [26]
MaxByte=255.
round(255/0.527) ~= 480
480 div 10 = 48.
Duk_ (05.06.05 20:34) [22]
Выслал. 3.63Mb

KilkennyCat (2005-06-06 21:49:00) [7]
наверное, нецензурное будет обяснение, раз на мыло.

NikNet (2005-06-06 21:38:00) [8]
Вообще это вычесляется сдвигом бита Кому надо на Мыло
Объясею ;)

-=S.S=- (2005-06-06 11:35:00) [9]

> NikNet © (04.06.05 00:10) [18]

Судя по этому посту.
Result:=PORT[$601F]; Result:=Round(Result / 0.527) div 10;
Если даже Result будет равно своему наибольшему значению т.е 255
То функция вернёт 48. Разве это показатель ????

Duk_ (2005-06-06 10:58:00) [10]
А если Вин 9х

Anton_K (2005-06-05 20:49:00) [11]
Если Windows NT4/2000/XP, то используй WMI. Вот статья:
http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=698

Duk_ (2005-06-05 20:34:00) [12]
Может кто-то владеет исходником Авард БИОС??? Поделитесь.

KilkennyCat (2005-06-04 01:21:00) [13]
Удалено модератором

PAVIA (2005-06-04 01:06:00) [14]
_silver © (04.06.05 00:24) [19]
И что это?
Что за юнит smallport?

Не стандартный юнит. Содержит описание команды port, работает через виртуальный драйвер.

_silver (2005-06-04 00:24:00) [15]
NikNet © (04.06.05 0:10) [18]
И что это?
Что за юнит smallport?

> Function Temperature: byte;

> Caption:= FloatToStr(Temperature);

?

NikNet (2005-06-04 00:10:00) [16]
Вот ЭТО Я ДЛЯ СВОЕГО ДЕЛАЛ А ТЕБЕ "НАВЕРНОЕ"
ПРИДЕТСЯ ОБРАЩАТСЯ К PCI! ХОТЯ ПОРОБУЙ МОЖЕТ СОЙДЕТ!

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, SmallPort; type TForm1 = class(TForm) p: TSmallPort; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} Function Temperature:byte; begin Form1.P.OpenDriver; With Form1.p do Begin //-------------------------- PORT[$6049]; Result:=PORT[$601F]; Result:=Round(Result / 0.527) div 10; //-------------------------- end; Form1.P.CloseDriver; end; procedure TForm1.Button1Click(Sender: TObject); Begin Caption:=FloatToStr(Temperature); end; end.

Duk_ (2005-06-03 23:38:00) [17]
Дайте хотя бы пример

NikNet (2005-06-03 23:26:00) [18]
Кстати разберись сначало с PCI устройствами а затем берись!
Например порт 290 это LM9 для INTEL а мой 6000 это базовый порт
через него я и получаю! А у вас может и не заработать...

NikNet (2005-06-03 21:38:00) [19]
Интересно зачем вам эта температура :|

Ну есть у меня Температура и Скорось на DELPHI и что :|

Вообщем ерунда это все!!!

Меня просили месяц назад сделать внедрение
кода в чужую программу! И что зделал не кого-го результата
не видел :|

Duk_ (2005-06-03 20:32:00) [20]
_

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »