انجام چند بار یک کار با تیک خوردن چک باکس

[mahfelsoft 130]

دوستان من چند تا چک باکس دارم که توی رویداد checkchnge گفتم اگه تیک خورد دو تا عدد رو جمع کنه و اگه تیک برداشته شد دو تا عدد رو کم کنه از هم.

 

حالا میخوام وقتی آخرین چک باکس تیک خورد همه چک باکس ها تیکشون برداشته بشه و یه دور دیگه همه کارها انجام بشه .. و همینطور الی آخر ..

 

 

 

حالا من وقتی با تیک خوردن آخرین چک باکس دستور میدم که تیک همه برداشته بشه یک مرتبه تمام حساب کتابایی که توی checkchange داده بودم برای جمع و تفریق برمی گرده از اول و اعداد صفر میشه.

راهنمایی کنید چیکار باید بکنم ؟

[sbr 233]

در 37 دقیقه قبل، mahfelsoft گفته است :

دوستان من چند تا چک باکس دارم که توی رویداد checkchnge گفتم اگه تیک خورد دو تا عدد رو جمع کنه و اگه تیک برداشته شد دو تا عدد رو کم کنه از هم.

 

حالا میخوام وقتی آخرین چک باکس تیک خورد همه چک باکس ها تیکشون برداشته بشه و یه دور دیگه همه کارها انجام بشه .. و همینطور الی آخر ..

 

 

 

حالا من وقتی با تیک خوردن آخرین چک باکس دستور میدم که تیک همه برداشته بشه یک مرتبه تمام حساب کتابایی که توی checkchange داده بودم برای جمع و تفریق برمی گرده از اول و اعداد صفر میشه.

راهنمایی کنید چیکار باید بکنم ؟

سلام 

خب معلومه همه چیز برمیگرده به حالت اول و انگار هیچ کاری نکردی 

عین اینه که یه سری لامپ رو روشن کنی و اخر بیای فیوز رو قطع کنی 

شما بیا یکاری بکن  

توی چک باکس اخر یه متغیر عددی بزار و اول مقدارش رو بزار روی 1 و بعد بیا و یکی یکی تیک همه چک باکس ها رو بردار 

بعد اخرش بیا مقدار اون متغیر رو برابر صفر قرار بده

حالا توی تک تک چک باکس هات شرط بزار که وقتی تیکشون برداشته شد اول چک کنن ببینن اون متغیر عددی موجود توی چک باکس اخری اگه برابر 1 بود هیچ کاری نکنن و در غیر این صورت کاری میخوای انجام بدن 

Sub ch1_CheckedChange(Checked As Boolean)
	
	If number = 0 Then
		'اینجا محاسبه ای که میخوای انجام بده
	Else 
		'اینجا رو خالی بزار تا هیچ کاری نکنه و محاسباتت  از بین نره 
	End If
	
End Sub

Sub ch2_CheckedChange(Checked As Boolean)
	
End Sub

Sub ch3_CheckedChange(Checked As Boolean)
	
End Sub

Sub ch4_CheckedChange(Checked As Boolean)
	
End Sub

Sub ch5_CheckedChange(Checked As Boolean)
	number = 1
	ch1.Checked = False
	ch2.Checked = False
	ch3.Checked = False
	ch4.Checked = False
	number = 0
	
End Sub

 

[mahfelsoft 130]

در 1 دقیقه قبل، sbr گفته است :

سلام 

خب معلومه همه چیز برمیگرده به حالت اول و انگار هیچ کاری نکردی 

عین اینه که یه سری لامپ رو روشن کنی و اخر بیای فیوز رو قطع کنی 

شما بیا یکاری بکن  

توی چک باکس اخر یه متغیر عددی بزار و اول مقدارش رو بزار روی 1 و بعد بیا و یکی یکی تیک همه چک باکس ها رو بردار 

بعد اخرش بیا مقدار اون متغیر رو برابر صفر قرار بده

حالا توی تک تک چک باکس هات شرط بزار که وقتی تیکشون برداشته شد اول چک کنن ببینن اون متغیر عددی موجود توی چک باکس اخری اگه برابر 1 بود هیچ کاری نکنن و در غیر این صورت کاری میخوای انجام بدن 

Sub ch1_CheckedChange(Checked As Boolean)
	
	If number = 0 Then
		'اینجا محاسبه ای که میخوای انجام بده
	Else 
		'اینجا رو خالی بزار تا هیچ کاری نکنه و محاسباتت  از بین نره 
	End If
	
End Sub

Sub ch2_CheckedChange(Checked As Boolean)
	
End Sub

Sub ch3_CheckedChange(Checked As Boolean)
	
End Sub

Sub ch4_CheckedChange(Checked As Boolean)
	
End Sub

Sub ch5_CheckedChange(Checked As Boolean)
	number = 1
	ch1.Checked = False
	ch2.Checked = False
	ch3.Checked = False
	ch4.Checked = False
	number = 0
	
End Sub

 

خوب این درست . ولی من میخوام این کار چندین بار انجام بشه . با این متغیر فقط دوبار میشه جمع و تفریق رو انجام داد

[sbr 233]

در 25 دقیقه قبل، mahfelsoft گفته است :

خوب این درست . ولی من میخوام این کار چندین بار انجام بشه . با این متغیر فقط دوبار میشه جمع و تفریق رو انجام داد

نه دوست عزیز برای هزار بار هم میشه 

چون هر بار که ما میام چک باکس  اخری رو تیک میزنیم دوباره مقدار متغیر عددی رو تغییر میدیم 

یعنی هر بار میخوایم مجاز به انجام محاسبات باشه مقدار متغیر عددی رو صفر هست و وقتی بخوایم به قول شما مجددا انجام بدیم محاسبات رو ، مقدار متغیر رو برابر 1 میزاریم یعنی بهش میگیم مجاط نیستی محاسبه کنی تا به حالت اولیه برگرده و اماده بشه برای دور جدید محاسبات 

این یه حالت اجازه دادن و یا ندادن هست 

محدود به تعداد دفعات نیست