التعامل مع الرسم Graphic ثنائى الابعاد فى الفجوال بيسك 6

اذهب الى الأسفل

التعامل مع الرسم Graphic ثنائى الابعاد فى الفجوال بيسك 6 Empty التعامل مع الرسم Graphic ثنائى الابعاد فى الفجوال بيسك 6

مُساهمة من طرف NEXT في الثلاثاء أكتوبر 30, 2018 7:12 pm

في هذا المقال ، ستتعرف على الطرق والخصائص والتقنيات في Visual Basic 6 التى تتيح لنا التعامل و إجراء بعض العمليات الرسومية. وبشكل أكثر تحديدًا ، فهي تسمح لك برسم النقاط والخطوط والدوائر والمستطيلات والحذف وغيرها من الأشكال.
هذا المقال التعليمي هو للمبتدئين. لذلك يتم تقديم المفاهيم في أبسط طريقة ممكنة.

طرق و أساليب الرسوم الرسم Graphic فى الفجوال بيسك 6

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

يتم شرح الطرق الرسومية الشائعة أدناه.



  • Print : أبسط طريقة للرسم في Visual Basic 6. تم استخدام هذا الأسلوب خلال الإصدارات السابقة من اللغة. يقوم بطباعة بعض النصوص في النموذج أو في عنصر التحكم PictureBox.


  • Line: تقوم طريقة Line برسم خط....و باستخدام طريقة الخط ، يمكنك أيضًا رسم أشكال هندسية أخرى مثل المستطيل والمثلث وما إلى ذلك.


  • Circle: توجه طريقة الدائرة دائرة. باستخدام طريقة الدائرة ، يمكنك أيضًا رسم أشكال هندسية أخرى مثل علامات الحذف والأقواس وما إلى ذلك.


  • Cls : أسلوب Cls هو أسلوب رسومي بسيط آخر يُستخدم لمسح سطح النموذج أو عنصر التحكم PictureBox. في حالة وجود بعض النصوص ، يمكنك استخدام طريقة Cls لإزالة النصوص.بمعني أنه يمسح أي رسم تم إنشاؤه بواسطة أساليب الرسم.
  • Point : تقوم الدالة Point بإرجاع قيمة اللون من صورة لوحدة البكسل عند نقطة معينة. يتم استخدام هذه الطريقة بشكل عام لاسترداد قيم الألوان من الصور النقطية


  • Refresh :إعادة رسم عنصر تحكم أو كائن. بمعنى آخر ، يتم تحديث عنصر التحكم. بشكل عام ، يتم تحديث عناصر التحكم تلقائيًا في معظم الأحيان. ولكن في بعض الحالات ، تحتاج إلى تحديث مظهر عنصر التحكم يدويًا من خلال استدعاء أسلوب Refresh بشكل صريح.


  • PSet: يقوم أسلوب PSet بتعيين لون بكسل واحد في النموذج. يتم استخدام هذه الطريقة لرسم النقاط.



الان سوف نناقش كل طريقة على حدة

1_ الطريقة Print

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

الطباعة على النموذج

طباعة التعليمة البرمجية التالية بعض النص في النموذج.

الكود:
Private Sub cmdPrint_Click()
    Form1.Print "Hello world"
    Form1.Print "Welcome to Visual Basic 6"
    Form1.Print "Visual Basic is awesome!"
End Sub

أو يمكنك أستخدام الطريقة التالية لطباعة نفس النص

الكود:
Private Sub cmdPrint_Click()
    Print "Hello world"
    Print "Welcome to Visual Basic 6"
    Print "Visual Basic is awesome!"
End Sub

في التعليمة البرمجية المذكورة أعلاه ، يتم استدعاء أسلوب الطباعة بدون اسم الكائن. هنا "Form1" هو اسم الكائن. و كقاعدة عامة عندما تكتب رمزًا داخل الوحدة النمطية للنموذج ، يمكنك حذف اسم النموذج أثناء استدعاء أساليبه.

