تایمر !؟

[HarchiMarchi]

سلام . من چطوری میتونم کاری کنم که مثلا زمانی که تایم ساعت کامپیوترم روی مثلا 10:30 دقیقه اومد رنگ پس زمینه فرومم تغییر کنه ؟

کدش رو کسی میتونه بنویسه ؟

[M.T.P]

اگه می خواین هر نیم ساعت یکبار باشه...

Dim blnSetColor As Boolean

Sub SetColor()

If Minute(Time$) = 0 Or Minute(Time$) = 30 And Not blnSetColor Then
'Do...
blnSetColor = True
Else
blnSetColor = False
End If

End Sub

و اگه فقط 10:30 مد نظرتون هست...


Dim blnSetColor As Boolean

Sub SetColor()

If Format$(Now, "HH:MM") = "10:30" And Not blnSetColor Then
'Do...
blnSetColor = True
Else
blnSetColor = False
End If

End Sub

[HarchiMarchi]

ممنون ولی اینطوری منظورم نیست . من میخوام مثلا یه کادری باشه مثل Text باکس و وقتی هر ساعتی رو توش وارد میکنم . وقتی ساعت ویندوز به اون زمان رسید رنگ فرم تغییر کنه ...

[M.T.P]

خب شما میتونین شرط رو بر اساس Textbox بزارید:



If Format$(Now, "HH:MM") = Text1.Text And Not blnSetColor Then

ساعت رو با فرمت 24 ساعته وارد تکس باکس کنید.

[aleas2]

دوتا تکست داخل فرمت بزار با یه تایمر Interval بزار رو 1000 این کد داخل تایمر بنویس

Text2 = Format$(Now, "HH:MM:ss")
If Text1 = Text2 Then
Form1.BackColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))
end if

و ساعتی که میخواهی رنگ فرم عوض بشه داخل text1وارد کن

M.T.P (http://barnamenevis.org/member.php?132020-M.T.P) جان شرمنده متوجه نشدم شما الان دوباره جواب دادین