การสร้างวงกลม

1. การสร้างวงกลม รูปแบบคำสั่ง object.Circle [Step] (x, y), radius, [color, start, end, aspect] object หมายถีงวัตถุที่สามารถวาดลงได้ Circle ให้วาดวงกลม วงรี หรือส่วนโค้งของวงกลม Stepถ้ามีตัวเลือกนี้ ค่า x,y ที่ตามมา คือระยะห่าง จากจุดศูนย์กลางที่อยู่ก่อนหน้านี้ ถ้าไม่มี Step ค่า x,y คือค่าโคออดิเนตที่แท้จริง

2. (x, y) โคออดิเนตของจุดศูนย์กลาง radiusความยาวของรัศมี ของวงกลม วงรี และ ส่วนโค้งของวงกลม เป็นค่าคงที่หรือตัวแปร ทศนิยม colorถ้าไม่มีตัวเลือกนี้ จะวาดโดยใช้สีของคุณ สมบัติของ ForeColor ของวัตถุ ถ้าจะกำหนด สามารถใช้ค่าคงที่ของสีวิชวลเบสิก ฟังก์ชัน RGB หรือ ฟังก์ชัน QBColor ก็ได้

3. start, end เมื่อลากส่วนโค้งของวงกลมตัวเลือกstartและendมีค่าเป็นเรเดียน จะกำหนด จุดเริ่ม ต้นและจุดสิ้นสุดของส่วนโคงมีค่าอยู่ในช่วง- 2 piเรเดียน ถึง2 piเรเดียน aspect เป็นค่าคงที่หรือตัวแปรทศนิยม ซึ่งเป็นอัตรา ส่วนของรัสมีตามแนวตั้งและแนวนอน (Aspect Ratio) ถ้าเป็นวงกลม อัตราส่วนนี้จะ มีค่า 1.0 ซึ่งเป็นโดยปริยายของตัวเลือกนี้ เวลาสร้างวงกลมจึงไม่ต้องใช้ตัวเลือกนี้

4. ออกแบบวัตถุ

5. ตัวอย่าง สร้างวงกลมสองวงตัดกัน กำหนดคุณสมบัติให้วัตถุ ชื่อโดยปริยาย ชื่อที่ตั้ง ข้อความเทกซ์ ข้อความแคพชัน Command1 cmdCircle วงกลม Command2 cmdExitเลิก

6. เขียนโปรแกรมให้วัตถุควบคุมเขียนโปรแกรมให้วัตถุควบคุม

7. สั่ง Run โปรแกรมแล้วคลิก “วงกลม”

8. ตัวอย่าง วาดวงกลมที่มีจุดศูนย์กลางร่วมกัน ที่กึ่งกลางของแบบฟอร์ม โดยเลือกสีแบบสุ่ม

9. กำหนดเฉพาะแบบฟอร์ม

10. เขียนโปรแกรมให้กับเหตุการณ์ Form_Click

11. ผลลัพธ์

12. การสร้างวงรี การสร้างวงรี ใช้วิธีเดียวกับการสร้างวงกลม แต่ต้องเพิ่มอัตราส่วนของรัศมีตามแนวตั้งและแนวนอน (Aspect Ratio) เข้าไป ถ้าอัตราส่วนนี้มีค่าน้อยกว่า 1 วงรีจะยืดออกตามแนวนอน ถ้ามีค่ามากกว่า 1 วงรีจะยืดออกตามแนวตั้ง การวาดวงรีไม่ต้องกำหนด start และ end แต่ต้องใส่เครื่องหมายคอมมาแทน เช่น Form1.Circle (2000, 2000), 1440, vbRed, , , 0.75

13. ออกแบบวัตถุควบคุม

14. ตัวอย่าง การสร้างวงรี กำหนดคุณสมบัติให้วัตถุ ชื่อโดยปริยาย ชื่อที่ตั้ง ข้อความเทกซ์ ข้อความแคพชัน Command1 cmdEllipse วงกลม Command2 cmdExitเลิก

15. เขียนโปรแกรมให้วัตถุควบคุมเขียนโปรแกรมให้วัตถุควบคุม

16. สั่ง Run โปรแกรม แล้วคลิก “ วงรี”

17. การสร้างส่วนโค้งของวงกลมการสร้างส่วนโค้งของวงกลม การสร้างส่วนโค้งของวงกลม ใช้วิธีเดียวกับการสร้างวงกลม แต่ต้องเพิ่มค่าตัวเลือก คือมุมที่เริ่มต้นวาด (start) และมุมการสิ้นสุดการวาด (end) มุมที่กำหนดนี้ ต้องเป็นเรเดียน

18. กำหนดวัตถุควบคุม

19. ตัวอย่าง การสร้างส่วนโค้งของวงกลม กำหนดคุณสมบัติให้วัตถุ ชื่อโดยปริยาย ชื่อที่ตั้ง ข้อความเทกซ์ ข้อความแคพชัน Command1 cmdArc วงกลม Command2 cmdExitเลิก

