استفاده از توابع تولید صدا

[مجتبی سلطان]

لطفا اگه کسی میدونه که توابع تولید صدا از اسپیکر کیس در vbکدوما هستند منو در این مورد راهنمایی کنه. بعنوان مثال تابع Beep.
مرسی[/b]

[mohsengrisly]

برای بیپ فقط بنویس beep همین که البته می تونی با تعریف بیشتر صداهای دیگری هم تولید کنی که خیلی راحته :موفق:

[Hamedm]

سلام

میتونی از تابع API زیر استفاده کنی:

Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

dwFreq: فرکانس صدا است.
dwDuration: مدت زمان پخش صدا میباشد بر حسب میلی ثانیه (این متغیر در ویندوز 95,98,Me تاثیری ندارد).

موفق باشید و پرتوان

[مجتبی سلطان]

ممنوع از راهنمایی تون.
من می خواستم بدونم بجز تولید صدای بیپ چه صداهای دیگه ایرو می شه تولید کرد و چگونه.
موفق باشید

[mohsengrisly]

با سلام ببخشید گویا من بد متوجه شدم :embr:
اگر منظورتون رو فهمیده بودم حتما راهنمایی می گردم

[بابک زواری]

با کمک API گفته شده شما میتونید صداهای مختلف رو ایجاد کنید

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Form_Activate()

      Dim Cnt As Long

    For Cnt = 0 To 5000 Step 10

        'play a tone of 'Cnt' hertz, for 50 milliseconds

        Beep Cnt, 50

        Me.Caption = Cnt

        DoEvents

    Next Cnt

End Sub

[a_roshanfekr2]

سلام به همگی

تابع API گفته شده توی XPدرست کار می کنه اما توی Win2000 صدا رو به خروجی کارت صدا می فرسته

کسی می دونه اشکال کار کجاست؟

[armin_izer]

سلام
برای تولید صدا با Speak Case فقط تابع Beep رو داریم ولی اگه میخایی فایل صوتی پخش کنی از تابع زیر استفاده کن:
Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

[Hamedm]

سلام
این هم آهنگ فیلم LoveStory با این تابع :wink: :

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Command1_Click()

     Beep 263, 500

     Beep 165, 500

     Beep 165, 500

     Beep 263, 500

     Beep 263, 2000

     Beep 165, 500

     Beep 165, 500

     Beep 263, 500

     Beep 263, 500

     Beep 165, 500

     Beep 174, 500

     Beep 165, 500

     Beep 147, 500

     Beep 147, 500

     Beep 147, 500

     Beep 247, 500

     Beep 247, 2000

     Beep 147, 500

     Beep 147, 500

     Beep 247, 500

     Beep 247, 500

     Beep 147, 500

     Beep 165, 500

     Beep 147, 500

     Beep 130, 500

     Beep 130, 500

     Beep 130, 500

     Beep 218, 500

     Beep 218, 2000

     Beep 130, 500

     Beep 130, 500

     Beep 218, 500

     Beep 218, 500

     Beep 130, 500

     Beep 147, 500

     Beep 130, 500

     Beep 123, 500

     Beep 123, 500

     Beep 207, 500

     Beep 207, 2000

     Beep 195, 1000

     Beep 218, 1000

     Beep 247, 1000

     Beep 174, 1000

     Beep 165, 2500

End Sub

موفق باشید و پرتوان

[a_roshanfekr2]

کسی ویندوز 2000 نداشت تابع API Beep رو تست کنه؟

[R_BABAZADEH]

این هم آهنگ فیلم LoveStory با این تابع

دستگام هنگ می کنه :(

[مجتبی سلطان]

مرسی
واقعا کمک بزرگی کردید
موفق و پیروز باشید.