Fonctions MCI

Des exemples d'utilisation des fonctions du WLangage

Rien de tel qu'un exemple pour comprendre une fonction de WLangage. Dans cette section, vous trouverez des exemples simples.

Des exemples évolués, où la fonction est utilisée en contexte, sont également disponible sur ce site.

Aller à la page des exemples évolués

MciArret (en anglais MCIStopPlaying)

MCIOuvre("Son.wav","MonSon")
...
MCIJoue("MonSon")
...
MCIArrêt ("MonSon")
...
MCIFerme("MonSon")

Début de la page

MciDebut (en anglais MCIBegining)

MCIOuvre("Son.wav","MonSon")
...
MCIJoue("MonSon")
...
MCIDébut ("MonSon")
...
MCIFerme("MonSon")

Début de la page

MciErr (en anglais MCIErr)

// Numéro de la dernière erreur
ResErreur = MCIErr ()

Début de la page

MciEtat (en anglais MCIStatus)

MCIOuvre("Son.wav","MonSon")
...
SI MCIEtat ("MonSon") = mciEtatPause ALORS
MCIDébut("MonSon")
MCIJoue("MonSon")
FIN
...
MCIFerme("MonSon")

Début de la page

MciExecute (en anglais MCIExecute)

// Ouverture du fichier "C:\MesFichiers\Fichier.AVI"
// dans le champ image "ImageAVI"
ResExécuteMCI = MCIExécute ("Open C:\MesFichiers\Fichier.AVI"+ ...
"Alias AVI Style Child Parent" + Handle(ImageAVI))
ResExécuteMCI2 = MCIExécute ("Play AVI Notify")

Début de la page

MCIFerme (en anglais MCIClose)

// Ouverture du fichier "C:\MesFichiers\Fichier.AVI"
// dans le champ image "ImageAVI"
ResMCI = MCIOuvre ("C:\MesFichiers\Fichier.AVI","FicAVI")
...
ResMCI = MCIFerme ("FicAVI")

Début de la page

MciFin (en anglais MCIEnd)

MCIOuvre("Son.wav","MonSon")
...
MCIJoue("MonSon")
...
MCIFin ("MonSon")
...
MCIFerme("MonSon")

Début de la page

MciFormatPosition (en anglais MCIPositionFormat)

MCIOuvre("Film.avi","MonFilm")
...
MCIFormatPosition ("MonFilm", MciFormatTMSF )
...
MCIFerme("MonFilm")

Début de la page

MciHauteur (en anglais MCIHeight)

MCIOuvre("Film.avi", "MonFilm")
MonChamp..Hauteur = MCIHauteur ("MonFilm")

Début de la page

MciJoue (en anglais MCIPlay)

MCIOuvre("Son.wav","MonSon")
...
MCIJoue ("MonSon")
...
MCIFerme("MonSon")

Début de la page

MciLargeur (en anglais MCIWidth)

MCIOuvre("Film.avi", "MonFilm")
MonChamp..Largeur = MCILargeur ("MonFilm")

Début de la page

MciMsgErr (en anglais MCIMsgErr)

// Libellé de la dernière erreur
ResMsgErreur = MCIMsgErr ()

Début de la page

MciNombrePiste (en anglais MCITrackCount)

MCIOuvre("cdaudio","cd")
...
Info("Nombre de pistes : " + MCINombrePiste ("cd"))
...
MCIFerme("cd")

Début de la page

MCIOuvre (en anglais MCIOpen)

// Ouverture du fichier "C:\MesFichiers\Fichier.AVI"
// dans le champ image "ImageAVI"
ResExécuteMCI = MCIOuvre ("C:\MesFichiers\Fichier.AVI")

Début de la page

MciPause (en anglais MCIPause)

MCIOuvre("Son.wav","MonSon")
...
MCIJoue("MonSon")
...
MCIPause ("MonSon")
...
MCIFerme("MonSon")

Début de la page

MciPiste (en anglais MCITrack)

MCIOuvre("cdaudio","cd")
...
Info("Piste courante : " + MCIPiste("cd"))
...
MCIFerme("cd")

Début de la page

MciPosition (en anglais MCIPosition)

MCIOuvre("Son.wav","MonSon")
...
MCIJoue("MonSon")
...
MCIPosition ("MonSon",10)
...
MCIFerme("MonSon")

Début de la page

MciRecupere (en anglais MCIRetrieve)

// Dernier résultat de la fonction MCIExécute
ResRécupère = MCIRécupère ()

Début de la page

MciTaille (en anglais MCISize)

MCIOuvre("Son.wav","MonSon")
MCIFormatPosition("MonSon", MciFormatMs )
...
MCIJoue("MonSon")
...
Res_Taille = MCITaille ("MonSon")
...
MCIFerme("MonSon")

Début de la page

MciTailleFenetre (en anglais MCIWindowSize)

MCIOuvre("Film.avi","MonFilm", MciStyleFille , Image)
…
MCITailleFenêtre ("MonFilm", MciModeEtiré )

MCIJoue("MonFilm")
…
MCIFerme("MonFilm")

Début de la page

MciVolume (en anglais MCIVolume)

// Modification du volume sonore pour les fichiers de type "WAV"
ResVolume = MCIVolume ("WAV", 200)

Début de la page