内容正文:
科技改变未来
视频欣赏
体验程序的作用及其编制环境
The role of experience program and compile environment
学习目标
1
2
体验程序
初识 Visual Basic——VB
认识VB的操作界面
能操作运行程序
会查看程序代码
会生成可执行的exe文件
知道程序的作用
能修改简单的程序代码
说出程序的实际应用案例
初识VB
界面
窗体设计器
菜单栏
工具栏
控件栏
初识VB
打开
开始
程序
VB
“现存”选项卡—打开文件
程序体验之旅
开启
4.1.2课文件夹中
——学习任务清单.doc
按清单中的要求完成任务一
回答问题
For x = -2 To 2 Step 0.01
y = 0.5 * x * Sin(x) * Cos(500 * x)
Picture1.PSet (x, y), RGB(0, 0, 255)
Next x
x= -10to10
修改描点先后可以看出:
曲线的长度发生了改变
程序体验初识
修改之美
程序体验初识
修改之美
For x = -2 To 2 Step 0.01
y = 0.5 * x * Sin(x) * Cos(500 * x)
Picture1.PSet (x, y), RGB(0, 0, 255)
Next x
0.00001
修改步长可以看出:
曲线的点密集了
For x = -2 To 2 Step 0.01
y = 0.5 * x * Sin(x) * Cos(500 * x)
Picture1.PSet (x, y), RGB(0, 0, 255)
Next x
picture1.pset(y,x)
修改描点先后可以看出:
曲线的纵横发生了改变
程序体验初识
修改之美
For x = -2 To 2 Step 0.01
y = 0.5 * x * Sin(x) * Cos(500 * x)
Picture1.PSet (x, y), RGB(0, 0, 255)
Next x
RGB(255,10,136)
修改RGB可以看出:
曲线的颜色改变了
程序体验初识
修改之美
绘制出上面的曲线
程序实操运用
模仿之美
绘制出上面的曲线
程序提高训练
运用之美
数学式 VB表达式
y=sinxcos(x6) y=Sin(x) * Cos(x ^ 6)
y=0.001-xcosxsin(50x) y=0.001-x*Cos(x)*Sin(x * 50)
y= sin(50x)Tan(50x) y= Sin(50 * x) *Tan(50 * x)
Private Sub Command1_Click()
For x = -10 To 10 Step 0.0001
Picture1.PSet (x, y), RGB(255, 0, 0)
Next x
End Sub
y=Sin(x) * Cos(x ^ 6)
程序提高训练
运用之美
Private Sub Command1_Click()
For x = -10 To 10 Step 0.0001
Picture1.PSet (x, y), RGB(255, 0, 0)
Next x
End Sub
y=0.001-x*Cos(x)* Sin(x*50)
程序提高训练
运用之美
Private Sub Command1_Click()
For x = -10 To 10 Step 0.0001
Picture1.PSet (x, y), RGB(255, 0, 0)
Next x
End Sub
y=Sin(50*x)*Tan(50 * x)
程序提高训练
运用之美
制作自己的创意曲线
要求:
作品名:姓名+机器号
作品格式类型:.EXE
上交地址:ftp://10.97.141.2班级文件夹
注:EXE文件生成操作:
文件——生成曲线.exe——确定
程序创意探究
创意之美
程序探究之乐
破解之乐
双击程序进行破解之旅:
大家开动脑筋,进行破解之乐吧!
这个程序的作用是什么呢?
程序现实应用
说一说
在日常的生活、学习中,我们都可以在哪里看到程序的应用?
知识小结
1
2
体验程序
初识 Visual Basic——VB
认识VB的操作界面
能操作运行程序
会查看程序代码
会生成可执行的exe文件
知道程序的作用
能修改简单的程序代码
说出程序的实际应用案例
$$