vb2010でpictureboxにグラフを描く

質問

みなさん教えてください。

vb2010を用いて「picturebox」に下図のようなグラフを描きたいと思っています。

どうしてもＹ軸が図のように対数にすることができません。

できればソースを教えて頂けたらうれしいです。

よろしくお願い致します。

回答No.2

nag0720

PictureBoxの基本的な使い方が分からないのでしょうか？

そうならここで簡単に説明できるようなものでもないので、次のようなサイトで基礎から学んでください。

http://homepage1.nifty.com/rucio/main/dotnet/shokyu/standard2.htm
http://hanatyan.sakura.ne.jp/dotnet/zu05.htm

回答No.1

nag0720

図を見ると、単純な対数グラフではありませんね。
50を真ん中にして、上下で目盛りの計算を変える必要があります。

とりあえず、グラフのY座標を表示するプログラムを作ってみました。
グラフの上下のY座標をyTopとyBottomに入れていますので、これを適切な値に変えてください。

Dim p As Variant
Dim y As Integer
Dim yTop As Integer
Dim yBottom As Integer
Dim m As Double
yTop = 50
yBottom = 200
m = (yBottom - yTop) / (Log(50) - Log(0.1)) / 2
For Each p In Array(0.1, 1, 5, 10, 20, 30, 40, 50, 60, 70, 80, 90, 95, 99, 99.9)
If p <= 50 Then
y = yBottom - m * (Log(p) - Log(0.1))
Else
y = yTop + m * (Log(100 - p) - Log(0.1))
End If
MsgBox p & " : " & y
Next

お礼

nag0720様

ご回答ありがとうございます。

申し訳ありません。質問の内容にかけている部分がありました。

また教えて頂きたいのですが、「picturebox」に上図の通りのグラフを作成していますが、枠のラインなどうまく引くことができません。

もしよろしければ、「picturebox」に図の通りのグラフを描くにはどうすればよいかご教授いただけませんか。

よろしくお願いします