Question

vb做个动态正弦函数

用VB中的图片框控件做.请问要怎么做?

Answer 1

Private Const pi = 3.14159
Private a

Private Sub Form_Load()
Me.AutoRedraw = True
'首先清除me内的图形
Me.Cls

'Scale方法设定用户坐标系，坐标原点在me中心
Me.ScaleMode = 0
Me.ScaleMode = 3
Me.Scale (-10, 10)-(10, -10)

'设置绘线宽度
Me.DrawWidth = 1

'绘坐标系的X轴及箭头线
Me.Line (-10, 0)-(10, 0), vbBlue
Me.Line (9, 0.5)-(10, 0), vbBlue
Me.Line -(9, -0.5), vbBlue
Me.ForeColor = vbBlue
Me.Print "X"
'绘坐标系的Y轴及箭头线
Me.Line (0, 10)-(0, -10), vbBlue
Me.Line (0.5, 9)-(0, 10), vbBlue
Me.Line -(-0.5, 9), vbBlue
Me.Print "Y"
'指定位置显示原点O
Me.CurrentX = 0.5
Me.CurrentY = -0.5
Me.Print "O"
'重设绘线宽度
Me.DrawWidth = 2

'用For循环绘点，使其按正弦规律变化。步长值很小，使其形成动画效果
For a = -2 * pi To 2 * pi Step pi / 6000
Me.PSet (a, Sin(a) * 5), vbRed
Next

'指定位置显示描述文字
Me.CurrentX = pi / 2
Me.CurrentY = -7
Me.ForeColor = vbBlack
Me.Print "正弦曲线示意"
End Sub

Answer 2

三角函数的一种。在直角三角形ABC中，角C等于90度，AB是斜边，BC是角A的对边，AC是角A的邻边正弦函数就是sin(A)=a/h正弦函数的性质：解析式：y=sinx图像：波形图像（由单位圆投影到坐标系得出）定义域：R值域：[-1，1]最值：①最大值：当x=(π/2)+2kπ时，y(max)=1②最小值：当x=-(π/2)+2kπ时，y(min)=-1零值点：(kπ,0)对称性：1)对称轴：关于直线x=(π/2)+kπ对称2)中心对称：关于点(kπ,0)对称周期：2π奇偶性：奇函数单调性：在[-(π/2)+2kπ,(π/2)+2kπ]上是增函数，在[(π/2)+2kπ,(3π/2)+2kπ]上是减函数