برنامج يعمل نهارا و لا يعمل ليلا

عتكتب الكود فى تحميل الفورم

مع استخدام قاعدة

private Sub Form_load()

txttime.text = time

IF

txttime.text > من الوقت اللى انت عايزه then

Unload me

End if

End sub

بس الكود ده على اساس لو فى حد حاول يفتحه فى وقت غير اوقات العمل

بس لو كان مشغله من قبل ميعاد القفل بتاع البرنامج عيفضل شغال معاه

يااما لو عايز البرنامج يفقل لما الوقت بتاعه ينتهى ممكن تعمله مع Mouse Move

السلام عليكم ورحمة الله وبركاته

يمكنك فعل هذ عن طريق مقارنة بين الوقت الذي تحدده والوقت الحالي للحاسب .

مثلا اذا كانت تريد انه لايقوم بفتح الجهاز الا بعد الساعة السادسه مساءا اي 13:00 وكانت الساعة الان 08:00PM اي >> 20:00 سيتم اغلاق البرنامج :

والمود التالي يوضح المقصود :

 
Private Sub frmYourForm_load()
	Dim datTime As Date
	datTime = CDate(Time)

	If datTime > CDate("13:00:00") Then
		End
	End If
End Sub

واذا كنت تريد التقايد بفتح البرنامج في وقت معين اي مثلا من الساعة الـ 09:00 صباحا وحتى الـ 06:00 مساءا

يمكنك تغير شرط المقارنه بـ هذه الطريقه :

	Dim datTime As Date
	datTime = CDate(Time)

	If datTime < CDate("09:00:00") Or datTime > CDate("13:00:00") Then
		MsgBox "لن تستطيع تشغيل البرنامج في هذا الوقت يرجى تشغي البرنامج في المواعيد الرسميه وهي من الساعه التاسعه صباحا وحتى السادسه مساءا", vbCritical + vbMsgBoxRight, ""
		End
	End If

بالتوفيق ...........

A7med_prof

الاخوة bRyYn و A7med-prof لكم كل الشكر و الإمتنان على المساعدة

عجبني هذا العنوان ولما دخلت وجدت احمد بروف قام بالواجب كعادته

وعجبتني فكرة كوده اوي