السلام عليكم ورحمة الله وبركاته
احترت وين اكتب الموضوع ومالقيت الا ذا القسم بتمنى يكون مكانه الصحيح 
ماراح طول عليكون بقولكم موضوعي دايركت
انا حابه اصمم برنامج بالفجول بيسك 6 عباره عن برنامج فيه 3 اختيارت لرسم مستقيم بالطرق التاليه
1- برسنهام
2- simple DDA
3- symmetric DDA
اريد المستخدم يختار الطريق التي يريد ويدخل لي نقطه البداية والنهايه والبرنامج يرسم له المستقيم
طبعا انا مبتدئه جدا في الفجول بيسك بس الحمد لله عرفت اصمم الواجهه الاساسيه وسويت فورم جديده لببرسنهام وكتبت الكود تبعه لكن لما اضغط موافق عشان يرسم مايطلع معي شي
وذا الكود اللي كتبته اتمنى تساعدوني وافهم وش المشكله
Private Sub BresLine(Xa As Long, Ya As Long, Xb As Long, Yb As Long)
Xa=Text1.Text
Ya= Text2.Text
Xb=Text3.Text
Xb=Text4.Text
Public Domain
Dim Steep As Boolean
Dim dX As Long, dY As Long, da As Long
Dim StepX As Long, StepY As Long
Dim Coord As Long
Steep = False
dX = Abs(Xb - Xa)
If (Xb - Xa) > 0 Then
StepX = 1
Else
StepX = -1
End If
dY = Abs(Yb - Ya)
If (Yb - Ya) > 0 Then
StepY = 1
Else
StepY = -1
End If
If dY > dX Then
Steep = True
Swap Xa,Ya
Swap dX, dY
Swap StepX, StepY
End If
da = (dY * 2) - dX
For Coord = 0 To dX
If Steep Then
Me.PSet (Ya,Xa)
Else
Me.PSet (Xa,Ya)
End If
While da >= 0
Ya =Ya + StepY
da = da - (dX * 2)
Wend
Xa =Xa + StepX
da = da + (dY * 2)
Next Coord
Me.PSet (Xb,Yb)
End Sub
تحيتي ومودتي :lol: