软件技术实验指导(实验3)

实验三 实验三 VBVB 程序设计技巧程序设计技巧 简单计算器和绘制三角函数任意选择一个做 简单计算器和绘制三角函数任意选择一个做 实验知识点 实验知识点 练习练习 VBVB 程序设计的技巧 如 程序设计的技巧 如 pictureBoxpictureBox 的绘图方法 的绘图方法 控件数组的应用 控件数组的应用 selectselect casecase 分支结构的掌握等分支结构的掌握等 实验要求 实验要求 1 1 设计一个可以进行四则运算的简单计算器 该计算机除 设计一个可以进行四则运算的简单计算器 该计算机除 了可以进行加 减 乘 除 求模 取余 等简单的四则运算了可以进行加 减 乘 除 求模 取余 等简单的四则运算 外 还要求可以进行四则混合连算 并具有符合计算器日常使外 还要求可以进行四则混合连算 并具有符合计算器日常使 用习惯的容错纠错功能 具体步骤如下 用习惯的容错纠错功能 具体步骤如下 在界面上建立按钮控件数组 首先在窗体中置入一在界面上建立按钮控件数组 首先在窗体中置入一 个命令按钮控件后 将其激活并点击右键通过个命令按钮控件后 将其激活并点击右键通过 复制复制 粘粘 贴贴 的方法依次产生的方法依次产生 1919 个一样的命令按钮控件 其中在创建第个一样的命令按钮控件 其中在创建第 一个一个 粘贴粘贴 控件时控件时 VBVB 会询问会询问 是否要创建控件数组 是否要创建控件数组 回答回答 是是 即可开始依次创建该数组 即可开始依次创建该数组 按钮属性的设置 将各按钮的按钮属性的设置 将各按钮的 captioncaption 属性分别设属性分别设 置为置为 0 0 1 1 2 92 9 ModMod cls Exitcls Exit 注 注 意在设置这些属性时其值与按钮控件的意在设置这些属性时其值与按钮控件的 IndexIndex 属性的对应性 属性的对应性 其它控件的属性设置 文本框作为显示操作数和结其它控件的属性设置 文本框作为显示操作数和结 果的控件 应遵循一般计算器的显示习惯 将其果的控件 应遵循一般计算器的显示习惯 将其 AlignmentAlignment 即即 对齐属性设置为对齐属性设置为 Right Right 此外 将各控件相关的字体 字号 此外 将各控件相关的字体 字号 等设置为统一风格 等设置为统一风格 在程序的通用区定义四个窗体层变量 在程序的通用区定义四个窗体层变量 num1num1 num2num2 sumsum actact 前三个为双精度 前三个为双精度 actact 为整型变量 为整型变量 编写进行四则运算所需的程序作为命令按钮的单编写进行四则运算所需的程序作为命令按钮的单 击事件过程 击事件过程 参考代码一 参考代码一 DimDim num1num1 AsAs Double Double num2num2 AsAs DoubleDouble DimDim sumsum AsAs DoubleDouble DimDim actact AsAs IntegerInteger PrivatePrivate SubSub Command1 Click IndexCommand1 Click Index AsAs Integer Integer SelectSelect CaseCase IndexIndex CaseCase 0 0 IfIf Text1 TextText1 Text ThenThen Text1 TextText1 Text 0 0 ElseElse Text1 TextText1 Text Text1 TextText1 Text 0 0 EndEnd IfIf CaseCase 1 1 IfIf Text1 TextText1 Text ThenThen Text1 TextText1 Text 1 1 ElseElse Text1 TextText1 Text Text1 TextText1 Text 1 1 EndEnd IfIf CaseCase 2 2 IfIf Text1 TextText1 Text ThenThen Text1 TextText1 Text 2 2 ElseElse Text1 TextText1 Text Text1 TextText1 Text 2 2 EndEnd IfIf CaseCase 3 3 IfIf Text1 TextText1 Text ThenThen Text1 TextText1 Text 3 3 ElseElse Text1 TextText1 Text Text1 TextText1 Text 3 3 EndEnd IfIf CaseCase 4 4 IfIf Text1 TextText1 Text ThenThen Text1 TextText1 Text 4 4 ElseElse Text1 TextText1 Text Text1 TextText1 Text 4 4 EndEnd IfIf CaseCase 5 5 IfIf Text1 TextText1 Text ThenThen Text1 TextText1 Text 5 5 ElseElse Text1 TextText1 Text Text1 TextText1 Text 5 5 EndEnd IfIf CaseCase 6 6 IfIf Text1 TextText1 Text ThenThen Text1 TextText1 Text 6 6 ElseElse Text1 TextText1 Text Text1 TextText1 Text 6 6 EndEnd IfIf CaseCase 7 7 IfIf Text1 TextText1 Text ThenThen Text1 TextText1 Text 7 7 ElseElse Text1 TextText1 Text Text1 TextText1 Text 7 7 EndEnd IfIf CaseCase 8 8 IfIf Text1 TextText1 Text ThenThen Text1 TextText1 Text 8 8 ElseElse Text1 TextText1 Text Text1 TextText1 Text 8 8 EndEnd IfIf CaseCase 9 9 IfIf Text1 TextText1 Text ThenThen Text1 TextText1 Text 9 9 ElseElse Text1 TextText1 Text Text1 TextText1 Text 9 9 EndEnd IfIf CaseCase 1010 IfIf Text1 TextText1 Text ThenThen Text1 TextText1 Text ElseElse Text1 TextText1 Text Text1 TextText1 Text EndEnd IfIf CaseCase 1111 num1num1 CDbl Text1 Text CDbl Text1 Text Text1 TextText1 Text actact 1 1 CaseCase 1212 IfIf Text1 TextText1 Text ThenThen Text1 TextText1 Text ElseElse num1num1 CDbl Text1 Text CDbl Text1 Text Text1 TextText1 Text actact 2 2 EndEnd IfIf CaseCase 1313 num1num1 CDbl Text1 Text CDbl Text1 Text Text1 TextText1 Text actact 3 3 CaseCase 1414 num1num1 CDbl Text1 Text CDbl Text1 Text Text1 TextText1 Text actact 4 4 CaseCase 1515 num1num1 CDbl Text1 Text CDbl Text1 Text Text1 TextText1 Text actact 5 5 CaseCase 1616 num1num1 0 0 num2num2 0 0 sumsum 0 0 Text1 TextText1 Text CaseCase 1717 num2num2 CDbl Text1 Text CDbl Text1 Text SelectSelect CaseCase actact CaseCase 1 1 sumsum num2num2 num1num1 CaseCase 2 2 sumsum num1num1 num2num2 CaseCase 3 3 sumsum num1num1 num2num2 CaseCase 4 4 sumsum num1num1 num2num2 CaseCase 5 5 sumsum num1num1 ModMod num2num2 EndEnd SelectSelect Text1 TextText1 Text IfIf sumsum 0 0 ThenThen Text1 TextText1 Text 0 0 CStr sum CStr sum ElseIfElseIf sumsum 1 1 ThenThen sumsum sumsum 1 1 Text1 TextText1 Text 0 0 CStr sum CStr sum ElseElse Text1 TextText1 Text CStr sum CStr sum EndEnd IfIf CaseCase 1818 EndEnd EndEnd SelectSelect EndEnd SubSub PrivatePrivate SubSub Form Load Form Load num1num1 0 0 num2num2 0 0 sumsum 0 0 EndEnd SubSub 2 2 建立一个三角函数图像的程序 要求用户只需在界面上 建立一个三角函数图像的程序 要求用户只需在界面上 选择欲演示的函数类型 同时输入相关参数 即可在绘图区域选择欲演示的函数类型 同时输入相关参数 即可在绘图区域 中看到满足条件的函数图像 具体步骤 中看到满足条件的函数图像 具体步骤 在界面上布置一个图片框 在界面上布置一个图片框 PictureBox PictureBox 两个文本框两个文本框 TextBox TextBox 一个组合框 一个组合框 ComboBox ComboBox 三个命令按钮 三个命令按钮 CommandButton CommandButton 四个标签 四个标签 label label 设置各控件的基本属性即字体 字号 颜色等 设置各控件的基本属性即字体 字号 颜色等 组合框 组合框 ComboBoxComboBox 是一个单选型控件 可事先在其 是一个单选型控件 可事先在其 中添加可供选择的项目 中添加可供选择的项目 sinsin coscos tantan 和和 ctnctn 四个函数选项 四个函数选项 方法是在它的属性窗口中找到其方法是在它的属性窗口中找到其 List List 属性 然后将四个选属性 然后将四个选 项依次添加即可 项依次添加即可 函数图像是由一系列点组成的 在程序中可以设置一函数图像是由一系列点组成的 在程序中可以设置一 个循环 让循环变量个循环 让循环变量 x x 从从 0 0 到到 1515 之间依次取值 步长为之间依次取值 步长为 0 0010 001 并同时计算对应于 并同时计算对应于 X X 坐标的坐标的 Y Y 值 即可确定每一点的绘值 即可确定每一点的绘 图坐标 这些点用图坐标 这些点用 PsetPset 语句进行绘制 语句进行绘制 PsetPset 语句的完整形式 语句的完整形式 object Pset x object Pset x y color y color 可以用可以用 SCALESCALE 方法定义坐标系统 用法如下 方法定义坐标系统 用法如下 Scale 方法 用以定义 Form PictureBox 或 Printer 的坐标系统 不支持命名参数 语法 object Scale x1 y1 x2 y2 Scale 方法的语法包含下列部分 部分 描述 object 可选的 一个对象表达式 其值为 应用于 列表中的一个对象 如果省略 object 则带有焦点的 Form 对象缺省为 object x1 y1 可选的 均为单精度值 指示定义 object 左上角的水平 x 轴 和垂直 y 轴 坐标 这些值必须用括号括起 如果省略 则第二组坐标也必须省略 x2 y2 可选的 均为单精度值 指示定义 object 右下角的水平和垂直坐标 这些值必须 用括号括起 如果省略 则第一组坐标也必须省略 说明 Scale 方法使您能够将坐标系统重置到所选择的任意刻度 Scale 对运行时的图形语句以 及控件位置的坐标系统都有影响 如果使用不带参数的 Scale 两组坐标都省略 坐标系统将重置为缇 可以用可以用 LINELINE 方法画线 用法如下 方法画线 用法如下 object line x1 y1 x2 y2 x1 y1 为起始坐标 x2 y2 为终止坐标 图片框将满足函数条件的图像以类似 图片框将满足函数条件的图像以类似 Y SinY Sin X X 这样的形式显示出来 这样的形式显示出来 其中其中 和和 分别代表分别代表 X X 轴上的频率和轴上的频率和 Y Y 轴上的位移量轴上的位移量 编写程序代码 编写程序代码 程序代码参考 程序代码参考 PrivatePrivate SubSub Command2 Click Command2 Click DimDim x x AsAs SingleSingle DimDim y y AsAs SingleSingle DimDim a a AsAs SingleSingle DimDim b b AsAs SingleSingle Picture1 ScalePicture1 Scale 0 0 10 15 10 15 10 10 重建坐标系重建坐标系 Picture1 LinePicture1 Line 0 0 5 0 5 0 5 5 vbYellowvbYellow Picture1 LinePicture1 Line 0 0 0 15 0 15 0 0 vbYellowvbYellow a a Val Text1 Text Val Text1 Text b b Val Text2 Text Val Text2 Text SelectSelect CaseCase Combo1 TextCombo1 Text CaseCase si