أمر تلقائي بعد مدة معينة

أكيد وعن طريق التاييمر بس ازاي!!!!!!!

الله أعلم

السلام عليكم

يمكن ذلك عبر إنشاء متغيرات تراقب و تتحكم في سير الامور.

متغير لمعرفة الوقت الحالي بالثواني , و متغير اخر يحفظ الوقت المراد تفجير الحدث عندما يتحقق.

وعن طريق العنصر Timer بحيث نجعله يعمل كل 1000 ملي ثانية وتعني ثانية واحدة . شاهد النصوص البرمجية لهذا المثال المتواضع

أو حمل الملف المرفق. هذا المثال تضع الوقت في خانة نصية Textbox القيمة بالثواني , مثلاً 5 يعني خمسة ثواني

ثم تضغط على الزر save data لحفظ الثواني ثم تضغط على الزر Switch on Checking ليقوم البرنامج بالاختبار كل خمسة ثواني ..

Imports System.Text.RegularExpressions

Public Class Form1

#Region " Declaring Variables "

	'Var to get time in second.
	Private GetTimeVal As Integer = 0

	'Var using Math.Floor to get Second from GetTimeVal Var.
	Private CountTime As Integer = 0

	'Array List to hold All Color Names.
	Private ArrLstColor As New ArrayList

	'Var that can not be changed at runtime
	'Validating number using Regular Expression Technique.
	Const NumberRX As String = "^[1-9]+$"

#End Region

#Region " Form load event "

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

		'Clear Settings Vars.
		ClearSettingVar()

		'Get color to show Effects on fire time..
		GetColor()

		'Get Settings Attributes.
		GetSettingAttributes()

	End Sub

#End Region

#Region " Timer Tick in 1000 ms "

	Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

		'Refresh Property grid.
		PropertyGrid1.Refresh()

		'Check if IsIdealTime is True.
		If My.Settings.IsIdealTime Then

			'Get time in Seconds.
			GetTimeVal = CInt(Date.Now.Millisecond / 1000)

			'If Millisecond not reaching one second.
			'Add that second manual
			If GetTimeVal = 0 Then
				GetTimeVal = 1
			End If

			'Calculate Current & new values.
			CountTime += CInt(GetTimeVal)

			'Display Current Value.
			lblCurrentTime.Text = CountTime.ToString

			' If 2 times equals..
			If CountTime = My.Settings.IdealTime Then

				'Display Current Fire..
				Me.lblResult.Text = "Fire Time on: " & Date.Now

				'Add New Value for next check on.
				My.Settings.IdealTime += CInt(txtGetIdealTime.Text)

				'Save Current Settings Values.
				My.Settings.Save()

				'Call Random Color Routine.
				RandomColor()

				'Play System Sound. (beep)
				My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Beep)
			End If
		End If

	End Sub

#End Region

#Region " Button Functionalities "

	Private Sub btnSaveTime_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSaveTime.Click

		'If there's no seconds given then exit.
		If Me.txtGetIdealTime.Text = "" Then
			MsgBox("text box required...")
			Return 'Exit.
		End If

		'If the value is related to positive number value.
		If ValidateNumber(txtGetIdealTime.Text) Then

			'Assign current second to settings (IdealTime) var
			My.Settings.IdealTime = CInt(txtGetIdealTime.Text)

			'Save Settings & Reload Data.
			SaveSettings()

			'Notify user that time was saved.
			Me.Text = "Time Save"

			'Otherwise display message that value is not a number.
		Else
			MsgBox("Enter positive numeric data (1-9) into textbox.")

		End If
	End Sub

	Private Sub btnSwitchOn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSwitchOn.Click
		'If Idealtime is greater or equal to 1 
		If My.Settings.IdealTime.ToString >= 1 Then
			My.Settings.IsIdealTime = True
			'Save Settings & Reload Data.
			SaveSettings()
		End If
	End Sub

	Private Sub btnSwitchOff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSwitchOff.Click
		'Switching off by clearing all vars & settings vars.
		ClearSettingVar()
	End Sub


#End Region

