vb.net 히스토그램에서 x좌표 변환하기..

[다륜]

벌써 몇번째 글을 올리는지 ㅜㅜ

Imports System.Drawing
Imports System
Imports System.Windows.Forms.Form

Public Class Form1
    Inherits System.Windows.Forms.Form

    Dim running As Boolean
    Dim d As Single
    Dim a, b As Integer
    Dim p, q As Single
    Dim i, j, k As Integer
    Dim output1, output3 As String
    Dim w(10) As Integer

    Protected Overrides Sub onpaint(ByVal e As PaintEventArgs)
        Dim g As Graphics = e.Graphics
        Dim pen As Pen = New Pen(Color.Black)

        output1 = "갯 수" & vbTab & vbTab & "Random Number" & vbCrLf & vbCrLf

        For i = 1 To 10
            w(i) = 0
        Next

        For i = 1 To 1000
            p = Rnd()
            q = CInt(p * 10 + 0.5)
            w(q) = w(q) + 1
            output1 &= i & vbTab & vbTab & p & vbCrLf
        Next i

        For j = 1 To 10

            output3 &= j - 1 & vbTab & vbTab & w(j) & vbCrLf
        Next
        TextBox1.Text = output1
        TextBox2.Text = output3

        For a = 1 To 10                                 <----------- 이부분 X좌표를 바꿔줘야 하는데
            b = (5 / 7) * w(a)
            g.DrawLine(New Pen(Color.Red), 370, b, 405, b)

        Next                                                  <----------- 여기까지 ㅠㅠ

        g.DrawLine(pen, 365, 270, 750, 270)
        g.DrawLine(pen, 370, 270, 370, 20)

        For d = 370 To 740 Step 35

            g.DrawLine(pen, d, 265, d, 275)
            'g.DrawLine(New Pen(Color.Red), 370, b, 720, b)
        Next

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

안녕하세요... 벌써 몇번째 글인지 ㅜㅜ

소스를 보시면 폼이 로드 되면 난수가 발생 하여 텍스트 박스1에는 난수가 뿌려지고, 텍스트박스2 에는 난수를 정수로 변환한뒤 0~9 사이에 몇개가 나왔는지를 뿌렸습니다.

그리고 폼 오른쪽에 좌표를 그렸습니다.

그 좌표에 x축은 0~10까지 1씩 나눴고, y축에 0~9사이에 나타난 난수 갯수를 그릴려고 합니다. 헌데 위 소스에 표시한 부분을 보면 y좌표는 배열을 넣어서 나눴는데 그림이 한곳에 몰려서 나타 납니다. x좌표를 바꿔줘야 하는데, 어떻게 해야할지...

이것만 해결하면 거의 끝나는데...

고수님들의 조언 부탁 드립니다.

x좌표를 35 단위로 벌려서 그려야 하는데.. 아무리 해도 화면 전체가 다 그려지거나, 한쪽에 몰려서 그려 집니다..

조언 부탁 드립니다..

p.s 그래프 그리는게 너무 어렵네요 ㅠㅠ

[다륜]

결국에는 그래프에서 좌표 구하는거 해결 했습니다 ㅜㅜ 글 읽어주신분들에게 감사 드립니다 ^^;