여기에서 회전, 이동, 그리기 및 확대/축소가 잘못되었습니다.

Question

' details of bitmap 
Dim bm As New Bitmap(1000, 1000) 
Dim graph As Graphics = Graphics.FromImage(bm) 
'when mouse down on pic draw values 
Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown 
    Dim rad As Double 
    Dim angle As Integer 
    rad = angle * System.Math.PI/180 
    'equations for rotate lines 

    Dim x As Integer = System.Math.Sin(rad) - System.Math.Cos(rad) 
    Dim y As Integer = System.Math.Sin(rad) + System.Math.Cos(rad) 
    Dim z As Integer = System.Math.Cos(rad) + System.Math.Sin(rad) 

    graph.DrawLine(New Pen(Color.Orange, 1), 150 + e.X, 210 + e.Y, y + 150 - e.X, (x) + 210 - e.Y) 
    graph.DrawLine(New Pen(Color.Orange, 1), 160 + e.X, 220 + e.Y, (y) + 160 - e.X, (x) + 220 - e.Y) 
    graph.DrawLine(New Pen(Color.Orange, 1), 170 + e.X, 230 + e.Y, y + 170 - e.X, (x) + 230 - e.Y) 
    graph.DrawLine(New Pen(Color.Orange, 1), 180 + e.X, 240 + e.Y, (y) + 180 - e.X, (x) + 240 - e.Y) 

    graph.DrawLine(New Pen(Color.Orange, 1), 210 + e.X, 150 + e.Y, y + 210 - e.X, (x) + 150 - e.Y) 
    graph.DrawLine(New Pen(Color.Orange, 1), 220 + e.X, 160 + e.Y, (y) + 220 - e.X, (x) + 160 - e.Y) 
    graph.DrawLine(New Pen(Color.Orange, 1), 230 + e.X, 170 + e.Y, y + 230 - e.X, (x) + 170 - e.Y) 
    graph.DrawLine(New Pen(Color.Orange, 1), 240 + e.X, 180 + e.Y, (y) + 240 - e.X, (x) + 180 - e.Y) 

    graph.DrawLine(New Pen(Color.Green, 1), 210 + e.X, 150 + e.Y, 150 + e.X, 210 + e.Y) 
    graph.DrawLine(New Pen(Color.Green, 1), 220 + e.X, 160 + e.Y, 160 + e.X, 220 + e.Y) 
    graph.DrawLine(New Pen(Color.Green, 1), 230 + e.X, 170 + e.Y, 170 + e.X, 230 + e.Y) 
    graph.DrawLine(New Pen(Color.Green, 1), 240 + e.X, 180 + e.Y, 180 + e.X, 240 + e.Y) 

    graph.DrawLine(New Pen(Color.Green, 1), y + 210 - e.X, (x) + 150 - e.Y, y + 150 - e.X, (x) + 210 - e.Y) 
    graph.DrawLine(New Pen(Color.Green, 1), (y) + 220 - e.X, (x) + 160 - e.Y, (y) + 160 - e.X, (x) + 220 - e.Y) 
    graph.DrawLine(New Pen(Color.Green, 1), y + 230 - e.X, (x) + 170 - e.Y, y + 170 - e.X, (x) + 230 - e.Y) 
    graph.DrawLine(New Pen(Color.Green, 1), (y) + 240 - e.X, (x) + 180 - e.Y, (y) + 180 - e.X, (x) + 240 - e.Y) 

    PictureBox1.Image = bm 
End Sub 

