PDA

View Full Version : سوال: ایجاد محدودیت زمانی



mehrdad_xn
سه شنبه 06 اسفند 1387, 13:56 عصر
سلام بر همه ی استادان
ببخشید یه سوال داشتم که چجوری میشه واسه برنامه محدودیت زمانی ایجاد کرد یعنی مثلا فقط از ساعت5 تا 10 کار کنه و به جز این تاریخ کار نکنه ممنوم میشم اگه سورسشو قرار بدین
مخلص همه برنامه نویس ها :قلب:

M_P_1374
سه شنبه 06 اسفند 1387, 16:21 عصر
میتونی از دستور Time استفاده کنی که خیلی هم بدرد بخوره
فقط کافیه اینو بذاری البته نمیدونم کار کنه یا نه

for T = 5 to 10
next
if time = t then
load me
else
unload me

xxxxx_xxxxx
سه شنبه 06 اسفند 1387, 17:58 عصر
سلام بر همه ی استادان
ببخشید یه سوال داشتم که چجوری میشه واسه برنامه محدودیت زمانی ایجاد کرد یعنی مثلا فقط از ساعت5 تا 10 کار کنه و به جز این تاریخ کار نکنه ممنوم میشم اگه سورسشو قرار بدین
مخلص همه برنامه نویس ها :قلب:



Private Sub Form_Load()
t = Hour(Time)
If (t >= 5 And t <= 10) = False Then End
End Sub

در ضمن اگر كاربر بخواد در ساعات غيرمجاز با برنامه كار كنه مي تونه ساعت سيستمش رو تغيير بده (بين 5 و 10)
موفق باشيد