انجام کار با استفاده از ساعت سیستم

[NASA's Spaceman]

سلام
اینی که من براتون مثال میزنم رفتن از یک فرم به فرم دیگست که شما با استفاده از این کد هر کاری میتونین بکنین
عدد درون لیبل همون ساعت مورد نظر سیستم شما هست
Label1.Caption = Time$
If Label1.Caption = "02:30:00" Then
Form1.Visible = False
Form2.Visible = True
End If

دوستان این کدی که اینجا نوشتم اگر کسی همینو به زبان C#‎‎‎‎ خواست من تو تالار C#‎‎‎‎ نوشتمش
در ضمن با این کد میشه گفت که بعد از یه تاریخ مشخصی هر دکمه ای روی فرم هست غیر فعال بشن بی نهایت کاربرد فراوانی داره که من خودم تو یکی از بازی هایی که ساختم از این کد استفاده کردم

[javady_joon]

آقا من دو تا مشکل دارم یکی اینکه تایم ثابته حرکت نمیکنه
دومی اینکه وقتی میگم اگر تایم مساوی مثلا 00:46:00 یک msgbox رو نمایش بده که اینکار و نمیکنه
اینک کدم

lbl1.Caption = Time$
If lbl1.Caption = "00:46:00" Then
MsgBox (" OK")
End If

[vbhamed]

سلام
خب شما بايد اين كد رو متد Timer يك كنترل تايمر قرار بدين تا هر دو مشكلتون حل بشه

[javady_joon]

راستش چند بار متن شما رو خوندم ولی منظورتون رو متوجه نمیشم

[javady_joon]

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

Private Sub Form_Load()
Timer.Interval = 1
End Sub


Private Sub Timer_Timer()
Label.Caption = Format(Now, "Hh:Nn:Ss")
If Label.Caption = "17:54:00" Then
MsgBox (" OK ")
End If
End Sub

[vbhamed]

سلام
البته Interval رو حداقل روي 500 بزاريد چون اينطوري برنامتون خيلي به تايمر مراجعه مي‌كنه (از لحاظ تئوري هر ثانيه هزار بار) و اين روي برنامتون تاثير بسيار بدي ميزاره
واحد Interval ميلي ثانيه يعني يك هزارم ثانيه است