[ TOP | BACK | NEXT ]

ＶｉｓｕａｌＢａｓｉｃ６．０を使う　　　　　2000．1．19（水）,20（木）

第6回　三角関数のグラフを描こう

今日のプログラムは　三角関数のグラフ


Rem SETO

Rem =====SANKAKU======

Private Sub Form_Load()

    Visible = True

    AutoRedraw = True

    Dim T As Single

    Dim X As Double

    Dim Y As Double

    Dim WX As Integer

    WX = 10

    Scale (-WX, WX)-(WX, -WX)

    Line (-WX, 0)-(WX, 0): Line (0, WX)-(0, -WX)

    For T = -8 To 8 Step 0.01

        X = FX(T)

        Y = FY(T)

        PSet (X, Y), QBColor(0)

    Next T

End Sub



Print　"自分の名前"

Form1.PrintForm



Function FX(T As Single) As Double

   FX = T

End Function



Function FY(T As Single) As Double

   FY = Sin(T)

End Function

作業

  1. プログラムを入力し実行。三角関数のグラフが描けたら成功です。
    1. 関数を変えてみる。
      　下から2行目を　FY = Cos(T)にする。
    2. ﾘｻ-ｼﾞｭ曲線
      　上から10行目を　WX = 2 へ
      1. 下から5行目を　FX = SIN(T)、2行目をFY = SIN(2*T) へ変える。
      2. FX = SIN(3*T) 、FY = SIN(4*T) へ変える。
    3. ｴﾋﾟｻｲｸﾛｲﾄﾞ
      　WX = 10へ
      　FX(T) = 5 * COS(T) - COS(5*T)
      　FY(T) = 5 * SIN(T) - SIN(5*T)
    4. 正葉曲線
      　FX(T) = SIN(7*T)
      　FY(T) = SIN(7*T)
      　X = FX(T) * COS(T)
      　Y = FY(T) * SIN(T)
  3. 自分の気に入ったものを保存　プロジェクト名　：Prjsin1　フォーム名：frmsin1など
  4. プログラムと作品提出

[ TOP | BACK | NEXT ]