Воскресенье, 14.08.2022, 02:34
PureBasic - кроссплатформенный язык программирования
Главная Форум Регистрация Вход
Приветствую Вас, Гость · RSS
Меню сайта
Категории раздела
PB 4.50 и 4.51 [7]
Библиотеки функций для PB 4.50 и 4.51
Статьи
[16.06.2011][Начинающим]
Как быстро найти описание функции или оператора. (0)
[11.06.2011][Начинающим]
Создание EXE программы. (3)
[24.03.2011][Начинающим]
Работа с отладчиком (0)
[17.03.2011][Начинающим]
Замена значка в исполняемом файле (2)
[15.03.2011][Начинающим]
Перезагрузка процедур. (0)
[09.03.2011][Начинающим]
Создание самораспаковывающегося ZIP архива (0)
[24.02.2011][Начинающим]
Работа с ZIP архивами (0)
[22.02.2011][Начинающим]
Определение IP адреса компьютера (0)
Файлы
[28.06.2011][Примеры]
Примеры программ. (1)
[27.06.2011][PB 4.50 и 4.51]
PortLib - работа с портами компьютера (2)
[10.04.2011][PB 4.50 и 4.51]
PureSMTP - отправка почты (2)
[10.03.2011][Примеры]
3D демки. (1)
[10.03.2011][Примеры]
2D демка. (0)
[09.03.2011][PB 4.50 и 4.51]
Русская справка (0)
[09.03.2011][PB 4.50 и 4.51]
Русификатор PureBasic (1)
[02.03.2011][PB 4.50 и 4.51]
HID_Lib - работа с USB HID устройствами. (9)
[01.03.2011][Примеры]
CodeArchiv_v4-Beta (0)
[28.02.2011][Учебники]
Установка PureBasic на ОС Linux (0)
 Каталог файлов
Главная » Файлы » Библиотеки » PB 4.50 и 4.51

PortLib - работа с портами компьютера
[ Скачать с сервера (92.0 Kb) ] 27.06.2011, 18:50
Библиотека PortLib предназначена для работы с портами компьютера (например, LPT портом) в операционных системах семейства Windows, основанными на ядре NT.
Это Windows NT, 2000, XP, Vista, Windows 7 и другие.
Данная библиотека предназначена для PureBasic 4.50 или 4.51.
С другими версиями корректная работа не гарантируется.


В состав библиотеки входит всего две функции:

PortLib_Input
(Address)
- Чтение байта из порта компьютера.

PortLib_Output(Address, Byte) - Запись байта в порт компьютера.


Пример записи данных в порт 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

Категория: PB 4.50 и 4.51 | Добавил: fils | Теги: библиотека, PureBasic., LPT, Порт
Просмотров: 4098 | Загрузок: 644 | Комментарии: 2 | Рейтинг: 1.3/3
Всего комментариев: 2
0
1 bob   [Материал]
а как компилировать, то? пурик не видит эти функции

0
2 fils   [Материал]
Нужно установить библиотеку.
Скачать ее можно на этой же странице в верху, щелкнув по ссылке Скачать с сервера.
Далее нужно извлечь содержимое скачанного архива в папку с установленной средой PureBasic 4.5x, таким образом, чтобы файлы из папок архива были добавлены в одноименные папки PureBasic.
После этого функции PortLib_Input() и PortLib_Output() будут доступны.

PS.
Если позволяет интернет, можно скачать PureBasic со всеми библиотеками http://purebasic.ucoz.ru/load....-1-0-17

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Copyright MyCorp © 2022
Форма входа

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Поиск
Друзья сайта
  • Разработчики PureBasic
  • Русский сайт о PureBasic
  • pure-basic.narod.ru
  • mirashic.narod.ru
  • purebasic.ucoz.com
  • purebasic.org
  • purebasic.ru
  • Копировать материалы сайта без разрешения автора, ЗАПРЕЩЕНО!

    Сделать бесплатный сайт с uCoz