prague12

Public Class Form1
Dim I As Long, HFc As Long, WFc As Single
Dim Cx As Long, Cy As Long
Dim Lx As Long = 0
Dim Ly As Long = 0
Dim Nx As Long, Ny As Long

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim G As Graphics = PictureBox1.CreateGraphics ' .CreateGraphics 不會自動出現浮現 但是key上後才會出現提示 可能是BUG

'--------------------------------可調可不調------
'重新調整表單大小

' Me.Width = 720
' Me.Height = 432
'
'重新設定元件位置
' Button1.Location = New Point(604, 2)
' PictureBox1.Location = New Point(2, 2)
' PictureBox1.Size = New Size(600, 360)


'-------------------------------------

HFc = 90
WFc = 0.4
Cx = PictureBox1.ClientSize.Width / 2 '取PictureBox1 寬度的一半
Cy = PictureBox1.ClientSize.Height / 2 '取PictureBox1 高度的一半
G.DrawLine(Pens.Black, Cx, 0, Cx, PictureBox1.ClientSize.Height) '畫y軸
G.DrawLine(Pens.Black, 0, Cy, PictureBox1.ClientSize.Width, Cy) '畫x軸


For I = -720 To 720 Step 90
G.DrawLine(Pens.Black, Cx + I * WFc, Cy - 3, Cx + I * WFc, Cy + 3) '畫刻度線
G.DrawString(I, Me.Font, Brushes.Black, Cx + I * WFc * 0.98, Cy + 5) ' 畫上刻度值
Next
Lx = -720 * WFc + Cx
Ly = Cy

For I = -720 To 720
Nx = Cx + I * WFc
Ny = Cy - HFc * Math.Sin(I * 0.017453292519) 'I * 0.017453292519 >> I 度數

G.DrawLine(Pens.Red, Lx, Ly, Nx, Ny) '用DrawLine 畫一個點 , 起點座標(Lx,Ly) 和 末點座標(Nx,Ny) 要不一樣才行

Lx = Nx 'X座標畫線起始點轉成LX
Ly = Ny 'y座標畫線起始點轉成Ly

Next
' PictureBox1.BorderStyle = BorderStyle.FixedSingle '重新調整 PictureBox1最外圍框線

End Sub


End Class