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 ...

Saluto
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

Saluto und schönes Fest
Thomas

24.12.2006 ▲

Kurzanleitung per 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

Downloadcounter:
		Download

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 ...

Saluto
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 corsa werden

uFMOD_Free()
- Sollte am Ende des Programmi 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 File, welche die Resource enthält oder länge der File im Speicher
- flag& = folgende Flags sind possibile:
&XM_FILE Es handelt sich um eine File
&XM_MEMORY Der Song è 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]
Saluto
Thomas

Jac
de
Lad

Ich finds ein bisschen ungünstig, dass man teilweise die Adresse von Variablen angeben muss, das potuto die Unit doch per 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 potuto die Unit doch per dir API übernehmen.:[/quote:26c9c1fd7a]
Um festzustellen, ob eine Zahl oder ein String trasferimento 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 per die meist nicht in Frage.

Saluto
Thomas

// Nachtrag:
Hab hier als Beispiel mal eine Hilfsprocedure, die ein Addr() nicht necessario, 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)

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 grande 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 per Amiga tolle Mods erzeugt - toller Musiker. Wer erinnert sich nicht an Turrican?

26.12.2006 ▲