初めまして。
プログラム未経験なのですがVB.netでログラムを組まなくてはならなくなりました。
本を読んだのですが、分からなかったので皆さんに質問させていただきます。よろしくお願いします。
タイトル通り、「描画」ボタンのクリックで
2次関数が書きたいのですが表示されません。
参考にしたプログラムは平方根のグラフ表示です。以下
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
エラーは起きないのですがグラフが出ません。
つまらない質問かもしれませんがどうかご指導お願いいたします。。。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
>y = (-1 * (x * x) + 1) / 500
>の/500というのはどういった意図があるのでしょうか?
そのままだとyの最大値は400x400=160000になるので大きすぎるようなので
500で割ってみただけだけです。
g.FillRectangle() のyの範囲はどうなっているか調べてみてください。
(Graphics のところに載っていませんか)
No.1
- 回答日時:
下記のように変えるとどうなりますか?
詳しくは、Graphics関係のところを調べてみてください。
g.TranslateTransform(0, ClientRectangle.Height)
↓
g.TranslateTransform(0, 0)
y = -1 * (x * x) + 1
g.FillRectangle(Brushes.Blue, x, 10 * (-1 * (x * x) + 1), 1, 1)
↓
y = (-1 * (x * x) + 1) / 500
g.FillRectangle(Brushes.Blue, x, y, 1, 1)
お返事ありがとうございます。
教えていただいたように変更してみたところ、
左上から右下にグラフが下りてくるものがかけました。
y = (-1 * (x * x) + 1) / 500
の/500というのはどういった意図があるのでしょうか?
すごく嬉しいです!
回答ありがとうございました!!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 九九の答えの計算 3 2022/12/20 22:13
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) VBAプログラミング 2 2022/11/27 12:07
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
あるプログラムのコマンドライ...
-
Excelで4096点以上のFFTの方法
-
PICマイコンのコピー(クローン...
-
PICアセンブラを出来る方、教え...
-
Excelに埋め込んだVBAのプログ...
-
読み込み中にアクセス違反が発...
-
「Outlookが他のプログラムによ...
-
スポーツ施設での出来事で心配...
-
画像を読み込むのと取り込むの...
-
モジュール、アプリケーション...
-
VBAでユーザーフォームが自動的...
-
Pro*Cで動的SQLを実現する為の...
-
グラフをC#のASP.net MVCで表示...
-
fortranのコメントアウト
-
VBAにてメール作成した際、一部...
-
exeファイルしかないプログラム...
-
テキストボックスのエンターキ...
-
英語曲名の表示方法
-
Vba 実数および実数タイプの変...
-
エクセルとワードをデスクトッ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
あるプログラムのコマンドライ...
-
Excelで4096点以上のFFTの方法
-
Excelに埋め込んだVBAのプログ...
-
「Outlookが他のプログラムによ...
-
VBAにてメール作成した際、一部...
-
Notepad++の関数リスト表示でC...
-
自動クエリとはどういうもので...
-
読み込み中にアクセス違反が発...
-
PICマイコンのコピー(クローン...
-
XnViewにwebpを「いつも開く」...
-
未使用の変数を一括検索する方法
-
VBAでユーザーフォームが自動的...
-
UWSCで指定のフォルダを開きたい。
-
パックマンプログラム
-
このプログラミング誰か教えて...
-
モジュール、アプリケーション...
-
Vba UserFormを前面に出す方法...
-
特定のwebサイトのタイトルや記...
-
ドロップダウンリストの文字を...
-
画像を読み込むのと取り込むの...
おすすめ情報