PLC, HMI, SCADA, INVERTERS, TUTORIALS, INDUSTRIAL AUTOMATION

02:01
PRUFTECHNIK EddyCheck 5 Архивация настроек абсолютного и дифференциального каналов

С помощью ПО AutoIT создается приложение, копирующее с компьютера по сети ETHERNET файлы настроек на сервер. Копируются настройки абсолютного (ABS) и дифференциального канала (DIF). 

На ПК установлено ПО E5win_V3.8

;------------------------------------------------------------------------
; Скрипт для автоматической архивации настроек дефектоскопов
;------------------------------------------------------------------------
; Создаем бесконечный цикл, для того, чтобы программа работа с момента автозапуска до
; выключения компьютера и не зависела от времени на компьютере

While 1
        $delay = 1000
        sleep ($delay)
;===========================================================================================================================================================
; Стан DMC38 CHANNEL 1
;===========================================================================================================================================================
    ;==================================
        $TypeCH =       '\DIF\'
        $CHName =       'CHAN1'
        $DataLog =      'DateChanges1.txt'
        $Stan =         'DMC38\'
        $IPAddrStan =   '192.168.0.24'
        $IPAddrServer = '\\192.168.0.174'
    ;==================================
      ; Пингуем ПК
      $PingError = Ping($IPAddrStan, 250)
      ; Если он доступен, то идем дальше
   IF $PingError <> 0 Then

       $PathEddy = '\\' & $IPAddrStan & '\pruftechnik\Eddychek5\e5units\' & $Stan & $CHName & '.$$$'

       $DataCur = FileGetTime ($PathEddy,0, 1)
       $PathLog = $IPAddrServer & '\Temp\SettingsED5\' & $Stan & $DataLog
       $DataReadChanges = FileReadLine ($PathLog,1)

      IF ($DataCur <> $DataReadChanges) Then
            ;-----------------------------------------------------------------------------
            ;--------- ЗАПИСЬ ДАТЫ ИЗМЕНЕНИЯ НАСТРОЕК В ТХТ ФАЙЛ--------------------------
            ;-----------------------------------------------------------------------------
            ; Открываем текстовый файл для записи и удаляем имеющееся содержание
            ; В режиме для записи файл создается, даже если его нет.
               $TXTOpen = FileOpen ($PathLog, 2)
               sleep (1000)
            ; Пишем в ранее открытый файл в первую строку дату время изменения
               FileWrite($TXTOpen , $DataCur)
            ; Закрываем ранее открытый файл
               FileClose($TXTOpen)
               sleep (3000)
            ;-----------------------------------------------------------------------------
            ;--------- ЗАПИСЬ НАСТРОЕК----------------------------------------------------
            ;-----------------------------------------------------------------------------
               ;Создаем каталог
               $dir= $IPAddrServer & '\Temp\SettingsED5\' & $Stan & @YEAR & '\' & @MON & '\' & @MDAY & $TypeCH
               DirCreate($dir)
               ; Копируем файл на сервер
               FileCopy($PathEddy, $dir, 9)
               ; Переименовываем файл, добавляя в конец его имени дату изменения
               FileMove($dir & "\" & $CHName & '.$$$', $dir & "\" & $CHName & "_" & $DataCur & ".$$$", 9)
            EndIf
   EndIf
;===========================================================================================================================================================
; Стан DMC38 CHANNEL 2
;===========================================================================================================================================================
    ;==================================
        $TypeCH =       '\ABS\'
        $CHName =       'CHAN2'
        $DataLog =      'DateChanges2.txt'
        $Stan =         'DMC38\'
        $IPAddrStan =   '192.168.0.24'
        $IPAddrServer = '\\192.168.0.174'
    ;==================================
      ; Пингуем ПК
      $PingError = Ping($IPAddrStan, 250)
      ; Если он доступен, то идем дальше
   IF $PingError <> 0 Then

       $PathEddy = '\\' & $IPAddrStan & '\pruftechnik\Eddychek5\e5units\' & $Stan & $CHName & '.$$$'

       $DataCur = FileGetTime ($PathEddy,0, 1)
       $PathLog = $IPAddrServer & '\Temp\SettingsED5\' & $Stan & $DataLog
       $DataReadChanges = FileReadLine ($PathLog,1)

      IF ($DataCur <> $DataReadChanges) Then
            ;-----------------------------------------------------------------------------
            ;--------- ЗАПИСЬ ДАТЫ ИЗМЕНЕНИЯ НАСТРОЕК В ТХТ ФАЙЛ--------------------------
            ;-----------------------------------------------------------------------------
            ; Открываем текстовый файл для записи и удаляем имеющееся содержание
            ; В режиме для записи файл создается, даже если его нет.
               $TXTOpen = FileOpen ($PathLog, 2)
               sleep (1000)
            ; Пишем в ранее открытый файл в первую строку дату время изменения
               FileWrite($TXTOpen , $DataCur)
            ; Закрываем ранее открытый файл
               FileClose($TXTOpen)
               sleep (3000)
            ;-----------------------------------------------------------------------------
            ;--------- ЗАПИСЬ НАСТРОЕК----------------------------------------------------
            ;-----------------------------------------------------------------------------
               ;Создаем каталог
               $dir= $IPAddrServer & '\Temp\SettingsED5\' & $Stan & @YEAR & '\' & @MON & '\' & @MDAY & $TypeCH
               DirCreate($dir)
               ; Копируем файл на сервер
               FileCopy($PathEddy, $dir, 9)
               ; Переименовываем файл, добавляя в конец его имени дату изменения
               FileMove($dir & "\" & $CHName & '.$$$', $dir & "\" & $CHName & "_" & $DataCur & ".$$$", 9)
            EndIf
   EndIf
;===========================================================================================================================================================

WEnd

 

Скачать

Скрипт SettingsED5_v1.au3

Приложение для Windows SettingsED5_v1.exe

PRUEFTECHNIK_Application_Photos_Collection_EN_RU.pdf

PRUEFTECHNIK_EDDYCHEK-5_advanced_Brochure_RU.pdf

PRUEFTECHNIK_EDDYCHEK-5_Network_Brochure_EN.pdf

PRUEFTECHNIK_EDDYCHEK-5_Technical_Manual_v34_RU.pdf

PRUEFTECHNIK_EDDYCHEK-5_User_Manual_v34_RU.pdf

Категория: PRUFTECHNIK | Просмотров: 1025 | Добавил: gt7600 | Теги: PRUFTECHNIK, NDT, EddyCheck 5 | Рейтинг: 0.0/0
Всего комментариев: 0
avatar