SLH Software

VISUAL BASIC CRASHKURS IV

Projekt 4: Memories speichern und alles in eine Datei schreiben...

Sie haben Visual Basic 3.0 auf Ihrem Rechner installiert? Die bisherigen Teile, Kursprojekt 1, Kursprojekt 2 und Kursprojekt 3 installiert und abgearbeitet? Prima. Dann können wir loslegen:

Wir schlagen vor, daß Sie dies Kapitel ausdrucken, nachdem Sie es mit Ihrem Internet-Browser geladen haben.
Die Beispieldateien können Sie am Ende des Kapitels laden, bitte beachten Sie dazu unbedingt die angegebenen Hinweise zur Installation.

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

FILE6_D.FRM, die Form-Datei (das Layout) des Pultes
DEMOS.BAS, das Deklarations-Modul

Das 6-Kanal Memory Desk

Das Pult als Memory-Desk

Wenn schon Daten auf Diskette oder Festplatte gesichert werden sollen, dann macht es ja keinen Spaß, nur Kanalinformationen dort abzulegen. Bevor wir uns also der eigentlichen Aufgabe widmen, Datensätze zu packen und abzusichern, bauen wir unser kleines Beispielpult erstmal ein wenig um und verpassen ihm eine Handvoll Speicherplätze. Logisch, daß dann natürlich auch ein Satz Memoryfader dazugehört, mit dem man diese Speicher abrufen kann.

Die Einrichtung der Speichersektion

Memoryfader einrichten
Wie man eine zweite Faderreihe einrichtet, haben wir im Crossfade-Beispiel ja schon gesehen. Hier machen wir es genauso, nur daß vorher die bestehenden Kanalfader alle nach oben geschoben werden, sie sollen -wie das so üblich ist- in der oberen Reihe stehen. Für die Memoryfader nehmen wir einen Fader aus der Werkzeugleiste, definieren wie bei den Kanalfadern Anfangs- und Endwert und geben ihm den Namen MEMFADER. Kopieren Sie diesen Fader mit STRG-C und STRG-V fünfmal und lagen Sie die kopierten Objekte als Faderarray ab, damit wir nur einmal Code schreiben müssen und das Pult später einfach auf mehr Kanäle erweiterbar ist.
Memory-Variablen-Array deklarieren
In jedem Memoryplatz ist jeder Kanal einmal wertmäßig abgespeichert. Um mehrere Memorywerte speichern zu können, wird also ein zweidimensionales Datenarray benötigt, das als Indizes die Memorynummer und die Kanalnummer enthält. Diese Variable ist die Variable MEMORY. Sie muß dem Deklarationsmodul DEMOS.BAS hinzugefügt werden:
Code in den Faderroutinen anpassen
Mit der bisherigen Praxis bleiben, allen Ausgabecode in die Kanalfaderroutine zu schreiben, haben wir ein einfaches Werkzeug geschaffen, denn jede andere Routine, die etwas an der Ausgabe ändert, braucht dann nur die Faderroutine aufzurufen. Also wollen wir das auch hier so halten.
Die Ausgabe für einen bestimmten Kanal besteht:
- aus dem Einzelkanalfaderwert
- aus dem Wert jedes Memories, das diesen Kanal enthält,
- der Memorywert muß mit dem Wert des jeweiligen Memoryfaders skaliert werden
- alles muß mit dem Masterfader skaliert werden.
Alles das muß in eine Formel gepackt werden. "Kein Problem", werden Sie sagen, und da haben Sie recht.
Hier ist der Code für den Kanalfader:
```
Sub Fader_Change (Index As Integer)

  Dim Zwischenwert1, Zwischenwert2 As Integer
  Dim n As Integer                              'lokal verwendet
  
  'Dies ist die Hauptroutine des ganzen Programmes. Hier wird
  'aus der Faderstellung der Ausgabewert berechnet, der dann
  'von der Timerroutine AutoXMit an die PC-Karte übergeben wird.
  'Alle Berechnungen beziehen sich auf einen Wertebereich von
  '0% bis 100%, daher sind auch alle Schieberegler mit den ent-
  'sprechenden Endwerten 0 (Fader.Max) bzw. 100 (Fader.Min)

  Zwischenwert1 = 0
  
  For n = 0 To 5
    Zwischenwert2 = MemFader(n).Value * Memory(n, Index) / 100
    If Zwischenwert2 > Zwischenwert1 Then Zwischenwert1 = Zwischenwert2
  Next n


  If Fader(Index).Value > Zwischenwert1 Then Zwischenwert1 = Fader(Index).Value

  
  DMXAusgabe(Index) = Int(Zwischenwert1 * Master.Value / 100)

  'und das war's auch schon! Damit wir was für's Auge haben,
  'schreiben wir den aktuellen Faderwert in ein Ausgabefenster
  'und ersetzen für die Theaterleute die "100%" durch das
  'gewohnte "FF". Na denn.
  
  If DMXAusgabe(Index) < 100 Then
    AUSGABE(Index).Text = Str$(DMXAusgabe(Index)) + "%"
  Else
    AUSGABE(Index).Text = "FF"
  End If

End Sub
```
Damit die Fader ein HTP-Verhalten bekommen (Highest Takes Precedence), sind mehrere Entscheidungen nötig, um den höchsten Wert zu ermitteln. Aus Übersichtlichkeitsgründen sind diese Entscheidungen jeweils separat aufgeschrieben und zwei Variablen Zwischenwert1 und Zwischenwert2 stehen zur Verfügung, um Zwischenrechnungs-Ergebnisse aufzunehmen. Bitte beachten Sie, daß wir diese Variablen nur in dieser Routine, also lokal, benutzen wollen. Visual Basic gibt dazu die Möglichkeit, eine Variable lokal zu deklarieren, was durch die DIM-Anweisung erfolgt. Von dieser Methode haben wir innerhalb dieses Projektes verschiedentlich Gebrauch gemacht. Wenn Sie eine Variable nur in einer lokalen Sub oder Funktion benötigen, deklarieren Sie sie lokal. Das kostet Windows vielleicht einen Hauch mehr Zeit, verhindert aber, daß Sie damit unbeabsichtigt den Wert einer Variable verändern, die in einer anderen Routine auch benötigt wird. Zählvariablen sind beste Beispiele dafür.
Memory-Werte im Pult speichern
Der beste Memoryfader nützt nichts, wenn keine Memorywerte hinterlegt werden können. Es muß also auch eine Möglichkeit geschaffen werden, Memorywerte im Pult abspeicherbar zu machen. Dazu dienst die neu eingeführte STORE-Taste:

Um eine Stimmung abzuspeichern, soll man zunächst die Taste STORE und dann eine der Flashtasten drücken, wobei die Flashtaste ein Indikator für die Memorynummer ist (die können wir über die Varaible INDEX dann ja auslesen). Damit ist aber die Funktion der Flashtasten, nachdem man STORE gedrückt hat, eine andere, als wenn man die Flashtasten "so" drückt. Dazu wird ein FLAG eingeführt, das beim Drücken der STORE-Taste gesetzt und beim Loslassen einer FLASH-Taste wieder zurückgesetzt wird. Dieses FLAG heisst STOFLG und muß natürlich global, d.h. in allen Routinen, verfügbar sein, weswegen es in der DEMOS.BAS deklariert werden muß (siehe oben).
In Abhängigkeit von diesem Flag wird nun jeweils der Code der Flash-Tasten abgearbeitet. Zum Speichern benutzen wir das FLASH_CLICK Ereignis; bitte beachten Sie, daß bei Betätigung der Flash-Taste nun drei Ereignisse aktiviert werden: Click, MouseDown und MouseUp.
Weiterer Bedienungskomfort
"Alles löschen" ist eine immer gern genommene Funktion, es sei denn, man ruft sie irrtümlich auf.

Wir haben das Menü um entsprechende Einträge erweitert. Um das Menü zu bearbeiten, klicken Sie auf das Icon und nehmen Sie die gewünschten Änderungen vor (z.B. Shortkey-Zuordnung, Menütexte u.s.w.). Doppelklicken Sie stattdessen auf dem Entwurfsbildschirm auf den entsprechenden Menüeintrag, dann erhalten Sie den zugehörigen Basic-Code. Hier finden Sie (bisher nicht benutzt) einen MsgBox-Aufruf als Funktion. Er erzeugt eine Dialog-Box zur Sicherheitsabfrage, die mit den Tasten "ja" und "nein" ausgestattet ist, wobei wir die Schaltfläche "nein" als Default voreingestellt haben - das ist die Sicherheitsfunktion. Die Schaltfläche "ja" gibt in dieser Funktion den Zahlenwert 6 zurück, sodass damit entschieden werden kann, welche weiteren Aktionen daraufhin ausgeführt werden sollen. Um Hilfe zur MsgBox zu bekommen, stellen Sie den Cursor auf das Befehlswort MsgBox und drücken Sie F1.

Das Memory-Array auf Platte sichern

Damit kommen wir zur eigentlichen Aufgabe: Daten auf Platte zu schreiben und von dort zurückzulesen. Damit eine solche Datei nicht nur von einem speziellen Programm, sondern sogar mit jedem beliebigen Texteditor (z.B. Notepad, WordPad oder MS Word) bearbeitet werden kann, werden alle Werte als ASCII-Werte im Klartext geschrieben. Das Dateiformat soll folgendermaßen sein:

Stimmungen-Datei für SoftDesk 12  (C) SLH 1995
[MEMORY]
 0, 10, 20, 30, 40, 50, 0, 0, 0, 0, 0, 0
 0, 20, 30, 40, 50, 60, 0, 0, 0, 0, 0, 0
 0, 20, 40, 60, 80, 100, 0, 0, 0, 0, 0, 0
 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

Beschreibung des Dateiformates

Titelzeile
ist einfach eine beschreibende Zeile für das was da kommt, Inhalt egal, muß aber vorhanden sein. EINE Zeile!!
Schlüsselwort
steht auf Zeile 2, und wird in eckige Klammern verpackt. Benutztes Schlüsselwort ist hier ausschließlich das Wort MEMORY, weitere Schlüsselworte könnten sein: CHASER, CONFIG, PATCHING u.s.w. Windows-INI-Datein benutzen dies Verfahren, um bestimmte Abschnitte zu markieren.
Daten
Anschließend folgt ein Datenarray, das pro Memory eine Zeile mit Werten (Kanäle 1-12) schreibt. Es werden 12 Zeilen geschreiben, also Werte für 12 Memories hinterlegt.
In unserem Demupult haben wir aber nur 6 Kanäle und 6 Memories, daher werden alle nicht vorhandenen Varaiblenwerte mit Nullen aufgefüllt. Warum das? Sehr einfach- Sie haben mit dem Programm DESK12, das Sie von unserer Softwareseite herunterladen können, ein Programm zur Verfügung, mit dem Sie entsprechende Stimmungen schreiben und laden können, wir schreiben also ein kompatibles Dateiformat.

Um Dateioperationen durchführen zu können, bietet uns Visual Basic wiederum ein fertiges Tool an. Es heißt CMDIALOG.VBX (Visual Basic Extension) und muß als Datei zusätzlich in Ihr Projekt eingebunden werden. Die Datei CMDIALOG.VBX sollte sich dabei in Ihrem \WINDOWS\SYSTEM Verzeichnis befinden. Wenn Sie VB korrekt installiert haben, verfügen Sie bereits über diese Datei, ansonsten übertragen Sie die beigefügte Datei in Ihren System-Ordner. Sie müssen diese Datei mit Ihrer VB-Applikation mitliefern, damit diese lauffähig ist.

[Delphi]
Klicken Sie im Datei-Menü Datei hinzufügen und wählen Sie CMDIALOG.VBX, wenn diese noch nicht in Ihrem Projektfenster (rechts) eingetragen ist.

Ihre Werkzeugleiste wird nun um das Tool erweitert. Klicken Sie es an und plazieren Sie es irgendwo auf dem Entwurfsbildschirm- es ist zur Laufzeit nicht sichtbar! Mit dem Common-Dialog Control können Sie laden, speichern, drucken, Farben zuordnen u.a.m. Bitte bemühen Sie den VB-Hilfstext, um alle Informationen über dieses Control zu erhalten.

Wir haben das Datei-Menü unseres Projektes um zwei Einträge erweitert:

[Delphi]

Klicken Sie im Entwurfsbildschirm, um die zugehörigen Codefenster zu öffnen. Der Code ist recht straight, bedarf keiner umfangreichen Erläuterung. Experimentieren Sie ruhig etwas, um zu sehen, wie sich Änderungen auswirken.

Projekt-Quellcode laden

Erstellen Sie auf Ihrer Festplatte im Visual Basic Ordner ein Verzeichnis namens C:\VB\SLH. Laden Sie die Datei PROJ4.EXE in dies Verzeichnis und starten Sie sie dort. Es entpacken sich dann unter anderem folgende Dateien:

FILE6_D.MAK
FILE6_D.FRM
FILE6_D.FRX
DEMOS.BAS
SLHDMX2.DLL
SLHDMX12.BIN
SLHDMX16.BIN
CMDIALOG.VBX
TEST.D12

Einige dieser Dateien könnten durch vorherige Beispiele schon auf Ihrer Festplatte vorhanden sein. Sie sollten sie überschreiben.

Projekt-Sourcecode downloaden

unsere Produkte
die DMX PC-Karte 1512B
das Karten-Sonderangebot für Kursteilnehmer
zurück zu Teil 3 des Kurses
weiter zu Teil 5 des Kurses
zur Seite mit dem User-Feedback
zur Kurs-Einführung
zur Kurs-Kurzinhaltsübersicht

zurück zur SOUNDLIGHT HOMEPAGE