Ergebnis 1 bis 8 von 8

Thema: Anlegen von Lichtszenen in Elvis-Visu

  1. #1
    Registriert seit
    Sep 2004
    Ort
    Weida
    Alter
    57
    Beiträge
    24

    Frage Anlegen von Lichtszenen in Elvis-Visu

    Hallo zusammen.
    Hat jemand einen Plan, wie in der Elvis-Visualisierung Lichtszenen angelegt werden?
    Die Lichtszenen sind in einem Tableau MT 701 hinterlegt und werden über Jung-RCD 2044 als Nebenstellen abgerufen. Dies funktioniert auch ohne Probleme.
    Nun soll eine Visu eingerichtet werden, von deren Oberfläche ebenfalls die Lichtszenen als Nebenstellen aufgerufen werden sollen. Hierzu sollen einfach mehrere Button angelegt werden, die den entsprechenden Wert der Lichtszene hinterlegt bekommen sollen.
    Möglichst soll auch noch beim Hochlauf der Visu über die Abfrage die jeweilig aktive Szene als solche angezeigt werden.
    Wer kann da helfen, auch wenn das Thema für wahre Könner möglicherweise trivial anmutet?

    Danke

  2. #2
    Registriert seit
    Nov 2002
    Ort
    am Fuße des heiligen Berges
    Alter
    51
    Beiträge
    1.848
    Hi Electrico,

    also ich habe das mittels Basic Script wie folgt gelöst.
    actualwert Berechnung.

    Wenn der Datenpunkt (Scan) true sprich 1 ist dann
    ist der Datenpunkt 01/0009 Power Outletts s false sprich
    unwahr = 0 Aus.
    01/0009 Power Outlets s").NominalValue = False

    Result = False
    If @(Scan).NominalValue = True Then
    Database.Datapoint("01/0009 Power Outlets s").NominalValue = False
    Database.Datapoint("01/0006 Microscope s").NominalValue = False
    Database.Datapoint("01/0003 Navigation s").NominalValue = False
    @(Scan).NominalValue = False
    End If

    Vielleicht hilft dir das ein wenig weiter.
    [B]Gruß
    Helmut

  3. #3
    Registriert seit
    Nov 2000
    Ort
    Unna
    Alter
    56
    Beiträge
    3.063
    @Helmut



    LG
    ______________________

    Mike

    m..myhome Support Forum



    m..myhome for Mac demo Clip neuer demo Clip

  4. #4
    Registriert seit
    Oct 2005
    Ort
    Thüringen
    Alter
    48
    Beiträge
    47

    versuchs mal hiermit

    Hallo Eib-tech aus 5 Seeenland,
    kannst Du das mal etwas genauer definieren1
    Du fragst den nominalvalue Wert Datenpunkt „Scan“ ab und setzt dann andere Datenpunkte Nominalvalue auf Null also den zukünftigen Wert.. Zweites wäre noch erklärbar. Ersteres ???
    Lichtszenen werden heutzutage mit einer Gruppenadresse aufgerufen in der sich ein Wert versteckt nämlich 0-64. In diesem zugeordneten Wert stehen dann die notwendigen Aktoren mit den entsprechenden Schalthandlungen bei Aufruf der entsprechenden Lichtszenennummer. Ist doch denke ich erst einmal richtig.
    Oder???
    Jetzt rufe ich die Lichtszene „34“ auf bring das mal bitte mit deinem Konzept zusammen. <O</O
    Ich kann Dir aber eine andere funktionierende Lösung Vorschlagen.
    Das Problem im Elvis ist das z.b: ein Output Butten Controll nicht die „Zahlen“ auswerten kann, die mit der Lichtszene gesendet werden, das Problem hier sind nur ganze Zahlen 1-2-3-4-5-6 zuordenbar.
    Die Lichtszene sendet aber einen Wert, ähnlich des Dimmers im Verhältniss 0-100 / 0-255
    Meine Lösung folgend leider nicht möglich, da hier Sperren eingebaut sind, die dieses verhindern.
    Grüße aus Thüringen

  5. #5
    Registriert seit
    Oct 2005
    Ort
    Thüringen
    Alter
    48
    Beiträge
    47

    Fortsetzung


    Form Load
    Dim xb AsDouble<O:p></O:p>
    Dim va AsDouble<O:p></O:p>
    xb = Database.datapoint("Szene").actualvalue<O:p></O:p>
    va = xb / 0.39216<O:p></O:p>
    Database.datapoint("wert").actualvalue = va<O:p></O:p>
    Form.szenenwechsel.value = va<O:p></O:p>
    <O:p> </O:p>
    lichtszene ist der Name eines Elvis State Button Control für den<O:p></O:p>
    Datenpunkt Wert welcher ein Speicher für den Geänderten Wert darstellt <O:p></O:p>
    Durchnummeriert von 0-..... mit den entsprechenden Lichtszenennamen( lesen Fernsehn .....)<O:p></O:p>
    <O:p> </O:p>
    Sub _Click()<O:p></O:p>
    Dim xxb AsInteger<O:p></O:p>
    Dim var AsDouble<O:p></O:p>
    xxb = Database.datapoint("wert").actualvalue + 1<O:p></O:p>
    If xxb > 8 Then <O:p></O:p>
    xxb = 0<O:p></O:p>
    EndIf<O:p></O:p>
    Database.datapoint("szene").actualValue = 0<O:p></O:p>
    var = xxb * 0.39216<O:p></O:p>
    Database.datapoint("szene").nominalValue = var<O:p></O:p>
    EndSub<O:p></O:p>
    <O:p></O:p>
    szenenwechsel ist der Name eines Elvis Analog Input Control ausgelegt als Schieberegler mit Wert ändern beim Verschieben.<O:p></O:p>
    <O:p> </O:p>
    Sub szenenwechsel_Change()<O:p></O:p>
    Dim var AsDouble<O:p></O:p>
    Dim xxb AsInteger<O:p></O:p>
    xxb = Form.szenenwechsel.value<O:p></O:p>
    var = xxb * 0.39216<O:p></O:p>
    Database.datapoint("szene").nominalValue = var<O:p></O:p>
    EndSub<O:p></O:p>
    <O:p</O:p

    Solltest Du nun fragen wo die 0,39216 herkommen- ist gleich 100/ 255.
    Wenn die entsprechende Seite Hochfährt, ( Form Load) wird die Lichtszene
    abgefragt und entsprechend verbal angezeigt.
    Mit Verschieben des Reglers erfolgt das gleiche nach oben oder unten., gleichzeitig mit der verbalen Anzeige die Auslösung der LZ wurde noch verzögert.
    Bei dem Betätigen des Elvis State Button Control wird weiter nach oben geschalten. Hier deshalb die IF >8 = 0 und schon geht es von vorn los und es werden die Lichtszenen ebenfalls gleichzeitig verbal angezeigt.
    War mal so ein Test. Wenn du nun Mehrere State Button nimmst und denen die einzelnen Werte zuordnest ist auch eine andere Anzeige über mehr „Schalter“ Problemlos möglich.
    <O:p</O:p
    Die Anlage funktionierte dann Problemlos. Vom Zeitaufwand bis zum Rätsels Lösung ……
    Grüße aus Thüringen

  6. #6
    Registriert seit
    Nov 2002
    Ort
    am Fuße des heiligen Berges
    Alter
    51
    Beiträge
    1.848
    Warum fragst du wenn du die Lösung eh kannst
    [B]Gruß
    Helmut

  7. #7
    Registriert seit
    Oct 2005
    Ort
    Thüringen
    Alter
    48
    Beiträge
    47
    :23: Viele Wege führen nach Rom.
    Und warum Umwege gehen wenns einfacher gehen kann?
    Weiterhin dachte ich das das Forum zum Austausch von Wissen gedacht ist, wodurch einjeder die Möglichkeit hat sein Wissen zu verbessern.
    Und wenn man auf eine Frage (wie die von Electrico) antwortet, sollte mann doch auch dazu stehen. Genauso hätte eigendlich die Frage von Ihm kommen können. (Das warum)

    Grüße

  8. #8
    Avatar von Dieter Koch
    Dieter Koch ist offline KNX-Professionals Firmenmitglied
    Registriert seit
    Nov 2000
    Ort
    Lehrte
    Alter
    61
    Beiträge
    1.727
    Vielleiucht hilft ja folgender Tipp:

    Das MT701 hat ein Nebenstellenobjekt das ein 1 Byte Wert hat. Dieses Byte hat ja die Möglichkeiten von 0-255. Die Werte von 0-127 rufen Lichtszenen auf, die Werte von 128-255 veranlassen das Gerät zum Abfragen der Lichtszenenobjekte. Ich glaube, daß das MT701 nicht alle 128 Lichtszenen zuläßt.

    Du must unter ELVIS also nur einen Button kreieren, der bei Betätigung einen festen Wert, z.B. 003 für Abruf Lichtszene 4 sendet. Diese GrpAdr hört ja das MT701 mit und löst die Lichtszene 4 aus. Wenn Du den Wert 131 sendest wird das Tableau die entsprechenden GrpAdr vom Bus lesen wollen.

    Gruß aus Lehrte
    Dieter

Aktive Benutzer

Aktive Benutzer

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)

Lesezeichen

Lesezeichen

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •