انواع صدا

[milad.msm]

باسلام به همه دوستان حرفه ای
به غیر از beep دستور دیگه ای هم هست که با با اسپیکر داخل کیس سرو کار داشته باشه:ناراحت:

[ASedJavad]

سلام

یه Api به اسم Beep داریم که دو تا ارگومان ورودی داره
اولی فرکانسه و دومی زمان اون
مثال رو نگاه کنید:
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Form_Activate()
'KPD-Team 1999
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

[milad.msm]

خیلی ممنون از جوابتون ....خیلی به دردم خورد
در ضمن منم با شما موافقم