XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Sound: Audio-CD abspielen
CD abspielen per MCI Dieter Zornow
declare CDerror&

Proc CD_Open  Öffnet qui CD Device et mets Zeitformat

    Déclarer open$
    parameters laufw$
    let open$=@Translate$(OPEN LW type cdaudio alias CD  shareable,LW,laufw$)
    @MCISend$(open$)
    @MCISend$(SET CD TIME FORMAT tmsf) Zeitformat Track, Minuten, Sekunden, Frames
    @MCISend$(SET CD TIME FORMAT msf) Zeitformat Minuten, Sekunden, Frames
    @MCISend$(SET CD TIME FORMAT ms) Zeitformat Milisekunden
    @MCISend$(SET CD AUDIO ALL ON) Öffnet Audio Output sur beiden Kanälen (OFF schließt, À gauche ON, Right On et off)

ENDPROC

Proc CD_Stop

    @MCISend$(STOP CD) Stoppt cela Abspielen

ENDPROC

Proc CD_Close

    @MCISend$(CLOSE CD) Schließt qui Device

ENDPROC

proc CD_Error

    si %mcierror

        declare tz$,mess$
        let tz$=Device Error
        let mess$=Sorry, The Player can´t play le CD,
        please faire sure your default drive is ready to play
        and try again.
        @messagebox(mess$,tz$,48)
        CD_Close
        let CDerror&=1
        return CDerror&

    endif

    let CDerror&=0
    return CDerror&

endproc

Proc CD_present

    Déclarer CD_Result$
    Laisser CD_Result$=@MCISend$(STATUS CD MEDIA PRESENT)  Ist une CD eingelegt?
    Retour CD_Result$ (True, faux)

ENDPROC

Proc CD_Ready

    Déclarer CD_Result$
    Laisser CD_Result$=@MCISend$(STATUS CD READY)  Ist cela Gerät bereit ?
    Retour CD_Result$ (True, faux)

ENDPROC

Proc CD_Opendoor

    @MCISend$(Set CD door open) Öffnet qui CD Schublade

ENDPROC

Proc CD_Closedoor

    @MCISend$(Set CD door closed) Schließt qui CD Schublade

ENDPROC

Proc CD_Play

    CD_ERROR
    cas equ(CDerror&,0):@MCISend$(PLAY CD)  Spielt qui ganze CD

ENDPROC

Proc CD_PlayFromTo

    parameters à partir de$,to$
    CD_Error
    cas equ(CDerror&,0):@MCISend$(PLAY CD FROM +à partir de$+ TO +To$)  Spielt qui CD de Track jusqu'à Track avec paramètre à partir de$ to$

ENDPROC

Proc CD_SeekToEnd

    CD_Error
    cas equ(CDerror&,0):@MCISend$(SEEK CD TO FIN) cherchez Vorwärts jusqu'à zum Ende

ENDPROC

Proc CD_SeekToStart

    CD_error
    cas equ(CDerror&,0):@MCISend$(SEEK CD TO START) cherchez Rückwärts jusqu'à zum Anfang

ENDPROC

Proc CD_SeekTO

    Paramètres pos$
    @MCISend$(SEEK CD TO +pos$) cherchez jusqu'à zur Position Track ou bien Frame(paramètre Track ou bien Frame)

ENDPROC

Proc CD_PlayWait

    CD_Error
    cas equ(CDerror&,0):@MCISend$(PLAY CD WAIT) écoutes qui cd et cela Programme hält à

ENDPROC

Proc CD_Pause

    @MCISend$(PAUSE CD) Pausiert, manche Treiber spielen beim 2ten la fois récréation plus /RESUME/

ENDPROC

Proc CD_Resume

    @MCISend$(RESUME CD) Spielt pour récréation plus à qui gleichen Stelle

ENDPROC

Proc CD_Status

    Déclarer CD_Result$
    Laisser CD_Result$=@MCISend$(STATUS CD MODE)zeigt den Zustand
    Retour CD_Result$ (stopped, playing, paused, not ready open, seeking.)

ENDPROC

Proc CD_Break

    @MCISend$(Pause CD on 27)Waitplay démolir avec ESC bouton

endproc

Proc CD_T_number

    Déclarer CD_Result$
    Laisser CD_Result$=@MCISend$(STATUS CD NUMBER OF TRACKS)  Anzahl qui Musikstücke
    Retour CD_Result$

endproc

Proc CD_length

    Déclarer CD_Result$
    Laisser CD_Result$=@MCISend$(STATUS CD LENGTH)  Longueur qui Musik CD
    Retour CD_Result$

ENDPROC

Proc CD_CurrentTr

    Déclarer CD_Result$
    Laisser CD_Result$=@MCISend$(STATUS CD CURRENT TRACK )  Nr des aktuellen Tracks
    Retour CD_Result$

ENDPROC

Proc CD_Tracklength

    parameters nr$
    Déclarer CD_Result$
    Laisser CD_Result$=@MCISend$(STATUS CD LENGTH TRACK +nr$)  Longueur des aktuellen Titels (paramètre nr$)
    Retour CD_Result$

ENDPROC

Proc CD_position

    Déclarer CD_Result$
    Laisser CD_Result$=@MCISend$(STATUS CD POSITION) aktuelle Position sur qui CD
    Retour CD_Result$

ENDPROC

Proc CD_TSposition

    parameters nr$
    Déclarer CD_Result$
    Laisser CD_Result$=@MCISend$(STATUS CD POSITION TRACK +nr$) Startposition qui Tracks paramètre Nr%
    Retour CD_Result$

ENDPROC

Proc CD_Sposition

    Déclarer CD_Result$
    Laisser CD_Result$=@MCISend$(STATUS CD START POSITION) Startposition sur qui CD
    Retour CD_Result$

ENDPROC

Proc CD_Info

    Déclarer CD_Result$
    Laisser CD_Result$=@MCISend$(INFO CD PRODUKT) Gibt nom des CD_Laufwerkes
    Retour CD_Result$

ENDPROC

proc CD_muteON

    @MCISend$(SET CD AUDIO ALL OFF)

endproc

proc CD_muteOFF

    @MCISend$(SET CD AUDIO ALL ON)

endproc

Beispiel
cls
Déclarer status$
CD_Open I: Laufwerksbuchstabe anpassen
CD_Ready
Imprimer CD Device ready?:,@$(0)
CD_present
Imprimer CD vorhanden:,@$(0)
CD_Status
imprimer Status:,@$(0)
CD_length
Imprimer Longueur qui CD:,@$(0)
CD_T_number
imprimer Anzahl Musikstücke:,@$(0)
CD_TSposition 1
Imprimer Trackpos 1:,@$(0)
CD_TSposition 2
Imprimer Trackpos 2:,@$(0)
CD_Tracklength 1
Imprimer Tracklänge 1:,@$(0)
CD_PlayFromTo 2,3 ou bien CD_Play pour qui ganze CD chez track Angabe Zeitformat tmsf
CD_Ready
Imprimer CD Device ready?:,@$(0)
CD_TSposition 2
Imprimer Trackpos 2:,@$(0)
CD_Status
imprimer Status:,@$(0)

whilenot equ$(status$,stopped)

    CD_Status
    let status$=@$(0)
    CD_position
    locate 12,0
    imprimer @$(0)

Wend

waitinput
CD_Stop
CD_CLOSE