Beep

[pi_plusplus]

با سلام. من می خوام توی برنامه VB وقتی خطایی رخ میده بوق زده بشه اما وقتی دستور Beep رو اجرا می کنم پیغام Invalid use of Property نشون میده. می خواستم بدونم بکار بردن این دستور پارامتر یا sintax خاصی داره؟ و باید برای انجام اینکار چکار کنم?

[__siavash__]

نه !
کاره خاصی نباید بکنی
همون Beep کافیه

مگر از این تابع API استفاده کرده باشی که باید پارامتر هاشو بهش بدی !!!

 

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

که در این تابع اولین پارامتر فرکانس صدایی که میخوای پخش بشه و دومی هم مدت زمانی که باید اون صدا پخش بشه هستند !

[noorsoft]

Beep را می تونی همانطور مه سیاوش گفته از Api استفاده کنی و هم از خود ویژوال بیسیک

فقط کافی بنویسی Beep

[majjjj]

البته شما هم میتونی پخش صدا رو هم از طریق بلندگوی داخلی کیس انجام بدی و هم از طریق بلند گویی خارج از کیس مثلا یک اسپیکر

[pi_plusplus]

سلام. از جواباتون ممنون اما همونطور که گفتم دستور Beep ساده موقع اجرا همچین پیغام خطایی میده. حالا اگه بخوام از API استفاده کنم میشه لطف کنید یه مثال عملی از پارامتراش برام بنویسید؟ من نمیدونم فرکانسو چه عددی بدم؟ ممنونم.

[M8SPY_OK]

تو تابع API رو بنویس / بعد توی رویداد یک Command بنویس Beep و یه فاصله بده ، خودش پارامتر ها رو ازت می خواد ---- 2 تا بیشتر نداره که !
- پارامتر اول مربوط میشه به بم یا زیری نت و یا همون آهنگی که قراره پخش بشه .
- پارامتر دوم هم میگه چقدر آهنگ رو برات پخش کنم . اگه 1000 وارد کنی ، 1 ثانیه ناله میکنه .


در ضمن تابعی رو که آقا سیاوش نوشتن رو باید توی Module بنویسی نه فرم برنامه !
اگه میخوای داخل فرم برنامه بنویسی باید به جای Public از Private استفاده کنی .


امیدوارم متوجه شده باشی

[pi_plusplus]

بله با توابع API کمابیش کار کردم، فقط تو فرکانسش مشکل داشتم که اونم حل شد. بالاخره تونستم ناله سیستممو در بیارم. از راهنمائیتون ممنون.

[majjjj]

البته میتونی یک کار جالب تر هم انجام بدی
واون هم اجرای یک فایل صوتی مثلا در هنگام ورود یک داده نا معتبر می باشد که جالب تره
اما احتیاج به بلند گو داره

[MMR_1344]

دوستان اگر بخوام یک فایل صوتی رو در هنگام لود شدن برنامه قراربدم چطوریه؟

[__siavash__]

دوستان اگر بخوام یک فایل صوتی رو در هنگام لود شدن برنامه قراربدم چطوریه؟

بین منظورت اینه ؟

[__siavash__]

اینم یه مثال برای Beep

 

Option Explicit

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

Private Sub Form_Load()

Dim i As Long

    For i = 1 To 6000 Step 10

        Beep i, 50

        DoEvents

    Next i

End Sub

[kasaei]

سلام دوست عزیز
من هم از کد شما استفاده کردم
ممنون از لطف شما