PureBasic - форум

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » PureBasic - форум » PureBasic для Windows » Прием данных в HEX формате

Прием данных в HEX формате

Страница: 1

Сообщений 1 страница 3 из 3

1

  • Автор: newmayer
  • Участник
  • Зарегистрирован: 07.01.2015
  • Приглашений: 0
  • Сообщений: 22
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    11 часов 2 минуты
  • Последний визит:
    02.12.2023 14:17:55

Доброго времени суток.

Просьба объяснить как принять данные на PureBasic в HEX формате в массив

Контроллер шлет данные по:

01 01 01 01 01 01 01 01 01 01 01 01 80 80 80 80

Нужно постоянно принимать в промежутке 100 милисекунд

Как это реализовать при помощи ReadSerialPortData(#SerialPort, *Buffer, Length) ?

0

2

  • Автор: newmayer
  • Участник
  • Зарегистрирован: 07.01.2015
  • Приглашений: 0
  • Сообщений: 22
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    11 часов 2 минуты
  • Последний визит:
    02.12.2023 14:17:55

Нашел вот такой код

Код:
#ComPort = 0 ; Идентификатор COM порта
 
EnableExplicit

 
Procedure InComStr() ; Прием строк из COM порта.
  Static InBuff.s
  Protected Bytes, Buff.a, i
  
  Bytes = AvailableSerialPortInput(#ComPort)
  If Bytes>0
    For i=1 To Bytes
      If ReadSerialPortData(#ComPort, @Buff, 1)=1
        If Buff<>#CR And Buff<>#LF
          InBuff+Chr(Buff)
              
              Debug Buff
          
        Else
          Debug InBuff
          InBuff=""
        EndIf
      EndIf
    Next i
  EndIf
  
EndProcedure
 
If OpenSerialPort(#ComPort, "COM3", 4800, #PB_SerialPort_NoParity, 8, 1,
                  #PB_SerialPort_NoHandshake, 255, 255)
  
  Repeat
    InComStr()
    Delay(500)
  ForEver
  
  
  CloseSerialPort(#ComPort)
Else
  Debug "Не удалось открыть COM порт"
EndIf

Вроде бы работает как надо

Если посмотреть Debug Buff

В окне Дебагера выводит все по порядку в таком формате

1
1
1
1
1
1
1
1
1
1
1
1
128
128
128
128

Как теперь все это организовать в массив?

Например

num(0)=1
num(1)=1
num(2)=1
...
...
...
num(16)=128

0

3

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2944
  • Уважение: [+96/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 9 дней
  • Последний визит:
    Вчера 16:55:01
Код:
Procedure InComStr() ; Прием строк из COM порта.
  Static InBuff.s
  Protected Bytes, Buff.a, i
  
  Bytes = AvailableSerialPortInput(#ComPort)
  If Bytes>0
    
    Protected Dim Arr.a(Bytes)
    
    For i=1 To Bytes
      If ReadSerialPortData(#ComPort, @Buff, 1)=1
        Arr.a(i)=Buff
        
        If Buff<>#CR And Buff<>#LF
          InBuff+Chr(Buff)
              Debug Buff
        Else
          Debug InBuff
          InBuff=""
        EndIf
      EndIf
    Next i
  EndIf
  
EndProcedure

0

Страница: 1

Вы здесь » PureBasic - форум » PureBasic для Windows » Прием данных в HEX формате