如何用PowerPoint制作教案演示正弦波
07-22 16:18:43
来源：http://www.qz26.com PowerPoint教程 阅读：8901次
导读：仍然选中“画图象”命令按钮，点击右键，在弹出的快捷菜单中选择“查看代码”命令，打开VBA代码编辑窗口。在窗口输入如下代码:Private Sub CommandButton1_Click()A = Val(TextBox1.Text) * 20B = Val(TextBox2.Text)C = Val(TextBox3.Text) * 3.14 * 20 / 180SlideShowWindows(1).View.DrawLine 70, 200, 600, 200SlideShowWindows(1).View.DrawLine 100, 60, 100, 400Do While Count < 450x1 = Count + 100y1 = -A * Sin((B * Count + C) / 20) + 200Count = Count + 1x2 = Count + 100y2 = -A * Sin((B * Count + C) / 20) + 200SlideShowWindows(1).
如何用PowerPoint制作教案演示正弦波,标签：PowerPoint学习,PowerPoint视频教程,http://www.qz26.com
仍然选中“画图象”命令按钮，点击右键，在弹出的快捷菜单中选择“查看代码”命令，打开VBA代码编辑窗口。在窗口输入如下代码:
Private Sub CommandButton1_Click()
A = Val(TextBox1.Text) * 20
B = Val(TextBox2.Text)
C = Val(TextBox3.Text) * 3.14 * 20 / 180
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所示(最后一个文本框应输入φ的角度数)。
您可以多次输入数据，画出多个函数图象以方便观察。要清除这些图象，可以用上面的方法再做一个按钮，按钮上的文字设置为“清除图象”，编辑代码为:
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
行了，再试一次。如图6所示。呵呵，够“专业”吧?用它来演示正弦波，不错吧?
学电脑知识 尽在www.qz26.com 电脑知识网
Tag:PowerPoint教程，PowerPoint学习,PowerPoint视频教程，电脑培训学习 - 办公软件学习 - PowerPoint教程