Выплескивание эмоций

очень простой исходник для парсинга - ни тебе скобок, ни вложенных условий...

 

Да распарсится, конечно, но, блин, почему нельзя было применить что-то стандартное

 

Ну вот:

 

Блин, хотел перешить старый термостат, сделанный еще в 2007г.
Но с этими драйверами для AVRISP под AVR Studio и Arduino IDE полная засада на Win10.
На Win7 было проще. Два разных USB порта - два разных устройства.
На Win10 надо менять драйвера...
Достал старый ноут на Win7...

 

Гы - задержали сегодня на проходной с Ампрковскими тройка-модулЯми , потом правда отпустили.... как бы вы ответили на вопрос "а чеэто у Вас такое?"

 

А как бы ты объяснил где находится этот самый гугл? (молодой еще - суровых Рассейских охранниц не видел....)

 

Да у меня каждый раз просят показать коробочку с платами в аэропорту на спец. контроле.
Коробочка небольшая, часы на ESP, переходник USB-UART, и пару маленьких плат, чтобы было чем вечером заняться
Уже привык

 

50...

 

пожалуй, тяпну за тебя. хоть и 5:45 на часах

 

И я рюмочку

 

делаю виндос-программу для ком-порта. Возник затуп.
Например в сокетах есть функция WSAAsyncSelect(), при помощи которой можно задать сообщение со своим нестандартным номером, которое будет приходить в оконную или диалоговую процедуру при всяких разных событиях, происходящих с сокетом.
Для ком-порта якобы есть сообщение WM_COMMNOTIFY, но судя по всему это уже не работает, т.к. устарело и это не годится короче.

Есть ли какой-то способ сделать чтобы например когда в ком-порт приходят данные, в виндос-процедуру тут же приходило сообщение об этом? Могу конечно сделать чтоб по таймеру постоянно проверяло есть ли данные, но это слишком тупо.

В примерах из интернета обычно создают событие CreateEvent(), а потом мутят с потоками и т.п., но мне не нужна многопоточность, мне охота чтобы именно в программу приходило сообщение о том что в ком-порте что-то случилось. В какую сторону гуглить может кто шарит в виндосе подскажите

 

В Визуал Бейсике 6 -

Код (Text):

Private Sub MSComm1_OnComm()

'******************************************************************************
' Synopsis:     Handle incoming characters, 'On Comm' Event
'
' Description:  By setting MSComm1.RThreshold = 1, this event will fire for
'               each character that arrives in the comm controls input buffer.
'               Set MSComm1.RThreshold = 0 if you want to poll the control
'               yourself, either via a TImer or within program execution loop.
'
'               In most cases, OnComm Event processing shown here is the prefered
'               method of processing incoming characters.
'
'******************************************************************************

    Static sBuff    As String           ' buffer for holding incoming characters
    Const MTC       As String = vbCrLf  ' message terminator characters (ususally vbCrLf)
    Const LenMTC    As Long = 2         ' number of terminator characters, must match MTC
    Dim iPtr        As Long             ' pointer to terminatior character

    ' OnComm fires for multiple Events
    ' so get the Event ID & process
    Select Case MSComm1.CommEvent
   
        ' Received RThreshold # of chars, in our case 1.
        Case comEvReceive
   
            ' read all of the characters from the input buffer
            ' StrConv() is required when using MSComm in binary mode,
            ' if you set MSComm1.InputMode = comInputModeText, it's not required
       
            sBuff = sBuff & StrConv(MSComm1.Input, vbUnicode)
                   
            ' a typical application would buffer characters here waiting for
            ' an end of message sequence like vbCrLf, that's why sBuff is declared
            ' as Static and the statement above sets sBuff = sBuff & MSComm1.Input
            ' When an end of message string is received the messages are passed
            ' through a parser routine. Here, we show processing a character at
            ' time and 'message parsing' options. MEssage parsing varies depending
            ' on what you're doing but would look something like this:
       
          '  If bMessageMode Then
                ' in message mode we wait for the message terminator
                ' before processing. This is typcal of a command & control
                ' program that interfaces with an external device and
                ' must decode data coming from the device. Most devices will
                ' use a start / end sequennce to ID each message.  You
                ' would process the messages by calling your message parser and
                ' passing the message just like the message is passed to the
                ' PosTerminal routine below. Some device's use character count
                ' to ID messages instead of start/end characters, this method is
                ' too machine specific to be shown here.
           
                ' look for message terminator
                iPtr = InStr(sBuff, MTC)
                ' process all queued messages
                Do While iPtr
                    ' pass each message to the message parser
                    ' in our case, it just gets displayed. To decode
                    ' specific messages, you would pass the string
                    ' Mid$(sBuff, 1, iPtr + LenMTC - 1)
                    ' to a message decoder routime
                    PostTerminal Mid$(sBuff, 1, iPtr + LenMTC - 1)
                    ' remove from the message queue
                    sBuff = Mid$(sBuff, iPtr + LenMTC)
                    ' look for another message
                    iPtr = InStr(sBuff, MTC)
                Loop
       
          '  Else
                ' in character mode we just pass each character to
                ' the parser as it comes in. The parser is responsibe
                ' for collecting the characters and assembling any messages.
                ' For our simple terminal example, character mode works fine.
            '    PostTerminal sBuff
            '    sBuff = vbNullString
          '  End If
       
       
            ' flash the Rx LED
        txtTerminal.BackColor = &H40&
            tmrRxLED.Enabled = True
 

        ' A Break was received.
        Case comEventBreak
            lblError = "Break"
            '   tmrClearError.Enabled = True
   
        ' Framing Error
        Case comEventFrame
            lblError = "Framing"
        '    tmrClearError.Enabled = True
   
        ' Data Lost.
        Case comEventOverrun
            lblError = "Overrun"
        '    tmrClearError.Enabled = True
   
        ' Receive buffer overflow.
        Case comEventRxOver
            lblError = "Overflow"
            tmrClearError.Enabled = True
   
        ' Parity Error.
        Case comEventRxParity
            lblError = "Parity"
            tmrClearError.Enabled = True
   
   
        ' Unexpected error retrieving DCB]
        Case comEventDCB
            lblError = "DCB Error"
            tmrClearError.Enabled = True

    End Select

End Sub
 

Вставляете следом за "Case com..." нужные строчки и готово. По-сути - это обработчик прерывания. В него не надо заходить, он отрабатывает в фоне. Но Бейсик использует уже установленные библиотеки. Есть ли они у вас - не факт.

 

не, это мне не поможет. Вот если бы знать как оно там внутри этой библиотеки работает (все равно же через винапи наверно)

 

ты на чём пишешь то?

 

на чистом вульгарном си (возможно++, но это не точно)

 

Файл "comapi32.dll" является библиотекой коммуникационных функций (15 шт.).
http://www.microchip.ru/phorum/read.php?f=2&i=39525&t=39525

 

А среда компиляции какая?