السلام عليكم ورحمة الله وبركاته
اخواني الاعزاء
معاكم طالبة قسم الحاسب الالي في الشرقية وعندي بحث وياليت تساعدوني (تكفووووون) :(
حست الدنيا عن موضوع بحثي هذا ومالقيته.طال عمركم انا عندي مادة Computer Graphics ندرس فيها خوارزميات الرسم واحنا تونا في البداية اخذنا كتطبيق عملي بالمعمل رسم نقطة باستخدام فيجوال 6 والمطلوب مني خوارزمية رسم نقطة بالفيجوال2005 (vb.net)ورب البيت اني مدري وش الطبخة حست النت ومالقيت شيء وودي انك تساعدني والمطلوب بخوارزمية DDA انا برسل لكم الكود بفيجوال 6 بالنسبة لفيجوال8 بنفس الخوارزمية بس سطر دالة رسم النقطة تختلف وودي انكم تساعدوني قبل الاثنين تكفوووووووووووووون
الكود كالتالي:
Dim x1, x2, y1, y2, x, y As Integer
Dim slope As Integer
Private Sub Command1_Click()
x1 = Val(Text1.Text)
y1 = Val(Text2.Text)
x2 = Val(Text3.Text)
y2 = Val(Text4.Text)
slope = ((y2 - y1) / (x2 - x1))
PSet (x1, y1), RGB(23, 56, 64)
If slope <= 1 Then
y = y1
For x = x1 + 1 To x2
y = y + slope
PSet (x, y), RGB(23, 56, 64)
Next
End If
If slope > 1 Then
x = x1
For y = y1 + 1 To y2
x = x + (1 / slope)
PSet (x, y), RGB(23, 56, 64)
Next
End If
End Sub]