20. เขียนโปรแกรมให้วัตถุควบคุมเขียนโปรแกรมให้วัตถุควบคุม

21. สั่ง Run โปรแกรม แล้วคลิก “ส่วนโค้ง”

22. การใช้เมาส์เลือกจุดโคออดิเนตการใช้เมาส์เลือกจุดโคออดิเนต การกำหนดจุดโคออดิเนตโดยประมาณ สามารถทำได้โดยใช้เหตุการณ์ MouseDown คลิกลงที่วัตถุ ตัวอย่าง ลากเส้นตรงโดยการกดเมาส์เพื่อเลือกตำแหน่งจุดเริ่มต้นและจุดสิ้นสุดของเส้น ขณะกดเมาส์ ให้แสดงจุดโคออดิเนตที่กล่องข้อความ ตัวอย่างนี้สามารถลากเส้นตรงในทิศทางใด ๆ กี่เส้นก็ได้

23. ออกแบบวัตถุ

24. กำหนดคุณสมบัติให้วัตถุกำหนดคุณสมบัติให้วัตถุ ชื่อโดยปริยาย ชื่อที่ตั้ง ข้อความเทกซ์ ข้อความแคพชัน Command1 cmdDrawLine เส้นตรง Command2 cmdExitเลิก Label1 lblX X Label2 lblY Y Label3 lblPoint Text1 txtX Text2 txtY

25. เขียนโปรแกรมให้วัตถุควบคุมเขียนโปรแกรมให้วัตถุควบคุม

26. เขียนโปรแกรมให้วัตถุควบคุมเขียนโปรแกรมให้วัตถุควบคุม

27. เขียนโปรแกรมให้วัตถุควบคุมเขียนโปรแกรมให้วัตถุควบคุม

28. สั่ง Run โปรแกรม First Point คลิก “เส้นตรง” แล้วคลิกเมาส์จุดที่ 1 คลิกเมาส์จุดที่ 2

29. การใช้งานพิกเซล คำสั่ง Pset ทำให้จุดพิกเซลสว่าง คำสั่ง Point ทำหน้าที่อ่านค่าสีของพิกเซล

30. รูปแบบคำสั่ง Pset Object.Pset (x,y), Color Object วัตถุใด ๆ ที่วาดได้ Pset คำสั่งวาดจุด x,y จุดโคออดิเนต Color ค่าของสี

31. รูปแบบคำสั่ง Point Object.Point (x,y) Object วัตถุใด ๆ ที่วาดได้ Pset คำสั่งวาดจุด x,y จุดโคออดิเนต

32. ตัวอย่างโปรแกรม โปรแกรมวาดจุดแบบสุ่มลงบนกล่องรูปภาพ การทำงานเป็นดังนี้ คลิก Start เริ่มวาดจุดภายในกล่องรูปภาพต่อเนื่องไปเรื่อย ๆ คลิก Stop หยุดวาด คลิก Clear ลบทุกจุดออกจากกล่องรูปภาพ คลิก จุดหนึ่งจุดใดในกล่องรูปภาพ จะนำสีของจุดนั้นไประบายที่กล่องสี่เหลี่ยม คลิก Exit ออกจากโปรแกรม

33. กำหนดวัตถุ

34. กำหนดคุณสมบัติให้วัตถุกำหนดคุณสมบัติให้วัตถุ ชื่อโดยปริยาย ชื่อที่ตั้ง ข้อคววามเทกซ์ ข้อความแคพชัน Command1 cmdStop Stop Command2 cmdClear Clear Command3 cmdSart Start Command4 cmdExit Exit Picture1 Picture1 Shape1 Shape1

35. เขียนโปรแกรมให้วัตถุควบคุมเขียนโปรแกรมให้วัตถุควบคุม

36. เขียนโปรแกรมให้วัตถุควบคุมเขียนโปรแกรมให้วัตถุควบคุม

37. เขียนโปรแกรมให้วัตถุควบคุมเขียนโปรแกรมให้วัตถุควบคุม

38. เขียนโปรแกรมให้วัตถุควบคุมเขียนโปรแกรมให้วัตถุควบคุม

39. เขียนโปรแกรมให้วัตถุควบคุมเขียนโปรแกรมให้วัตถุควบคุม

40. เขียนโปรแกรมให้วัตถุควบคุมเขียนโปรแกรมให้วัตถุควบคุม

41. Run โปรแกรม

42. การกำหนดตำแหน่งพิมพ์แบบกราฟิกการกำหนดตำแหน่งพิมพ์แบบกราฟิก รูปแบบ CurrentX = value CurrentY = value Form1.Print valList or ContList Printer.Print valList or ContList

43. ตัวอย่างโปรแกรมสั่งพิมพ์ออกทางเครื่องพิมพ์ตัวอย่างโปรแกรมสั่งพิมพ์ออกทางเครื่องพิมพ์