Помогите по HiAsm, задолбался уже

[Saadov]

Наверно ты про это забыл, надо указать какой к какому COM порту приконектиться и на какой скорости он будет работать...
Может сдвинется с мертвой точки дело.

[russo_turisto]

Порт я сконфигурировал правильно,

я думаю что элемент сом не понимает нех данных, наверно ему нужны строковые данные.

[-Vladimir-]

порт действительно не сконфигурирован это раз,
неправильно производите запись в элемент "текстовое поле ввода"

попробуйте поработать над моим вложением. К сожалению полноценного СОМ порта не имею... сейчас проверить не на чем

[Dmitry2009]

надо вроде так

[Pit_PB]

IMHO - лучше осваивай PureBasic , пользы на порядок больше .

Согласен.
HiAsm вещь хорошая, но PureBasic во много раз лучше и функциональней!

[Saadov]

Порт я сконфигурировал правильно,

я думаю что элемент сом не понимает нех данных, наверно ему нужны строковые данные

компоненту COM в Hiasm надо задать номер порта и скорость работы, пробовал, с вашей программой виртуального COM, спокойно передал пару байт через компонент.

И еще как выше уже писал, посмотрите пример применяющий COM копонент
C:\Program Files\HiAsm\elements\delphi\example\System\AT.sha
Там все ясно...

[russo_turisto]

Спасибо за ответы, с нех данными элемент сом не работает, когда посылаю строками данные они тогда они отображаются.
Надо переделать в WinAvr исходник прошивки, чтобы нех конвертировал в строки. Например если темпиратура 1град передаётся 0х00 0х0А, если 10град то 0х00 0х64 (в десятичной системе 100). Соответственно при 1град надо передать '1,0' а при 10 град надо передать '10,0'
Получается нужно заменить формат передачи данных, как пока не знаю. Буду думать.
Если подскажете, то заранее благодарен.

[Saadov]

Получается нужно заменить формат передачи данных, как пока не знаю. Буду думать.
Если подскажете, то заранее благодарен

почитай help своего компилятора по разделу stdlib

[Pit_PB]

Во изврат в HiAsm'е
Для COM порта нет различий между системами исчисления, т. к. он работает с байтами.
Ине вот интересно чтобы ты делал, если бы отсутствували исходники для контроллера?

Вот прога на PureBasic

; PureBasic Visual Designer v3.95 build 1485 (PB4Code)


;- Window Constants
;
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #Combo_PortName
  #Combo_PortBaud
  #Text_PortState
  #String_Byte_1
  #String_Byte_2
EndEnumeration

Procedure NewCom(Port.s, Baud) ; В этой процедуре открывается порт

If IsSerialPort(1)  ; Порт уже открыт прогой
 CloseSerialPort(1) ; Закрываем его
 Delay(100)
EndIf
                    ; Открываем порт
