|
|
|
AIDA
GELINA
BRIKEN
nToF
CRIB
ISOLDE
CIRCE
nTOFCapture
DESPEC
DTAS
EDI_PSA
179Ta
CARME
StellarModelling
DCF
K40
|
| AIDA |
 |
|
|
|
Message ID: 216
Entry time: Tue May 10 16:03:50 2016
|
| Author: |
TD & VFEP |
| Subject: |
Latest version of Rly16 |
|
|
Do not forget to backup the current versions of the attached files before
installing the latest versions. The latest version features the sequential
power up of each of the eight mains relays - this will help minimise instantaneous
network loads during power/boot up.
On 05/05/2016 06:45, Thomas Davinson wrote:
Hello
Coould we have a copy of the latest USB power replay .tml file please?
Our current version does not permit sequential power on and Patrick says
that may be helpful when attempting to start 32 FEEs.
attached
=> /MIDAS/TclHttpd/Aida/Rly16
Vic |
|
function click_SEQ (Obj) {
Obj.Widget.value = "SEQ";
Obj.submit();
}
function click_ALLON (Obj) {
Obj.Widget.value = "ALLON";
Obj.submit();
}
function click_ALLOFF (Obj) {
Obj.Widget.value = "ALLOFF";
Obj.submit();
}
function click_RELAYON (Obj,vl) {
Obj.Widget.value = "RELAYON" + " " + vl;
Obj.submit();
}
function click_RELAYOFF (Obj,vl) {
Obj.Widget.value = "RELAYOFF" + " " + vl;
Obj.submit();
}
|
|
|
[Doc_Dynamic]
<!
[global env; set env(MIDASBASE) /MIDAS]
>
[global env; source [file join $env(MIDASBASE) TclHttpd Html settings.tml]]
<!
[global Httpd; upvar #0 Httpd[set Httpd(currentSocket)] data; set ClientIPAddress $data(ipaddr); set MyInfo $data(self)]
>
<html>
<head>
<title>Rly16 Service @ [global env; set env(ComputerName)]</title>
<script type="text/javascript" language="JavaScript" src="/js/Common.js"></script>
<script type="text/javascript" language="JavaScript" src="/js/FormChek.js"></script>
<script type="text/javascript" language="JavaScript" src="Rly16.js"></script>
</head>
<body>
<NOSCRIPT>
<hr>
<h2>
Your browser does not support JavaScript.
This service requires a JavaScript compatible browser.
</h2>
<hr>
</NOSCRIPT>
<p align=center>
<table cellpadding=0 cellspacing=0 border=0 width=100%>
<tr>
<td align=left>
<font size=4><b>Rly16 Control @ [set MyInfo]</b></font>
</td>
<td align=right>
<font size=4><b>client address is [set ClientIPAddress]</b></font>
</td>
<td align=right>
<input type=image src="/images/midas.gif" name=MIDAS title="MIDAS Home Page" onClick="click_MIDAS()">
<input type=image src="/images/tclp.gif" name=TCL title="Tcl/Tk Home Page" onClick="click_TCL()">
</td>
</tr>
</table>
</p>
<hr>
<!
[namespace eval Rly16 {global env; cd [file join $env(MIDASBASE) TclHttpd Html AIDA]}]
[namespace eval Rly16 {
global env
source [file join $env(MIDASBASE) TclHttpd tcl Common common.tcl]
cd [file join $env(MIDASBASE) TclHttpd Html AIDA Rly16]
source Rly16.tcl
}]
>
<form action=[ncgi::urlStub] name=Rly16 method=post>
<input type=hidden name=Widget value=Rly16>
<p align="center">
<table cellpadding=0 cellspacing=0 border=0 width=100%>
<tr>
<td width=33% align=left>
Port: [namespace eval Rly16 {set Port}]
</td>
<td width=33% align=left>
Version: [namespace eval Rly16 {VERS; set VERSION}]
</td>
<td width=33% align=left>
DC: [namespace eval Rly16 {DC; set vl [expr $DC/10.0]V}]
</td>
</tr>
</table>
</p>
<p align=center>
<table cellpadding=0 cellspacing=0 border=0 width=100%>
<tr>
[namespace eval Rly16 {
set html "<td width=12% align=left>Switch ON</td>"
set j 0
for {set i 1} {$i <= 8} {incr i} {
append html "<td width=11% align=left>"
if {([expr $STATUS >> $j] & 1) == 0} {
append html "<input type=button name=RON$i value=\"Relay $i\" onClick=\"click_RELAYON(document.Rly16, $i)\">"
}
append html "</td>"
incr j
}
set html
}]
</tr>
<tr>
[namespace eval Rly16 {
set html "<td width=12% align=left>Switch OFF</td>"
set j 0
for {set i 1} {$i <= 8} {incr i} {
append html "<td width=11% align=left>"
if {([expr $STATUS >> $j] & 1) == 1} {
append html "<input type=button name=ROFF$i value=\"Relay $i\" onClick=\"click_RELAYOFF(document.Rly16, $i)\">"
}
append html "</td>"
incr j
}
set html
}]
</tr>
</table>
</p>
<p align=center>
<input type=button name=SEQ value="Sequence ALL On" onClick="click_SEQ(document.Rly16)">
<input type=button name=ALLON value="Switch ALL On" onClick="click_ALLON(document.Rly16)">
<input type=button name=ALLOFF value="Switch ALL Off" onClick="click_ALLOFF(document.Rly16)">
</p>
[namespace eval Rly16 {
if {$ShowLogFlag == 1} then {
set html ""
append html "<p align=center>"
append html "<textarea name=MainLog readonly=true wrap=soft rows=12 cols=80>"
append html [set LogText]
append html "</textarea>"
append html "</p>"
set html
}
}]
<p>
<input type=button name=CLEAR value="Empty Log Window" onClick="click_clear(document.Rly16)" title="Empty the log window">
<input type=button name=ELOG value="Send Log Window to ELog" onClick="click_elog(document.Rly16)" title="Sends the contents of the log window to your ELog">
<input type=button name=RELOAD value="Reload" onClick="click_reload(document.Rly16)" title="Reload the page and cause the displayed hardware parameters to be refreshed">
<input type=button name=RESET value="Reset" onClick="click_reset(document.Rly16)" title="Cause the page code to be fully reloaded in the server">
<input type=button name=VARIABLES value="Show Variables" onClick="click_variables(document.Rly16)" title="Display selected internal variables in the log window">
[namespace eval Rly16 {
if {$ShowLogFlag == 1} then {
set html "<input type=button name=HIDE value=\"Hide Log Window\" onClick=\"click_hidelog(document.Rly16)\" title=\"Do not display the log window\">"
} else {
set html "<input type=button name=SHOW value=\"Show Log Window\" onClick=\"click_showlog(document.Rly16)\" title=\"Cause the log window to be displayed\">"
}
set html
}]
[namespace eval Rly16 {
if {$LogFlag == 1} then {
set html "<input type=button name=LOGOFF value=\"Disable Logging\" onClick=\"click_disablelog(document.Rly16)\">"
} else {
set html "<input type=button name=LOGON value=\"Enable Logging\" onClick=\"click_enablelog(document.Rly16)\">"
}
set html
}]
</p>
</form>
<p align=right>
Last Updated: [clock format [clock seconds] -format "%B %d, %Y %H:%M:%S"]
</p>
<hr>
[namespace eval Rly16 {
if {$JS != ""} {
append JS "\");"
set html "<script>[set JS]</script>"
}
}]
|