چهار تا سوال ساده

[shamsoft]

1.چطوری میشه مینیمم یا ماکزیمم بین چند تا عدد رو بدست آورد.مثلا مینمیم بین 6 تا عدد.
2.چطوری میشه کاری کرد که در یک تکس باکس فقط عدد قرار بگیره.
3.چطوری میشه بعد از اینکه توی یک تکس باکس یک عدد وارد شد اونوقت یک تب(Tab ) ارسال شود.
4.چطوری میشه چند تا عدد به صورت رندم انتخاب کرد ولی هیچکدام با هم برابر نباشند.مثلا توی 5 تا تکس باکس 5 تا عدد به صورت رندم بین 0 تا 9 انتخاب کردم ولی ممکنه دو تا از این اعداد مثل هم باشد.حالا من می خوام این احتمال رو از بین ببرم.
ممنون می شم اگه جوابم رو بدید.به هر حال من یه آماتور به حساب میام.

[Iron_Fist]

1.شش تا عدد رو با هم مقايسه كن كوچكترين را انتخاب كن
2.ماسك اديت
3.با ست فكوس
4.تو جند تا پست پيش اميرجان راهش رو گفت

[shamsoft]

1.اين رو بلد بودم.ولي اگه عددها زياد باشن كد طولاني ميشه.يه راه ديگه بگيد؟
3.اين روش رو ميدونستم ولي كدش رو بلد نيستم.
4.روش پيداكردن به صورت رندم هست و ممكنه تكرار هم داشته باشه.

[Iron_Fist]

1.راهي به ذهنم نمي رسه
2.

کد:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

با Enter مي ره روي تكست بعدي
3.خوب روش امير جان رو به كار ببر ؛يه ايف هم بزار كه اگه عدد تكراري
بود يه عدد ديگه بزاره جاش

[shamsoft]

آقای Iron_fist ازتون متشکرم.جواب سوال سوم رو بدست آوردم.
برای سوال چهارم هم روشی رو که گفتید امتحان کردم ولی بازم احتمال داره در شرط بعدی عدد بازم تکراری باشه.
حالا یه راهی به نظر خودم رسید که بهتون میگم.این روش Amirjn هست:
Randomize
a="0123456789"
b = Int(Rnd(Len(a)) * Len(a)) + 1
c = Mid(a, b, 1)
Text1.Text = c
من در برنامه ام 6 تا Textbox دارم.توی هر کدام یک عدد به صورت رندم قرار می گیره.پس ممکنه که بعضی از اونا با هم برابر باشه.
حالا روش:Textbox1 رو به روش آقا امیر اجرا می کنیم.(یه عدد به صورت رندم براش در نظر می گیریم) بعد برای Textbox2 عددی که برای Textbox1 بدست امد رو از مجموعه a بر می داریم و بعد عدد رو به صورت رندم انتخاب می کنیم و این کار رو تا Textbox6 ادامه می دهیم.در این حالت دیگه غیر ممکنه که عدد تکراری به وجود بیاد.
حالا اگه شما لطف کنید و یه کدی به من بدید که بتونه یه عدد رو از مجموعه a برداره ممنون میشم.
بقیه دوستان هم کمک کنند.شرمنده همه هم شدیم.
:oops: :oops:

[Iron_Fist]

حال نوشتن تابعش رو نداشتم
ولي اگه فقط 6 تا تكست باكس هست از كد مسخره زير استفاده كن

کد:

Randomize
a = "0123456789"
b = Int(Rnd(Len(a)) * Len(a)) + 1
c = Mid(a, b, 1)
Text1.Text = c
'----------------------------------------
s = InStr(a, c)
s1 = Mid(a, 1, s - 1)
s2 = Mid(a, s + 1, Len(a))
a1 = s1 + s2
Randomize
b = Int(Rnd(Len(a1)) * Len(a1)) + 1
c = Mid(a1, b, 1)
Text2.Text = c
'----------------------------------------
s = InStr(a1, c)
s1 = Mid(a1, 1, s - 1)
s2 = Mid(a1, s + 1, Len(a1))
a2 = s1 + s2
Randomize
b = Int(Rnd(Len(a2)) * Len(a2)) + 1
c = Mid(a2, b, 1)
Text3.Text = c
'----------------------------------------
s = InStr(a2, c)
s1 = Mid(a2, 1, s - 1)
s2 = Mid(a2, s + 1, Len(a2))
a3 = s1 + s2
Randomize
b = Int(Rnd(Len(a3)) * Len(a3)) + 1
c = Mid(a3, b, 1)
Text4.Text = c
'----------------------------------------
s = InStr(a3, c)
s1 = Mid(a3, 1, s - 1)
s2 = Mid(a3, s + 1, Len(a3))
a4 = s1 + s2
Randomize
b = Int(Rnd(Len(a4)) * Len(a4)) + 1
c = Mid(a4, b, 1)
Text5.Text = c
'----------------------------------------
s = InStr(a4, c)
s1 = Mid(a4, 1, s - 1)
s2 = Mid(a4, s + 1, Len(a4))
a5 = s1 + s2
Randomize
b = Int(Rnd(Len(a5)) * Len(a5)) + 1
c = Mid(a5, b, 1)
Text6.Text = c

[shamsoft]

دستتون درد نكنه.درست شد. :)
راستي چرا گفتيد مسخره؟به نظر من كه مسخره نبود. :roll:
در هر حال متشكرم

[shamsoft]

من هنوز جواب سوال 1 و 2 رو پيدا نكردم.
لطفا بقيه دوستان هم كمك كنند :oops:

[Iron_Fist]

Microsoft Masked Edit Control 6.0 رو انتخاب كن و بعد در خاصيت
Mask آن به تعداد دلخواه كه مي خواهي عدد وارد شه # وارد كن

[shamsoft]

دستتون درد نكنه.
حالا فقط ميمونه سوال 1.كسي نمي دونه :(

[Iron_Fist]

حالا حد اكثر چند تا عدد رو مي خواي Min يا Max
رو حساب كني