Привет ...подскажите ресурс или ссылку где задаются частоты ...и delay
есть вот у меня музон в программе :) но хочется повыеживатся :)

Public Sub Sound()
Dim retval As Long ' возвращаемое значение
retval = Beep(2000, 50)
retval = Beep(3000, 50)
retval = Beep(2000, 50)
retval = Beep(3000, 50)
retval = Beep(2000, 50)
retval = Beep(3000, 50)
Sleep (100)
retval = Beep(2000, 50)
retval = Beep(3000, 50)
retval = Beep(2000, 50)
retval = Beep(3000, 50)
retval = Beep(2000, 50)
retval = Beep(3000, 50)
Sleep (100)
retval = Beep(2000, 50)
retval = Beep(3000, 50)
retval = Beep(2000, 50)
retval = Beep(3000, 50)
retval = Beep(2000, 50)
retval = Beep(3000, 50)
End Sub



Scio me nihil scire

<<Jojo®>>

играть нада на динамике встроенном

Scio me nihil scire

<<Jojo®>>