使用VB绘制正余弦函数图像

shfhhf2018-05-15 15:17:34

使用VB绘制正余弦函数图像

程序运行后的界面

根据y=ASin(ωx+ψ)y=ACos(ωx+ψ)的公式,将会用到三个参数需要用户输入。即系数Aωψ;点击“绘图正弦”按钮则在左侧画出该函数图像,曲线为红色,坐标系为蓝色;点击“绘图余弦”按钮则在左侧画出该函数图像,曲线为紫色;点击清除,则左侧图像全部清空。

需要用到控件

从左到右,分别为PictureBoxCommand控件、Label控件、TextBox控件。

按图示放置好各个控件,并修改其相应的属性。

Command1.caption : 绘制正弦

Command1按钮中添加以下代码

    a = Val(Text1.Text)

    w = Val(Text2.Text)

    q = Val(Text3.Text)

以上代码获取a,w,q三个系数

 

 

Picture1.Scale (-10, 25)-(10,-25)

以上代码,设置Picture1范围x[-1010]y[-2525]之间的范围

 

    Picture1.Line (-10, 0)-(10, 0), RGB(0, 0,255)

    Picture1.Line (0, 25)-(0, -25), RGB(0, 0,255)

         以上代码,绘制xy轴;RGB(0,0,255)表示为蓝色

 

For x = -20 To 20 Step 0.0001

    y = a * Sin(w * x + q)

    Picture1.PSet (x, y), RGB(255, 0, 0)

Next x

         以上代码,绘制一元二次函数图形,且颜色为红色。

 

Command2.caption : 绘制余弦

代码(略)

 

Command3.caption : 清除

代码(略)


Copyright © 澳洲维生素进口价批发组@2017