ورود

View Full Version : سوال: فرستادن آرگومان به تايمر


yasevahshi!=true
پنج شنبه 01 اردیبهشت 1390, 13:19 عصر
سلام دوستان. يه سوال چه طور ميتونم به يك تايمر آرگومان بفرستم.!!!:متفکر:
returnx
پنج شنبه 01 اردیبهشت 1390, 14:40 عصر
سوالتون خیلی گنگ یکم بیشتر توضیح بدید...
yasevahshi!=true
پنج شنبه 01 اردیبهشت 1390, 16:58 عصر
مثلا اينكه ميخوام از داخل يه تابع ، تايمر رو يه جورايي فراخوني كنم همراه با اين كه يه مقداري رو بهش از درون تابع ديگه اي بفرستم. امكانش هست؟؟:متفکر::متفکر::متفکر:
returnx
پنج شنبه 01 اردیبهشت 1390, 19:03 عصر
مثلا اينكه ميخوام از داخل يه تابع ، تايمر رو يه جورايي فراخوني كنم
تا اینجا بله میشه...

همراه با اين كه يه مقداري رو بهش از درون تابع ديگه اي بفرستم.
خوب تایمر یک رویداد بیشتر نداره که رویداد Timer هست که خوب هیچ پارامتری نداره اما اگه منظورتون این که می خواید Interval تایمر رو تغییر بدید بله میشه...
yasevahshi!=true
پنج شنبه 01 اردیبهشت 1390, 19:21 عصر
نه ميخوام ببينم كد زير ميتونه درست باشه
value=timer1(a as integer)
مثل تابع ميخوام تايمر رو با فرستادن مقدار فراخوني كنم
محسن واژدی
پنج شنبه 01 اردیبهشت 1390, 21:20 عصر
نه ميخوام ببينم كد زير ميتونه درست باشه
value=timer1(a as integer)
مثل تابع ميخوام تايمر رو با فرستادن مقدار فراخوني كنم

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

موفق باشید
yasevahshi!=true
جمعه 02 اردیبهشت 1390, 18:50 عصر
خوب يه كم كه فكر ميكنم ميبينم ميشه با ايجاد تاخير در اجرا مي تونم به جاي تايمر از تاخير در اجرا استفاده كنم .
كسي مي تونه راجع به اين موضوع بهم كمك كنه. ميخوام حين اجراي برنامه تاخير ايجاد بشه.
مثلا اين كه يه عددي چاپ بشه و بعد از دو ثانيه يه عدد ديگه اي چاپ بشه.
لطفا كمك كنيد.
returnx
جمعه 02 اردیبهشت 1390, 20:45 عصر
از تابع Sleep استفاده کن البته این یک تابع API هست...
yasevahshi!=true
جمعه 02 اردیبهشت 1390, 22:52 عصر
ميشه بگيد چطور ميشه ازش استفاده كرد و يا راه ديگه اي براي ايجاد تاخير هست يا نه؟؟
returnx
جمعه 02 اردیبهشت 1390, 23:21 عصر
با یک جستجو ساده میتونستید بدست بیارید:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim counter As Integer
Private Sub Command1_Click()
While counter < 10
counter = counter + 1
Print "X"
Sleep (1000)
Wend
End Sub

اینم روش دیگه ساخت timer در برنامه :(البته با اجازه از جناب xxxxx_xxxxx (http://barnamenevis.org/member.php?46030-xxxxx_xxxxx))
http://barnamenevis.org/showthread.php?142791
به پست جناب xxxxx_xxxxx (http://barnamenevis.org/member.php?46030-xxxxx_xxxxx) دقت کنید...(پست 15)
محسن واژدی
شنبه 03 اردیبهشت 1390, 18:41 عصر
خوب يه كم كه فكر ميكنم ميبينم ميشه با ايجاد تاخير در اجرا مي تونم به جاي تايمر از تاخير در اجرا استفاده كنم .
كسي مي تونه راجع به اين موضوع بهم كمك كنه. ميخوام حين اجراي برنامه تاخير ايجاد بشه.
مثلا اين كه يه عددي چاپ بشه و بعد از دو ثانيه يه عدد ديگه اي چاپ بشه.
لطفا كمك كنيد.

اگر منظور تون این است که میخواهید فقط پس از 2 ثانیه دیگر مقدار جدیدی چاپ شود فقط کافیست INterval تایمر را بر روی 2000ms تنظیم کنید اما اگر میخواهید در این فاصله 2s محیط برنامه عملا" ایست شود از APIی Sleep استفاده کنید

موفق باشید
www.pc3enter.tk
شنبه 03 اردیبهشت 1390, 22:20 عصر
5.با این تابع می توان کار یک تایمر را انجام داد
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

دستور کار با api

Sleep 5000
محسن واژدی
شنبه 03 اردیبهشت 1390, 22:43 عصر
5.با این تابع می توان کار یک تایمر را انجام داد
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

دستور کار با api

Sleep 5000

سلام
API ی Sleep یک وقفه زمانی در میان برنامه ایجاد میکند، برای ایجاد تایمر از APIی SetTimer استفاده کنید

موفق باشید