دستورات لازم جهت رسم شکل گرافیکی

[bagion]

با سلام
من باید شکلی مانند زیر طراحی کنم که هر قسمت با رنگ مختلف و قابل انتخاب باشد.آیا روشی به فکر شما می رسد؟
93067

[IamOverlord]

در مورد دستور Circle جست و جو کنید، با این دستور می تونید کمان هم رسم کنید. برای رسم خطوط تو تصویر هم می تونید از توابع sin و cos استفاده کنید...

[m.4.r.m]

اگه سورس برنامه برای کسی که خواسته مهم نباشه و کلک رشتی می خوای بزنی یه راهی هست
همه اینا رو با نقاشی درست کن بعد تو تایمر هر کدوم رو یه عکس بگیر و هر 1 ثانیه مقدار visible هر کدومشون رو فعال کن . همین

[m.4.r.m]

من دایره هاشو برات رسم کردم خطوط هم خودت اضافه کن
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim i, x, y As Integer
x = 2500
y = 2500
z = 100
For i = 1 To 20
Circle (x, y), z, QBColor(Rnd * 5)
z = z + 100

Next i
End Sub

[m.4.r.m]

یه کمک دیگه اینکه برای رسم خطوط باید مثل ساعت آنالوگ استفاده کنی سورس ساعت آنالوگ رو پیدا کن خطوط را اونطوری بهش اضافه کن همین

[bagion]

یه کمک دیگه اینکه برای رسم خطوط باید مثل ساعت آنالوگ استفاده کنی سورس ساعت آنالوگ رو پیدا کن خطوط را اونطوری بهش اضافه کن همین
با سلام دوست عزیز
شما که ماشاالله برنامه نویسی گرافیکت از ما خیلی بهتره.بی زحمت این تیکه رو هم میذاشتی.
یه سوال خیلی مهمم اینه که هر قسمت از اون نواحی شکلم که شبیه مستطیله چطوری رنگش رو عوض کنم(انتخاب کنم).
به هرحال همینقدر که پاسخ دادید ممنونم.
93087

[m.4.r.m]

این پروژه رو میشه بگی کی ازتون خواسته ؟

[bagion]

این یک پروژه کروموتوگرافی رنگه.