If OpenSerialPort(1, Port, Baud, #PB_SerialPort_NoParity, 8, 1, #PB_SerialPort_NoHandshake, 256, 256)›0
  SetGadgetText(#Text_PortState, "Порт успешно октрыт")
  SetGadgetColor(#Text_PortState, #PB_Gadget_FrontColor, RGB(31, 94, 84) )
Else
  SetGadgetText(#Text_PortState, "Ошибка при открытии порта")
  SetGadgetColor(#Text_PortState, #PB_Gadget_FrontColor, RGB(255, 0, 0) )
EndIf

EndProcedure

Procedure InCOM_Thread(*v) ; Эта процедура работает в параллельном потоке и каждые 100 мс опрашивает порт
Static ByteNumber.c
Protected Byte.c

 Repeat
   If IsSerialPort(1)               ; Пот открыт
     If AvailableSerialPortInput(1) ; Еслть ноые данные
        ReadSerialPortData(1, @Byte, 1) ; Получаем их
        If ByteNumber=0             ; Это первый байт
          ByteNumber=1
          SetGadgetText(#String_Byte_1, Str(Byte))
        Else                        ; Это второй байт
          ByteNumber=0
          SetGadgetText(#String_Byte_2, Str(Byte))
        EndIf
     EndIf
   EndIf
   Delay(100)
 ForEver
 
EndProcedure

                                      ; Создание окна и его компонентов
Procedure Open_Window_0()
  If OpenWindow(#Window_0, 0, 0, 300, 130, "ComTermo",  #PB_Window_MinimizeGadget | #PB_Window_Invisible | #PB_Window_ScreenCentered )
      TextGadget(#PB_Any, 10, 20, 35, 15, "Порт")
      ComboBoxGadget(#Combo_PortName, 45, 15, 75, 20)
        For i=1 To 10
          AddGadgetItem(#Combo_PortName,-1,"COM"+Str(i))
        Next i
        SetGadgetState(#Combo_PortName,0)
      TextGadget(#PB_Any, 140, 20, 55, 15, "Скорость")
      ComboBoxGadget(#Combo_PortBaud, 200, 15, 80, 20)
         AddGadgetItem(#Combo_PortBaud,-1,"75")
         AddGadgetItem(#Combo_PortBaud,-1,"110")
         AddGadgetItem(#Combo_PortBaud,-1,"134")
         AddGadgetItem(#Combo_PortBaud,-1,"150")
         AddGadgetItem(#Combo_PortBaud,-1,"300")
         AddGadgetItem(#Combo_PortBaud,-1,"600")
         AddGadgetItem(#Combo_PortBaud,-1,"1200")
         AddGadgetItem(#Combo_PortBaud,-1,"1800")
         AddGadgetItem(#Combo_PortBaud,-1,"2400")
         AddGadgetItem(#Combo_PortBaud,-1,"4800")
         AddGadgetItem(#Combo_PortBaud,-1,"7200")  
         AddGadgetItem(#Combo_PortBaud,-1,"9600")
         AddGadgetItem(#Combo_PortBaud,-1,"14400")
         AddGadgetItem(#Combo_PortBaud,-1,"19200")
         AddGadgetItem(#Combo_PortBaud,-1,"38400")
         AddGadgetItem(#Combo_PortBaud,-1,"57600")
         AddGadgetItem(#Combo_PortBaud,-1,"115200")
         AddGadgetItem(#Combo_PortBaud,-1,"128000") 
        SetGadgetState(#Combo_PortBaud,11)
      TextGadget(#Text_PortState, 10, 45, 280, 15, "", #PB_Text_Center)
      TextGadget(#PB_Any, 10, 80, 75, 15, "Первый байт")
      StringGadget(#String_Byte_1, 95, 75, 40, 20, "")
      TextGadget(#PB_Any, 10, 105, 70, 15, "Второй байт")
      StringGadget(#String_Byte_2, 95, 100, 40, 20, "")
      
      HideWindow(#Window_0,0)
  EndIf
EndProcedure

Open_Window_0() ; Собственно создание окна
NewCom(GetGadgetText(#Combo_PortName), Val(GetGadgetText(#Combo_PortBaud))) ; Открытие порта
CreateThread(@InCOM_Thread(), 0) ; Запуск процедуры а параллельном потоке

Repeat ; Главный цикл проги Repeat - Until
  
  Event=WaitWindowEvent() ; Идентификатор события в программе
  
  If Event=#PB_Event_Gadget ; Событие в гаждете
    Gadget=EventGadget()     ; Идентификатор гаджета, в котором произошло событие
    If Gadget=#Combo_PortName Or #Combo_PortBaud ; Событие в выпадающем списке
       If EventType()=1 ; Спосок закрылся 
        NewCom(GetGadgetText(#Combo_PortName), Val(GetGadgetText(#Combo_PortBaud)))  ; Открытие порта
       EndIf
    EndIf
  EndIf
  
Until Event=#PB_Event_CloseWindow ; Событие закрытия окна

Она принимает 2 байта и оиображает их в десятичном формате (0...255).
Если нужно отобразить в ASCII формате, то нужно функции Str в процедуре InCOM_Thread заменить на Chr. Для отображения в HEX формате, нужно использоват функцию Hex

[-Vladimir-]

russo_turisto
а почему так настойчиво пытаетесь получить текст, если посылаете в порт не текст? На мой взгляд ничего не надо в девайсе менять. Надо просто правильно составить схему. Я тоже сначала немало потыкался по примерам, прежде чем заработали первые проги.
я вот примерчик привел, как по разному вводятся строки. А ниже дан конвертор , который как раз и позволяет конвертировать данный в любой последовательности