PDA

View Full Version : ترسم دایره



شفیعی
سه شنبه 18 فروردین 1383, 06:12 صبح
سلام
می خواهیم یکسری مختصات را از کاربر دریافت نمائیم این مختصات شامل X- Y می باشد که این اعداد اعشاری می باشند می خواهیم براساس این مختصات یکسری دایره به شعاع 2 ترسم نمائیم باید بتوانیم عملیات ZOOM و PAN را بر روی این دایره انجام دهیم برای نمایش این دایره باید از چه دستوری استفاده کرد اگر در این زمینه برنامه ای دارند برای بنده ارسال نمایند

شفیعی
جمعه 21 فروردین 1383, 19:56 عصر
سلام
لطفا بنده را راهنمائی کنید

Erfanian
چهارشنبه 26 فروردین 1383, 07:57 صبح
در VB بطور مثال بدین صورت می‌توان عمل کرد:
Sub CircleDemo ()
Dim Radius
' Set Red to a random value.
R = 255 * Rnd
' Set Green to a random value.
G = 255 * Rnd
' Set Blue to a random value.
B = 255 * Rnd
' Set x-coordinate in middle of form.
XPos = ScaleWidth / 2
' Set y-coordinate in middle of form.
YPos = ScaleHeight / 2
' Set radius between 0 & 50% of form height.
Radius = ((YPos * 0.9) + 1) * Rnd
' Draw the circle using a random color.
Circle (XPos, YPos), Radius, RGB(R, G, B)
End Sub

شفیعی
چهارشنبه 26 فروردین 1383, 14:52 عصر
سلام
خیلی ممنون

شفیعی
شنبه 16 خرداد 1383, 22:12 عصر
سلام
دوست عزیز برای ZOOM و PAN باید چکار کرد

شفیعی
چهارشنبه 14 مرداد 1383, 12:01 عصر
سلام
:?: