اين الخطا؟

استبدل الكود الموجود في الـ Command بالأمر التالي:

Picture1.Line (0, Picture1.ScaleHeight / 2)-Step(Picture1.ScaleWidth, 0)

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

اولا شكرا على اهتمامك

ثانيا ما هى step الموجودة بالكود

و شكرا

راجع هذا الدرس

/index.ph...T&f=136&t=53407

مشكور اخ عبد الله

جرب الكود التالي

Private Sub Form_Load()
Form1.Show
Line (0, 0)-(Form1.Width, Form1.Height)
Line (0, Form1.Height)-(Form1.Width, 0)
End Sub

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

اولا اود ان اشكر كل من قام بوضع رد لهذا الموضوع

ولكن المشكلة انى اريد ان اعرف الخطأ فى الكود المرفق

و لماذ لا يتم تنفيذه ؟ __016

مع العلم انه من الناحية النظرية انه يقوم برسم خط من

اسفل اقصى اليسار الى اعلى اقصى اليمين

ارجو الاطلاع على الكود المرفق

و شكرا

graph.zip

اعذرني أخي محمد لعدم التطرق لموضوع الخطأ لأني لا أستطيع التركيز في أي أكواد هذه الفترة ( عندي امتحانات :( )

ولكن أنا لا أفهم لماذا تستخدم جملة for .. next

استبدل جميع الكود بهذا السطر لرسم خط من أعلى اليسار إلى أسفل اليمين

Picture1.Line (0, 0)-(Picture1.ScaleWidth, Picture1.ScaleHeight)

وللعكس

Picture1.Line (Picture1.ScaleWidth, 0)-(0, Picture1.ScaleHeight)

مع تحياتي لك

اولا اتمنى لك التوفيق و النجاح فى الامتحانات 012

ثانيا اود ان استخدم for...next وذلك لان سوف اقوم بضع عالقة بين X, Y كالاتى

for x=0 to x=pic1.scalewidth
y=x
pic1.line -(x,pic1.scalehieght-y)
next x

ارجو ان اكون قد اوضجت الفكرة __016

مع العلم ان y ليست دائما تسوى x

و شكرا

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

ايه ماحدش عارف السبب <_<

هو الموضوع طلع صعب اوى للدرجة دى!

اقتباس

بضع عالقة بين X, Y كالاتى

لم أفهم المقصود

أرجو ان توضح ما هو الشكل النهائي الذي تريد الوصول إليه ؟؟ ( بغض النظر عن الكود )

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

شكرا لاهتمامك و متابعتك للموضوع ياخ "عبدالله"

المقصود هو

ان y دالة(علاقة) فى ال x

اى ان المطلوب هو رسم هذه العلاقة مثلا

"Y=aX+b"

ارجو ان تكون كل المور اتضحت الان

وشكرا

:D

للأسف ما عندي علم بهذه العلاقات ( أدبي :P )

أرجو أن يستطيع أحد الإخوة مساعدتك

أو أن توضح لي أكثر

لأني للأسف لم أفهم :(

O.K

بس احب اعرفك ان الموضوع ده مالوش علاقة بالعلمى ولا الادبى! :blink:

الموضوع ببساطة ان المفروض ان البرنامج يقوم برسم هذه العلاقة "ص=س+100"

وبس ;)

اوعى تقولى ما خدتهاش __024

هازعل اووووووووووووووووى :D

ص = س + 100

ماشي مفهوم ،،

لكن كيف تريد استخدام ذلك في البرنامج ؟؟

وضح ما هي الخطوات التي تريد من البرنامج أن يعملها، يعني وضح بمثال.

آسف تعبتك معايا :D

يعنى عايز البرنامج يقوم برسم تلك العلاقة

مع الاخذ ف الاعتبار ان الرقم "100" مش ثابت بل متغير ;)

يقوم بتحديده المستخدم

وشكرا للمتابعة :D

أخي محمد مثااااااااااااااااااال لو سمحت

السلام عليكم

المطلوب هو

برنامج ياخذ معاملات المتغيرات "" أ"" و ""ب"" من المستخدم و التعويض فى هذه المعادلة

اقتباس

ص=أ*س+ب

و ""س"" تاخذ قيم من "صفر" الى "مائة" مثلا و نعوض فى المعادلة للحصول على قيم "ص"

ثم نرسم العلاقة بين "س" و "ص"

واكثر من ذلك لا اعرف ماذا اقول! :wacko:

وشكرا

:wacko: :wacko:

همممم كل مرة تعقدها أكثر

يا أخي أنا أطلب بس مثال محلول، يعني طبقها في مثال على الواقع من غير القاعدة

بودي أن أساعدك ولكن :s :D

طلب اخر <_<  
ممكن تقولى سبب عدم تنفيذ هذا الكود


Private Sub Command1_Click()
h = Picture1.ScaleHeight
w = Picture1.ScaleWidth
Picture1.PSet (0, h)
For x = 0 To x = w
Picture1.Line -(x, h - x)
Next x
End Sub

وساحاول تحضير مثال

وشكرا

graph.zip

بالنسبة للتطبيق المرفق

الكود لم يتم تنفيذه

ولكن ما الذي يفترض أن يقوم الكود بتنفيذه

بانتظار المثال وسيتضح الأمر بإذن الله

السلام عليكم

مشكلة الكود السابق في قيمة التوقف في جملة For

والحل استبدل سطر جملة For بهذا السطر

For x = 0 To w

أخيراً ياحاتم أنقذتني :D :D

ياسلام......................... :blink:

مين كان يتصور ان الخطأ يطلع كده

كنت فين من زمان يا عم :s Hatam

شكرا لك اخ Hatam

ام الخ عبدالله مشاعرف أقوله ايه بعد ماطلعت عينه معايا

اقتباس

أخيراً ياحاتم أنقذتني

لا املك الا ان اقدم له جزيل الشكر والامتنان

بس احب اقولك جهز نفسك لمواضيع اكثر اثارة ;)