Visual Basic 6.0 translation

Wednesday, March 7, 2012

Visual Basic Online Course - Graphics Part 3

بسم الله الرحمن الرحيم

و ندرس فى هذا الموضوع ان شاء الله


طريقة الرسم Circle أو الدائرة

طريقة الدائــــــــرة تمكنك ليس فقط من رسم الددائرة و لكن ايضا نمكنك من رسم (دوائر - اشكال بيضاية - أقواس - منحنيات) و لكننا سنتناول فقط رسم الدائرة و اذا كان لديك أى استفسار عن طريقة رسم أى شكل يمكنك التعليق على الموضوع أو الاشتراك فى صفحة الموقع على FaceBook .
معادلة رسم الدائرة أو الكود :
ObjectName.Circle(X,Y),R,Color

و المثال التالى سقوم برسم دائرة فى احداثيات الفورم (X,Y) فى الوسط بنصف قطر R و لون Color .... يمكنك التعديل على المثال السابق فى درس Lines أو بدأ مشروع جديد .
Me.Circle (Me.ScaleWidth / 2, Me.ScaleHeight / 2), (Me.ScaleWidth - Me.ScaleHeight) / 2, vbBlack


حيث :
X = Me.ScaleWidth / 2


البداية من النقطه X = عرض الفورم بدون الحدود الـ 3D / 2


Y = Me.ScaleHeight / 2
البداية من النقطه Y = طول الفورم بدون الحدود الـ 3D / 2
R = (Me.ScaleWidth - Me.ScaleHeight) / 2
نصف القطر = ( الطول بدون الحدود - العرض بدون الحدود ) / 2
Color = vbBlack
انظر الرسم التوضيحى التالى "اذا استوعبتها تكون قج استوعبت كل الـ Graphics"
شكل توضيحى
 و بالتالى فان الدائرة مرسومه فى منتصف الفورم (مكان الرسم) حيث لم نقم بأخذ حدود الفورم فى الحسبان, و يمكنك تجربة رسم دائرة أخرى باستخدام (Width , Height) بدلا من استخدام (ScaleWidth , ScaleHeigt) و لاحظ الفرق .
و هناك تطبيق اخر :
ارسم دائرة Circle فى منتصف الفورم و ارسم نصف قطرها Radius .....
سيكون نصف قطر الدائرة عبارة عن
(Me.ScaleWidth - Me.ScaleHeight) / 2
رسم الدائرة فى المنتصف سيكون كالتالى :


Me.Circle (Me.ScaleWidth / 2, Me.ScaleHeight / 2), (Me.ScaleWidth - Me.ScaleHeight) / 2, vbBlack
رسم نصف القطر سيكون كالتالى :
Line (Me.ScaleWidth / 2, Me.ScaleHeight / 2) - (ScaleWidth / 2, ScaleWidth / 2), vbGreen
قم بتطبيق هذا المثال السابق على أى فورم بأى احداثيات (طول - عرض) و ستكون النتيجه واحده كما فى الصورة التاليه :
Circle & Radius


ملحوظه هامه :
الخط Line هو عباره عن نقتطين على الفورم من(x1,y1) الى (x2,y2) و بالتالى طول الخط يساوى المسافه بين نقتطين و لكن هنا يوجد 4 نقط فكيف نحسب طول الخط ..... ؟؟!!
لحساب طول خط انظر الرسمه التاليه و الكود على الصورة و طبقه و افهمه لتفهم كل ما يخص حسابات الرسم على الفورم :
Graphics in Visual Basic
VB 6.0 - Graphics Understanding
نتيجه المثال الموجود فى الصورة ستكون دائرة داخلها مربع يمسها فى 4 نقاط و نصف القطر = أى ضلع من ضلوع المربع و فى الصورة شرح لاحداثيات الفورم مع رسم تقريبى ليس دقيق على رسم الدائرة و المستطيل و الخط ....
- الان ننتقل الى موضوع أخر ...... على الرغم من أن الموضوع السابق فيه كلام كثير جدا و لكن يحتاج لأيام من الشرح و يمكنك البحث أو السؤال عن أى نقطه خاصه بموضوع معين فى الرسم على الفورم فى أى وقت ... و لكن لنكمل الان شرح الخطوط العريضه .



طريقه الطباعه على الفورم Print

