VB程序设计-画圆逐步讲解
VB程序设计初步详解
第一章 VB程序设计初步1．1 Visual Basic的发展Visual Basic（以下简称VB）是Microsoft公司于1991年推出Windows应用程序开发工具。
Visual一词具有“可视化的”、“形象化的”的含义，在语言功能方面，VB与早期的Basic语言基本兼容，但由于VB具有良好的图形用户界面（Graphic User interface，即GUI），因此有人称它为可视化的Basic语言。
和Basic语言相比，VB提供的一系列可视化设计工具，大大简化了应用程序界面的设计工作，不仅易学易用，同时其编程系统采用了面向对象、事件驱动机制，非专业人员也可以使用该语言工具方便地完成基于Windows的应用程序开发，因而一经推出，便获得了巨大成功。
从1991年至1997年，微软相继推出了VB1.0，VB2.0,VB3.0，VB4.0及VB5.0版，1998年发布的Microsoft Visual Studio 98中包含了VB6.0，2000年又推出了。
VB 5.0以前的版本主要用于16位应用程序开发，VB6.0则专为32位操作系统设计。
本书主要介绍VB6.0。
VB6.0包括三种版本，分别为学习版、专业版和企业版。
三种版本适于不同层次的用户。
（１）学习版是VB的基础版本，该版本包含了所有VB的标准控件及网格控件、数据绑定控件和Tab对象。
适合初学者用来学习开发Windows应用程序。
（２）专业版为专业编程者提供了一整套功能完备的开发工具，包括了学习版中的全部功能，同时加入了ActiveX 控件、Internet控件和报表控件等。
（３）企业版该版本包含了专业版的全部功能，增加了自动化管理器、部件管理器、数据库管理工具、Microsoft Visual Source Safe面向工程版的控制系统等。
如无特别说明，本书中内容均基于VB６.０企业版作介绍，所有程序在VB６.０企业版下运行通过，大多数程序可以在专业版和学习版中运行。
《VB程序设计教程》PPT课件(全)(2024)
详细讲解窗体的常用方法，如显示窗体、隐藏窗体等，以及窗体 的事件，如加载事件、卸载事件等。
窗体的布局与风格
探讨如何合理规划窗体的布局，以及如何通过设置窗体的风格来 美化界面。
18
控件的使用与布局
常用控件介绍
介绍VB中常用的控件，如文本框、标签、按钮、列表框等，以及它们的属性和事件。
2024/1/26
Web应用程序开发
通过可以开发 Web应用程 序。
多媒体应用开发
利用VB可以开发多媒体应用程序，如音频、 视频处理等。
6
02
VB编程基础
2024/1/26
7
数据类型与变量
数值型
Integer、Long、Single、Double等
字符串型
String
2024/1/26
36
THANKS
感谢观看
2024/1/26
37
《VB程序设计教程》 PPT课件(全)
2024/1/26
1
2024/1/26
目录
• VB程序设计概述 • VB编程基础 • VB界面设计 • VB高级编程技术 • 数据库编程技术 • 网络编程技术 • VB程序调试与优化
2
01
VB程序设计概述
2024/1/26
3
VB的发展历史
1991年，微软公司推出Visual Basic 1.0，标志着 VB的诞生。
2024/1/26
套接字编程
使用Winsock控件进行套接字编程， 包括创建套接字、绑定地址和端口、 监听连接、发送和接收数据等步骤。
错误处理与调试
网络通信编程中需要考虑错误处理和 调试问题，如处理网络断开、数据丢 失等异常情况，以及使用日志记录和 调试工具进行问题排查。
使用VB设计一个简单的小程序计算圆的面积教学提纲
使用V B设计一个简单的小程序计算圆的
面积
使用VB设计一个简单的小程序——计算圆的面积
1、窗体设计
计算圆的面积的应用程序窗体上的控件
类（控件）对象用途
TextBox
Text1 供用户输入圆的半径
Text2 供应用程序输出圆的面积
Label
Label1 用来向用户说明文本框Text1的用途
Label2 用来向用户说明文本框Text1的用途CommandButton Command1
用户通过该按钮通知应用程序：数据输入完
毕，开始计算
各对象的属性值
类（控件）对象属性设置的属性值
TextBox
Text1
Text 空串
BackColor 黄色
Text2
Text 空串
BackColor 天蓝色
Label
Label1 Caption 输入圆的半径
Label2 Caption 圆的面积CommandButton Command1 Caption 计算
2、代码设计
Private Sub Command1_Click()
r = Val(Text1.Text)
Text2.Text = Str(3.1416 * r * r)
End Sub
3、问题
应用程序如果改为“计算扇形面积”的话，该应用程序的窗体和代码应做如何修改？。
VB图形和绘图操作
VB图形和绘图操作VB图形和绘图操作一、坐标：X值:是沿X轴的位置,窗体中最左端是缺省位置0Y值:是沿Y轴的位置,窗体中最上端是缺省位置0X,Y的值可以小于0,也可以大于容器宽度或高度二、坐标值的刻度：缺省使用缇(Twip)为测量单位. 「Twip」中文译为"缇"，是一种和屏幕无关的长度单位，目的是为了让应用程序元素输出到不同设备时都能保持一致的计算方式。
打印机的一个点，即我们说的“磅”，相当于20个 Twips，一英吋相当于 1440个Twips, 一公分（厘米）则相当于567 Twips ，也就是说，如果屏幕上某个对象的长度是1440 Twip的话，将会印出一英吋来。
由于我们在屏幕上操作时会习惯用「像素」(也就是我们常说的屏幕分辨率DPI，系统可以设置各种DPI值)，所以我们直接输入数字时必须再将「像素」换算成「Twip」。
当DPI设置为96时(系统默认值)，1个像素=(1/96)*1440=15 Twip；当DPI设置为120时，1个像素=(1/120)*1440=12 Twip。
当DPI为96时，如果希望窗体的高是「400」像素，宽是「300」像素，属性的设定值就是：Height=400×15=6000 Twip，Width =300×15=4500 Twip.在VisualBasic应用程序中，屏幕（Screen）是一个对象。
其Width和Height属性以Twip为单位反映出屏幕的宽度和高度。
而TwipsPerPixelX和TwipsPerPixelY这两个属性只与硬件有关，而与屏幕上可设定的分辨率无关。
将Width除以TwipsPerPixelX可以计算出屏幕的水平分辨率（像素数），同样将Height除以TwipsPerPixelY 也可以计算出屏幕的垂直分辨率。
要想保持一个窗口或是控件的物理大小不变，只要计算出设计时的分辨率与实际运行时的分辨率的比值，然后根据这个比值来调节窗口和其中的控件的大小和相对位置，以及显示的字体尺寸，就可以保持同一应用程序的窗口在不同的系统下的物理外观（当然在不同尺寸的显示器上只能保持比例不变，物理大小还是不同的）。
VB_绘图_直线_圆_矩形_自由绘图_实例
VB 绘图要求：在VB窗口中，添加一个Picture控件，在该控件中任意点击，拖拽画图画直线Dim a As IntegerDim b As IntegerPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 1 Thena = xb = yEnd IfEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 1 ThenPicture1.ClsPicture1.Line (a, b)-(x, y)End IfEnd Sub画矩形Dim a As IntegerDim b As IntegerPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 1 Thena = xb = yEnd IfEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 1 ThenPicture1.ClsPicture1.Line (a, b)-(a, y)Picture1.Line (a, b)-(x, b)Picture1.Line (x, b)-(x, y)Picture1.Line (a, y)-(x, y)End IfEnd Sub画圆Dim a As IntegerDim b As IntegerPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 1 Thena = xb = yEnd IfEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 1 ThenPicture1.ClsPicture1.Circle (a, b), Sqr((x - a) ^ 2 + (y - b) ^ 2)End IfEnd Sub自由绘图Dim a As IntegerDim b As IntegerPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 1 Thena = xb = yEnd IfEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 1 ThenPicture1.PSet (x, y)End IfEnd Sub实例：设计一个窗口，效果如下图，要求设置四个单选框，分别为画直线、画圆、画矩形、自由绘图，选中任意一项，便可在左侧的picture控件中任意地方拖拽出相应的图形。
VB绘图
例如：
Line（1000，1000）-（2000，2000）
Line-（4000，4000）
Picturel．Line（100，500）-Step（1000，350）
Forml．Line Step（200,200）- Step（800，1000）
语法格式： [对象．]Circle[Step]（x，y），半径，，[颜色][起始角][，终止角][，纵横比]
功能：从起始角按逆时针方向画圆弧直到终止角处。当纵横比为 1时 画出来的是一段圆弧，当纵横比不等于1时，画出一段椭圆弧。
例如：
Circle（2000，2000），1000，，31416／2，0
Picture1.FillColor = QBColor(0)
Picture1.Circle (Pw / 2, Ph/ 4), 200
Picture1.Circle (Pw / 2, 3 * Ph / 4), 200
End Sub
另外，可用 Cls方法来清除窗体。
格式：［对象．］ Cls
Circle Step（200，300），1000，，-l，-4
Circle（800，900），800，QBColor（12），0.5,-3
第一行以（ 2000，20O0）为圆心，100O为半径画圆弧，按逆时针方向从 3．14 56／2到 0画一圆弧。
若起始角和终止角均为负值时，画一个扇形。第二行，圆心是从“当前位置”向右移200，向下移300，半径为1000，从1弧度到4弧度画一个扇形。
如果起始角和终上角一个为正，一个为负，则从圆心到负号的那个角处连一条线，第三行是以（800，900）为圆心，800为半径，从0．5弧度到3弧度处作画圆的方法在图像框上画一个太极图。
VB教案设计-画同心圆
画同心圆——循环结构及for-next语句的使用学府中学吴晶【教材分析】在教材第二章第1节中用了一个画同心圆的程序让学生对编程有了初步的体验，并为本节课对程序语言的进一步阐述做了一个铺垫。
本节课对画同心圆从功能需求、确定程序流程到最后写程序并调试运行进行了详细地介绍。
从中使学生对循环语句有了一个了解，学会使用for-next语句，并通过用两种方法画圆让学生学会灵活地使用VB，在实践中可根据需要选择静态或动态方法完成设计任务。
【学情分析】学生通过前面体验编程一节已经熟悉了画同心圆程序，但对循环结构及语句特点的理解还有待进一步深入，有了前面的基础学生在认识上比较容易了。
【教学目标】知识目标：1．了解循环结构特点，通过for-next语句理解循环语句的基本格式2．进一步理解程序设计的基本思路，观察语句运行，加深对循环语句执行过程的理解。
3．通过与静态方法对比，体验程序设计的特点。
能力目标：1．能熟练地用shape控件画出圆2．学会for-next语句的使用，写出画同心圆代码，并调试运行情感目标：1．感悟计算机实现连续执行重复操作解决问题的思想。
2．能灵活运用程序设计语句，能帮助自己解决更多的问题。
【教学重点】理解循环结构并学会使用“for-next”循环语句【教学难点】循环语句连续执行重复操作解决问题的过程【课前准备】发送已做好的画同心圆exe文件和代码文本到学生机上，供其参考和选用【教学过程】【教学反思】循环语句对初学VB者来说是一个全新概念，在整个教学过程中我特别注重学生的参与，从问题的引出，到问题的解决都强调学生的主动参与，力求是学生学出来的，而不是老师强加给学生的，这样对激发学生学习VB的积极性起到了很好的推动作用，也使本节课取得了较好的效果，有90%的同学全部运行调试完成。
本节课不足的地方，因时间的问题，例子太单一，以后可多提供一些例题，提出问题，让学生自己去尝试，学会灵活使用循环语句，以达到学有所用的目的。
VB程序设计课件第1章-精品文档
5
第一章 Visual Basic 程序设计概述
1.2
VB的安装与启动 1. VB的安装 2. VB的启动 3. VB的退出
启动运行Visual Basic有以下三种启动方式： 1.通过“开始”按钮 单击桌面上的“开始”/“程序”菜单，然后打开 “Microsoft Visual Studio 6.0中文版”子菜单中的 “Microsoft Visual Basic 6.0中文版”程序，即可启动 VB 6.0。 2．利用快捷方式 若桌面上有VB 6.0的快捷图标，双击快捷图标也可启 动VB 6.0。 3．利用运行命令 可以在“开始”菜单的运行对话框中输入如下命令来 启动VB 6.0。 C:\Program Files\Microsoft Visual Studio\VB98\VB6.exe
引例代码
9
第一章 Visual Basic 程序设计概述
1.3
1. 引例 2. 基本步骤 VB应用程序的基本步骤
简单VB程序设计步骤
1．建立用户界面及界面中的对象 2．设置各个对象的属性 3．为对象事件编写程序 4．保存工程 5．运行程序
云南农业大学< Visual Basic 程序设计>教学课件① 2011-2
Visual Basic 程序设计
Visual Basic Programming
云南农业大学VB程序设计可课件2011版 制作：吴文斗
第一章 Visual Basic 程序设计概述
本章学习目标
1. 了解VB的发展及特点 2. 掌握VB的安装、启动、退出方法 3. 掌握VB的集成开发环境