内容正文:
信息的编程加工
——体验程序绘图的独特魅力
PPT模板下载:www.1ppt.com/moban/
绘方程 Y=x2 的曲线
绘方程 Y=x2 的曲线
手工绘制:
准备绘图工具
绘制坐标系
计算坐标点
描点连线
计算机绘制:
选择程序设计语言
绘制坐标系
计算坐标点
描点连线
绘方程 Y=x2 的曲线
Dim x, y As Single
Picture1.Scale (-10, 25)-(10, -25)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
Picture1.Line (0, 25)-(0, -25), RGB(0, 0, 255)
For x = -10 To 10 Step 0.1
y =x ^ 2
Picture1.PSet (x, y), RGB(255, 0, 0)
Next x
定义变量、坐标系
画出x轴、y轴
开始
X∈[-10,10]
否
是
Y=x2
描出(x,y)点
结束
x=x+0.1
【导学一】认识VB代码,并在VB环境中运行、观察
1.打开文件“代码匹配”,尝试理解代码的功能。
2.运行文件“绘制函数图像.frm”
【导学二】游戏闯关,体验程序设计绘图的魅力
参考每一关中的 “闯关提示”
闯过一关后,思考学案中的拓展
【导学三】尝试绘制一个圆形?
参考“代码匹配” 中流程图与代码的对比,思考如何修改代码?
画圆语句格式:Picture1.Circle (x, y), r, RGB(255, 0, 0)
举例:Picture1.Circle (0, 0), 2, RGB(255, 0, 0)
【拓展与提升】尝试绘制多个圆?
画圆语句举例1:
Picture1.Circle (x, 0), 2, RGB(255, 0, 0)
画圆语句举例2:
Picture1.Circle (0, y), 2, RGB(255, 0, 0)
画圆语句举例3:
Picture1.Circle (0, 0), r, RGB(255, 0, 0)
小结
VB编程绘图
人工绘制
程序绘制
能独立解决问题吗
解决问题的过程
优势?
谢谢大家!
$