تابع line

[masato]

سلام
دوستان من کد تابع line رو میخوام خیلی فوری با هر زبانی هم بود اشکالی نداره یا راهنمایی کنید که چطوری میتونم کد تابع رو بدست بیارم
پیشایش ممنون

[SlowCode]

سلام
اگه توی گوگل سرچ میکردی زودتر به جواب میرسیدی.
بفرما: لینک جستجو (line method+vb6)
اینا هم لینک صفخات آموزشی:
http://msdn.microsoft.com/en-us/library/aa230480(v=vs.60).aspx
http://msdn.microsoft.com/en-us/library/9dtfzwyx(v=vs.80).aspx

[SHD.NET]

دستور کلیش به این شکله :
مختصات نقطه شروع: 50,50
مختصات نقطه پایان: 400,400
Line (50, 50)-(400, 400)

[SHD.NET]

یه سورس ساده هم برای فهم بیشتر براتون ضمیمه کردم .

[masato]

تشکر بابت توجهت
اما من برای درس گرافیک کامپیوتر این کد رو میخوام برای کشیدن یه سری از خطها اما نمیتونم مستقیم از این تابع استفاده کنم

[SHD.NET]

تشکر بابت توجهت
اما من برای درس گرافیک کامپیوتر این کد رو میخوام برای کشیدن یه سری از خطها اما نمیتونم مستقیم از این تابع استفاده کنم

یعنی چی نمیتونید مستقیم از این تابع استفاده کنی ؟
میشه بیشتر توضیح بدی ؟

[masato]

منظور این هست من نباید ازخود تابع line ویژوال استفاده کنم برای کشیدن خط مثلا از الگوریتم رسم خط برسنهام یا dda برای کشیدن خط باید استفاده کنم
حالا من میخوام از کد تابع line استفاده کنم
ممنون میشم اگه کد این تابع اگه کسی داره قراره بده :گریه: ب

[SHD.NET]

از الگوریتم رسم خط برسنهام یا dda برای کشیدن خط باید استفاده کنم
نمی دونم اینا چین و گرنه راهنماییتون می کردم

:چشمک:\\\موفق باشید///:چشمک:

[بهروز عباسی]

درود به همه
منم نمی دونم این یعنی چی
از الگوریتم رسم خط برسنهام یا dda برای کشیدن خط باید استفاده کنم اما شما می تونی با استفاده از تابع pset که پیکسل رو روشن می کنه و یک حلقه به راحتی یک خط رسم کنی.

توضیح در باره تابع


دستوري براي چاپ نقطه

PSet (x,y), color

متددي از شيء پرينتر براي چاپ نقطه:


Printer.PSet (x,y), color

که x و y مختصات نقطه مورد نظر مي‌باشند. پارامتر اختياري color نيز رنگ نقطه را مشخص مي‌کند.

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

موفق باشید.

[masato]

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

Public Sub line(x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer)
Dim dx, dy As Integer
dx = x2 - x1
dy = y2 - y1
Dim ss, k As Integer
Dim xi, yi As Integer
Dim x, y As Integer
x = x1
y = y1
If Abs(dx) > Abs(dy) Then
ss = Abs(dx)
Else
ss = Abs(dy)
End If
xi = dx / ss
yi = dy / ss
PSet (x, y)
For k = 0 To ss - 1
x = x + xi
y = y + yi
PSet (x, y)
Next

End Sub

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

[masato]

یه سوال دیگه چطور میتونم با تابع line یه منحنی رسم کنم؟

[SlowCode]

با تابع Line نمي توني. بايد از تابع Circle استفاده كني.

[vbhamed]

سلام

بايد از فرمول دوران استفاده كني و يك نقطه رو چندين بار حول يك نقطه ديگه با زاويه خيلي كم (مثلا 1 درجه يا كمتر) دوران بدي و هر بار از نقطه قبلي به نقطه جديد خط بكشي
يا اينكه نموار يك تابع رو رسم كني مثل y = x^2 + 3*x + 5