ahmadfononi
معاونت انجمن
این برنامه عدد N را دریافت می کند و یک N ضلعی منتظم رسم کرده و دایره محاطی آنرا هم رسم می کند و همه قطرهایش را نیز رسم می کند
برای یک command دستورات زیر را مرقوم فرمایید :
کد:
برای یک command دستورات زیر را مرقوم فرمایید :
کد:
Private Sub Command1_Click()
Form1.AutoRedraw = True
Form1.WindowState = 2
Form1.ScaleMode = 3
Form1.FillColor = RGB(250, 200, 50)
h = Val(InputBox("ÊÚÏÇÏ ÖáÚ "))
x = Form1.ScaleWidth \ 2
y = Form1.ScaleHeight \ 2
z = 360 / h
c = 240 * Sin(z / 2 * 3.14 / 180)
r2 = Sqr(240 ^ 2 - c ^ 2)
Form1.Circle (x, y), r2, vbBlue
For u = 1 To h
X1 = x + 240 * Cos(u * z * 3.14 / 180)
Y1 = y - 240 * Sin(u * z * 3.14 / 180)
For w = 1 To h
X2 = x + 240 * Cos(w * z * 3.14 / 180)
Y2 = y - 240 * Sin(w * z * 3.14 / 180)
Form1.Line (X1, Y1)-(X2, Y2), RGB(0, 55, 255)
Next
Next
End Sub
Form1.AutoRedraw = True
Form1.WindowState = 2
Form1.ScaleMode = 3
Form1.FillColor = RGB(250, 200, 50)
h = Val(InputBox("ÊÚÏÇÏ ÖáÚ "))
x = Form1.ScaleWidth \ 2
y = Form1.ScaleHeight \ 2
z = 360 / h
c = 240 * Sin(z / 2 * 3.14 / 180)
r2 = Sqr(240 ^ 2 - c ^ 2)
Form1.Circle (x, y), r2, vbBlue
For u = 1 To h
X1 = x + 240 * Cos(u * z * 3.14 / 180)
Y1 = y - 240 * Sin(u * z * 3.14 / 180)
For w = 1 To h
X2 = x + 240 * Cos(w * z * 3.14 / 180)
Y2 = y - 240 * Sin(w * z * 3.14 / 180)
Form1.Line (X1, Y1)-(X2, Y2), RGB(0, 55, 255)
Next
Next
End Sub