komak neveshtane 1 barname

[nilo_nazanin]

salam bache ha

man vase neveshtane 1 barname k 3 ta add ro to 3 ta textbox begire va b tartibe kochik ta bozorg to labale neshon mide , sorsesho dashtam ama nemifahmidamesh
age kasi balade vasam tozi bede dar zemn mazerat mikham k farsi naneveshtam nemtinesam
montazere komaketoin hastam

[saeedr22]

سلام دوست عزیز
شما اول باید با if یکی یکی چک کنید که کدوم کوچیک تر هستش.

اینجوری.



if textbox1.text < textbox2.text and textbox2.text<textbox3.text then
label1.text=textbox1.text & textbox2.text & textbox3.text
else if textbox2.text<textbox1.text and textbox1.text<textbox3.text then
label1.text=textbox2.text & textbox1.text & textbox3.text
else if textbox3.text<textbox2.text and textbox2.text<textbox1.text then
label1.text=textbox3.text & textbox2.text & textbox1.text
.
.
.
.

الا آخر همه ی حالت ها رو باید یکی یکی چک کنید...

[nilo_nazanin]

fekr nakonam agha saeid in rahe monaseb tari bashe
rahe degy ketab gofte k azash sar dar nemiaram

BAZAm AzaT mAMNONam

[saeedr22]

age vaghtesho dari rahe dige ro inja benevis ta brat tozih bedam..

[nilo_nazanin]

ok merc az lotfet


======================
x= convert.(textbox
y=convert.( textbox
z=convert.(textbox
if x> y then
temp=x
x=y
y=temp
end if
if z<x then
temp = z
z=y
y=x
x=temp
else if z<y then
temp=z
z=y
y=temp
end if
labale4.text= "sort :" +str(X)+str (y)+ str z

[saeedr22]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'در واقع داره اینجا از الگوریتم مرتب سازی حبابی استفاده می کنه
Dim x, y, z As Integer
Dim temp As Integer
x = Val(TextBox1.Text)
y = Val(TextBox2.Text)
z = Val(TextBox3.Text)
If x > y Then
'''''chon meghdare x> y va ma mogheye namayesh dadan ghar as ke x ro aval namayesh dahim pas bayay meghdar x ba y avaz she va daraye meghdare kam bashe
temp = x 'chon mikhad maghdar x ro ba y avaz kone va baraye inke x meghdare khodesho az dast nade aval meghdaresho toye temp mirize
x = y 'bad meghdare y ro to x mirize
y = temp 'ba tavajo be dastore temp=x darvaghe alan dige temo daraye meghdare x hastesh pas ono to y rikhtim
'''''''''hala jaye x , y avaz shod va alan x daraye meghdare kamtar nesbat be y hastesh
End If
If z < x Then
'inja ham daghighan be hamon sorat x ro ba y moghayese mikonim va agar z kochik tar bashe bayad meghdaresho ba x avaz konim
temp = z
z = y
y = x
x = temp
ElseIf z < y Then
'inja ham chon y gharare zod tar az z bashe va bade x bashe pas bayad az z kochiktar bashe va agar meghdaresh kochik tar bashe bayad ba z avaz beshe va hatman bayad y daraye meghdare kamtar bashe
temp = z
z = y
y = temp
End If
''ba tavajoh be inke x dige daraye meghdare kamtar be y va z hastesh va hamchenin y kamtar az z hast pas be hamin sorat poshte sare ham ona ro aval be sorate reshte elhagh mikonim va minevisam
TextBox4.Text = "sort :" + Str(x) + Str(y) + Str(z)
End Sub



بازم اگه مبهم بود بهم میل بزنین چون واقعاً کدش آسونه اگه دقت کنین.
اگه لازم شد بهم میل بزنین..
Saeed.rezaei1@gmail.com

[nilo_nazanin]

salam

merC az zahmateT
inghad tamrin kardam hefz shodam ama rasesh aslan nafahmidamesh
ah khoda kheng shodam
kashki mishod jore degy az hamin tarigh hal kard
kashki mishod farsi neveshtetsh lol :گیج:

[shamsoft]

Dim arr(2) As Integer
arr(0) = Val(TextBox1.Text)
arr(1) = Val(TextBox2.Text)
arr(2) = Val(TextBox3.Text)
Array.Sort(arr)
For Each n As Integer In arr
Label1.Text &= n & ", "
Next


http://www.piic.ir/beta/upload/sort882.gif

[nilo_nazanin]

salam mer30
inam ba araye ama raveshY joz ba araye nadasht ?
rasty chera form1` u inghad khoshkele ? theme ? lol

[shamsoft]

روش به جز آرایه که توسط دوستان نوشته شده! چون کدهای بقیه طولانی بود اینو نوشتم که راحتتر حفظش کنید!!
خوشکلی فرم هم به خاطر theme خود ویندوزه. Win 7

[#target]

فارسی بنویس