PDA

View Full Version : راهنمایی در رسم دوایر و چند ضلعی



maryam.s
شنبه 29 خرداد 1389, 20:00 عصر
سلام دوستان معذرت عنوان اگه نا مناسبه من دو تا پروژه دارم به زبان vb می خوام دوستان توضیحی بدن که به چه صورت باید اینو بنویسم ممنون میشم ریتم کلی رو واسم بگین

[/URL][URL="http://imgeup.com/viewer.php?file=n43xwtky7rr3tcssnnsz.jpg"]http://imgeup.com/images/n43xwtky7rr3tcssnnsz_thumb.jpg (http://imgeup.com/)

ENG_Torshani
شنبه 29 خرداد 1389, 20:46 عصر
سلام دوستان معذرت عنوان اگه نا مناسبه من دو تا پروژه دارم به زبان vb می خوام دوستان توضیحی بدن که به چه صورت باید اینو بنویسم ممنون میشم ریتم کلی رو واسم بگین

[/URL][URL="http://imgeup.com/viewer.php?file=n43xwtky7rr3tcssnnsz.jpg"]http://imgeup.com/images/n43xwtky7rr3tcssnnsz_thumb.jpg (http://imgeup.com/)

این صفحه را مطالعه کنید کامل مشکلت حل میشه

http://www.bigresource.com/VB-Draw-Circle-HlLM3K0ONe.html

ameri110
شنبه 29 خرداد 1389, 21:27 عصر
با این کد میتونی تو یه پیکچر باکس دایره رسم کنی

dim radius as double
dim bucle as long
dim x as double
dim y as double

radius = 2500
Picture1.Cls

For bucle = 1 To radius
X = Sin(bucle) * radius
Y = Cos(bucle) * radius

Picture1.PSet (((Picture1.Width / 2) + (X + radius)) - radius, ((Y + radius) + Picture1.Height / 2) - radius)
Next bucle

برای رسم چندضلعی هم باید ابتدای هر خط انتهای خط بعدی باشه