geluiden naar boxen sturen (vb6)

[satriano]

Dag
met deze programmatje

Option Explicit
Private Declare Function BeepAPI Lib "kernel32" Alias "Beep" (ByVal dwFrequency As Long, ByVal dwMilliseconds As Long) As Long

Private Sub cmdStart_Click()
    Timer1.Enabled = True
End Sub

Private Sub cmdStop_Click()
    Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
    Dim freq As Long
    freq = CLng(txtFreq.Text)
    BeepAPI freq, Timer1.Interval
End Sub

kan ik bepaalde(geluid)frequenties genereren.
Het probleem is dat de geluid altijd via de systemluidspreker komt, en niet via
de boxen (van de geluidskaart).

kan iemand dit probleem mij helpen oplossen? Dus hoe de geluid naar
de boxen sturen?

satriano

 

[That Guy]

het punt is dat je met deze code (de api)

Private Declare Function BeepAPI Lib "kernel32" Alias "Beep" (ByVal dwFrequency As Long, ByVal dwMilliseconds As Long) As Long

juist vraagt om de 'beep' via de systeemluidspreker te sturen. Om het via je boxen te doen zou je veel meer code nodig hebben, maar mischien is daar een aparte API voor, geen idee. mischien heeft planetsourcecode.com iets?

V:thumb:

 

[satriano]

Ok, ik zal daar iets proberen te vinden.
Toch bedankt

 

[MerlinTheGreat]

Je kan een wav-bestand laten spelen via de geluidskaart met een API

Als je de locatie en naam van een wav-bestand aan onderstaande sub doorgeeft wordt dat wav-bestand naar de geluidskaart gestuurd.
Om bijvoorbeeld het 'Ding' geluid te spelen gebruik je:

PlayWav "C:\Windows\Media\ding.wav"

' API om wav-bestanden te spelen
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Public Sub PlayWav(WavFile As String)
  '--------------------------------------------------------------
  ' Een wav-file ten gehore brengen
  '--------------------------------------------------------------
  On Error Resume Next
  Dim lng_ReturnValue As Long
  DoEvents
  lng_ReturnValue = sndPlaySound(WavFile, SND_FILENAME)
  DoEvents
End Sub

Zet de code met de API declaratie en de sub in een module, dan is hij voor het ganse programma beschikbaar.