Vai al contenuto
PLC Forum


Visual Basic E Sintesi Vocale


isidoro

Messaggi consigliati


Se ho inteso...per dire...incolla questo in un modulo .BAS

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Sub MessaggiVocali(NumeroMessaggio As Long)

Dim Res As Long

Dim NomeFileWav

Select Case NumeroMessaggio

    Case 1

        NomeFileWav = "c:\windows\media\CHIMES.WAV"

    Case 2

        NomeFileWav = "c:\windows\media\CHORD.WAV"

    Case 3

        NomeFileWav = "c:\windows\media\DING.WAV"

    Case 4

    NomeFileWav = "c:\windows\media\IR_BEGIN.WAV"

    Case 5

    NomeFileWav = "c:\windows\media\IR_END.WAV"

End Select

Res = sndPlaySound(NomeFileWav, 1)

End Sub

Link al commento
Condividi su altri siti

Crea un account o accedi per commentare

Devi essere un utente per poter lasciare un commento

Crea un account

Registrati per un nuovo account nella nostra comunità. è facile!

Registra un nuovo account

Accedi

Hai già un account? Accedi qui.

Accedi ora
×
×
  • Crea nuovo/a...