mAirlist, D&R Webstation und Yellowtec hush/Mikrofon-Arm

Deutsch / German Scripts
1

Hallo zusammen,

ich bin jetzt seit ca. einer Woche stolzer Besitzer eines Yellowtec Mika Mikrofonarmes (mit Rotlichtlampe) und Yellowtec Hush. Vorhanden bisher war bereits mAirlist und eine D&R Webstation.

Leider scheitere ich nun an der Hintergrundskripterstellung: Sobald ich den Mikrofon-Regler an der Webstation hochziehe, soll das Licht am Mikrofonarm (rot) angehen und wenn ich den Regler schließe, natürlich wieder aus.

Ich weiß, an der Webstation ist ein Klinkenanschluss um genau das auch steuern zu können, aber ich wollte keine Hardware-Bastlerei.

Das Yellowtec Hush kann MIDI, USB-MIDI, USB-HID, GPI und Eingaben per beiliegender Fernbedienung verarbeiten.

Ich bin jetzt soweit, das ich USB-MIDI ausgewählt habe und mittels des folgenden Scriptes hier aus dem Forum erstmal herausfinden konnte, welche Nummer das Gerät hat:

begin
MidiOutListDevices;
end.

Bei mir ist es die 1. Soweit, so gut.

Danach wollte ich testweise probieren, ein Script zu erstellen, welches manuell erstmal das Licht beim ausführen aktiviert:

begin
MidiOutOpen(1);
MidiOut(...);
end.

Da wo die 3 Punkte stehen, war ich aber bereits raus, was dort nun rein muss.

Yellowtec stellt mit der Hush-App (Windows Programm zur Steuerung der Hush) sozusagen für die Steuerung 3 Möglichkeiten zur Verfügung / als Beispiel? bereit, wie der HEX Code aussehen kann:

MIDI – Licht an: 90 3E — Licht aus: 80 3E
HUI – Licht an: B0 0C 0E B0 2C 45 — Licht aus: B0 0C 0E B0 2C 05
Mackie Control – Licht an: 90 5F 7F — Licht aus: 90 5F 00

Man kann die Codes aber auch selber vergeben. Soweit ich herausgefunden habe, muss der zu sendende Code aus mAirlist ungefähr so aussehen: (1, x, y, z). Das passt damit jetzt aber überhaupt nicht überein und ich komme nicht weiter…

Kann mir hier jemand helfen, das Script für die Rotlichtsteuerung zu erstellen?

Zur Info: Ich habe mir bereits eine „Mikrofon an“ – Anzeige mit dem GUI-Element „Statusanzeige“ bauen können. Dazu habe ich in der Fernsteuerung bei der Webstation einfach die Wörter „An“ bzw. „Aus“ beim Mikrofon eingetragen und diese ebenfalls bei der Statusanzeige. Funktioniert! Weil die Webstation auch solche Signale weitergibt, sollte eine Steuerung des Rotlichtes durch die Webstation über mAirlist doch auch möglich sein, oder?

Vielen Dank im Voraus für eure Hilfe.
Nico

2

Hallo Nico,

ohne eine detaillierte Dokumentation wrst Du da nicht weiterkommen. (Die muß es geben, weil die ganze Angelegenheit sonst zutiefst sinnlos wäre.)

3

Hallo Tondose,

erstmal danke für deine Antwort. Ich habe den Vormittag damit verbracht, alles mal auszuprobieren und die englische Dokumentation von Yellowtec zu studieren. Jetzt bin ich doch sehr erfreut, das ich es zunächst mal geschafft habe mit den folgenden Scripten (immer manuell ausgeführt) das Rotlicht jeweils ein und auszuschalten:

Rotlicht ein:

begin
MidiOutOpen(1);
MidiOut(1, $90, $3E, 0);
end.

Rotlicht aus:

begin
MidiOutOpen(1);
MidiOut(1, $80, $3E, 0);
end.

Jetzt gibt es sicher eine Möglichkeit, dieses Script so oder so ähnlich im Hintergrund ausführen zu lassen, immer wenn das entsprechende Signal “Mikrofon an / aus” von der Webstation kommt? Kann es sein, das ich jetzt dafür die procedure OnExecuteCommand(Command: string); benötige? Die habe ich in der Background Script Template.mls gefunden.

So ist übrigens die Statusanzeige konfiguriert…

Screenshot Statusanzeige Mikrofon
Screenshot Statusanzeige Mikrofon467×578 11.1 KB

…und so sieht die Konfiguration bei der Webstation aus:

Screenshot Konfi D&R
Screenshot Konfi D&R467×574 7.33 KB

4

Ja, so kann man das machen. Es bestünde noch die Möglichkeit, einzelne Skripts per RUNSCRIPT '<Path>' abzufeuern, aber dann kann man nichts initialisieren. Man könnte auch die Midi-Daten direkt verarbeiten, aber muß nicht.

Ob das so stimmt mit ON und OFF, mußt Du selber wissen.

procedure OnLoad;
begin
  MidiOutOpen(1);
  MidiOut(1, $80, $3E, 0);
end;

procedure OnUnload;
begin
  MidiOut(1, $80, $3E, 0);
  MidiOutClose(1);
end;

procedure OnExecuteCommand(Command: string);
begin
  if Command = 'MIKRO OFF' then
    MidiOut(1, $90, $3E, 0)
  else if Command = 'MIKRO ON' then
    MidiOut(1, $80, $3E, 0);
end;
5

Tondose, ich danke dir vielmals. Es funktioniert! Ja, die Bezeichnungen sind etwas irreführend, aber es kommt mir einzig auf die Funktionalität an.

Viele Grüße.
Nico

1 Like