![[SOUNDLIGHT]](../../soundll3.gif)
mit DMX-Steuerelement II
|
Visual BASIC 5&6 mit DMX-Steuerelement II |
Sie haben Visual Basic 5.x oder 6.x auf Ihrem Rechner installiert? Und das DMX Steuerelement von Soundlight installiert? Dann kann es ja losgehen:
ACHTUNG! Bei Updates zuerst alte Steuerelement-Version deinstallieren!
Zu dem Steuerelement gibt es eine Beispielanwendung die Sie von der Steuerelementinstallationsseite heruntergeladen können. Das Programm kann 2 Karten ansprechen und sämtliche DMX-Einstellungen verändern. Die Sourcecodes werden gleich mit installiert.
Nachdem Sie das Steuerelement installiert haben, starten Sie VB und öffnen ein neues Projekt oder das bereits bestehende aus "Visual Basic 5 Grundlagen" Klicken Sie mit der rechten Maustaste auf die Werkzeugleiste und dann auf Komponenten.
 |
Wählen Sie das "SOUNDLIGHT DMX Steuerelement" aus und klicken Sie anschliessend auf "OK". Es erscheint nun ein weiteres Werkzeug in Ihrer Werkzeugsammlung: Mit einem Doppelklick auf das neue Werkzeug fügen Sie das Steuerelement Ihrem Projekt hinzu. Das Steuerelement ist zur Laufzeit unsichtbar. Es ist also egal wo Sie es auf Ihrem Entwurfsbildschirm positionieren. |
Der Vertikale Scrollbar wird nachher als Fader benutzt. Lassen Sie uns dem Scrollbar einen
anderen Namen geben. Passen Sie die Eigenschaften von "VScroll" wie folgt an:
Name=scrFader
MAX=0
MIN=255
SmallChange=1
LargeChange=10
Passen Sie nun die Grösse des Faders Ihren Wünschen an.
Anschliessend klicken Sie einmal auf den Fader so, dass die Eigenschaften angezeigt werden.
Drücken Sie jetzt STRG+C um den Fader zu kopieren und dann STRG+V um die Kopie einzufügen.
VB gibt Ihnen in einer Meldung den Hinweis, dass ein Steuerelement mit diesem Namen bereits existiert. Beantworten Sie mit "JA" und positionieren Sie den neuen Fader rechts neben dem ersten..
Was ist nun passiert?
VB kann Objekte nur verwalten, solange diese einen eindeutigen Namen haben. Wenn Sie ein Objekt kopieren und einfügen, vergibt VB einen Index auf die gleichnamigen Objekte. Es wird ein Array gebildet. Wenn Sie die Eigenschaft "index" der beiden Fader vergleichen, werden Sie feststellen, dass der linke Fader den Index=0 erhalten hat und der rechte den Index=1.
Drücken Sie nochmal auf STRG+V und positionieren Sie den Fader rechts neben den bisherigen Reglern. Wiederholen Sie dies solange, bis Sie insgesamt 8 Fader haben.
Doppelklicken Sie auf einen der Fader so, dass der Code angezeigt wird und fügen Sie nun folgenden Code hinzu:
Private Sub scrFader_Change(Index As Integer)
DMX1.Send 0, Index, scrFader(Index).Value
End Sub
|
ACHTUNG! Wenn Sie vor dem Erstellen des Array's bereits den Code von scrFader durch einen Doppelklick auf den Fader Aufgerufen haben, fehlt beim Eintritt in die Funktion (index As Integer)!
Wählen sie nun das Ereignis "Scroll" von "scrScroll" aus.
VB legt eine neue Sub-Funktion an die auf das Ereigniss Scroll reagiert.
Fügen Sie der Funktion folgenden Code hinzu:
Private Sub scrFader_Scroll(Index As Integer)
Call scrFader_Change(Index)
End Sub
|
Diese Codezeile bewirkt, dass beim Scrollen eines Faders diese Änerungen auch gesendet werden.
Fertig ist das Lichtpult!
Starten Sie Ihr Programm und bewegen Sie einen Fader. Wenn eine DMX Karte vorhanden ist, können Sie jetzt von DMX Kanal 1 bis 8 Werte senden. Wenn Sie mehr Kanäle haben wollen, brauchen Sie nur per Copy&Paste (STRG-C, STRG-V) Ihre Faderbank zu erweitern. Einfach, oder?
![[OPEN]](../../open.gif){kind=small}
Projekt-Sourcecode als EXE downloaden Selbstentpackend!
Projekt-Sourcecode als LZH downloaden
DMX Steuerelement von Soundlight laden
SOUNDLIGHT DMX Steuerelement Downloadseite
![[HOME]](../../shome.gif){kind=small}
SOUNDLIGHT HOMEPAGE