Name: PortLib - работа с портами компьютера
Item: PortLib - работа с портами компьютера
Author: bob

Пример записи данных в порт LPT 1 и чтение из него.

; Запись числа 100 в регистр данных порта LPT1.
PortLib_Output($378, 100)
; Чтение из регистра данных порта LPT1.
Debug PortLib_Input($378)

Чтение текущей температуры процессора из регистра $295 компьютера.

 Код:

#ADR_REG=$295;Это адреса регистров системной платы, с помощью которых можно узнать температуру
#DATA_REG=$296

Procedure Termo(); Эта процедура вызывается по таймеру каждую секунду
 PortLib_Output(#ADR_REG,$2B); Получает текущую температуру процессора
 x=PortLib_Input(#DATA_REG)
 SetGadgetItemText(0,0,StrU(x,#PB_Byte)+" °C",1); отображаем её в таблице

 PortLib_Output(#ADR_REG,$29); Получает текущую температуру процессора
 x=PortLib_Input(#DATA_REG)
 SetGadgetItemText(0,1,StrU(x,#PB_Byte)+" °C",1); отображаем её в таблице
EndProcedure 

OpenWindow(0,0,0,274,74,"PortLib - температрура CPU",#PB_Window_MinimizeGadget|#PB_Window_Invisible|#PB_Window_ScreenCentered)

ListIconGadget(0,2,2,270,70,"Имя",120,#PB_ListIcon_GridLines); Таблица
SetGadgetFont(0,LoadFont(0,"MS Sans Serif",10)); Шрифт используемый в таблице
AddGadgetColumn(0, 1,"Температура", 140); Добавление колонки в таблицу
AddGadgetItem(0, 0,"Процессор"); Добавление строк в таблицу
AddGadgetItem(0, 1,"Мат. плата")

TextGadget(3,150, 80,50,16,""); Здесь будет отображаться текущая загрузка процессора
Termo()
HideWindow(0,0); Отображение окна

AddWindowTimer(0,2,1000)

Repeat ; Главный цикл программы 
 Event=WaitWindowEvent()

 If Event =#PB_Event_Timer
 If EventTimer()= 2
 Termo()
 EndIf
 EndIf
Until Event=#PB_Event_CloseWindow