[SOUNDLIGHT] VISUAL BASIC CRASHKURS II
Projekt 2: Das 6-Kanal Lichtregiepult erhält eine Crossfade-Einrichtung

Sie haben Visual Basic 3.0 auf Ihrem Rechner installiert? Das Kursprojekt 1 installiert und abgearbeitet? Prima. Dann können wir loslegen:

Gehen Sie auf DATEI und dann auf Projekt laden und laden Sie aus dem Verzeichnis C:\VB\SLH das Projekt XFADE_D.
Sie erhalten dann den oben dargestellten Arbeitsbildschirm und im Projektfenster werden zwei Dateien eingetragen, nämlich

Das Programm

[Delphi] Der Programm-Bildschirm

Eine einbruchfreie Überblendung zweier Presets setzt voraus, daß beide Preset-Master jederzeit in einem bestimmten Verhältnis zueinander stehen. Das ist jedoch mit zwei individuellen Schieberglern nicht zu erreichen. Um eine einbruchfreie Überblendung zu erzeieln, wird daher ein Crossfade-Master erforderlich, oder man übergibt den Ablauf als automatsichen Ablauf ohnehin dem Computer.

Die verwendete Gleichung für das einbruchfreie Überblenden lautet:

AUSGABE = Oberer_Preset * Crossfader + Unterer_Preset * (1 - Crossfader)

wenn wir annehmen, daß alle Werte von 0...1 laufen und der Wert Crossfader wie folgt zugeordnet ist:

[Crossfade-Funktion]

Dieser Zusammenhang läßt sich sofort übernehmen.
Wir richten dazu eine zweite Faderreihe ein, die im Projekt als UFader bezeichnet ist und funktional gleichwertig mit den unteren Fadern ist. Nach wie vor nehmen wir die Ausgangsberechnung nur für die unteren Fader vor; wenn ein oberer Fader geklickt wird, wird auf diese Berechnung verweisen und weiter nichts durchgeführt. Damit ergibt sich der Code für das Fader_Change-Ereignis wie folgt:

[Delphi]

und für das obere Preset wird bei UFader_Change einfach eingetragen:

Call Fader_Change(Index)

Wie Sie sehen, müssen natürlich noch ein paar Feinarbeiten erledigt werden, nämlich:


Und das war's denn auch schon. Laden Sie das vollständige Projekt auf Ihren Rechner und experimentieren Sie ein wenig. Wenn einmal der Crossfade-Algorithmus bekannt ist, spielt es ja keine Rolle mehr, ob Sie von Faderwert zu Faderwert oder Memorywert zu Memorywert oder was auch immer faden...

Wir hoffen, daß Sie auch dies interessant fanden und warten gern auf Ihre Beiträge, die Sie uns per [MAIL] E-Mail: info@soundlight.eu zusenden können...

Projekt-Quellcode laden

Erstellen Sie auf Ihrer Festplatte im Visual Basic Ordner ein Verzeichnis namens C:\VB\SLH. Laden Sie die Datei PROJ2.EXE in dies Verzeichnis und starten Sie sie dort. Es entpacken sich dann unter anderem folgende Dateien:
  1. XFADE_D.MAK (Deutsche Version)
  2. XFADE_D.FRM
  3. XFADE_D.FRX
  4. XFADE_E.MAK (Englische Version)
  5. XFADE_E.FRM
  6. XFADE_E.FRX
  7. DEMOS.BAS
  8. SLHDMX2.DLL
  9. SLHDMX12.BIN
  10. SLHDMX16.BIN
Einige dieser Dateien könnten durch vorherige Beispiele schon auf Ihrer Festplatte vorhanden sein. Sie können sie überschreiben.

[OPEN] Projekt-Sourcecode downloaden

Weitere Topics




zurück zur [HOME]SOUNDLIGHT HOMEPAGE