Форум РадиоКот

Код: Выделить всё

Debug GetSystemDirectory() ; Узнаём путь к системной папке

Код: Выделить всё

Procedure GlavWindowCallback(WindowID, Message, wParam, lParam)
 XP_Menu_CB(WindowID, Message, wParam, lParam)
ProcedureReturn #PB_ProcessPureBasicEvents 
EndProcedure

OpenWindow(0, 0, 0,200, 100, "", #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)

 If CreateMenu(0, WindowID(0))
   MenuTitle("Файл")
   MenuItem(4,"Новый")
   MenuItem(1,"Открыть")
   MenuItem(2,"Сохранить")
 EndIf
 SetWindowCallback(@GlavWindowCallback() ,0)
 XP_MenuRegister(MenuID(0), #XP_RegMenu, #XP_RegGeneralMenu,WindowID(0)) ; Регистрация главного меню


Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow

Код: Выделить всё

#ADR_REG = $295 
#DATA_REG = $296 
  
Procedure Termo() 
 IO_PortOut(#ADR_REG, $2B) 
 x=IO_PortIn(#DATA_REG) 
 SetGadgetItemText(0,0,StrU(x, #Byte)+" °C",1) 
 IO_PortOut(#ADR_REG, $29) 
 x=IO_PortIn(#DATA_REG) 
 SetGadgetItemText(0,1,StrU(x, #Byte)+" °C",1) 
EndProcedure 
  
  
  
 OpenWindow(0,0,0,300,74,"Измерялка температур",#PB_Window_MinimizeGadget|#PB_Window_Invisible|#PB_Window_ScreenCentered) 
  CreateGadgetList(WindowID(0)) 
  
   ListIconGadget(0,2,2,296,70,"Имя",120,#PB_ListIcon_GridLines) : SetGadgetFont(0,LoadFont(0,"MS Sans Serif",12) ) 
   AddGadgetColumn(0, 1, "Температура", 140) 
    
   AddGadgetItem(0, 0, "Процессор") 
   AddGadgetItem(0, 1, "Aux") 
   Termo()
  HideWindow(0,0) 
  
  SetTimer_(WindowID(0),1,1000, @Termo() ) 
  
  Repeat 
   Event=WaitWindowEvent() 
    
  Until Event=#PB_Event_CloseWindow

Код: Выделить всё

OpenWindow(0, 0, 0,200, 100, "", #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
CreateGadgetList(WindowID(0))
  EditorGadget(1,10,10,180,80)
    Editor_Select(1,0,1,-1,-1)
 
Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow

Код: Выделить всё

; Загружаем рисунки из памяти
CatchImage(1,?ledred)
CatchImage(2,?ledgreen)
CatchImage(3,?ledyellow)
CatchImage(4,?ledredoff)
CatchImage(5,?ledgreenoff)
CatchImage(6,?ledyellowoff)
CatchImage(7,?ledblue)
CatchImage(8,?ledblueoff)

; Открываем окно
OpenWindow(0, 0, 0,200, 100, "", #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered) 
CreateGadgetList(WindowID(0))
ImageGadget(0,10,15,30,30,ImageID(1)) ; Отображаем рисунок в окне
ButtonGadget(1,80,10,100,24,"Сменить цвет") ; Кнопка

Count=2 ; Счётчик текущего рисунка
Repeat 
 Event=WaitWindowEvent() ; Идентификатор текущего события
 Gadget=EventGadget()    ; Идентификатор гаджета, в котором произошло событие
  
  If Event=#PB_Event_Gadget And Gadget=1 ; Был щелчок по экранной кнопке
   SetGadgetState(0,ImageID(Count)) ; Отображаем новый рисунок
   Count=Count+1 ; Увеличиваем значение переменной-счётчика
     If Count>8 ; Если значение вышло за допустимые пределы
      Count=1   ; то записываем 1
     EndIf
  EndIf
  
Until Event=#PB_Event_CloseWindow ; Собфтие закрытия окна
End ; Завершаем работу программы


; Информационная секция. При компиляции файлы будут помещены в EXE и для дальнейшей
; работы программы внешние файлы уже не нужны, ведь их копии находятся в EXEшнике.

DataSection 
ledred:IncludeBinary "Иконки\ledred.ico"
ledredoff:IncludeBinary "Иконки\leddarkred.ico"
ledgreen:IncludeBinary "Иконки\ledgreen.ico"
ledgreenoff:IncludeBinary "Иконки\ledgreenoff.ico"
ledyellow:IncludeBinary "Иконки\ledyellow.ico"
ledyellowoff:IncludeBinary "Иконки\ledyellowoff.ico"
ledblue:IncludeBinary "Иконки\ledblue.ico"
ledblueoff:IncludeBinary "Иконки\ledblueoff.ico"
EndDataSection

Код: Выделить всё

; ВНИМАНИЕ этот код работает только в среде PureBasic, если создать EXEшник, то работать не будет
; связанно это с тем, что для вывода инфы использован оператор Debug
Repeat ; Начало цикла Repeat - Until
 Debug CpuUsage()
 Delay(1000)
Until GetAsyncKeyState_(#VK_ESCAPE) ; Завершаем работу проги если нажата кнопка Esc на клаве

Код: Выделить всё

;******************************************************
;* Пример работы с библиотекой функций IO_DLL_WRAPPER *
;******************************************************

 If IO_IsDriverInstalled()=0 ; Активируем драйвер
  MessageRequester("Ошибка", "Не удалось активировать "+Chr(10)+"драйвер LPT порта", #MB_OK|#MB_ICONERROR)
  End ; Завершаем работу программы
 EndIf
 
; Открываем окно
 If OpenWindow(1,200,200,380,150,"Работа LPT используя IO_DLL_WRAPPER", #PB_Window_MinimizeGadget)
  If CreateGadgetList(WindowID(1)) ; Создаём новый список гаджетов (кнопок, выпадающих списков и т. д.)
  
  TextGadget(1,10,24,58,16,"LPT порт") ; Надпись
  ComboBoxGadget(2,70,20,80,100) ; Выпадающий список
     AddGadgetItem(2,-1,"LPT1")  ; Заполнение списка
     AddGadgetItem(2,-1,"LPT2")
     SetGadgetState(2,0) : AddressLPT=$378 ; Активируем нулевой пункт списка
   
  TextGadget(3,10,80,130,16,"Запись данных в порт")
  StringGadget(4,140,74,30,20,"",#PB_String_Numeric) ; Поле для ввода данных
     SendMessage_(GadgetID(4), #EM_SETLIMITTEXT, 3, 0) ; С помощью API функции ограничиваем число символов с поле
  ButtonGadget(5,180,74,80,20,"Записать") ; Кнопка
  
  
  TextGadget(6,10,120,138,16,"Чтение данных из порта")
  StringGadget(7,140,114,30,20,"",#PB_String_ReadOnly) : SetGadgetColor(7,#PB_Gadget_BackColor,RGB(238, 238, 238))
  ButtonGadget(8,180,114,80,20,"Читать")
  
  
   Repeat ;- Начало бесконечного (завершится только при закрытии программы) цикла Repeat - Until
    Event=WaitWindowEvent() ; Идентификатор события в программе
    Gadget=EventGadget()    ; Идентификатор гаджета, в котором произошло событие
    Type=EventType()        ; Идентификатор типа события
    
    
    If Event=#PB_Event_Gadget ; Произошло событие в гаджете (скорее всего клик мышкой по нему)
        Select Gadget
          Case 2 ; Событие в выпадающем списке
              If Type=1 ; Список закрылся с выбором пункта
               Select GetGadgetState(2) ; Узнаём какой пункт был выбран
                 Case 0
                   AddressLPT=$378
                 Case 1
                   AddressLPT=$278
               EndSelect
              EndIf
            
          Case 5 ; Событие в кнопке "Записать"
            DataOut=Val(GetGadgetText(4)) ; Читаем текст из поля и преобразовываем его в число
             If DataOut>255 ; Если число больше 255
              DataOut=255   ; делаем его равным 255
             EndIf
             IO_PortOut(AddressLPT, DataOut) ; Отправляем число в порт
             
          Case 8 ; Событие в кнопке "Читать"
            DataIn.c=IO_PortIn(AddressLPT) ; Читаем данные из порта и помещаем в переменную типа Character (хранит один байт - целое число в пределах 0...255)
            SetGadgetText(7,Str(DataIn))    ; Отображаем в окне, предватительно число преобразовав в строку
            
        EndSelect
    EndIf
    
   Until Event=#PB_Event_CloseWindow ; Прерываем основной цикл Repeat - Until если нужно закрыть окно
  EndIf
 EndIf
End ; Завершаем работу программы