ماذا تفعل اذا اردت الكتابه على الفورم بدون Labels أو TextBoxes على Form أو PictureBox بمعنى انك ستطبع على الفورم نص معين و ذلك سيكون باستخدام طريقة Print أو Print Method و الكود كالتالى :
ObjectName.Print [Info To Print]
و الـ Info To Print أو الغرض المراد طباعته يكون اما (نص - متغير - تركيبه ارقام و حروف) و اذا لم يوضع ObjectName فتتم الطباعه على الـ Form .
و يكون النص المراد طباعته فى المكان CurrentX و CurrentY اى الـ X-Y الحاليين بلون طباعه المستخدم على الفورم فى خاصية ForeColor و بالخط المخصص Font للفورم نفسها .
مثال :
قم بانشاء مشروع جديد أو بالتجربة على نفس المشروع الحالى و لا تنسى ان خاصية AutoDraw للفورم المستخدمه يجب ان تساوى True أو ضع اكوادك فى الحدث Form_Paint ..
CurrentX = 1000
CurrentY = 1000
Print "Here is the Info To Print"
لاحظ انه فى مثالى استخدمت نوع خط Times New Roman حجمه 12 و الـ ForeColor للفورم هو White ابيض .
قم بتجربة المثال و لاحظ النتيجه و قم بتغيير مكان الاحداثيات X-Y لتحصل على نتيجه مختلفه .

لكى تقوم بمسح الفورم من جميع الرسومات و الطباعه المستخدمه عليها قم باضافة Command1 الى الفورم و فى الحدث Command1_Click اكتب الكود التالى :
ObjectName.CLS
حيث ObjectName هو الفورم Form اذا لم يكتب شىء اخر مثلا كــ PictureBox الفيجوال بيزك يفترض ان ObjectName هى الفورم الحاليه .
..
...
....
.....
الى هنا نأتى لختام الدرس الحالى و الى لقاء فى الجزء القادم ان شاء الله تعالى فى درس ( الالـــــــــوان ) و استخدامها و تركيبها و كيفية استعمالها على الفورم .... تابعونا .
تحميل المشروع حتى هذه النقطه MediaFire
==================================
مع تحياتى \ evry1falls

No comments:

Post a Comment

visual basic 6 source code says (Hi)

Visual Basic Online Course

vb6 (63) Application Development (45) Visual Basic Online Course (45) Online Visual Basic Course (44) Visual Basic Help (44) Visual Basic Programming (42) IT Jobs (39) VB6 developer (38) Visual Basic Course (38) Visual Basic 6.0 (26) Microsoft Visual Basic 6.0 (25) VB6.0 (24) Visual Basic Programmers (24) vb 6.0 (24) visual basic programming tutorial (19) Third lesson (16) Source code download for Visual Basic 6.0 (14) Source code for Visual Basic 6.0 (10) visual basic tutorial (9) Visual Basic 6 (5) Visual Basic Courses (5) Lesson 3 (4) VB 0.6 - TreeView control (4) VB 0.6 With TreeView Control (4) VB6 Course (3) Create ActiveX (2) How to automate MS-Access from Visual Basic 6.0 (2) Add controls at runtime (1) Back up your Database (1) Change ActiveX icon (1) Change screen resolution (1) Create FTP (1) Crystal Reports 4.6 (1) Crystl32.ocx could not be loaded (1) DataGrid Columns re-size (1) Date Calculation (1) DateAdd Function (1) DateDiff function (1) FTP (1) Marquee Title Bar (1) Marquee VB 6.0 TitleBar (1) Method 'Action' of object 'CrystalCtrl' Failed (1) Microsoft Access with Visual Basic 6.0 (1) OpenSchema method (1) Save File Using CommonDilog (1) Track Database path (1) VB 0.6 - Registry (1) VB 0.6 With Registry Editor (1) VB 6.0 Access (1) VB 6.0 OOP (1) VB6 Access2003 ADO Like % (1) VB6 Add Date (1) VB6 Add Time (1) VB6 Date calculation (1) VB6 Subtract Date (1) Visual Basic Remote (1) Win7 (1) Windows7 (1) ms access networking details (1) remote Visual Basic DB (1) rounded and transparent forms (1) vb 0.6 style (1) vb 6.0 Remote Database (1)