23-12-13, 05:03 AM
لقد ابتكرت الطريقة بس بقي علي معرفة نقطة تقاطع مستقيم مع دائرة و هو يمر من كوماند 3 و كوماند 2 حيث كوماند 2 هو مركز الدائرة التي بهذا الكود ستصبح
قوسا
قوسا
كود :
Me.Circle (ScaleWidth / 2, ScaleHeight / 2), ScaleWidth / 4, , DegToRad(45), DegToRad(180)
