XProfan

Dietmar
Horn

Mit diesem komischen Downloadzähler scheint irgendwas nicht zu stimmen, denn ich habe diese PCU gerade ein einziges Mal runtergeladen - und das Teil hat das gleich dreimal gezählt ...

Gruß
Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

24.12.2006 ▲

Mein Download hat er nur einmal gezählt. Komisch

Hab leider noch nen Fehler gefunden, hab nur im Interpreter getestet

Ist jetzt beseitigt, Da dies nur Dietmar betrifft, lade bitte nochmal die korrigierte Version, sorry

Gruß und schönes Fest
Thomas

24.12.2006 ▲

Kurzanleitung für alle Funktionen hinzugefügt

Hier noch ein paar freie XM-Files zum Testen oder fürs nächste Spiel

XM-Files.zip	99 kB

Hochgeladen:	25.12.2006

Ladeanzahl:
		Herunterladen

Dietmar
Horn

Wow - der iFsche Zähler hat bei mir schon wieder dreifach gezählt.

Aber - na ja - mir solls egal sein ...

Eine Art Hlfedatei zur PCU habe ich jedoch noch nicht gefunden ...

Gruß
Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

[quote:354cb91cde=Dietmar Horn]
Eine Art Hlfedatei zur PCU habe ich jedoch noch nicht gefunden ...[/quote:354cb91cde]
In den ersten Versionen fehlte die auch. Aber das Beispiel und die uFMOC.inc enthalten alle wichtigen Daten.
Hier nochmal die Kurzanleitung:
[quote:354cb91cde]uFMOD_Init()
- Muß vor der Nutzung der PCU ausgeführt werden

uFMOD_Free()
- Sollte am Ende des Programmes aufgerufen werden

uFMOD_GetStats()
- low-order word ($ 0 - $7FFF) = RMS des rechten Kanals
- high-order word ($ 0 - $7FFF) = RMS des linken Kanals
- Dient zum ansteuern eines virtuellen VU-Meters

uFMOD_GetTime()
Zeit in millisekunden seit Start des Songs

uFMOD_GetTitle()
- Der Titel des Songs (meist leer)

uFMOD_Pause()
- Pausiert den Song

uFMOD_PlaySong()
Parameter:
- pXM& = spezifiziert den Song (0 = stop), Entweder Addresse eines Dateinamen, oder Resource-Identifier oder Speicheradresse
- param& = hWnd& der Datei, welche die Resource enthält oder länge der Datei im Speicher
- flag& = folgende Flags sind möglich:
&XM_FILE Es handelt sich um eine Datei
&XM_MEMORY Der Song befindet sich im Speicher
&XM_RESOURCE Der Song wird als Resource geladen
&XM_NOLOOP Der Song wird nur einmal abgespielt (Default = unendlich)
&XM_SUSPENDED Der Song wird geladen, aber noch nicht abgespielt(uFMOD_Resume() startet den Song)

uFMOD_Resume()
- Song fortsetzen

uFMOD_SetVolume()
Parameter:
- volume& (0 - 64)[/quote:354cb91cde]
Gruß
Thomas

Jac
de
Lad

Ich finds ein bisschen ungünstig, dass man teilweise die Adresse von Variablen angeben muss, das könnte die Unit doch für dir API übernehmen. Aber da der Quelltext ja beiliegt, kann ich mir das dann selbst zaubern. Ansonsten: Klasse Sache!

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Kompilieren Markieren Separieren

[quote:26c9c1fd7a=Jacob Liebeck]Ich finds ein bisschen ungünstig, dass man teilweise die Adresse von Variablen angeben muss, das könnte die Unit doch für dir API übernehmen.:[/quote:26c9c1fd7a]
Um festzustellen, ob eine Zahl oder ein String übergeben wurde, sind ja die neuen Funktionen von XProfan 10 erforderlich.
Wegen einer Funktion der PCU wollte ich diese nicht XProfan 10 abhängig machen. Lediglich Einsteiger sollten da evtl. Verständnisprobleme haben, die werden meist sowieso nicht viel damit anfangen können. So entspricht es auch der Doku zu den anderen Programmiersprachen (einfach mal in den Zip-Ordner sehen, sind ne Menge, jetzt auch XProfan

PS: Ich hab nur die winmm Version umgesetzt. Falls interesse an der DX-Version besteht melden, diese läßt sich dann aber nicht mehr so leicht nutzen, weil man DirectSoundBuffer erstellen muß usw. Kommt wohl für die meist nicht in Frage.

Gruß
Thomas

// Nachtrag:
Hab hier als Beispiel mal eine Hilfsprocedure, die ein Addr() nicht benötigt, Zusatzparameter entfallen auch. Mir persönlich gefällt das Original aber besser

 $U uFMOD.pcu

If uFMOD_Init()

    Cls
    uFMOD_PlaySongFromFile("mini.xm")
    Print uFMOD_GetTitle()
    WaitKey
    uFMOD_Free()

EndIf

Proc uFMOD_PlaySongFromFile

    parameters XM_File$
    return uFMOD_PlaySong(Addr(XM_File$), 0, &XM_File)

EndProc

Jac
de
Lad

Aso, hm, stimmt. Aber die Konstanten hättest du in einer Headerdatei definieren können, das wär sicher etwas praktischer. Ich will das Ding jetzt aber nicht schlechtreden!!!

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Downloadmanager Dietmar?

26.12.2006 ▲

@Thomas: Ganz große Klasse! Das hat richtig gefehlt!

@Alle: XMs sind sowas wie MODs - eigendlich sogar sehr ähnlich - damals vom FastTracker genutztes Format. Verträgt IMHO 64 Channels angeordneter WaveFiles. Ich empfehle zum abspielen / erstellen / konvertieren den ModPlugTracker (openSource). Wer ein bisl googelt kommt auch an der ModCentral nicht vorbei - dort gibts hunderte Mods. Natürlich empfehle ich alle Mods von Chis Huelsbeck - dieser hatte damals schon für Amiga tolle Mods erzeugt - toller Musiker. Wer erinnert sich nicht an Turrican?

26.12.2006 ▲