《信息的编程加工》PPT课件.ppt
信息的编程加工,邹城市第一中学,农夫过河,农夫带着一只狼、一只羊和一筐蔬菜，想撑船从南岸渡河到北岸。他只有一条小船，船上只能容下他和一样东西。如果农夫在场，则狼不能吃羊，羊不能吃蔬菜，否则狼会吃羊，羊会吃蔬菜，你能不能帮农夫找出一种安全的渡河方法呢？你需要考虑哪些因素呢？,分析问题,编程加工第一步：,有两个杯子 A、B，分别盛放蓝墨水和红墨水，要求它们里面的墨水互换，能实现吗？,思考1：,编程加工第二步：,设计算法,再给你一个杯子C能实现吗？请分析一下问题并给出操作步骤。,可视化设计（前台）-交互界面,代码编程（后台）,可分为两大部分：,绘制控件对象设置对象的属性,创建一个简单应用程序，该应用程序由一个文本框和一个命令按钮组成。单击命令按钮，文本框中会出现你太棒了 消息。,练习,Do it yourself,Print(“”)Msgbox(“”),试一试,想为窗体加入背景画面吗？试着通过窗体form1的picture属性来设置,VB简介,窗体,工具箱,属性窗口,工程资源管理器,编程绘制 y=x2 的函数图像,问题分析,“描点法”手工绘制步骤：,第一步 准备好绘图工具；,第二步 绘制坐标系的横轴与纵轴；,第三步 依据要绘图的函数表达式，选择几个自变量的值算出相 应的因变量值，得到一组坐 标点；,第四步 在坐标系上描出这几个点，尽量光滑地描点连线。,问题分析,计算机编程绘制函数图像的过程：,第一步 选择计算机程序设计语言；,第二步 绘制坐标系；,第三步 根据函数表达式计算所要描 点的坐标；,第四步 在坐标系上描点成像。,让我们一起动手体验编程,信息编程加工的四个步骤,分析信息；,设计方法；,编写代码；,调试运行。,设计方法；,编写代码；,认识代码,Private Sub Command1_Click()确定按钮单击事件 Dim x,y As Single Scale(-10,25)-(10,-25)Line(-10,0)-(10,0),RGB(0,0,255)Line(0,25)-(0,-25),RGB(0,0,255)For x=-10 To 10 Step 0.0001 y=x 2 PSet(x,y),RGB(255,0,0)Next xEnd Sub 结束程序,认识代码,Private Sub Command1_Click()Dim x,y As Single 定义x,y两个变量 Scale(-10,25)-(10,-25)Line(-10,0)-(10,0),RGB(0,0,255)Line(0,25)-(0,-25),RGB(0,0,255)For x=-10 To 10 Step 0.0001 y=x 2 PSet(x,y),RGB(255,0,0)Next xEnd Sub,认识代码,Private Sub Command1_Click()Dim x,y As Single Scale(-10,25)-(10,-25)定义坐标系 Line(-10,0)-(10,0),RGB(0,0,255)Line(0,25)-(0,-25),RGB(0,0,255)For x=-10 To 10 Step 0.0001 y=x 2 PSet(x,y),RGB(255,0,0)Next xEnd Sub,（-10，25）,（10，-25）,Private Sub Command1_Click()Dim x,y As Single Scale(-10,25)-(10,-25)Line(-10,0)-(10,0),RGB(0,0,255)画横坐标轴，颜色为蓝色 Line(0,25)-(0,-25),RGB(0,0,255)For x=-10 To 10 Step 0.0001 y=x 2 PSet(x,y),RGB(255,0,0)Next xEnd Sub,（-10，0）,（10，0）,编写代码,编程加工第三步：,认识代码,Private Sub Command1_Click()Dim x,y As Single Scale(-10,25)-(10,-25)Line(-10,0)-(10,0),RGB(0,0,255)Line(0,25)-(0,-25),RGB(0,0,255)画纵坐标轴，颜色为蓝色 For x=-10 To 10 Step 0.0001 y=x 2 PSet(x,y),RGB(255,0,0)Next xEnd Sub,（0，25）,（0，-25）,认识代码,Private Sub Command1_Click()Dim x,y As Single Scale(-10,25)-(10,-25)Line(-10,0)-(10,0),RGB(0,0,255)Line(0,25)-(0,-25),RGB(0,0,255)For x=-10 To 10 Step 0.0001 y=x 2 用循环语句描点画函数图像 PSet(x,y),RGB(255,0,0)Next xEnd Sub,认识代码,Private Sub Command1_Click()Dim x,y As Single Scale(-10,25)-(10,-25)Line(-10,0)-(10,0),RGB(0,0,255)Line(0,25)-(0,-25),RGB(0,0,255)For x=-10 To 10 Step 0.0001 x值从-10变化到10，每次增量为0.0001 y=x 2 计算y值 PSet(x,y),RGB(255,0,0)用红色描出坐标为（x,y）的点 Next x 取下一个x值End Sub,此线由二十万个点组成,无论是手工绘制还是编程实现，其本质都是“描点法”。,编程加工第四步：,调试运行,通过调试和运行编写好的代码，发现并修改其中的错误,信息编程加工的四个步骤,分析信息；,设计方法；,编写代码；,调试运行。,设计方法；,编写代码；,信息的编程加工就是利用某种计 算机语言，对解决问题的方法和步骤进行描述，然后通过调试和修改得到可实现加工目标的程序，最终解决问题。,请在原程序上进行修改，看看哪个同学能画出更多函数图像？,如何绘制如下函数图像？,给出画圆语句，你能画出更多图形吗？,画线语句：Line(x1,y1)-(x2,y2),colorBF画点语句：PSet(x,y),color画圆语句：Circle(x,y),r,color填充颜色：FillColor=color FillStyle=0（1为透明）清除窗体：Cls,
