رسم خط!!!

سلام

يه سوال

برنامه اي بنويسيد كه در تابع y=ax+b اعداد a و b را دريافت كرده و خط را رسم كند



مثل اين

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

اينم لينك عكس

کد:

---

http://samba.persiangig.com/1vb.jpg

---

خودم اينو نوشتم ولي جواب نميده


a = Val(Text1.Text)
b = Val(Text2.Text) * 50
X0 = Me.Width / 2
Y0 = Me.Height / 2

Me.Line (X0, Y0 - b)-(X0 + 100, -a * (X0 + 100) - b)

ببخشید ولی برنامه شما اشکال داره
اولا اینکه ضرایب یعنی a,b رو تاثیر ندادی و دوما اینکه خط رو به دلخواه خودت کشیدی نه چیزی که کاربر وارد میکنه
این کد برنامه ای که میخوای البته اول یه picture box اضافه کن و اندازه اون رو بزرک گن

کد:

---

Picture1.Scale (-100, 100)-(100, -100)
Picture1.Line (-100, 0)-(100, 0), vbRed
Picture1.Line (0, -100)-(0, 100), vbRed

a = Val(Text1.Text)
b = Val(Text2.Text)
For x = -100 To 100
y = a * x + b
Picture1.PSet (x, y)
Next

---

ممنون عالي بود

حالا اگه بخوايم اينو رسم كنيم چي؟؟

ax+by+c=0



---------------------------------

حل شد:31:

شما میتونید y رو به صورت y=-(ax+c)/b به دست بیاری
حتی میتونی توابع sin و tan رو هم بکشی یا x^3 و...
حتما امتحان کن
امر دیگه؟:5: