PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : ARTA-Messungen automatisieren



ente
24.05.2011, 09:55
Hi,

zuweilen gibt es Messaufgaben, die durch den Wiederholfaktor nicht wirklich Spaß bereiten. Die Messung des Rundumstrahlverhaltens eines Lautsprechers in 5° Schritten wäre m.E. ein klassisches Beispiel dafür.

Hier gibt es nun eine Lösung: ARTA + AutoIT!

AutoIT ist eine einfache Scriptsprache, die als Freeware unter http://www.autoitscript.com/site/autoit/ (http://www.autoitscript.com/site/autoit/) erhältlich ist.
Und es gibt ein deutsches Forum http://www.autoit.de/index.php?page=Portal (http://www.autoit.de/index.php?page=Portal)

Die Kombination ARTA + AutoIT gibt uns die Möglichkeit, gemeinsam Scripte zu erstellen und diese dann der Gemeinde zur allgemeinen Nutzung zur Verfügung zu stellen.

Zur Vermittlung eines ersten Eindrucks ein einfaches Beispiel: Das Script öffnet ARTA, führt eine Messung durch und bereitet die Datenspeicherung vor.

Also AutoIT installieren und probieren. Mit Sicherheit haben wir viele Wissende in der Selbstbaugemeinde, die das Thema vorantreiben und begleiten können.

Viel Spaß
Heinrich

__________________________________________________ _______________

; AutoIt Version: 3.0
; Script Function:
; Opens Arta, record and save .
;

; Prompt the user to run the script - use a Yes/No prompt (4 - see help file)
$answer = MsgBox(4, "Autoit script)", "This script will run Arta and record IR?")

Opt("WinTitleMatchMode", 2)

; Check the user's answer to the prompt (see the help file for MsgBox return values)
; If "No" was clicked (7) then exit the script
If $answer = 7 Then
MsgBox(0, "AutoIt", "OK. Bye!")
Exit
EndIf

; Run ARTA

$b = WinExists("Arta")

if($b = 0) then
Run("c:\Programme\ArtaSoftware\Arta")
Sleep(200)
endif

; Wait for the Arta become active
WinWaitActive("Arta")

; Now record by pressing Alt-r and then r (Record -> IR)
Send("!r")
Send("r")
Sleep(100)
Send("!r")

WinWait("Impulse")
WinWaitActive("Arta")

Send("!f")
Send("s")
Sleep(200)
WinWait("Save")
Send("Ir1.pir")

; Now wait to close
; WinWaitClose("Arta")
; Finished!

tiki
24.05.2011, 11:20
Vielen Dank, Heinrich!