التعامل مع الرسم Graphic ثنائى الابعاد فى الفجوال بيسك 6 Proxy.php?image=https%3A%2F%2Fd1cakvb8tfmuws.cloudfront.net%2Fvb%2Fworking-with-graphics%2Foutput1

الطباعة على التحكم PictureBox

يمكنك طباعة النص على عنصر التحكم PictureBox. التعليمة البرمجية التالية يوضح هذا.

الكود:
Private Sub cmdPrint_Click()
    picMyPictureBox.Print "Hello world"
    picMyPictureBox.Print "Welcome to Visual Basic 6"
    picMyPictureBox.Print "Visual Basic is awesome!"
End Sub

تحديد مواضع الطباعة

يمكنك تغيير موضع الطباعة مكان إلى آخر. من خلال التعليمة البرمجية التالية.

الكود:
Private Sub cmdPrint_Click()
    CurrentX = 500
    CurrentY = 1000
    Print "This is a new text"
End Sub

التعامل مع الرسم Graphic ثنائى الابعاد فى الفجوال بيسك 6 Proxy.php?image=https%3A%2F%2Fd1cakvb8tfmuws.cloudfront.net%2Fvb%2Fworking-with-graphics%2Foutput3

تنسيق الطباعة

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

الكود:
Private Sub cmdPrint_Click()
    Form1.FontSize = 18
    'Form1 object name is omitted
    ForeColor = vbBlue
    Font = "MS Serif"
    Print "This is a new text"
End Sub

التعامل مع الرسم Graphic ثنائى الابعاد فى الفجوال بيسك 6 Proxy.php?image=https%3A%2F%2Fd1cakvb8tfmuws.cloudfront.net%2Fvb%2Fworking-with-graphics%2Foutput4

2_ الطريقة الخط

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

الكود:
The_Object.Line (X1، Y1) - (X2، Y2)، El_Color، BF


حيث أن :
The_Object هو المكان الذي سنقوم برسمه....المعلمتان الأولتان هما الإحداثيات لـ X و Y التى تحدد موضع الخط ، ثم لون الخط ، وأخيرًا المعلمة BF ، مثل اللون ، هي معلمة نوع اختيارية ، وهنا يمكننا تمريرها كقيمة: B أو BF أو بدون قيمة

إذا تم تمرير B ، فسيتم رسم مستطيل بدون تعبئة. واذا تم تمرير BF ، فسيملأ المستطيل اللون المحدد في معلمة اللون. إذا لم نجتاز أي شيء ، يتم رسم خط

الأمثلة على ذلك:

الكود التالى يرسم خط لونًا أزرق في النموذج:

الكود:
Me.ScaleMode = vbPixels
Me.Line (10, 10)-(100, 100), vbBlue

التعامل مع الرسم Graphic ثنائى الابعاد فى الفجوال بيسك 6 Metodo-line-linea-1

كما رأينا في المثال السابق ، فإن القيم والإحداثيات X و Y ستكون تلك القيم المحددة في ScaleMode الخاص بالكائن لرسمها ، وفي هذه الحالة تم وضعها في Pixels (vbPixels)

خط مع أنماط الرسم

