XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
WAV-Dateien abspielen
Lauffähig ab Profan-Version 5.0
-----------------------------------------------
titel:    Wavdateien
autor:    Rolf Koch - ROKO-SOFTWARE
e-mail:   webmaster@rokosoft.de
homepage: http://www.rokosoft.de
datum:    19.01.2001
-----------------------------------------------
Erklärung:
----------
Profan ist in ganzer Linie Multimediafähig.
Dies bedeutet: Man kann neben der Bildgestaltung auch Sound abspielen
Hier in diesem Fall geht es nicht um selbst erstellte Töne wie der
Befehl Sound, nein dieses Demo hat den Zweck die Eigenschaften
von Wav anzuzeigen - aber nur in der Grundversion (es gibt)
sicherlich noch extremere Einsatzgebiete.
Und: Hier wird der einfachere Weg mit Playsound (Wav) gezeigt-
auch gibt es noch die Möglichkeit Midi abzuspielen.
Jedoch ist dies hier ein Einsteigercode, welcher die Anfänge
vermittelt.
siehe auch in der Profanhilfe unter @MCISend$
declare ende%,stop%			Variablen vorbereiten
declare s1%,s2%,s3%,S4%			Variablen für Buttons
WindowStyle $20F			Wichtig, da auf einem Hauptfenster
WINDOW 30,30 - 300,140			Fenster erstellen
WINDOWTITLE Wavdateien		Fenstertitel
Buttons erstellt werden.
Wäre kein Stil hier würde der Sound beim drücken und
beim loslassen je einmal wiedergegeben!
print Bitte Kreuz oben rechts
print zum beenden drücken
let s1%=CreateButton (%hwnd,Wavdatei normal abspielen,30,30,220,20)
let s2%=CreateButton (%hwnd,Wavdatei im Loop spielen,30,55,220,20)

WHILENOT ende%				Solange nicht Variable ende%=1

    WAITINPUT				Wartet auf Maus oder Taste

    If Equ(%key,2)				wenn Kreuz zum Beenden angeklickt wird

        let ende%=1

    ElseIf @GetFocus (s1%)			Wenn Button 1 gedrückt wird

        PlaySound C:WINDOWSMEDIATADA.WAV,1
        hier wird der Sound im typischen Windowsverzeichnis Media
        (ansonsten muss ein anderer Pfad hin!) einmal abgespielt.

    ElseIf @GetFocus (s2%)			Wenn Button 2 gedrückt wird

        PlaySound C:WINDOWSMEDIATADA.WAV,9
        der Wert 9=   1 (Wird im Hintergrund gespielt)
        plus den Wert 8 (Wiederholung)
        settext s2%,Stoppe Loop	Neuen Text dem Button 2 zuweisen
        stop%=0				Variable Stop 0 zuweisen um  folgende Schleife zu erhalten

        Whilenot @equ(Stop%,1)		hier eine Schleife, um nochmals zu warten, bis der Button 2 erneut gedrückt wird.

            Waitinput

            If @GetFocus (s2%)			Wenn Button 2 nochmal gedrückt wird

                let stop%=1			Stop=1 bedeitet Schleifenende (siehe Whilenot)
                ENDIF					Ende der Ifabfrage

            Wend

            PlaySound C:WINDOWSMEDIATADA.WAV,0
            Tricksen, um den Sound noch einmal zu spielen um dann durch 0 zu beenden
            settext s2%,Wavdatei im Loop spielen	Neuen Text dem Button 2 zuweisen
            Endif					Ende der Abfrage
            WEND					Zurück zu WHILENOT ende%