Visual Basic 6 - eseguire un suono alla pressione di un comman button

Forum - Visual Basic 6 - eseguire un suono alla pressione di un comman button

loddo (Normal User)
Newbie

Messaggi: 6
Iscritto: 16/08/2008

Postato alle 17:51
Sabato, 16/08/2008

io vorrei che alla pressione di un command button si e eseguisse un suono come posso fare , ah questo suono serve per una chat quindi anche l'altro pc deve sentire il suono (naturalmente il file audio deve essere in entrambi i pc)

Overflow (Normal User)
Expert

Messaggi: 334
Iscritto: 11/01/2008

Postato alle 18:15
Sabato, 16/08/2008

puoi utilizzare l'api playsound() che riproduce solo file in formato wav(se non sbaglio).

Codice sorgente - presumibilmente VB.NET

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

loddo (Normal User)
Newbie

Messaggi: 6
Iscritto: 16/08/2008

Postato alle 18:29
Sabato, 16/08/2008

si ma se io voglio che anche l'altro nell'altro pc lo senta come faccio?

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 23:37
Sabato, 16/08/2008

devi inviare all' altro pc le infomazioni necessarie per la riproduzione del suono, quindi durata e frequenza
poi riprodurre il suono con quei dati

loddo (Normal User)
Newbie

Messaggi: 6
Iscritto: 16/08/2008

Postato alle 21:16
Domenica, 17/08/2008

e come si fa ? mi potete dare un source?

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 11:27
Lunedì, 18/08/2008

la risposta alla tua prima domanda (ciò come riprodurre un suono) te l'ha già data overflow. Quello che adesso tu stai chiedendo è un'altra cosa, perchè se non sai come far ascoltare il suono anche sull'altro pc significa che non sai usare bene il winsock...

Tu devi inviare un comando al server dicendogli che deve eseguire il suono il server vede il comando e lo esegue...

esempio:
client:
mandi "StartSuono"
server:
se il comando ricevuto è "StartSuono" allora
esegui il suono.

lo sapresti trasformare in codice?

loddo (Normal User)
Newbie

Messaggi: 6
Iscritto: 16/08/2008

Postato alle 23:59
Mercoledì, 20/08/2008

non di visual basic ho le basi

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 8:40
Giovedì, 21/08/2008

vbb per stavolta ti do il codice, ma studia bene VB su un manuale o su qualche guida.

Codice sorgente - presumibilmente VB.NET

NEL [b]CLIENT[/b]:
winsock1.SendData "PlaySound1" 'al posto di PlaySound1 gli potresti mettere una stringa qualsiasi
NEL [b]SERVER[/b]:
dichiarazioni:
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
in DataArrval
dim data as string
winsock1.getData data
if data = "PlaySound1" then
PlaySound "percorso\file\wav"
End if