#Region " Function & subs "

	Private Sub GetColor()

		'Get All Color Names.
		For Each strKnownColor As String In System.Enum.GetNames _
		   (GetType(System.Drawing.KnownColor))
			ArrLstColor.Add(Color.FromName(strKnownColor))
		Next

		'Remove transparency color.. Avoiding error..
		ArrLstColor.RemoveAt(26)

	End Sub


	Private Sub RandomColor()
		Dim R As Integer = Int(Rnd() * ArrLstColor.Count - 1)
		Me.lblResult.ForeColor = ArrLstColor(R)
	End Sub

	Private Sub ClearSettingVar()
		'Clear Settings Vars.
		My.Settings.IsIdealTime = False
		My.Settings.IdealTime = 0
		GetTimeVal = 0
		CountTime = 0
		'Save Settings & Reload Data.
		SaveSettings()

	End Sub

	Private Sub GetSettingAttributes()
		PropertyGrid1.SelectedObject = My.Settings
		Dim userAttr As New System.Configuration.UserScopedSettingAttribute
		Dim attrs As New System.ComponentModel.AttributeCollection(userAttr)
		PropertyGrid1.BrowsableAttributes = attrs
	End Sub


	Private Sub SaveSettings()
		'Save Current Settings Values.
		My.Settings.Save()

		'Refresh Values in Settings.
		My.Settings.Reload()
	End Sub


	'The  Function Check if the Field contents Numbers No Letters No symbols
	'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
	Public Function ValidateNumber(ByVal TheNumber As String) As Boolean
		Try
			Dim rx As New Regex(NumberRX)
			Return rx.IsMatch(Trim(TheNumber))
		Catch ex As FormatException
			Throw ex
		Catch ex As Exception
			Throw ex
		End Try
	End Function


#End Region


End Class

بالتوفيق إن شاء الله.

FireEventOnCertainTime.rar

طيب أخي

لو كان عندي إستعلام مثلا

كيف بدي أخليه يتم تلقائيا كل دقيقة مثلا

السلام عليكم

اقتباس

لو كان عندي إستعلام مثلا

كيف بدي أخليه يتم تلقائيا كل دقيقة مثلا

هل انته متأكد من ذلك؟؟ لان الطريقة التي تستهويك (هي فكرة غير صائبة)

انما الاستعلام عن طريق المستخدمين طوعاً لا إلزاماً.

السلام عليكم.

adtd كتب:

طيب أخي

لو كان عندي إستعلام مثلا

كيف بدي أخليه يتم تلقائيا كل دقيقة مثلا

ب

اخي الكريم الطريقة سهلة مررة

خليك معاي

انا الان سوف اكتب كود يقوم كل 1 دقيقة باضهار رسالة اونت بعدين استخدمها كيف ما تريد

 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
		MsgBox("Try Your Best And Use google To search")
	End Sub

لا تنساء ان تفعل الخاصية حق الوقت من ححقها الخصائص اقصد

enabled = true

interval = 60000

interval = الوقت : كل متي تريد تضهر الرسالة

اذا كنت تريد كل دقيقة اضرب 1000 * 60 دقيقة = 60000

اذا كنت تريد كل 2 دقيقة اضرب 1000 * 120 دقيقة = 120000

هاكذاء ....

صورة للتوضيح

الف شكر لك وبارك الله فيك

الشكر موصول للأخ الشهاب الحارق أفادني بأشياء رائعة أيضا

السلام عليكم

جزاك الله ألف خير اخي ( روح الفجول بيسك) طريقتك جداً محكمة وسهله , بارك الله فيك .

فقط لدي ملاحظتان الاولى في الشرح وهو صحيح

اقتباس

اذا كنت تريد كل دقيقة اضرب 1000 * 60 دقيقة = 60000

اذا كنت تريد كل 2 دقيقة اضرب 1000 * 120 دقيقة = 120000

الـ 60 و 120 المقصود فيهم الثواني و الناتج هو الدقائق.

ملاحظة اخرى وهي انك تستبدل حرف الظا بحرف الضا كقولك ( باضهار ) و الصواب هو (بإظهار)

وشكرا لك على هذه المشاركة المثمرة و التي أفادتني كثيراً

السلام عليكم.

على الرحب والسعة اخي العزيز والمحترم الشهاب الحارق

اما بل النسبة لـــ ظ هاهاها :lol: انا اشوي تعبان بل اللغة العربية اصلاً انا عايش في الخارج

المهم انا سوف احاول اطور اللغة العربية معاي

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