الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

دالة رسم (نقطة) في VB.NET

مغلق
بدأه Some_One_High في 30 مارس 2007 · 3 رد · 1,255 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الســــــــــــــــــــــــــــــــــــلام عليـــــــــــــــــــــــــــــــــــــــكم

اخواني الاعزاء انا مبتدئة بالفيجوال وأتمنى مساعدتي على التخلص من كلمة (مبتدئة) <<<<<تعقدت منها :s

مشكلتي اخواني تتلخص في ان قد طلب مني البحث عن دالة رسم (نقطة) بخوارزمية DDAوحاولت جاهدة من خلال البحث عبر محركات البحث والسؤال عنها ولم تجدي محاولاتي نفعا :s وكانت محاولاتي(الموجودة بالمرفق في الاسفل) تقتضي باستدعاء ال namespace ذو الاسم systems.drawing.graphis ومن ثم انشاء object ينتمي للNAMESPACE هذا ......بقية الخطوات مشروحة داخل المرفق . المشكلة تكمن في ان السطر الذ يتم فيه استدعاء الداله ان الدالة المستدعاة هنا هي دالة Drawing line وهي دالة ترسم خطوط والمطلوب دالة رسم (نقطة) بنفس الطريقة السابقة(خوارزمية DDA).......بحثت عنها ولم أجدها :( ....فأتمنى منكم العون والمساعدة وذلك قبل يوم الاثنين شاكرة لكم تعاونكم ........دعواتي لكم بالخير إن شاء الله :)

___.doc

#2

لرسم نقطة

في فيجول بايزيك 2005 لايوجد مكافئ للطريقة PSet وعوضا عنها استخدم الطريقة DrawEllipse لرسم دائرة مستخدما ارتفاع وعرض بحجم 1 وإذا كان الحجم أكبر من واحد استخدم الطريقة FillEllipse

يعني إذا كان كود VB6

' Visual Basic 6.0
Private Sub Form_Paint()
	Me.DrawWidth = 1
	PSet (70, 70), vbRed
End Sub

فيكون كود VB2005

' Visual Basic 2005
Private Sub Form1_Paint8(ByVal sender As Object, ByVal e As _
System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

	e.Graphics.DrawEllipse(Pens.Red, 70, 70, 1, 1)
End Sub

تم تعديل هذه المشاركة بواسطة محمد سامر أبو سلو في 31 مارس 2007 في 12:59

عن عائشة رضي الله عنها أن النبي صلى الله عليه وسلم قال: إن الله يحب إذا عمل أحدكم عملا أن يتقنه

نعيب زماننا والعيب فينا ... وما لزماننا عيب سوانا

ونهجو ذا الزمان بغير ذنب ... ولو نطق الزمان لنا هجانا

محمد سامر أبو سلو

#3

شكـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــرا جـــــــــــــــــــــــــــــــــــــــــــــــــــــزيلا يا استاذي الفاضل :)

#4

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

إخواني الكود السابق لا يمثل نقطة ..

فحاولوا زيدوا في سمك الخط وستتضح لكم المسألة ..

فهل هنالك داله أخرى غير DrawEllipse أو هل هنالك تعديل في نفس الشفرة ..

ومشكورين على تعاونكم سلفاً.

	Private Sub Form1_Paint8(ByVal sender As Object, ByVal e As _
 System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
		Dim P As New Pen(Color.Blue, 50)
		e.Graphics.DrawEllipse(P, 70, 70, 1, 1)
	End Sub

هذا الموضوع مغلق.

مواضيع مشابهة