خاصية DrawStyle للنموذج تتيح رسم الخطوط باستخدام نمط معين. القيم الثابتة لخاصية DrawStyle هي 0 (vbSolid) ، 1 (vbDash) ، 2 (vbDot) ، 3 (vbDashDot ، 4 (vbDashDotDot) ، 5 (vbTransparent) و 6 (vbInsideSolid). القيمة الافتراضية هي 0 ، vbSolid. يمكنك استخدام رمز ثابت أو رقمي ثابت مثل vbSolid ، vbDash إلخ لتغيير أنماط الرسم في التعليمات البرمجية.

ملاحظة: لا يعمل الخاصية DrawStyle إذا كانت قيمة DrawWidth غير 1.

مثال :

الكود:

DrawWidth = 1
    DrawStyle = 1
    'A hyphen is required between the points
    Line (0, 0)-(2000, 2000), vbBlue
    DrawStyle = vbDashDot
    Line (100, 900)-(2800, 2800), vbRed






التعامل مع الرسم Graphic ثنائى الابعاد فى الفجوال بيسك 6 Proxy.php?image=https%3A%2F%2Fd1cakvb8tfmuws.cloudfront.net%2Fvb%2Fworking-with-graphics%2Foutput8


المثال التالى يوضح تمرير الحرف B لانشاء مستطيل :

الكود:
Me.ScaleMode = vbPixels

Me.Line (10, 10)-(100, 100), vbRed, B

التعامل مع الرسم Graphic ثنائى الابعاد فى الفجوال بيسك 6 Metodo-line-rectangulo-1


أما المثال التالى يوضح كيفية إنشاء مستطيل معبيء باللون الاحمر 

الكود:
[right]Me.ScaleMode = vbPixels

Me.Line (10, 10)-(100, 100), vbRed, BF[/right]

التعامل مع الرسم Graphic ثنائى الابعاد فى الفجوال بيسك 6 Metodo-line-rectangulo-2




المثال التالى يرسم خطًا رأسيًا من اللون الأخضر جنبًا إلى جنب عبر عرض النموذج ، في حلقة تكرارية 

الكود:



[right]Private Sub Form_Paint()
Me.ScaleMode = vbPixels

For i = 0 To Me.ScaleWidth Step 10

Line (i, 10)-(i, Me.ScaleHeight - 10), vbGreen
Next
End Sub [/right]


التعامل مع الرسم Graphic ثنائى الابعاد فى الفجوال بيسك 6 Metodo-line-linea-2





الكود:
Private Sub Command1_Click()

Me.Line (CurrentX, CurrentY)-(25, 50), vbRed, B
MsgBox "Pos x: " & CurrentX
MsgBox "Pos y: " & CurrentY

End Sub

Private Sub Form_Load()
Me.ScaleMode = vbPixels
End Sub


التعامل مع الرسم Graphic ثنائى الابعاد فى الفجوال بيسك 6 Metodo-line-rectangulo-3


3_الطريقة circles

باستخدام هذه الطريقة يمكنك رسم دائرة في Visual Basic 6. كما يمكنك أيضًا استخدامها  لرسم أشكال هندسية مختلفة مثل علامات الحذف والأقواس إلخ. يلزمك تحديد قيم مركز وقيم نصف قطر الدائرة لرسم دائرة باستخدام طريقة circles

مثال :يرسم التعليمة البرمجية التالية دائرة بسيطة باستخدام الأسلوب Circle في Visual Basic 6.

الكود:
Private Sub cmdShow_Click()
    DrawWidth = 3
    Circle (1800, 1800), 1000, vbRed
End Sub

التعامل مع الرسم Graphic ثنائى الابعاد فى الفجوال بيسك 6 >image=https%3A%2F%2Fd1cakvb8tfmuws.cloudfront.net%2Fvb%2Fworking-with-graphics%2Foutput9

مثال أخر يوضح كيفية تعبئة دائرة بلون معين

الكود:
Private Sub cmdShow_Click()
    FillStyle = vbSolid
    FillColor = &H80C0FF
    DrawWidth = 3
    Circle (1800, 1800), 1000, vbRed
End Sub

التعامل مع الرسم Graphic ثنائى الابعاد فى الفجوال بيسك 6 Proxy.php?image=https%3A%2F%2Fd1cakvb8tfmuws.cloudfront.net%2Fvb%2Fworking-with-graphics%2Foutput10

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
التعامل مع الرسم Graphic ثنائى الابعاد فى الفجوال بيسك 6 Do.php?imgf=154090993464951
NEXT
NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 379
النقاط : 200555
التقيم : 14
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

التعامل مع الرسم Graphic ثنائى الابعاد فى الفجوال بيسك 6 Empty رد: التعامل مع الرسم Graphic ثنائى الابعاد فى الفجوال بيسك 6

مُساهمة من طرف جورج صبحى في الخميس نوفمبر 01, 2018 5:33 am

شاكرين افضالك يا باشا 
جورج صبحى
جورج صبحى
......
......

تاريخ التسجيل : 18/02/2011
المساهمات : 123
النقاط : 254
التقيم : 5
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى