![[SOUNDLIGHT]](../../soundll3.gif) |
VISUAL BASIC CRASHKURS VI |
Projekt 6b: Umsetzung von VB3 auf VB4/32, VB5
Konvertierung auf 32-Bit Visual Basic 4 und Visual Basic 5
Einige Besucher unseres Internet-Programmierkurses haben uns gebeten, auch einmal ein Möglichkeit aufzuzeigen, wie die vorgestellten Beispiele in andere Visual Basic Versionen übertragen werden können. Dazu gibt es generell folgende Aussagen:
- Visual Basic 4.0/16Bit
Sie können den Quellcode ohne Veränderungen in VB4 übernehmen, müssen jedoch, wenn Sie zur Übertragung des Karten-Betriebssystems nicht die Funktion vbWOS(cardadr, MHz) verwenden, sondern den Transfer aus der Datei vornehmen, die Routine umschreiben bzw. aus dem nachfolgenden Beispiel kopieren, da VB4 das Öffnen der Datei so nicht unterstützt (Datei wird gelesen, aber alle Nullbytes fehlen!).
- Visual Basic 4.0/32Bit
Benutzen Sie das Modul DEMOS.BAS aus dem nachfolgenden Beispiel. Es enthält die Aufrufe der Funktionen der 32-Bit DLL SLHDMX32.DLL und auch die Routine Betriebssystemladen, die das Betriebssystem für die Karte überträgt. Einige Variablen müssen im Typ von Integer auf Long angepaßt werden.
Die Funktion vbWOS(cardadr, MHz) steht hier nicht zur Verfügung, und beachten Sie bitte, daß alle Aufrufe der DLL als Funktion und nicht als Sub geschrieben werden müssen. Nichtbenötigte Übergabeparameter oder Rückgabewerte können Sie als Dummy mißachten.
- Visual Basic 5.0
Hier gilt das Gleiche wie unter VB 4.0/32
Das nachfolgende Beispiel gibt an, wie sich die Aufrufe der SLHDMX2.DLL und der SLHDMX32.DLL unterscheiden:
- 16-Bit Version SLHDMX2.DLL (VB3.0, VB4/16)
Declare Function vbCardadr% Lib "SLHDMX2.DLL" (ByVal Dummy%) oder:
Declare Function vbCardadr Lib "SLHDMX2.DLL" (ByVal Dummy As Integer) As Integer
- 32-Bit Version SLHDMX32.DLL (VB4.0/32, VB5.0)
Declare Function vbCardadr Lib "SLHDMX32.DLL" (ByVal Dummy As Integer) As Long
Man sieht: so groß sind die Unterschiede nicht.
![[Delphi]](desk6_32.gif)
Das nachfolgende Beispiel ist das Pult DESK6 aus dem Projekt 1, also ein bekanntes Beispiel. Die aufrufende Datei ist die Datei DESK6D.VBP (Visual Basic Project). Allerdings können Sie auch unter den höheren VB-Versionen auch noch eine .MAK Datei anklicken, um ein Projekt aus einer älteren Version von VB zu öffnen. Das Projekt wird dann in das neue Format konvertiert.
Projekt-Quellcode laden
Erstellen Sie auf Ihrer Festplatte im Visual Basic Ordner ein Verzeichnis namens C:\VB4\SLH32. Laden Sie die Datei PROJ6-32.EXE in dies Verzeichnis und starten Sie sie dort. Es entpacken sich dann unter anderem folgende Dateien:
- DESK6D.VBP
- DESK6D.FRM
- DESK6D.FRX
- DEMOS.BAS
- SLHDMX32.DLL
- SLHDMX12.BIN
- SLHDMX16.BIN
Bitte beachten Sie:
Bitte kopieren Sie keine dieser Dateien in Ihre 16-Bit Entwicklungsumgebung! Benutzen Sie ein neues Verzeichnis ausschließlich für VB4.0/32 bzw. VB5-Projekte.
![[OPEN]](../../open.gif)
Projekt-Sourcecode downloaden
zurück zur ![[HOME]](../../shome.gif)
SOUNDLIGHT HOMEPAGE