صدای بلندگو کیس

[Haji hadi]

با سلام
به چه روشی می توان صدای بلندگوی کیس را درآورد؟

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[khakzad]

سلام
یعنی چی؟
دربیارید؟

[m_d6712]

خیلی وقتا یک سری چیزها خیلی ساده تر از اون چیزی هست که انتظار داریم. مثل این فرمان.

صدای کیس منظورتون beep هستش دیگه!؟!!!! چون کیس صدای دیگه ای نداره دیگه بر اساس اطلاعات من!

برای تولید یک صدای ساده ی beep میشه از خود beep استفاده کرد به این صورت:

Sub Simple_beep()    
Beep
    MsgBox "A simple Beep"
End Sub

برای ایجاد beep های با فرکانس مختلف و مدت زمان مختلف به شکل زیر استفاده کنید:

برای فرکانس 500 و زمان 2 ثانیه

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Sub Produce_beep()
 
    a = Beep(500, 2000)
    MsgBox "An error has occured!"
 
End Sub

نکته: فرکانس های خودتون رو با دقت انتخاب کنید. اگر فرکانس خیلی خوبی با زمان طولانی انتخاب کردید، شاید نتیجه خیلی خوشآیند نباشد. :دی

موفق و پیروز باشید.

[Haji hadi]

در ویندوز 7 این کد کار نمی کنه
از چه کدی میشه استفاده کرد؟

[حسام بحرانی]

در ویندوز 7 این کد کار نمی کنه
از چه کدی میشه استفاده کرد؟

با سلام ، شاید و البته فقط شاید بخاطر سیستم 64بیتی ویندوز7 شما باشد که اگر خطایی که هنگام اجرای فرمان میده رو ببینیم ، بهتر میشه راهنمایی کرد .
با سپاس
ɦɛʂɑɱ ɓɑɦɾɑɳɨ

[امين اسماعيلي]

با درود
رو سیستم 32 بیتی 7 مشکلی نداره.

[حسام بحرانی]

با درود
رو سیستم 32 بیتی 7 مشکلی نداره.

سلام ، با این حساب میشه حدس زد ، احتمالاً شاید از سیستم 64 بیتی ویندوز7 باشه . ضمن اینکه لازم هست عنوان کنیم ، عکسی از ارور احتمالی خطا هم داده بشه تا بهتر بشه بررسی کرد .
با سپاس
ɦɛʂɑɱ ɓɑɦɾɑɳɨ