Author Topic: Codebeispiele mAirListScript (Read 29697 times)

Torben · « **Reply #45 on:** January 23, 2007, 08:57:24 »

Guck nochmal genau hin, was oben steht:

Quote from: "tw"

Code: [Select]
sl.Add('$playd1="' +FormatDateTime('hh:mm:ss', pi.GetStartTime)+ '";');

djmanu · « **Reply #46 on:** January 23, 2007, 12:30:07 »

Quote from: "tw"

Vorher mit CurrentPlaylist.GetCount nachgucken.

Wie meinst das?
wo soll ich das abfragen und wie?

Torben · « **Reply #47 on:** January 23, 2007, 13:21:15 »

Quote from: "djmanu"

Quote from: "tw"
Vorher mit CurrentPlaylist.GetCount nachgucken.

Wie meinst das?
wo soll ich das abfragen und wie?

Das war die Antwort auf die Frage "Wie überprüfe ich, ob noch genug Elemente in der Playlist sind?".

Wie du die Startzeit ausgibst, hab ich dir explizit oben geschrieben und ein weiteres Mal zitiert.

Torben

Markus Mittermüller · « **Reply #48 on:** February 08, 2007, 07:54:21 »

Hallo!

hab eine ganz andere Frage:
Gibt es eine Möglichkeit, ein Script zu schreiben, mit dem man beim Drücken auf die PFL Taste eines Steuerbefehl (z.B. auf der Com Schnittstelle) anspricht, damit im Studio die Boxen umgeschalten werden.

Weiß nicht, ob das so klar ürber kam, was ich meinte. Das Endergebnis sollte sein:

Man drückt auf PFL (egal in welchem PLayer/Playlist/cart) und es wird ein Steuersignal geschickt, das eine Schaltung aspricht, die die Studioboxen auf die PFL Soundcard umschaltet. Das ganze sollte beim Beenden von PFL wieder zurück gehen.
Wichtig ist, dass man nur eine PFL Soundkarte dabei verwendet (dann wirds ja auch einfacher)

Danke!

Markus

Torben · « **Reply #49 on:** February 08, 2007, 08:38:47 »

Ja, das geht. Ein solches Script findest du im mAirList-Ordner, es heißt "IOWarriorPFLSwitch.mls" und verwendet den IO-Warrior zum Ausgeben der Umschaltsignale. Du müsstest in diesem Script also nur noch die IO-Warrior-Befehle durch das austauschen, was deiner Umschalthardware gerecht wird.

Wie gedenkst du das denn auf Hardware-Seite zu realisieren?

Torben

Markus Mittermüller · « **Reply #50 on:** February 08, 2007, 10:21:37 »

Hallo!

danke für die schnelle antwort.
ich denke an solch eine Lösung:
http://www.conrad.at/goto.php?artikel=967720
dahinter eben eine art weiche - habs aber noch nicht ganz durchgedacht.

Es ist halt eine sehr angenehme Art zu arbeiten, wenn die Boxen automatisch auf PFL umgeschaltet werden :-)

grüße

markus

Markus Mittermüller · « **Reply #51 on:** February 12, 2007, 21:42:45 »

Hallo TW

Hab eine Frage zu der Funktion "ComPort"

Hab die Funktion und Methoden so verstanden:
ComPort.SetParameters()
setzt Parameter wie z.B. Baud Rate usw

ComPort.Open()
öffnet einen Com Port (z.B. 9 für USB - wobei ich nicht weiß, ob USB so funkt wie seriell)
ComPort.SendStr()
kann ich hier nun einen Befehl schicken (und zwar so einen wie ich ihn in der Referenz der IO Karte finde)?

Weiß nicht, ob ich das so verstanden hab, aber diese Funktion mit den Methoden müsste doch das obige Problem lösen können

grüße

markus

Torben · « **Reply #52 on:** February 12, 2007, 21:49:34 »

Soweit alles richtig. SendStr erwartet einen String (z.b. SendStr('hallo')), du kannst aber natürlich auch beliebige Bytes rüberschicken, das geht in Pascal so:

Code: [Select]

SendStr(#12 + #5 + #77);

sendet die Bytes 12, 5, und 77 (huch, mein Geburtstdatum!)

Die Routinen können Prinzipiell alle Schnittstellen ansprechen, die in der Systemsteuerung sichtbar sind. Dazu zählen auch USB-Seriell-Wandler, wenn die sich da brav eintragen.

Was hast du denn da für eine Karte? Normalerweise bringen USB-Relaiskarten nämlich ihre eigenen Treiber mit und stellen keine emulierte serielle Schnittstelle zur Verfügung.

Torben

Markus Mittermüller · « **Reply #53 on:** February 12, 2007, 22:03:13 »

haben tu ich noch keine, ich überleg mir nur eine zu kaufen..

entweder die:
http://www.conrad.at/goto.php?artikel=967720
Die hat nur das Problem sie schaltet um, dafür hätt ich glaub ich schon die anweisung zuammen (so stehts zu mindest in der anleitung bzw. so les ichs raus)

procedure OnPFLOn(PlayerControl: IPlayerControl; Item: IPlaylistItem; PFLCount: integer);
begin
if PFLCount = 1 then
ComPort.SetParameters(19200, 8, "0", 1);
ComPort.Open(1);
ComPort.SendStr("3012");
end;

Problem bei dieser Karte ist, dass die die Relais nur umschaltet und nicht ein oder aus - die Kontrolle ist nicht wirklich da

anders ists dann bei dieser:
http://www.conrad.at/goto.php?artikel=190989

Da sieht die Programmierung wieder etwas komplizierter aus.

es geht mir ja wieder um das alte spiel - muting bei pfl.

wobei ich bin schon am überlegen, ob ich nicht einfach doch den io warrior nehme. denn meine "joystick steuerung" spinnt ein wenig. manchmal reagiert das mairlist nicht mehr auf die buttons - das liegt ja wohl nicht daran, dass ich den selben controller 3 mal habe (natürlich physisch 3 mal - sprich 3 mal das selbe game poad gekauft und herum gekötet) um 18 buttons anzusprechen.

grüße

markus

Torben · « **Reply #54 on:** February 12, 2007, 22:07:48 »

Ich glaube, letztgenannte ist die Karte, die RG hatte, und die so ewig zum Umschalten brauchte.

Markus Mittermüller · « **Reply #55 on:** February 12, 2007, 22:09:06 »

ja das hab ich auch schon gehört - hmm ist echt schwierig - naja offenbar scheint der io warrior am geeignetsten - ist halt leider eine recht teure angelegenheit

Markus Mittermüller · « **Reply #56 on:** February 13, 2007, 23:46:36 »

hallo torben,

was hältst du von dieser karte?

http://cgi.ebay.at/Relaiskarte-PC-RS232-seriell-6-bis-20x-10A-250V-1xUM_W0QQitemZ300079024086QQihZ020QQcategoryZ10662QQssPageNameZWDVWQQrdZ1QQcmdZViewItem

grüße

markus

djmanu · « **Reply #57 on:** February 14, 2007, 14:29:26 »

bin für diese..

http://www.conrad.at/goto.php?artikel=198196

die hab ich bereits ;))

da gibts lt. beschreibung auch was für delphi

Markus Mittermüller · « **Reply #58 on:** February 14, 2007, 22:24:50 »

interessant und hast du sie schon mit mairlist getestet?

markus

djmanu · « **Reply #59 on:** February 15, 2007, 10:18:26 »

nö... aber mit ner software von bksoft...
läuft perfekt...

wenn die noch mairlist ansteuern könnt wärs super..