+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : البيئات التطويرية ولغات البرمجة (http://vb4arb.com/vb/forumdisplay.php?fid=81)
+--- قسم : Microsoft Small Basic (http://vb4arb.com/vb/forumdisplay.php?fid=202)
+--- الموضوع : كائن السلحفاة (Turtle Object) (/showthread.php?tid=18627)
كائن السلحفاة (Turtle Object) - Basil Abdallah - 29-12-16
توفر برمجية سمول بيسك كائنا يسمى كائن السلحفاة يستخدم لانشاء الرسومات المختلفة
1- نافذة المخرجات لكائن السلحفاة
تتصف نافذة المخرجات لكائن السلحفاة بالمرونة و القوة لان المستخدم يرى سير تنفيذ االاوامر التي يعطيها للحاسوب و ذلك باستخدام ايقونة وسط النافذة
على شكل سلحفاة و يوجهها المستخدم الى ما يريد فعله فتنفذ امامة على شاشة المخرجات مما يعطي مرونة عالية في التحكم بالاوامر و اخراج الشكل الذي يريد
و الكود الاتي هو المسءل عن اظهار كائن السلحفاة
Turtle.Show() - و القوسان شرط -
2 اجرائات كائن السلحفاة
أ - اجراء الحركة يقوم اجراء الحركة بتحريك السلحفاة مسافة , يحدد المستخدم مقدارها و في اثناء حركة السلحفاة يظهر خط مستقيم في الاتجاة الذي يؤشر الة راس السلحفاة و صيغتها العامة على الشكل الاتي
كود :
Turtle.Move(50)و اجراء الدوران لليسار
Turtle.TurnLeft()
اجراء الدوران لليمين
Turtle.TurnRight()
و ايضا اجراء الدوران حسب القيمة المحددة
Turtle.Turn(360)
حيث اننا حددنا انه يلف دورة كاملة
و سنلاحظ المتعة في الاجرائات و التعامل مع كائن السلحفاة
كود :
GraphicsWindow.Show()
Turtle.Show()
Turtle.Turn(360)
Turtle.Move(50)
Turtle.TurnLeft()
Turtle.Move(50)
Turtle.TurnRight()
Turtle.Move (50)
Turtle.Move(50)
Turtle.TurnLeft()
Turtle.Move(-50)
Turtle.TurnRight()
Turtle.Move (50)
Turtle.Move(-50)
Turtle.TurnLeft()
Turtle.TurnRight()
Turtle.Move (-50)
Turtle.Move(50)
Turtle.TurnLeft()
Turtle.Move(160)
Turtle.TurnRight()
Turtle.Move (-90)
Turtle.Move(160)
Turtle.TurnLeft()
Turtle.Move(-40)
Turtle.TurnRight()
Turtle.Move (-50)