سلام چه جوری میشه یه برنامه ساخت که سر ساعت مشخص شروع به زنگ زدن کنه؟ البته در کار با تایمر مشکلی ندارم اما زنگ زدنشو بلد نیستم.
ممنون
سلام چه جوری میشه یه برنامه ساخت که سر ساعت مشخص شروع به زنگ زدن کنه؟ البته در کار با تایمر مشکلی ندارم اما زنگ زدنشو بلد نیستم.
ممنون
سلام
خب برا زنگ زدن یا باید از یک Api به اسم Beep ستفاده کنی
یا یه فایل صوتی رو که در یه جای هارد ذخیره شده پخش کنی
ممنون . میشه در مورد استفاده از api و beep یه توضیح کامل بدید؟
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As LongEnd Sub
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
خوب دوست عزیز اینو رو فرمت کپی کن ببین مشکلت حل میشه یا نه؟
سلام دوست عزیز دوست عزیز این زمان مشخص نمیکنه این فرکانس بیپ رو زیاد میکنه منظورشون این بود که تو زمان مشخص شده زنگ بزنه
مثلا ایشون بگن ساعت 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
استفاده کنین
موفق وپیروز باشید یا علی .
آخرین ویرایش به وسیله program2vb : سه شنبه 16 اسفند 1390 در 17:28 عصر
سلام دوست عزیز اولا که end sun نه end sub
دوما اینکه من اونو گذاشتم ولی اشتباها در قسمت سمت راست هست اگر دقت کنین
سومامنظور از این متن اینه که در مورد api بیپ حرف بزنیم لطفا شما تایپیکا رو درست بخونید بعد نظر بدینممنون . میشه در مورد استفاده از api و beep یه توضیح کامل بدید؟
آخه بنده خدا سوال اولش بی جواب مونده شما سوال دومشو جواب میدی
اگه نمیخوای از api استفاده کنی میتونی با یه تایمر هر ثانیه ساعت رو با زمانی که برای زنگ زدن مشخص کردی چک کن
اگه یکی بود هم یه آهنگ پخش کن
روش معقولی نیست ولی بجاش ساده هست