| ■1669 / inTopicNo.3) | Re[1]: ヒストグラム |
| ■No1622 (スティッチ さん) に返信 Color.R が byte 型で、Bitmap.SetPixcel メソッドの第二引数は int 型。 ってか、ヒストグラム、分布図ですよね？ 参考： http://aoki2.si.gunma-u.ac.jp/lecture/Dosuu/histogram.html このコードだと、「座標(i, tmp(i)) が白か黒か」を見るためのグラフになりません？ ヒストグラムにするなら、i は関係なく、座標(i, tmp(i)) の白と黒の数を数えないとダメなんじゃない？ > For i = 0 To 255 > g.DrawLine(New Pen(Color.Blue), 10 + i, 290, 10 + i, 290 - tmp(i)) > Next 'i ぐはっ！こんなことするなぁ〜！ Pen は、Dispose が（たぶん）必要なオブジェクトです。こんなことをすると、解放できない Pen インスタンスが、255個も出来てしまいます。 Dim BluePen As Pen = New Pen(Color.Blue) For i = 0 To 255 g.DrawLine(BluePen, 10 + i, 290. 10 + i, 290 - tmp(i)) Next ' BluePen.Dispose() ' Color.Blue がシステム定義カラーだから、要らないかもしれない |