ست کردن تایمر بیشتر از 1 دقیقه

[niksalehi]

فکر میکنم سوالم واضحه!
من میخوام تایمر روی 1 ساعت ست بشه و بعد از یک ساعت متن یک تکستباکس عوض بشه!

[MohammadGh2011]

سلام عليکم
تاپيک زير رو به دقت بررسي فرماييد:
http://barnamenevis.org/showthread.php?294416-%D8%B2%D9%85%D8%A7%D9%86-%DA%AF%D8%B0%D8%A7%D8%B1%D9%8A-%D8%A8%D8%B1%D8%A7%D9%8A-%D8%B4%D8%A6-%D9%87%D8%A7%D9%8A-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87

[MohammadGh2011]

کد زير هم بعد از 200 ثانيه متن ليبل 1 رو تغيير ميده که شما ميتونيد اون رو به صورت يک ساعت (به ثانيه) تنظيم کنيد.
يک ليبل و يک تايمر با اينتروال 1000 روي فرمت اضافه کن بعد هم کد زير:
Dim a As Integer
Dim tmr%
Private Sub Timer1_Timer()
If Label1 > "" Then
Timer1.Interval = 1000
tmr% = tmr% + 1
If tmr% >= 200 Then
tmr% = 0
Label1.Caption = "M.gh" 'Label1
Timer1.Enabled = True
Timer1.Enabled = False

End If
Else
Timer1.Enabled = False
End If
End Sub


موفق باشيد

[shahabbasic]

سلام

Dim s As Byte

Private Sub Command1_Click()
Timer1.Interval = 10000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
s = s + 1
If s = 60 Then MsgBox "salam"
End Sub

[SlowCode]

آقا شهاب اینیکه شما نوشتید میشه 10 ساعت، یکی از صفرهای انترول تایمر اضافه است.

[setroyd]

با سیستم ست کنید این کارا چیه با سیستم دقیق تره چون interval تقریبیه برای 1 سانیه که میشه 1000 .

[سید حمید حق پرست]

سلام دوستان
یه کم فکر میخواد خیلی ساده با دو خط کد و یه تایمر و یه لیبیل اینکار امکانپذیره . این همه کد نمیخواد
اینم سورس : (بعد از یک ساعت تو تکست باکس مینویسه salam . که بسته به نیازتون میتونید از یک ثانیه تا 10 ساعت تنظیم کنید
ببخشید تو سایت نتونستم آپلود کنم

تایمر (http://hamidup.persiangig.com/TV/timer.rar)

موفق باشید


یا علی (ع)

[سید حمید حق پرست]

آقا شهاب اینیکه شما نوشتید میشه 10 ساعت، یکی از صفرهای انترول تایمر اضافه است.

دوست عزیز اینی که اقا شهاب گذاشتن میشه 10 دقیقه نه 10 ساعت

موفق باشید


یا علی (ع)