ehsan_ansaripoor
پنج شنبه 05 آبان 1384, 05:16 صبح
همان طور که دوستان قدیمی کار می دونند در برنامه های تحت داس یه تابعی داشتیم که صدایی از داخل Speaker کیس در می آورد بنده خیلی کنجکاو بودم این کار را روی برنامه های تحت ویندوز انجام بدم ولی با تابع Beep روی ویندوز Me , 98 فقط صدا از داخل بلندگوها در می اومد ولی پس از کش و قوس های زیاد فهمیدم داخل ویندوز Xp این تابع درست عمل می کنه و صدا از داخل کیس در میاد استفاده از این برای بنده خیلی جالب بود امیدوارم برای شما هم جالب باشه
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Beep 500, 100
End Sub
دراین مثال 500 طول فرکانس و 100 مدت زمان انجام فرکانس
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Beep 500, 100
End Sub
دراین مثال 500 طول فرکانس و 100 مدت زمان انجام فرکانس