Revision e9fdba28bc24263664b236ea2fb026326c582d33 authored by Ron Burkey on 24 December 2017, 21:04:22 UTC, committed by Ron Burkey on 24 December 2017, 21:04:22 UTC
1 parent d7b4237
AGC_System_Inputs.tcl
# Copyright 2005-2007 Stephan Hotto <stephan.hotto@web.de>
#
# This file is part of yaAGC.
#
# yaAGC is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# yaAGC is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with yaAGC; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
# ********************************************************************************************
# **** Module: AGC_System_Inputs.tcl ****
# **** Main Program: lm_system_simulator ****
# **** Author: Stephan Hotto ****
# **** Date/Loacation: 21.04.07/Germany ****
# **** Version: v1.0 ****
# ********************************************************************************************
# ********************************************************************************************
# **** Function: Create AGC System Inputs GUI ****
# ********************************************************************************************
proc create_sysinp {} {
global bo font1 font11 font11b font2 font3 colb Operating_System
global IMUX_ANGLE IMUY_ANGLE IMUZ_ANGLE
if {[winfo exists .sysinp] == 1} {destroy .sysinp}
toplevel .sysinp -background $colb
wm title .sysinp "AGC LM System Inputs"
if {$Operating_System == "linux"} {
wm geometry .sysinp +110+110; wm geometry .sysinp 370x320; wm minsize .sysinp 370 320
} else {
wm geometry .sysinp +110+110; wm geometry .sysinp 420x350; wm minsize .sysinp 420 350
}
wm iconname .sysinp "AGC LM System Inputs"
frame .sysinp.fma -bg $colb; frame .sysinp.fmb -bg $colb; frame .sysinp.fmc -bg $colb; frame .sysinp.fmd -bg $colb;
pack .sysinp.fma .sysinp.fmb .sysinp.fmc .sysinp.fmd -side left -anchor n -pady 1 -padx 15
# --------------------- Checkbutton as Signal Indicator --------------------------
# --------------------- 1st column -----------------------------------------------
label .sysinp.l0a -text "COMMON:" -font ${font11b} -bg $colb
pack .sysinp.l0a -side top -in .sysinp.fma -anchor w
checkbutton .sysinp.cb1c -text "OVER TEMPERATURE OF\nSTABLE MEMBER" -variable b(30,15) -relief raised -borderwidth 2 -anchor w -font ${font11} -command {set bmask(30) "100000000000000"; write_socket b 30} -justify left -bg $colb
pack .sysinp.cb1c -side top -in .sysinp.fma -anchor w -fill x -pady 1
checkbutton .sysinp.cb2c -text "LGC OSCILLATOR STOPPED" -variable b(33,15) -relief raised -borderwidth 2 -anchor w -font ${font11} -command {set bmask(33) "100000000000000"; write_socket b 33} -onvalue 0 -offvalue 1 -bg $colb
pack .sysinp.cb2c -side top -in .sysinp.fma -anchor w -fill x -pady 1
checkbutton .sysinp.cb3c -text "BLOCK UPLINK INPUT" -variable b(33,10) -relief raised -borderwidth 2 -anchor w -font ${font11} -command {set bmask(33) "000001000000000"; write_socket b 33} -onvalue 0 -offvalue 1 -bg $colb
pack .sysinp.cb3c -side top -in .sysinp.fma -anchor w -fill x -pady 1
checkbutton .sysinp.cb4c -text "UPLINK TOO FAST" -variable b(33,11) -relief raised -borderwidth 2 -anchor w -font ${font11} -command {set bmask(33) "000010000000000"; write_socket b 33} -onvalue 0 -offvalue 1 -bg $colb
pack .sysinp.cb4c -side top -in .sysinp.fma -anchor w -fill x -pady 1
checkbutton .sysinp.cb5c -text "DOWNLINK TOO FAST" -variable b(33,12) -relief raised -borderwidth 2 -anchor w -font ${font11} -command {set bmask(33) "000100000000000"; write_socket b 33} -onvalue 0 -offvalue 1 -bg $colb
pack .sysinp.cb5c -side top -in .sysinp.fma -anchor w -fill x -pady 1
checkbutton .sysinp.cb7c -text "WARNING OF REPEATED\nALARMS" -variable b(33,14) -relief raised -borderwidth 2 -anchor w -font ${font11} -command {set bmask(33) "010000000000000"; write_socket b 33} -onvalue 0 -offvalue 1 -justify left -bg $colb
pack .sysinp.cb7c -side top -in .sysinp.fma -anchor w -fill x -pady 1
label .sysinp.l10a -text "IMU:" -font ${font11b} -bg $colb
pack .sysinp.l10a -side top -in .sysinp.fma -anchor w -pady 1
checkbutton .sysinp.cb12c -text "IMU OPERATE WITH\nNO MALFUNCTION" -variable b(30,9) -relief raised -borderwidth 2 -anchor w -font ${font11} -onvalue "0" -offvalue "1" -command {set bmask(30) "000000100000000"; write_socket b 30} -justify left -bg $colb
pack .sysinp.cb12c -side top -in .sysinp.fma -anchor w -fill x -pady 1
checkbutton .sysinp.cb14c -text "IMU CDU FAIL" -variable b(30,12) -relief raised -borderwidth 2 -anchor w -font ${font11} -onvalue "0" -offvalue "1" -command {set bmask(30) "000100000000000"; write_socket b 30} -bg $colb
pack .sysinp.cb14c -side top -in .sysinp.fma -anchor w -fill x -pady 1
checkbutton .sysinp.cb15c -text "IMU FAIL" -variable b(30,13) -relief raised -borderwidth 2 -anchor w -font ${font11} -onvalue "0" -offvalue "1" -command {set bmask(30) "001000000000000"; write_socket b 30} -bg $colb
pack .sysinp.cb15c -side top -in .sysinp.fma -anchor w -fill x -pady 1
checkbutton .sysinp.cb16c -text "PIPA FAIL" -variable b(33,13) -relief raised -borderwidth 2 -anchor w -font ${font11} -command {set bmask(33) "001000000000000"; write_socket b 33} -onvalue 0 -offvalue 1 -bg $colb
pack .sysinp.cb16c -side top -in .sysinp.fma -anchor w -fill x -pady 1
# --------------------- 2nd column -----------------------------------------------
label .sysinp.l0b -text "RADAR:" -font ${font11b} -bg $colb
pack .sysinp.l0b -side top -in .sysinp.fmb -anchor w
checkbutton .sysinp.cb0b -text "RR CDU FAIL" -variable b(30,7) -relief raised -borderwidth 2 -anchor w -font ${font11} -onvalue "0" -offvalue "1" -command {set bmask(30) "000000001000000"; write_socket b 30} -bg $colb
pack .sysinp.cb0b -side top -in .sysinp.fmb -anchor w -fill x -pady 1
checkbutton .sysinp.cb2b -text "RR RANGE LOW SCALE" -variable b(33,3) -relief raised -borderwidth 2 -anchor w -font ${font11} -onvalue "0" -offvalue "1" -command {set bmask(33) "000000000000100"; write_socket b 33} -bg $colb
pack .sysinp.cb2b -side top -in .sysinp.fmb -anchor w -fill x -pady 1
checkbutton .sysinp.cb3b -text "RR DATA GOOD" -variable b(33,4) -relief raised -borderwidth 2 -anchor w -font ${font11} -onvalue "0" -offvalue "1" -command {set bmask(33) "000000000001000"; write_socket b 33} -bg $colb
pack .sysinp.cb3b -side top -in .sysinp.fmb -anchor w -fill x -pady 1
checkbutton .sysinp.cb4b -text "LR RANGE DATA GOOD" -variable b(33,5) -relief raised -borderwidth 2 -anchor w -font ${font11} -onvalue "0" -offvalue "1" -command {set bmask(33) "000000000010000"; write_socket b 33} -bg $colb
pack .sysinp.cb4b -side top -in .sysinp.fmb -anchor w -fill x -pady 1
checkbutton .sysinp.cb5b -text "LR VELOCITY DATA GOOD" -variable b(33,8) -relief raised -borderwidth 2 -anchor w -font ${font11} -onvalue "0" -offvalue "1" -command {set bmask(33) "000000010000000"; write_socket b 33} -bg $colb
pack .sysinp.cb5b -side top -in .sysinp.fmb -anchor w -fill x -pady 1
checkbutton .sysinp.cb6b -text "LR RANGE LOW SCALE" -variable b(33,9) -relief raised -borderwidth 2 -anchor w -font ${font11} -onvalue "0" -offvalue "1" -command {set bmask(33) "000000100000000"; write_socket b 33} -bg $colb
pack .sysinp.cb6b -side top -in .sysinp.fmb -anchor w -fill x -pady 1
checkbutton .sysinp.cb7b -text "LR POS1" -variable b(33,6) -relief raised -borderwidth 2 -anchor w -font ${font11} -onvalue "0" -offvalue "1" -command {set bmask(33) "000000000100000"; write_socket b 33} -bg $colb
pack .sysinp.cb7b -side top -in .sysinp.fmb -anchor w -fill x -pady 1
checkbutton .sysinp.cb8b -text "LR POS2" -variable b(33,7) -relief raised -borderwidth 2 -anchor w -font ${font11} -onvalue "0" -offvalue "1" -command {set bmask(33) "000000001000000"; write_socket b 33} -bg $colb
pack .sysinp.cb8b -side top -in .sysinp.fmb -anchor w -fill x -pady 1
}
![swh spinner](/static/img/swh-spinner.gif)
Computing file changes ...