pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

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

VideoAffiche (en anglais VideoDisplay)

// Affiche la séquence vidéo actuellement retransmise
// dans le champ "Webcaméra"
ResFilm = VidéoAffiche (Webcaméra)
SI ResFilm = Vrai ALORS
   // Affiche un libellé
  
WebCaméra..Libellé = "En ce moment dans la cuisine"
SINON
   Erreur(ErreurInfo())
FIN


Début de la page

VideoArrete (en anglais VideoStop)

// Arrête l'affichage de la séquence vidéo actuellement retransmise
// dans le champ Web Caméra "WebcameraCuisine"

ResArrêt = VidéoArrête (WebcameraCuisine, viArrêteAffichage )


Début de la page

VideoCapture (en anglais VideoCapture)

// Sauvegarde de la vidéo retransmise dans le
// champ Web Caméra "WebcameraCuisine"
// sous forme d'une AVI ("C:\Temp\MaVideo.AVI")
// de 1 minute

ResSauvegarde = VidéoCapture (WebcameraCuisine, ...
                  "C:\Temp\MaVideo.AVI", ...
                  viCaptureVidéo , 60)
SI ResSauvegarde = Vrai ALORS
   Info("Vidéo correctement sauvegardée")
SINON
   Erreur(ErreurInfo())
FIN


Début de la page

VideoChangeDriver (en anglais VideoSetDriver)

// Affiche la liste des drivers vidéo disponibles
// dans le champ ListeDriverVidéo
ListeAjoute( ListeDriverVidéo , VidéoListeDriver ())
// Utilise le deuxième driver Vidéo
SI VidéoChangeDriver ( ChampWeb1 , ListeDriverVidéo [ 2 ]) = Faux  ALORS
   Erreur ( "Changement de driver impossible : " + RC + ...
   ErreurInfo ())
FIN


Début de la page

VideoConfigure (en anglais VideoConfigure)

// Affiche la boîte de dialogue standard
// permettant la configuration
// du driver de capture vidéo
// utilisé pour le champ "MaVidéo"

VidéoConfigure (MaVidéo)


Début de la page

VideoConfigure (en anglais VideoConfigure)

// Spécifier une résolution de 640 par 480.
VidéoConfigure (VIDEO1, viResolution , 640, 480)


Début de la page

VideoEtat (en anglais VideoStatus)

// Connaître l'état du champ Web Caméra "WebcameraCuisine"
// L'explication est affichée dans la barre de message.

ResEtat = VidéoEtat (WebcameraCuisine)
SELON ResEtat
  
CAS viEtatAffichageCapture :
      Message("Affichage de la vidéo dans le champ Web Caméra. "+ ...
             "Sauvegarde en cours de cette vidéo")
   CAS viEtatAffichageSansCapture :
      Message("Affichage de la vidéo dans le champ Web Caméra. "+ ...
             "Aucune sauvegarde n'est actuellement réalisée")
   CAS viEtatCaptureSansAffichage :
      Message("Sauvegarde en cours d'une vidéo. "+ ...
             "Cette vidéo n'est pas affichée dans le champ Web Caméra")
   CAS viEtatSansCaptureSansAffichage :
      Message("Aucune vidéo n'est affichée et/ou en cours de "+ ...
            "sauvegarde dans le champ Web Caméra")
FIN


Début de la page

VideoListeDriver (en anglais VideoListDriver)

// Connaître les drivers Vidéo installée
// Affichage dans la liste ListeDriver

ListeAjoute(ListeDriver, VidéoListeDriver ())


Début de la page