ست کردن رندوم از دیتابیس

[Forutan 28]

با سلام

دوستان من توی یک جدول دوتا ستون دارم

توی برنامه دوتا لیبل دارم

میخوام وقتی روی دکمه کلیک میکنیم یبار متن لیبل1 رو از ستون 1 بگیرم و متن لیبل2 رو از ستون2 با کلیک بعدی برعکس بشه یا مثلا رندوم بشه

یعنی بصورت اتفاقی یبار متن ستون1 بار بعد متن ستون2 روی هر لیبل ست بشه

ممنون میشم راهنمایی کنید 

[vblinkk 3]

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

نمونه کد: 

	Dim Selector As Boolean
	If Selector = True Then
		labl1.text=Col1
		lable2.text=col2
		Selector=False
		Else
		lable1.text=Col2
		lable2.text=col1
		Selector=True
	End If

 

[Forutan 28]

در ۱۴۰۱/۸/۱۸ در 20:32، vblinkk گفته است:

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

نمونه کد: 

	Dim Selector As Boolean
	If Selector = True Then
		labl1.text=Col1
		lable2.text=col2
		Selector=False
		Else
		lable1.text=Col2
		lable2.text=col1
		Selector=True
	End If

 

ممنون دوست عزیز

تا حدودی کار رو راه میندازه اما مشکل اینه یکی در میون عوض میشه 

راهی هست که بشه رندومش کرد؟ نمیخوام ترتیبشون ثابت باشه

[DexterFstone 387]

8 ساعت قبل، Forutan گفته است:

ممنون دوست عزیز

تا حدودی کار رو راه میندازه اما مشکل اینه یکی در میون عوض میشه 

راهی هست که بشه رندومش کرد؟ نمیخوام ترتیبشون ثابت باشه

بجای بول از نوع عدد بسازید و توی شرط بررسی انجام بدید

Dim Selector As Int = Rnd(0,2)
	If Selector = 0 Then
		labl1.text=Col1
		lable2.text=col2
		
		Else If Selector = 1 Then
		lable1.text=Col2
		lable2.text=col1
		
	End If