Unterschiedliche RogerBeeps auf div. Logics ausgeben

Moin Svx-Gemeinde,

ich habe mir eine kleine Prozedur geschrieben um unterschiedliche Rgr-Beeps auf den verschiedenen Logiken auszugeben. Das funktioniert durch Abfrage welche Logik es aufgerufen hat hervoragend:

#
# Executed when the squelch just have closed and the RGR_SOUND_DELAY timer has expired.
#
proc send_rgr_sound {} {
  variable sql_rx_id;
  global logic_name;


if {$logic_name == "RemoteLogic"} {
   playTone 330 250 90;
   playTone 495 150 50;
   playSilence 50;


  } else {


   playTone 320 250 90;
   playTone 440 100 50;
   playSilence 50;


  for {set i 0} {$i < $sql_rx_id} {incr i 1} {
    playTone 2450 500 50;
    playSilence 50;
  }
  playSilence 50;

Nun möchte ich die Prozedur auch für zwei unterschieliche Netlogiken einsetzen um die eigehende NF unterscheiden zu können. Da herrschen aber offenbar andere Gesetze. Auf welche Variablen muß ich dort wie abfragen?

Hi Frank,

da gibt es prinzipiell keinen Unterschied zur HF-Logik. Schau mal in Deine NetLogic.tcl, ich hatte nur alles störende rausgenommen. Du kannst da natürlich auch in der Prozedur
send_rgr_sound {} { .. }
eigenen Sourcecode einfügen.
Ich muß allerdings gestehen, noch nicht so recht vorhersagen zu können wie sich das dann auswirkt. Probier es einfach mal aus, z.B.:

namespace eval NetLogic {


sub send_rgr_sound {} {
  playTone 1000 100 100;
}
}

Die Variable sql_rx_id sollte sich nicht ändern in ihrem Wert, da Du ja quasi nur einen "Rx" hast, welcher per Netzwerk gesteuert wird. Es ist ja nur ein virtueller Netzwerkadapter, nix hardwaremäßiges.

vy 73s de Adi, DL1HRC

Hi Adi,

wenn ich aber nun in der Prozedur "send_rgr_sound" je nach nach eingehendem Signal unterschiedliche Töne ausgeben will, auf welche Variable frage ich dort ab?