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

**khakzad** · 2013/09/29, 18:42

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

**m_d6712** · 2013/09/29, 23:37

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

صدای کیس منظورتون 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** · 2014/02/06, 20:52

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

**حسام بحرانی** · 2014/02/06, 21:19

نوشته اصلی توسط Haji hadi

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

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

**حسام بحرانی** · 2014/02/07, 04:08

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

نوشته اصلی توسط امين اسماعيلي

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

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

کامنت

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