【Class Library】

グラフプロット
　簡単に利用できるグラフプロットクラスです。 まだコードも相当乱れているので、未完成版(小数点の計算が微妙なため、そのあたりでバグることがあります。etc...) ですがそれなりの 事はできます。(^^) 制御系のプログラムでリアルタイムにアナログ値を受け取り 視覚的に表示したいとき等に用いて下さい。 下のような感じのグラフを作成することができます。

(***)
グラフタイトルは通常グラフエリア下部に表示しますが、 上部の方が見栄えが良いので、こういう形にしました。 なお、「表」のタイトルは上部と決まっています。 余談でした・・・。

★利用例★

　オブジェクトはPictureBoxのみなので、まずそれをフォームに配置して下さい。
例えば、上のようなグラフを描画したいときは、次のようなコードを追加します。 

    Dim cg As New clsgraph
    Dim i As Long
    
    '----------------------------------------
    '初期値はオブジェクトを設定する前に指定する
    'グラフエリアの大きさ指定
    cg.GraphAreaWidth = 300#
    cg.GraphAreaHeight = 300#
    'x軸,y軸の最大値・最小値を指定
    cg.XMAXValue = 100#
    cg.XMINValue = 0#
    cg.YMAXValue = 100#
    cg.YMINValue = 0#
    '目盛り間隔の指定
    cg.XDisBigScale = 10#
    cg.YDisBigScale = 10#
    cg.XDisSmallScale = 1#
    cg.YDisSmallScale = 1#
    '----------------------------------------
    
    '----------------------------------------
    '描画開始
    cg.TargetGraphObject = Picture1
    '点の描画->TEST
    For i = 0& To 10&
        cg.DrawCircle 5 * i, 10 * i, RGB(0, 0, 255)
    Next i
    'タイトルの描画
    cg.DrawGraphTitle "Fig.### Graph Title", RGB(0, 0, 0)
    cg.DrawXTitle "x-Line Title", RGB(0, 0, 0)
    cg.DrawYTitle "y-Line Title", RGB(0, 0, 0)
    '----------------------------------------
    
    '再描画
    cg.RefreshObject
    'グラフをビットマップに保存
    cg.SaveBitmapGraph "c:\000.bmp"

（サンプルプログラムの動作確認）

機種 PC-9821V13S
OS Windows95
開発ツール Visual Basic Ver.4.0
更新日 01/3/5

ダウンロード Graph.lzh(7.32KB)

Visual Basic Ver.5.0,Ver.6.0でも問題なく動作すると思います。
なお、このコーナーに掲載されているプログラムコード、およびプログラムファ イルが原因で生じた損害などに関して一切の責任を負うことはできません。

★掲載されているプログラムコード、およびプログラムファ イルを無断で配布・転載することは、原則として禁止です。

Class Libraryインデックス トップページ

Copyright(C)2001 Tomoya. All rights reserved.