PDA

View Full Version : چه طور باید مشکل این تایمر بر طرف کرد؟



goldpower
جمعه 19 اسفند 1390, 19:50 عصر
یه زمان دلخوه بهش داده می شه و با زدن دکمه start شروع به شمارش معکوس از مقدار داده شده می کنه.
الان مشکلش اینه که قاطی می کنه و چه طور می شه بعد از تموم شدن زمان یه صدا رو پخش کنه.

shahabbasic
جمعه 19 اسفند 1390, 20:32 عصر
اینقدر کد زیاد لازم نیست که بیا واست با کد کمتر درستش کردم
تکست 3 برای صدم ثانیه تکست 2 برای ثانیه تکست 1 برای دقیقه
دانلود (http://uploadkon.ir/uploads/a0f287d28a417222dc11ca51e9fc2fd1.zip)

goldpower
جمعه 19 اسفند 1390, 21:34 عصر
اینقدر کد زیاد لازم نیست که بیا واست با کد کمتر درستش کردم
تکست 3 برای صدم ثانیه تکست 2 برای ثانیه تکست 1 برای دقیقه
دانلود (http://uploadkon.ir/uploads/a0f287d28a417222dc11ca51e9fc2fd1.zip)


و چه طور می شه بعد از تموم شدن زمان یه صدا رو پخش کنه?
دکمه ریستش کار نمی کنه!!

SlowCode
جمعه 19 اسفند 1390, 21:50 عصر
دستور زیر صدای بیپ رو پخش میکنه.
Beep

SlowCode
جمعه 19 اسفند 1390, 21:52 عصر
اینقدر کد زیاد لازم نیست که بیا واست با کد کمتر درستش کردم
تکست 3 برای صدم ثانیه تکست 2 برای ثانیه تکست 1 برای دقیقه
دانلود (http://uploadkon.ir/uploads/a0f287d28a417222dc11ca51e9fc2fd1.zip)

برنامه درست نیست، دوباره امتحان کنید.

سید حمید حق پرست
جمعه 19 اسفند 1390, 21:58 عصر
برنامه درست نیست، دوباره امتحان کنید.
درست بود دوست عزیز من امتحان کردم مشکلی نداشت

موفق باشید


یا علی (ع)

goldpower
جمعه 19 اسفند 1390, 22:03 عصر
دستور زیر صدای بیپ رو پخش میکنه.
Beep


این کد رو باید کجا ازش استفاده کنم؟؟؟؟

SlowCode
جمعه 19 اسفند 1390, 22:06 عصر
ببینید من تو تکست باس 3 عدد 10 رو وارد کردم، وقتی Start رو زدم تکست باکس 1 شد -1 و تکست باکس 2 شد 59، بعد شروع کرد به کم کردن دقیقه. خوب این -1 و 58 اشتباهه دیگه. شاید من اشتباه کردم.

shahabbasic
جمعه 19 اسفند 1390, 22:19 عصر
ببینید من تو تکست باس 3 عدد 10 رو وارد کردم، وقتی Start رو زدم تکست باکس 1 شد -1 و تکست باکس 2 شد 59، بعد شروع کرد به کم کردن دقیقه. خوب این -1 و 58 اشتباهه دیگه. شاید من اشتباه کردم.
نه من فقط حالتی رو در نظر گرفتم که هر 3 تا تکس باکس عدد داشته باشه

سید حمید حق پرست
جمعه 19 اسفند 1390, 22:24 عصر
خب معلومه اینطوری میشه چون تکست باکس 3 صدم ثانیه هست

MohammadGh2011
جمعه 19 اسفند 1390, 22:27 عصر
سلام عليکم
دستور Beep شايد تو بعضي سيستم ها جواب نده در اين صورت از API زير استفاده کنيد
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
موفق باشيد

goldpower
جمعه 19 اسفند 1390, 22:28 عصر
اگه به خای براش الارم بزاری چی ؟( باید موقعی که تایمر صفر شد صدا بده )

سید حمید حق پرست
جمعه 19 اسفند 1390, 23:51 عصر
سلام . بفرما دوست عزیز

موفق باشی


یا علی (ع)

goldpower
شنبه 20 اسفند 1390, 00:09 صبح
سلام . بفرما دوست عزیز

موفق باشی


یا علی (ع)

خیلی ممنون لطف کردی

اگه به خوای به جای beep یه فایل صوتی رو پخش کنه چی؟

setroyd
شنبه 20 اسفند 1390, 00:15 صبح
Private Const SND_ALIAS = &H10000
Private Const SND_ALIAS_ID = &H110000
Private Const SND_ASYNC = &H1
Private Const SND_FILENAME = &H20000
Private Const SND_LOOP = &H8
Private Const SND_NODEFAULT = &H2
Private Const SND_NOSTOP = &H10
Private Const SND_NOWAIT = &H2000
Private Const SND_PURGE = &H40
Private Const SND_SYNC = &H0

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal Reserved As Long, ByVal dwFlags As Long) As Long

Private Sub Form_Load()
PlaySound "C:\WINDOWS\MEDIA\TADA.WAV", ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub

برای پخش فایل صوتی .

SlowCode
شنبه 20 اسفند 1390, 00:15 صبح
یا باید از کنترل ویندوز مدیا پلیر استفاده کنی و یا از توابع API.

سید حمید حق پرست
شنبه 20 اسفند 1390, 00:19 صبح
میتونی یه فایل wav در ریسورس سورست قرار بدی که این روش بهتره و با exe ادغام میشه

اینم نمونه سورس
اگه فایل صوتی دیگه مد نظرتون بود آن را جایگزین اونی که من در ریسورس قرار دادم کنید فقط یادتون نره که باید فرمت wav باشد

موفق باشی


یا علی (ع)

goldpower
شنبه 20 اسفند 1390, 07:02 صبح
میتونی یه فایل wav در ریسورس سورست قرار بدی که این روش بهتره و با exe ادغام میشه

اینم نمونه سورس
اگه فایل صوتی دیگه مد نظرتون بود آن را جایگزین اونی که من در ریسورس قرار دادم کنید فقط یادتون نره که باید فرمت wav باشد

موفق باشی


یا علی (ع)

فایل صوتی در ریسورس وجود نداره که جایگزین کنم؟

setroyd
شنبه 20 اسفند 1390, 11:57 صبح
شما باید در قسمت Custom تغییر بدین .

سید حمید حق پرست
شنبه 20 اسفند 1390, 15:30 عصر
دوست عزیز با فیلم اموزشی که براتون ساختم اینکارو انجام بدید

دانلود (http://www.faupload.com/upload/90.1/Esfand/Resurce.rar)

موفق باشی

یا علی (ع)