مطلوب كود احداثيات

يا اهل الخير انا محتاج للود جدا حاولت عمله 10 ساعات دون فائدة

قم بإرفاق البرنامج الذي تعمل عليه.. وسأساعدك بإذن الله..

الاخ الكريم انا مدرس رياضيات واستخدم الماوس و القلم الضوئى لشرح الدروس يالرسم الحر فى برنامج سبورة من تصميمى وجاءتنى فكرة وهى ترجمة الحروف بخط اليد الى حروف فونتات وبالفعل نجحت فى عمل بعض الحروف كما بالصورة ولاكمال العمل لابد من الكود المطلوب واعتقد ان السؤال واضح فلو احببت تساعدنى جزاك الله خير والا فجزاك الله خير ايضا

طيب يا سيدي ولا تزعل..

ما دام التعامل بيننا سيكون بالصور ..

فها هي صورة الكود الذي اعتقد أنك تريده ..

PIC.rar

الف شكر اخى الكريم لما اخلص الكود سوف احضره الى هنا مع الشكر بارك الله فيك هذا هو الكود المطلوب

جرب هذا الكود و أخبرني عن النتيجة

Public xPos, yPos
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Me.Line (X, Y)-(xPos, yPos), RGB(0, 255, 255)
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
xPos = X
yPos = Y
End Sub

طيب الحمد لله ..

أرجو ألا تنسي كما قلت ..

اقتباس

لما اخلص الكود سوف احضره الى هنا

السلام عليكم ورحمه الله وبركاته

الموضوع سهل جدا يا جماعه

اولاتكتب الكوده ده في قسم العام

dim xb ,xf, yf ,yb

وفي حدث

Private Sub Form_Load()

xb=x

xf=x

yb=y

yf=y

end sub

وفي حدث

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

if xb<x then xb=x

if xf>x then xf=x

if yb<x then yb=y

if yf>x then yf=y

end sub

جرب هذا الكود واخبرني

____________________________

سورس وكود برنامج التجسس علي لوحه المفاتيح

برنامج رسم تصميمي

لعبه لغز الارقام من تصميمي

لعبه سيجا من تصميمي

لعبه اكس و اووووووووو

برنامج لحساب عمرك برمجه كامله دون الاستعانه بدوال vb

لعبه الكره الناريه

كود لعبه اشطرنج