السلام عليكم ورحمة الله وبركاته
اخواني الاعزاء
معاكم طالبة قسم الحاسب الالي في الشرقية وعندي بحث وياليت تساعدوني (تكفووووون)
حست الدنيا عن موضوع بحثي هذا ومالقيته.طال عمركم انا عندي مادة Computer Graphics ندرس فيها خوارزميات الرسم واحنا تونا في البداية اخذنا كتطبيق عملي بالمعمل رسم نقطة باستخدام فيجوال 6 والمطلوب مني خوارزمية رسم نقطة بالفيجوال2005 (vb.net)ورب البيت اني مدري وش الطبخة حست النت ومالقيت شيء وودي انك تساعدني والمطلوب بخوارزمية DDA انا برسل لكم الكود بفيجوال 6 بالنسبة لفيجوال8 بنفس الخوارزمية بس سطر دالة رسم النقطة تختلف وودي انكم تساعدوني قبل الاثنين تكفوووووووووووووون :unsure: -waf
الكود كالتالي:
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
Private Sub Command2_Click()
End
End Sub
بنفس الخوارزمية بس سطر الدالة يختلف
ومشكوووووووووووووووووووووووورين