PRUFTECHNIK EddyCheck 5 Архивация настроек абсолютного и дифференциального каналов - 21 Декабря 2020

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

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)