If OpenWindow(0, 0, 0, 400, 50, "Timer Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
   ProgressBarGadget(0, 10, 10, 380, 20, 0, 100)
   AddWindowTimer(0, 123, 10)
    
   Value = 0 : State = 0
   Repeat
     Event = WaitWindowEvent()
      
     If Event = #PB_Event_Timer And EventTimer() = 123
       If State = 0
         Value + 4
         If Value>100 : State=1 : EndIf
       Else
         Value - 4
         If Value<0 : State=0 : EndIf
       EndIf
       SetGadgetState(0, Value)
     EndIf     
      
   Until Event = #PB_Event_CloseWindow
EndIf

IncludeFile "MeterGadget.pbi"

WriteSerialPortData(#COM_Port, @send_data, 1)

#Com_Port=7
If IsSerialPort (#Com_port)
  CloseSerialPort (#Com_port)
EndIf
If OpenSerialPort(#Com_port, "COM7", 9600, #PB_SerialPort_NoParity, 8, 1, #PB_SerialPort_NoHandshake, 1024, 1024)
  Debug "Порт открыт успешно"
Else
  Debug "Порт не обнаружен"
EndIf

Procedure InData(Gadget) ; Прием данных.
  Protected InBytes
  
  If IsSerialPort(#COM_Port)   ; С таким ИД порт открыт.
    InBytes = AvailableSerialPortInput(#COM_Port)
    If InBytes>0 ; Получены данные.
      
      Protected Dim InBuffer.a(InBytes), RealInBytes
      
      RealInBytes = ReadSerialPortData(#COM_Port, @InBuffer(), InBytes)
      If RealInBytes>0
        
        AddGadgetItem(Gadget, -1, PeekS(@InBuffer(), RealInBytes, #PB_Ascii))
        
;         ;    If i=3
;         AddGadgetItem(3, -1, PeekS(@InBuffer(), RealInBytes, #PB_Ascii))
;         ;      EndIf
;         
;         ;   If i=4
;         AddGadgetItem(4, -1, PeekS(@InBuffer(), RealInBytes, #PB_Ascii))
;         ;EndIf
;         ;  If i=6
;         AddGadgetItem(6, -1, PeekS(@InBuffer(), RealInBytes, #PB_Ascii))
;         ;
;         ;
;         ; EndIf
      EndIf
      
    EndIf
  EndIf
  
  ProcedureReturn RealInBytes
EndProcedure

Procedure ComOut (Sent_data.s)
  If IsSerialPort(#Com_port)
    ;ComWrite (SerialPortID(#Com_port),@Sent_data,1)
    WriteSerialPortData(#Com_Port,@Sent_data,1)  
  Else
    ;MessageRequester("Ошибка!Порт не доступен!",16)
    Debug "Куда данные посылать?"
  EndIf
EndProcedure

;http://www.purebasic.com/documentation/file/openfile.html

OpenWindow(0,0,0,700,500,"Тестовая программа",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered); открываем окно

ButtonGadget(1,50,120,100,35,"Время ", #PB_Button_Default); выводим кнопку
EditorGadget(3, 50, 160, 330, 50)                         ; место для внесения текста к времени
ButtonGadget(2,50,10,170,35,"температура за бортом", #PB_Button_Default); выводим кнопку
EditorGadget(4, 50, 50, 330, 50)                    ; место для внесения текста к датчикам

ButtonGadget(5,50,230,170,35,"Давление", #PB_Button_Default); выводим кнопку
EditorGadget(6, 50, 270, 330, 50)                           ; место для внесения текста к датчикам

Repeat
  Event=WaitWindowEvent() ; Получаем идентификатор события.
  Gadget=EventGadget()    ; Узнаём идентификатор активного гаджета.
  If Gadget=1             ; Условие будет выполнено при щелчке по кнопке.
    i=3
    ComOut("M")
    RealInBytes = InData(3)
    
    
    If OpenFile(0,"Данные датчиков.xls")
      WriteByte(0, RealInBytes)
      CloseFile(0)
    EndIf
    
  EndIf
  If Gadget=2; условие для кнопки температура
    i=4
    ComOut("T")
    InData(4)
    ;   If OpenFile(1,"шшш.txt")
    ;  WriteString(1, "Температура"+ RealInBytes$)
    ;  CloseFile(1)
    ;  EndIf
    ;StringGadget(3,70,70,150,35,"",#PB_String_ReadOnly)
    ;EditorGadget(3, 10, 100, 330, 50); место для внесения текста
  EndIf  
  If Gadget=5; условие для кнопки температура
    i=6
    ComOut("P")
    InData(6)
    
    
  EndIf
Until Event = #PB_Event_CloseWindow ; Прерываем цикл при закрытии окна

End ;