سلام چه جوری میشه یه برنامه ساخت که سر ساعت مشخص شروع به زنگ زدن کنه؟

[rezarko]

سلام چه جوری میشه یه برنامه ساخت که سر ساعت مشخص شروع به زنگ زدن کنه؟ البته در کار با تایمر مشکلی ندارم اما زنگ زدنشو بلد نیستم.
ممنون

[ASedJavad]

سلام
خب برا زنگ زدن یا باید از یک Api به اسم Beep ستفاده کنی
یا یه فایل صوتی رو که در یه جای هارد ذخیره شده پخش کنی

[rezarko]

ممنون . میشه در مورد استفاده از api و beep یه توضیح کامل بدید؟

[h_a_m_i_d]

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Form_Activate()
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
خوب دوست عزیز اینو رو فرمت کپی کن ببین مشکلت حل میشه یا نه؟

[program2vb]

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

مثلا ایشون بگن ساعت 2 بعد از ظهر زنگ بزنه

در ضمن کد بارو کپی کنی خطا میده چون آخرش End Sub یادت رفته

برای اینکار باید زمان رو داخل تایمر بررسی کنی و هر وقت مقدارشون برار شد زنگ بزنه .

شما هم اگه بخوای سیستم بیپ کنه از API
private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

و یا برای پخش آهنگ با فرمت Wav از API

private Declare Function PlaySound Lib "WINMM.DLL" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

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



PlaySound App.Path & "\Sound\Hello.wav", &O0, 1

استفاده کنین


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

[h_a_m_i_d]

سلام دوست عزیز اولا که end sun نه end sub
دوما اینکه من اونو گذاشتم ولی اشتباها در قسمت سمت راست هست اگر دقت کنین
سوما
ممنون . میشه در مورد استفاده از api و beep یه توضیح کامل بدید؟ منظور از این متن اینه که در مورد api بیپ حرف بزنیم لطفا شما تایپیکا رو درست بخونید بعد نظر بدین

[program2vb]

آخه بنده خدا سوال اولش بی جواب مونده شما سوال دومشو جواب میدی

[MiladMR]

اگه نمیخوای از api استفاده کنی میتونی با یه تایمر هر ثانیه ساعت رو با زمانی که برای زنگ زدن مشخص کردی چک کن
اگه یکی بود هم یه آهنگ پخش کن

روش معقولی نیست ولی بجاش ساده هست