Hallo....
Wir geben am Relais unterschidliche Roger Beep`s aus bei den RX´s an der Steuerung (Svxlink) hängen geht das auch mit der Variabel $rx_id.
Nur bei dem Rx der über die remote Steuerung (remotetrx) leuft geht es nicht da bleib die variabel 0, gibt es eine andere variabel oder kann ich in der remote Steuerung diese einfügen das sie auch mit übertragen wird.
die TCL-Datei
-------------------
#
# verschiedene Roger-beeps:
#
namespace eval Logic {
variable is_rf 0;
#70cm
proc squelch_open {rx_id is_open} {
if {$rx_id == 1 } {
variable sql_rx_id;
variable is_rf;
set sql_rx_id $rx_id;
if {!$is_open} {
puts "--->> Roger Beep 70cm RX1 <<---";
playSilence 100;
playTone 600 200 80; # Ton mit 600Hertz ausgeben
playSilence 20;
playTone 1000 200 80; # Ton mit 1000Hertz ausgeben
set is_rf 1;
}
}
#10m
if {$rx_id == 2 } {
variable sql_rx_id;
variable is_rf;
set sql_rx_id $rx_id;
if {!$is_open} {
puts "--->> Roger Beep 10m RX2 <<---";
playSilence 500;
playTone 400 200 80; # Ton mit 400Hertz ausgeben
playSilence 10;
playTone 800 200 80; # Ton mit 800Hertz ausgeben
set is_rf 1;
}
}
}
proc send_rgr_sound {} {
variable is_rf;
if {!$is_rf} {
puts "--->> Roger Beep Echolink <<---";
playSilence 100;
playTone 300 200 150; # Ton mit 300Hertz ausgeben
playSilence 10;
playTone 300 200 150; # Ton mit 300Hertz ausgeben
}
}
}
proc send_rgr_sound {} {
variable is_rf;
if {!$is_rf} {
puts "--->> Roger Beep Echolink <<---";
playSilence 100;
playTone 300 200 150; # Ton mit 300Hertz ausgeben
playSilence 10;
playTone 300 200 150; # Ton mit 300Hertz ausgeben
}
set is_rf 0;
}
}
# end of namespace
---------------------------------------------------------
DO7SK-Sven