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

[majidekazemi]

سلام خدمت دوستان ، من هنرجو سال سوم هستم :لبخندساده:
من یک برنامه طراحی کردم که سه text box برای دریافت ورودی گذاشتم ( text1--text2--text3)
که پس از دریافت 3 عدد ورودی سپس آنهارا مرتب کرده و در خروجی به ترتیب از < کوچک به بزرگ >
در (text4-text5-text6 ) نمایش دهد
یعنی عدد کوچک در text4---عدد بزرگ در text6----و ما بین این عدد بزرگ و کوچک در text5 قرار گیرد .

من عدد کوچک و بزرگ را درست کردم ولی ما بین این عدد بزرگ و کوچک را نتونستم درست کنم ودر ( text5) قرار دهم.
نمیدانم چرا :متفکر: خیلی هم تمرین کردم ولی نتیجه ای نگرفتم.

اگه میشه کد را به من بگین یا حده اقل راهنماییم کنین.

منتظر جوابهای خوب و مفیدتان هستم.

یا علی.:لبخندساده:

[mr-adler]

سلام
خب شما الگوریتمش رو بلدید؟
چطور کوچیکه و بزرگه رو پیدا کردید؟؟؟

[gold-sky]

سلام، شما محیط برنامه نویسی رو معرفی نکردی ولی کلا شما وقتی max و min رو پیدا کردی، واسه ی 3 عدد خیلی ساده با یه دستور if میتونی وسطی رو پیدا کنی :
If x<max and x>min then text5.Text = x
End If

[_behnam_]

یادمه استاد ماهم چنین چیزی ازما خواست اما باید عدد وسط رو (با استفاده از IF تودرتو ) بدست میاوردیم

این کدش بود

Dim a, b, c, Result As Integer
a = Val(txt1.Text)
b = Val(txt2.Text)
c = Val(txt3.Text)
Result = a

If Result < b Then
Result = b
End If
If Result > c Then
If c > a Then
Result = c
Else
Result = a
End If
End If
lbRes.Text = Result.ToString

یکم تغیرش بده عدد اول و آخرهم بدست بیار

[majidekazemi]

سلام دوستان این برنامه ی من است اثلا ببینین درسته؟:متفکر:


Private Sub Command1_Click()
x = Val(Text1.Text)
y = Val(Text2.Text)
z = Val(Text3.Text)
If x > y Then
Max = x
Else
Max = y
End If
If Max < z Then
Max = z
End If
Text6.Text = Str(Max)

If y < z Then
Min = y
Else
Min = z
End If
If Min > x Then
Min = x
End If
Text4.Text = Str(Min)


If x < Max And x > Min Then
Text5.Text = x
End Sub

[just4froum]

بفرمایید اینم یک کد جم و جور :


Private Sub Command1_Click()
Dim max As Double, min As Double, mid As Double


If Val(Text1.Text) >= Val(Text2.Text) Then
max = Val(Text1.Text)
min = Val(Text2.Text)
mid = Val(Text3.Text)
Else
max = Val(Text2.Text)
min = Val(Text1.Text)
mid = Val(Text3.Text)
End If
If Val(Text3.Text) > max Then mid = max: max = Val(Text3.Text)
If min > Val(Text3.Text) Then mid = min: min = Val(Text3.Text)


Text4.Text = CStr(max)
Text5.Text = CStr(mid)
Text6.Text = CStr(min)
End Sub

[majidekazemi]

دستت درد نکنه ولی یه خرده برای من گیج کننده هستش

[just4froum]

میشه بگی کجاشو نفهمیدی تا برات توضیح بدم

[joker_pok]

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