چگونگی گرفتت ریشه های یک معادله ی درجه دوم در ویژوال بیسیک

[orache]

سلام من میخام با ویژوال بسیک بتونم ریشه های یک معادله ی درجه دومو در بیارم ولی هی برام اشتباه در میاره احتمال 90 % میدم که مشکل از جایگذاری ضربوتقسیم و جمع شده میتونین یه کد بهم بدین
.
کد اصلی اینه متغیر هارو تعریف کردم این اعمال منطقی ها هستن
e = -b
(delta = b^2 - (4*a*c
(آ*2) / (x1 = e + sqr(delta
(آ*2) / (x2 = e - sqr(delta
اقا اون آ یعنی a

[m.4.r.m]

سورس برنامه رو بزار اینجا اصلاح کنیم

[orache]

سورس رو یا کد رو

[m2011kh]

منظورشون همون قسمت از کد بود که لازمه تصحیح بشه.

[Mr'Jamshidy]

دروغ میگه منظورش یک تصویر شطرنجی از محیط برنامه بود

[orache]

Private Sub Command_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim x1 As Integer
Dim x2 As Integer
Dim delta As Integer
a = Text1.Text
b = Text2.Text
c = Text3.Text
delta = b ^ 2 - (4 * a * c)
If delta < 0 Then
Text4.Text = "no"
Text5.Text = "no"
End If
If delta = 0 Then
x1 = -b / (2 * a)
Text4.Text = x1
Text5.Text = "no"
End If
If delta > 0 Then
x1 = -b + Sqr(delta) / (2 * a)
x2 = -b - Sqr(delta) / (2 * a)
Text4.Text = x1
Text5.Text = x2
End If
End Sub

[orache]

Mr'Jamshidy کله هم خدا یه اساسی شفات بده

[Mr'Jamshidy]

Mr'Jamshidy کله هم خدا یه اساسی شفات بده

ناراحت نشی ها ولی خدا وکیلی خدا منو شفا بده؟


سورس برنامه رو بزار اینجا اصلاح کنیم

سورس رو یا کد رو

یکی بهت میگه سلام میگی منظورت سلام بود یا خداحافظی؟

خوب سورس یعنی سورس دیگه منظور خاصی توش نیست

سورس یعنی همون فایل هایی که وقتی تو ویژوال بیسیک پروژه رو ذخیره میکنی برات میسازه

[orache]

ببین دادا سورس داریم تا سورس 1 - سورس برنامه 2 _ سورس کد سورس برنامه همون فایل اجرایی هست سورس کد قطعه کدیه که تو بالا گذاشتم نمیدونستی بدون

[m2011kh]

مستر جمشیدی داشتیم؟؟؟:متفکر:
آدمو ضایع میکنی جلو مردم.
پسر جان شما احتمالا دبیرستانی هستی یا یه کم بزرگتر.متوجه حرفی که میزنی باش.ایشون به اندازه سن شما تو این کار بوده.در ضمن به اگه قرار بود بگن کد میگفتن سورس کد.شما رو نمیدونم ولی از وقتی من برنامه نویسی کار میکنم وقتی میگن سورس برنامه ینی فایل هایی کامپال نشده ویبی.
Thanks
MMD

[Mr'Jamshidy]

ببین دادا سورس داریم تا سورس 1 - سورس برنامه 2 _ سورس کد سورس برنامه همون فایل اجرایی هست سورس کد قطعه کدیه که تو بالا گذاشتم نمیدونستی بدون

ممنون از توضیحاتت ولی چرا به سورس برنامه، هم میگن سورس برنامه هم فایل اجرایی؟ :متفکر:

[orache]

من نمیدونم اینجا مدیر نذاشتن 1 سوال کردم الان 10 تا پست داده شده همش اسپم ولی من هنوز جوابمو نگرفتم یا جواب بدین یا ندین چرا اسپم میدین
این یکیش رو من چمیدونم فایل اجرایی فایل اجرایی هست سوس برنامه هم هست دیگه دادا من بازیسازم با ویژوال بیسیک هم کار نمیکنم به همه ی اینا میگن sample یعنی نمونه یا source میخای 100 تاشو بیارم

[Mr'Jamshidy]

فعلا که تموم کردیم بعدا بیا شاید بیاریم

خوب سوال کن

فرمولت رو بده بهت بگم کدش چیه؟

چرا عصبی میش؟

:لبخند:



این یکیش رو من چمیدونم فایل اجرایی فایل اجرایی هست سوس برنامه هم هست دیگه دادا من بازیسازم با ویژوال بیسیک هم کار نمیکنم به همه ی اینا میگن sample یعنی نمونه یا source میخای 100 تاشو بیارم

حالا یک سوتی دادی بیشتر از این کشش نده منم به کسی نمیگم قول میدم

[orache]

http://sunarmy1.blogfa.com/post/47

http://www.forum.khoramsoft.com/thread-576-post-3394.html#pid3394

http://www.coome.ir/forum/showthread.php?tid=29266

[orache]

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

[Mr'Jamshidy]

http://sunarmy1.blogfa.com/post/47

http://www.forum.khoramsoft.com/thread-576-post-3394.html#pid3394

http://www.coome.ir/forum/showthread.php?tid=29266

:قهقهه: خیلی باحالی
آخه GameMaker مگه زبان برنامه نویسی هست که بخواد سورس کد هم داشته باشه؟
GameMaker زبان اسگریپت نویسیه میدونی که فرق اسکریپت نویسی و برنامه نویسی چیه دیگه؟

[Mr'Jamshidy]

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

تف کردم

نمیدونم کفتم فرمول بده جواب بدم من ریاضی خیلی ضعیفی دارم

[orache]

ببخشید اینو میگما ناف شما رو با بذله بریدن فکر کنم :قهقهه:
اقا هرکی جوابمو بده بهش میگم افرین من فردا صبح زنگ اول باید تو مدرسه اجرا کنمش

[orache]

یعنی چی فرمول بدم اون بالا نوشتم که همونو اصلاحش کن

[Mr'Jamshidy]

مگه بده آدم شاد باشه؟

راستی تفم افتاد رو لباست پاکش کن :بامزه:

[orache]

Private Sub Command_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim x1 As Integer
Dim x2 As Integer
Dim delta As Integer
a = Text1.Text
b = Text2.Text
c = Text3.Text
delta = b ^ 2 - (4 * a * c)
If delta < 0 Then
Text4.Text = "no"
Text5.Text = "no"
End If
If delta = 0 Then
x1 = -b / (2 * a)
Text4.Text = x1
Text5.Text = "no"
End If
If delta > 0 Then
x1 = -b + Sqr(delta) / (2 * a)
x2 = -b - Sqr(delta) / (2 * a)
Text4.Text = x1
Text5.Text = x2
End If
End Sub

[Mr'Jamshidy]

یعنی چی فرمول بدم اون بالا نوشتم که همونو اصلاحش کن

ببین اون چیزی که بالا نوشتی رو بیخیال

مثلا
2 تا عدد داریم

5 و 50

اول عدد اول ضرب در عدد دوم
حاصل تقسیم بر 2
حاصل به توان 3


مثلا اینجوری

[orache]

اگه خوردی هستشو تف کن بعد برو بکار تو باقچتون بعد بذار وقتی درخت شد بخور اگه وقت کردی جواب منم بده

[orache]

اها الان میگم

[orache]

3 تا عدد بگیره به نام های a , b , c
دلتا برابر باشه با حاصل b به نمای 2 منهای ب ضرب در a ضرب در 3
اگه دلتا کوچک تر از صفر بود بگه که معادله جواب ندارد
اگه دلتا صفر بود بگه یک جواب دارد و جوابش برابر باشه با
منفی b تقسیم بر 2 * a
اگه دلتا بزرگ تر از صفر بود بگه دو جواب دارد
جواب اولی برابر است با منفی b به علاوه ی جذر دلتا تقسیم بر 2*a
جواب دومی برابر است با منفی b منهای جذر دلتا تقسیم بر 2*a
میرم شام بخورم زود برمیگردم

[Mr'Jamshidy]

3 تا عدد بگیره به نام های a , b , c
دلتا برابر باشه با حاصل b به نمای 2 منهای ب ضرب در a ضرب در 3
اگه دلتا کوچک تر از صفر بود بگه که معادله جواب ندارد
اگه دلتا صفر بود بگه یک جواب دارد و جوابش برابر باشه با
منفی b تقسیم بر 2 * a
اگه دلتا بزرگ تر از صفر بود بگه دو جواب دارد
جواب اولی برابر است با منفی b به علاوه ی جذر دلتا تقسیم بر 2*a
جواب دومی برابر است با منفی b منهای جذر دلتا تقسیم بر 2*a
میرم شام بخورم زود برمیگردم

خیلی بد نوشتی تا جایی که فهمیدم
Dim A As Long, B As Long, C As Long, Delta As Long
A = Val(Text1.Text)
B = Val(Text2.Text)
C = Val(Text3.Text)

Delta = (B ^ 2) - ((B * A) * 3)

Select Case Delta
Case Is < 0
Text4.Text = "No"
Text5.Text = "No"
Case Is = 0
Text4.Text = "No"
Text5.Text = CStr(-B / (A * B))
Case Is > 0
Text4.Text = CStr((-B + Sqr(Delta)) / (A * B))
Text5.Text = CStr((-B - Sqr(Delta)) / (A * B))
End Select

[SlowCode]

سلام
آقاجون اشتباه نوشتی!
3 رو از کجا آوردی؟
درستش اینه:

Dim A As Long, B As Long, C As Long, Delta As Long
A = Val(Text1.Text)
B = Val(Text2.Text)
C = Val(Text3.Text)

Delta = (B ^ 2) - (4 * A * C)

Select Case Delta
Case Is < 0
Text4.Text = "No"
Text5.Text = "No"
Case Else
Text4.Text = CStr((-B + Sqr(Delta)) / (A * 2))
Text5.Text = CStr((-B - Sqr(Delta)) / (A * 2))
End Select



وقتی دلتا صفر میشه ریشه مضاعف بدست میاد یعنی دوتا ریشه داریم که با هم مساوی هستن.
2 تا هم غلط علمی داشت که درستش کردم.

ولی به خاطر اون پستهای قبلی کلی خندیدم جمشیدی.:قهقهه:

[orache]

مرسی از همتون درست شد پس کلا جمشیدی رو همه میشناسن ماسکا هست :قهقهه:

[Mr'Jamshidy]

سلام
آقاجون اشتباه نوشتی!
3 رو از کجا آوردی؟
درستش اینه:

Dim A As Long, B As Long, C As Long, Delta As Long
A = Val(Text1.Text)
B = Val(Text2.Text)
C = Val(Text3.Text)

Delta = (B ^ 2) - (4 * A * C)

Select Case Delta
Case Is < 0
Text4.Text = "No"
Text5.Text = "No"
Case Else
Text4.Text = CStr((-B + Sqr(Delta)) / (A * 2))
Text5.Text = CStr((-B - Sqr(Delta)) / (A * 2))
End Select



وقتی دلتا صفر میشه ریشه مضاعف بدست میاد یعنی دوتا ریشه داریم که با هم مساوی هستن.
2 تا هم غلط علمی داشت که درستش کردم.

ولی به خاطر اون پستهای قبلی کلی خندیدم جمشیدی.:قهقهه:

خدا وکیلی خودت نگاه کن خوب
ببین جای 3 تو توضیحات پایین کجاست
من دقیقا از روی توضیحات رفتم جلو


3 تا عدد بگیره به نام های a , b , c
دلتا برابر باشه با حاصل b به نمای 2 منهای ب ضرب در a ضرب در 3
اگه دلتا کوچک تر از صفر بود بگه که معادله جواب ندارد
اگه دلتا صفر بود بگه یک جواب دارد و جوابش برابر باشه با
منفی b تقسیم بر 2 * a
اگه دلتا بزرگ تر از صفر بود بگه دو جواب دارد
جواب اولی برابر است با منفی b به علاوه ی جذر دلتا تقسیم بر 2*a
جواب دومی برابر است با منفی b منهای جذر دلتا تقسیم بر 2*a
میرم شام بخورم زود برمیگردم


مرسی از همتون درست شد پس کلا جمشیدی رو همه میشناسن ماسکا هست :قهقهه:

تفم که هنوز رو لباسته، میبینم که باهاس انس هم گرفتی

ماسکا چیه باز؟ اینایی که میگی از فرهنگ لغت آنگولا در میاری؟؟

[mehran901]

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

dim delta%
dim x1,x2,b,a
delta = b ^ 2 - 4 *a * c
if delta < 0 then msgbox "Error": exit sub
)x1 = (-b + sqr(delta) / (2 * a
)x2 = (-b - sqr(delta) / (2 * a

استاد جمشیدی دستمریزاد....:d

:قهقهه:

[mehran901]

اوه ندیدم دوستمون محسن خان جواب داده بودن ....

[saber67]

این کد پیدا کردن ریشه معادله درجه دوم


Public Function FindQuadratics(ByVal A As Single, ByVal B As Single, ByVal c As Single) As String
Dim Delta As Single
Dim X1 As Single
Dim X2 As Single
Delta = (B ^ 2) - (4 * A * c)
If Delta > 0 Then
X1 = Round(-(B + Sqr(Delta)) / (2 * A), 3)
X2 = Round(-(B - Sqr(Delta)) / (2 * A), 3)
FindQuadratics = "X1= " & X1 & " X2= " & X2
ElseIf Delta = 0 Then
X1 = Round(-B / (2 * A), 3)
FindQuadratics = "X= " & X1
Else
FindQuadratics = "Risheh Nadarad"
End If
End Function

[orache]

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

[Mr'Jamshidy]

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

ا نمیدونستم که همکار در اومدیم
چطوری همکار؟

[orache]

به به خیلی خوب نظافت میکنی صفحه ی مانیتورت خیلی تمیزه اینهو آینه برا همین تو آینه دیدی خودتو فهمیدین با هم همکارین ولی هردوش خودت بودی :لبخندساده:

[mehran901]

ای بابا بسه دیگه اه

[orache]

باشه هرکی ادامه بده خره

[دوستار برنامه نويسي]

ايول خودشه مرسي