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

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

لطفا اگه کسی میدونه که توابع تولید صدا از اسپیکر کیس در 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 با این تابع

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

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

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