는 마우스 이동 라인을 회전 할 때 여기 내 묻고는 didnt한다 스트레칭 및 그리기 개체 만들고 싶어하고 회전 :

Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove 
    PictureBox1.Refresh() 
    Dim graph As Graphics = PictureBox1.CreateGraphics 
    Dim rad As Double 
    Dim angle As Integer 
    rad = angle * System.Math.PI/180 

    Dim x As Integer = System.Math.Sin(rad) - System.Math.Cos(rad) 
    Dim y As Integer = System.Math.Sin(rad) + System.Math.Cos(rad) 
    Dim z As Integer = System.Math.Cos(rad) + System.Math.Sin(rad) 

    graph.DrawLine(New Pen(Color.Green, 1), e.X, e.Y, x + 200 - e.X, (y) + 400 - e.Y) 
    graph.DrawLine(New Pen(Color.Red, 1), e.X, e.Y, (y) + 400 - e.X, (z) + 200 - e.Y) 
    graph.DrawLine(New Pen(Color.Blue, 1), e.X, e.Y, z + 400 + e.X, x + 200 - e.Y) 
    graph.DrawLine(New Pen(Color.Orange, 1), 150 + e.X, 210 + e.Y, y + 150 - e.X, (x) + 210 - e.Y) 
    graph.DrawLine(New Pen(Color.Orange, 1), 160 + e.X, 220 + e.Y, (y) + 160 - e.X, (x) + 220 - e.Y) 
    graph.DrawLine(New Pen(Color.Orange, 1), 170 + e.X, 230 + e.Y, y + 170 - e.X, (x) + 230 - e.Y) 
    graph.DrawLine(New Pen(Color.Orange, 1), 180 + e.X, 240 + e.Y, (y) + 180 - e.X, (x) + 240 - e.Y) 

    graph.DrawLine(New Pen(Color.Orange, 1), 210 + e.X, 150 + e.Y, y + 210 - e.X, (x) + 150 - e.Y) 
    graph.DrawLine(New Pen(Color.Orange, 1), 220 + e.X, 160 + e.Y, (y) + 220 - e.X, (x) + 160 - e.Y) 
    graph.DrawLine(New Pen(Color.Orange, 1), 230 + e.X, 170 + e.Y, y + 230 - e.X, (x) + 170 - e.Y) 
    graph.DrawLine(New Pen(Color.Orange, 1), 240 + e.X, 180 + e.Y, (y) + 240 - e.X, (x) + 180 - e.Y) 

    graph.DrawLine(New Pen(Color.Green, 1), 210 + e.X, 150 + e.Y, 150 + e.X, 210 + e.Y) 
    graph.DrawLine(New Pen(Color.Green, 1), 220 + e.X, 160 + e.Y, 160 + e.X, 220 + e.Y) 
    graph.DrawLine(New Pen(Color.Green, 1), 230 + e.X, 170 + e.Y, 170 + e.X, 230 + e.Y) 
    graph.DrawLine(New Pen(Color.Green, 1), 240 + e.X, 180 + e.Y, 180 + e.X, 240 + e.Y) 

    graph.DrawLine(New Pen(Color.Green, 1), y + 210 - e.X, (x) + 150 - e.Y, y + 150 - e.X, (x) + 210 - e.Y) 
    graph.DrawLine(New Pen(Color.Green, 1), (y) + 220 - e.X, (x) + 160 - e.Y, (y) + 160 - e.X, (x) + 220 - e.Y) 
    graph.DrawLine(New Pen(Color.Green, 1), y + 230 - e.X, (x) + 170 - e.Y, y + 170 - e.X, (x) + 230 - e.Y) 
    graph.DrawLine(New Pen(Color.Green, 1), (y) + 240 - e.X, (x) + 180 - e.Y, (y) + 180 - e.X, (x) + 240 - e.Y) 
End Sub 

Answer 1

사본의 방법/코드를 붙여 넣기하는 것은 잘못된 것입니다.

graph.DrawLine(New Pen(Color.Orange, 1), 150 + e.X, 210 + e.Y, y + 150 - e.X, (x) + 210 - e.Y) 
graph.DrawLine(New Pen(Color.Orange, 1), 160 + e.X, 220 + e.Y, (y) + 160 - e.X, (x) + 220 - e.Y) 
graph.DrawLine(New Pen(Color.Orange, 1), 170 + e.X, 230 + e.Y, y + 170 - e.X, (x) + 230 - e.Y) 
graph.DrawLine(New Pen(Color.Orange, 1), 180 + e.X, 240 + e.Y, (y) + 180 - e.X, (x) + 240 - e.Y) 

프로그래밍의 95 %는 코드 읽기에 관한 것입니다. 따라서 코드를 작성할 때 나중에 읽는 시간을 줄이거 나 다른 사람이 읽지 않도록 최대한 작게 작성해야합니다.

코드 # 1의 벽을 보면 모든 시퀀스가 ​​숫자 150 또는 210에서 시작한다는 것을 알 수 있습니다. 그런 다음 +10 단위로 증가합니다. 또한 대괄호 안에 y 및 x을 찍는 것이 중요하지 않습니다. 위의를 사용하여, 코드를 다시 작성할 수 있습니다 :

이

Sub DrawLines(g As Graphics, color As Color, offsetX As Integer, offsetY As Integer) 
    For i As Integer = 0 to 3 
    Dim leftShift As Integer = offsetX + i*10 
    Dim topShift As Integer = offsetY + i*10 
    g.DrawLine(New Pen(color, 1), 
       leftShift + e.X, topShift + e.Y, 
       y + leftShift - e.X, x + topShift - e.Y)  
    Next 
End Sub 

그런 다음이 4 명 등 4 비슷한 선이 될 : 이제

DrawLines(graph, Color.Orange, 150, 210) 
DrawLines(graph, Color.Orange, 210, 150) 

를, 더 읽기가 아닌가요? 이 두 라인의 문제를 발견하는 것이 다른 8 개 문제보다 쉽지 않습니까? 문제를 파헤 치기 전에 "테이블"에있는 어떤 것도 느려질 수 있습니다. 이 원칙은 DRY입니다. 이 경우 코드 품질로 인해 솔루션을 찾는 속도가 느려집니다. 비슷한 코드 조각 두 개를 볼 때, 우리는 유사점 (자연적으로)을 알아 내려고 노력하고 있습니다. 더 많은 차이점 - 코드를 보는 데 소요되는 시간이 줄어 듭니다. 위와 비슷한 방식으로 리팩터링에 시간을 할애하고 작업이 끝나면 다시 게시하십시오.