# простой модбас запрос, чтение адресов 400001-400010
set query [binary format H* 0000000601030000000A]

# устанавливаем соеденение с подчиненным устройством
set connection [socket 192.168.3.241 502]
fconfigure $connection -blocking 0 -buffering none -translation binary

set perftime [clock milliseconds]
set perfcnt 0
set transact_id 0

# цикл опроса
while {on} {
    # формируем первые два байта заголовка и посылаем запрос
    puts -nonewline $connection "[binary format S $transact_id]$query"

    set response {}
    set resplen 29      ;# длина ответа должна быть 29 байт !
    set begtime [clock milliseconds]

    # ждем ответа
    while {$resplen} {
        if { [eof $connection] } {
            # соеденение закрыли на той стороне
            puts "connection closed"
            exit
        }
        # читаем прешедшие данные
        if { [catch {read $connection $resplen} data] } {
            # другая ошибка сокетов
            puts $errorInfo
            exit
        } elseif { [string length $data] } {
            # какие-то данные пришли

            # добавляем, то что пришло к ответу
            append response $data
            # вычисляем, сколько еще осталось прочитать
            incr resplen -[string length $response]
        } else {
            # ничего не пришло, проверка на таймаут
            if { [clock milliseconds] - $begtime >= 300 } {
                puts "connection timeout"
                exit
            }
        }
    }

    # вычисляем идентификатор транзакции
    binary scan $response S resp_id
    set resp_id [expr {$resp_id & 0xFFFF}]

    # проверям соответствие идентификаторов запроса и ответа
    if {$transact_id != $resp_id} {
        puts "modbus error"
        exit
    }

    # раз в 10 секунд смотрим, сколько транзакций прошло
    # вычисляем производительность и выводим на печать
    incr perfcnt
    if { [clock milliseconds] - $perftime >= 10000 } {
        set queryinsec [format %.2f [expr {$perfcnt / 10.0}]]
        set period [format %.4f [expr {10.0 / $perfcnt}]]
        puts "perfomance: $queryinsec queries in sec, period: $period"
        set perfcnt 0
        set perftime [clock milliseconds]
    }
}

• Home
• Recent changes
• Help
• WhoAmI/Logout
• Create new page
• Random page
• Previous page
• Next page
• 
  
• Add comments
• Edit
• History
• Edit summary
• References