ここから本文です

Visual Basic スケールの取り方とPset文、Line文について

som********さん

2008/6/1315:32:00

Visual Basic スケールの取り方とPset文、Line文について

周期信号成分の抽出を行いたいのですが、スケールの取り方とPset文、Line文がわかりません。

Form1は、
コマンドボタン Caption=実行
コマンドボタン Caption=印刷
ピクチャーボックス1
ピクチャーボックス2
として、ピクチャーボックス1に信号波形、ピクチャーボックス2に相関波形を書きます。


Form1 Command1_Click()
DIM X(200) As Single,t As Single
DIN I As Integer ,N As Integer
Const pai=3.14

このあと
Picture1.scale (,)-(,)と続きますがスケールの取り方がいまいちわかりません。 適当な値にするとエラーになってしまいます。

Picture1.Cls

N=100
A=1
f=2*pai*10

このあとにPset文、Line文でX(I)のグラフをPicture1に書きます。が、Pset文、Line文がよくわかりません。

閲覧数:
2,899
回答数:
1
お礼:
25枚

違反報告

ベストアンサーに選ばれた回答

sap********さん

2008/6/1322:30:37

VB6 と思いますが、あなたの開発環境にはヘルプが無いんでしょうか?
ヘルプを見れば1分で解決すると思います。以下、ヘルプからの抜粋。



★Scale メソッド

Form オブジェクト、ピクチャ ボックス コントロール、または Printer オブジェクトの座標系を定義します。

Scale メソッドの構文と構文の指定項目は次のとおりです。

object.Scale (x1, y1) - (x2, y2)


指定項目:内容
-------------------------------------------------------------------------------
object:省略可能です。「対象」一覧内のいずれかのオブジェクトを指すオブジェクト式です。object を省略すると、フォーカスを持つ Form オブジェクトが指定されます。
-------------------------------------------------------------------------------
x1, y1:省略可能です。object の左上隅の水平 (x 軸) および垂直 (y 軸) 方向の座標を定義する単精度の値をかっこで囲んで指定します。この引数を省略すると、引数 x2、y2 で設定された値も省略されます。
-------------------------------------------------------------------------------
x2, y2:省略可能です。object の右下隅の水平および垂直方向の座標を定義する単精度の値をかっこで囲んで指定します。この引数を省略すると、引数 x1、y1 で設定された値も省略されます。
-------------------------------------------------------------------------------


解説

Scale メソッドを使うと、任意のスケールに座標系を設定できます。
Scale メソッドは、実行時のグラフィックス関連のステートメントとコントロールの配置の両方の座標系に影響します。
引数を省略して Scale メソッドを実行すると、座標系はtwip 単位に再設定されます。



★Scale メソッドの例
次のプログラムは、Scale メソッドを使って、フォーム上に棒グラフを描くための座標系を設定する例です。
このプログラムを実行するには、フォーム モジュールのコード エディタ ウィンドウに下のコードを貼り付け、F5 キーを押します。
起動後、フォームをクリックします。

Private Sub Form_Click ()
Dim I, OldFontSize ' 変数を宣言します。
Width = 8640: Height = 5760 ' フォームのサイズを設定 (twip) します。
Move 100,100 ' フォームを移動します。
AutoRedraw = -1 ' AutoRedraw プロパティを有効にします。
OldFontSize = Font.Size ' 現在のフォント サイズを保管します。
BackColor = QBColor(7) ' 背景色を灰色に設定します。
Scale (0, 110)-(130, 0) ' 座標を設定します。
For I = 100 To 10 Step -10
Line (0, I)-(2, I) ' 目盛りを 10 単位に設定します。
CurrentY = CurrentY + 1.5 ' カーソル位置を移動します。
Print I ' 左側の目盛りを表示します。
Line (ScaleWidth - 2, I)-(ScaleWidth, I)
CurrentY = CurrentY + 1.5 ' カーソル位置を移動します。
CurrentX = ScaleWidth - 9
Print I ' 右側の目盛りを表示します。
Next I
' 棒グラフを引きます。
Line (10, 0)-(20, 45), RGB(0, 0, 255), BF ' 1 番目の青い棒グラフを引きます。
Line (20, 0)-(30, 55), RGB(255, 0, 0), BF ' 1 番目の赤い棒グラフを引きます。
Line (40, 0)-(50, 40), RGB(0, 0, 255), BF
Line (50, 0)-(60, 25), RGB(255, 0, 0), BF
Line (70, 0)-(80, 35), RGB(0, 0, 255), BF
Line (80, 0)-(90, 60), RGB(255, 0, 0), BF
Line (100, 0)-(110, 75), RGB(0, 0, 255), BF
Line (110, 0)-(120, 90), RGB(255, 0, 0), BF
CurrentX = 18: CurrentY = 100 ' カーソル位置を移動します。
Font.Size = 14 ' フォントを拡大します。
Print "年 4 回の商品セール" ' タイトルを出力します。
FontSize = OldFontSize ' フォント サイズを戻します。
CurrentX = 27: CurrentY = 93 ' カーソル位置を移動します。
Print "計画 Vs 実績" ' サブ タイトルを出力します。
Line (29, 86)-(34, 88), RGB(0, 0, 255), BF ' グラフ サンプルを出力します。
Line (43, 86)-(49, 88), RGB(255, 0, 0), BF
End Sub

あわせて知りたい

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる