２次関数のグラフを書くには・・・（VB.net）
初めまして。
プログラム未経験なのですがVB.netでログラムを組まなくてはならなくなりました。
本を読んだのですが、分からなかったので皆さんに質問させていただきます。よろしくお願いします。
タイトル通り、「描画」ボタンのクリックで
２次関数が書きたいのですが表示されません。
参考にしたプログラムは平方根のグラフ表示です。以下
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error Resume Next
Dim g As Graphics = CreateGraphics()
g.TranslateTransform(0, ClientRectangle.Height)
g.ScaleTransform(1, -1)
g.Clear(BackColor)
Dim x As Integer
For x = 0 To 400
g.FillRectangle(Brushes.Green, x, CInt(10 * Math.Sqrt(x)), 1, 1)
Next
End Sub
以下は僕が以上から考えて書いたプログラムです。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error Resume Next
Dim g As Graphics = CreateGraphics()
g.TranslateTransform(0, ClientRectangle.Height)
g.ScaleTransform(1, -1)
g.Clear(BackColor)
Dim x, y As Integer
For x = 0 To 400 Step 10
y = -1 * (x * x) + 1
g.FillRectangle(Brushes.Blue, x, 10 * (-1 * (x * x) + 1), 1, 1)
Next
End Sub
エラーは起きないのですがグラフが出ません。
つまらない質問かもしれませんがどうかご指導お願いいたします。。。
補足
すいません、タイプミスです。 VSではGraphics と入れました。