Discussion :

[IfergEd]

Bonjour

je voudrais réaliser une interface sur laquelle il y aurait des mots ou des phases écrites en français , je clique sur un mot et j'active un fichier
son prealablement enregistré.
Mon problème: je ne trouve pas la syntaxe qui me permettrai de lire le fichier
son en wav par example

merci pour votre aide

[DAUDET78]

Tu utilises par exemple la commande Shell

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RetVal = Shell("VLC"&"mon fichier.Wav, 1)

VLC.EXE est le programme qui permet de lire le fichier Wav
Tu peux sans doute utiliser "Playerplus" ou "Lecteur Windows Media"

[IfergEd]

Bonjour a tous

j'ai placé le fichier son en "C"
FichierSon = "C:\Maria elena.mp3"
Resulta = Shell("C:\Program Files\VideoLAN\VLC\vlc.exe" & "FichierSon", 1)

j'ai un message d'erreur, le fichier introuvable

Ou est l'erreur

Quelqu'un peut-il venir a mon secours . !!!!

[ProgElecT]

Salut

Dans la FAQ
Comment jouer un son ?

je voudrais réaliser une interface sur laquelle il y aurait des mots ou des phases écrites en français , je clique sur un mot ....

Une autre approche, donner la parole à l'ordinateur.
Dans un projet tout neuf, faire référence (Alt +P+R dans l'editeur VB6) à Microsoft Speech Object Library
et ce

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
Dim Voix As SpVoice
 
Private Sub Form_Load()
'Faire référence (Alt +P+R dans l'editeur VB6) à Microsoft Speech Object Library
'sapi.dll (Library SpeechLib)
'qui pour moi est dans C:\Windows\System32\Speech\Common\
 
Set Voix = New SpVoice
Me.Visible = True
Voix.Speak "Voilà une demo, j'espere qu'elle te sera utile."
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
Voix.Speak "A la prochaine fois, signé: ProgElecT"
Set Voix = Nothing
End Sub

[l_autodidacte]

FichierSon = "C:\Maria elena.mp3"
Resulta = Shell("C:\Program Files\VideoLAN\VLC\vlc.exe" & "FichierSon", 1)
j'ai un message d'erreur, le fichier introuvable

L'erreur est corrigée ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
FichierSon = "C:\Maria elena.mp3"
Resulta = Shell("C:\Program Files\VideoLAN\VLC\vlc.exe " & FichierSon, 1)

Il faut un epace après VLC.exe et enlever les guillemets pour FichierSon car c'est la variable qui contient le chemin du fichier à lire.