چرخش خط

[pouya9111]

چرخش یک خط دور خودش کسی بلده؟

[gilsoft]

چرخش یک خط دور خودش کسی بلده؟

سلام دوست عزیز

این کد رو قبلا جهت شبیه سازی ثانیه‌شمار نوشته بودم ( البته بقیه‌اش رو باید خودت کامل کنی ... من فقط استارت‌شو برات زدم )

اول یه Button یه PictureBox به Form اضافه کن و سپس کدهای زیر رو به داخل Form کپی کن

Option Strict On
Public Class Form1
Const Pi As Double = Math.PI
Private buttonClicked As Boolean


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
Me.PictureBox1.BackColor = Color.Black
Me.Button1.Text = "Draw"
End Sub


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If buttonClicked = False Then
buttonClicked = True
Button1.Text = "Clear"
Else
buttonClicked = False
Button1.Text = "Draw"
End If
Me.Refresh()
End Sub


Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Dim radius As Integer = 90
Dim centreX As Integer = CInt(PictureBox1.Width / 2)
Dim centreY As Integer = CInt(PictureBox1.Height / 2)
Dim x1, y1 As Integer
Dim myPen As Pen


If buttonClicked = True Then
myPen = New Pen(Color.White, 1)
Else
myPen = New Pen(Color.Black, 1)
End If
For x = 0 To 2 * Pi Step ((2 * Pi) / 60)
x1 = Convert.ToInt32(radius * Math.Sin(x) + centreX)
y1 = Convert.ToInt32(radius * Math.Cos(x) + centreY)


e.Graphics.DrawLine(myPen, centreX, centreY, x1, y1)
Next x
End Sub
End Class

موفق باشید ....