رسم نقطة على فورم تتحرك وفق الابعاد المدخلة

أستخدم PSet لرسم نقط . و لوعايز سهم بيلف, أعمل صورة لسهم و حطها بـ PictureBox و أبحث على موقع PSC عن Rotate Pictures لتجد الكثير من الأمثلة

شكرا على الاحابة بس الرحاء التوضيح فانا مبتدئ

توضيح ايه أخى الفاضل بالضبط , أرسم صورة سهم بأى محرر صور و ضعها بالبرنامج و أستعمل أى فكرة لأدارة الصور من الموقع اللى ذكرته قبل كده.

أو وضح بالضبط ايه اللى عايزه و أن كنت لسه جديد فعلا فالأولى أن تتعلم الأساسيات أولا : راجع قسم الشروح.

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

ليك مثال قريب مما تريده بالاعدماد على خاصية PSet للـ PictureBox وهي لرسم نقطه بعد تحديد ابعادها خيث ان بعد تتابع النقطه سيتم رسم الشكل وممكن تعديلها وتحديد الابعاد الذي تريدها لرسم الشكل الذي تريده .

بالتوفيق ,,,,

A7med_prof

PSet_.zip

Dim R, Angle, X, Y As Long

:blink:

ممكن كود كامل لو تسمح

مقتبس من قواعد طرح الأسئلة , ممنوعات : تعرض المشاركة للالغاء الفوري , الجزء 4 :

اقتباس

يفضل عدم طلب عمل برنامج فهذا المنتدي للتبادل العلمي و ليس للبحث عن البرامج الجاهزة ، و لكن ابدأ بالعمل و اطرح المشاكل التي تواجهك ( بعد البحث فى المنتدي منعا للتكرار ). و ما سبق طرحه من برامج يمكنك الوصول اليها باستخدام البحث.

أبدأ يا أخى بالتصميم و أعمل مشروعك و اللى يقف معاك أسأل فيه و الأ لن تستفيد أو تتعلم شئ , فقط حاول و الله المعين.

أخ sudaswim طيب وضح أنت عملت أيه وتريد أيه

وكما قال لك msayed2004

------------------------------

أخ محمد:

Dim R, Angle, X, Y As Long

هو ليه :blink:

Dim R As Long, Angle As Long, X As Long, Y As Long

زى ما أنت وضحت كده , أعتقد أن سبب اللخبطة دى هو أن ممكن تكتب كده فى السى و يبقى كله Long عكس الـ VB لازم كله يبقى واضح.

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

هو انت بتتكلمو على الكود المرفق في المشاركه اعلى :

Dim R, Angle, X, Y As Long
Private Sub Command1_Click()
Angle = 0
R = 300
DrawWidth = 6
Timer1.Enabled = True
Timer1.Interval = 4
End Sub

Private Sub Timer1_Timer()
Angle = Angle + 2
X = R * Cos(Angle * 22 / 7 / 180)
Y = R * Sin(Angle * 22 / 7 / 180)
Picture1.PSet (X, Y)
If Angle >= 90 Then
   Angle = 0
   R = R + 300
End If
End Sub

عشان انا مش فاهم قصدكم ؟

A7med_prof

نعم أخي أحمد نتكلم على الكود المرفق أنت لازم تحطه:

Dim R As Long, Angle As Long, X As Long, Y As Long

ولا أعرف كما قال الأخ محمد إذا بلغة السي يمكن

لأنه يمكنك تجريب المثال وسترى النتيجة:

Dim R, Angle, X, Y As Long
MsgBox R
MsgBox Angle
MsgBox X
MsgBox Y

أحنا كده هنبعد عن الموضوع بس نكمل توضيح و خلاص :

Dim R, Angle, X, Y As Long

فى الكود اللى فات Y فقط هى اللى Long أما الباقى فـ Variant و بالتالى ذاكرة أكبر و سرعة أقل.

فى الـ VB6 و الله أعلم يمكن كمان بالـ VB.N لازم تعرف كل متغير على حده , زى كده :

Dim R As Long, Angle As Long, X As Long, Y As Long

أو كل واحد بسطر لوحده :

Dim R As Long
Dim Angle As Long
Dim X As Long
Dim Y As Long

الاشتذة الافاضل مرفق لكم ما اريدة بالظبط وارجو الافادة

New_Bitmap_Image.bmp

نفس اللى انا قلته قبل كده , صوره سهم و يتم أدارته حسب قيمة الأتجاه و بالنسبة للأحداثيان السينى و الصادى ممكن تحرك الـ Picturebox نفسها.