课件教程制作PowerPoint教案演示正弦波

文章搜索：分类关键字

您的位置：首页 → 软件技巧 → 办公软件 → 课件教程制作PowerPoint教案演示正弦波

课件教程制作PowerPoint教案演示正弦波

来源:天极yesky 作者: 加入时间：2006-11-8 访问次数:80 [大中小]

　　 SlideShowWindows(1).View.DrawLine 70, 200, 600, 200
　　 SlideShowWindows(1).View.DrawLine 100, 60, 100, 400
　　 Do While Count < 450
　　 x1 = Count + 100
　　 y1 = -A * Sin((B * Count + C) / 20) + 200
　　 Count = Count + 1
　　 x2 = Count + 100
　　 y2 = -A * Sin((B * Count + C) / 20) + 200
　　 SlideShowWindows(1).View.DrawLine x1, y1, x1, y2
　　 Loop
　　 End Sub

　　放映一下，输入三个变量值，点击“画图象”按钮，看看效果如何?如图5所示(最后一个文本框应输入φ的角度数)。

课件教程制作PowerPoint教案演示正弦波(2)

输入三个变量值

　　您可以多次输入数据，画出多个函数图象以方便观察。要清除这些图象，可以用上面的方法再做一个按钮，按钮上的文字设置为“清除图象”，编辑代码为:

　　Private Sub CommandButton3_Click()
　　SlideShowWindows(1).View.EraseDrawing
　　End Sub

　　想要一个坐标系?呵呵，如果您不怕麻烦，当然可以了。做第三个按钮，按钮文字为“画坐标系”，编辑代码为:

　　rivate Sub CommandButton3_Click()
　　h = 100
　　k = 200
　　Length = 15.7
　　Number = 500
　　Dim xx
　　xx = 1
　　Do While xx < Number
　　If xx Mod 4 = 0 Then
　　SlideShowWindows(1).View.DrawLine h + xx * Length, k - 7, h + xx * Length, k
　　SlideShowWindows(1).View.DrawLine h - xx * Length, k - 7, h - xx * Length, k
　　SlideShowWindows(1).View.DrawLine h, k - xx * (Length + 4.3), h + 7, k - xx * (Length + 4.3)
　　SlideShowWindows(1).View.DrawLine h, k + xx * (Length + 4.3), h + 7, k + xx * (Length + 4.3)
　　Else
　　SlideShowWindows(1).View.DrawLine h + xx * Length, k - 3, h + xx * Length, k
　　SlideShowWindows(1).View.DrawLine h - xx * Length, k - 3, h - xx * Length, k
　　SlideShowWindows(1).View.DrawLine h, k - xx * (Length + 4.3), h + 3, k - xx * (Length + 4.3)
　　SlideShowWindows(1).View.DrawLine h, k + xx * (Length + 4.3), h + 3, k + xx * (Length + 4.3)
　　End If
　　xx = xx + 1
　　Loop
　　SlideShowWindows(1).View.DrawLine h, k, h + xx * Length, k
　　SlideShowWindows(1).View.DrawLine h - xx * Length, k, h, k
　　SlideShowWindows(1).View.DrawLine h, k, h, k - xx * Length
　　SlideShowWindows(1).View.DrawLine h, k, h, k + xx * Length
　　End Sub