vb设计一个由计算机,计算机VB程序的设计第一章.ppt

Visual Basic程 序 设 计

;1.初期的程序设计 高运行效率、少占用内存为目标2.结构化程序设计程序的可读性、可维护性为目标 程序=算法+数据结构 的面向过程的程序设计3.面向对象的程序设计 降低程序的复杂性、提高软件的开法效率和改善工作界面为目标 程序=对象+消息 的面向对象的程序设计;VB主要功能和特点;几个重要的概念;4.属性:对象的性质,即用来描述和反映对象特征的参数。 例如:Text1.Text=“ 你好!” 5.方法:对象的行为,即将一些通用的过程编写好并封装起来,作为方法供用户直接调用。 例如:Text1.Setfoucs;6.事件:响应对象的动作称为事件,它发生在用户与应用程序交互时。如单击控件、鼠标移动、键盘按下等。 事件的触发:由用户触发或由系统触发。 例如:Text1有Click事件、Change事件等等。

;VB应用程序通常由三种模块组成: 窗体模块(Form):(*.frm) 标准模块(Module):(*.bas) 类模块(Class):(*.cls)

VB使用工程实现对应用程序的组织、管理。 一个工程对应一个工程文件(*.vbp) ;VB集成开发环境;1.主窗口 由标题栏、菜单栏和工具栏组成

2.窗体(form)窗口 设计vb程序的界面

3.代码(code)窗口 编辑窗体、标准模块中的代码;4.属性(properties)窗口 所有窗体或控件的属性设置

5.工程资源管理器(project expror)窗口 保存一个应用程序所有的文件

6.工具箱(toolbox)窗口 显示各种控件的制作工具,供用户在窗体上设计;VB应用程序的执行步骤如下:1.启动应用程序,装载和显示窗体;2.窗体(或窗体上的控件)等待事件的发生;3.事件发生时,执行对应的事件过程;4.重复执行步骤(2)和(3); 5.直到遇到“END”结束语句结束程序的运行;或按“结束”强行停止程序的运行。; 我们将计算机能够处理的数值、文字、声音、图形、图像等各类信息统称为数据,根据数据所描述信息的含义,又将数据分为不同的种类,即为数据类型。 ;基本数据类型:数值型、日期型、字节型、货币型、逻辑型、字符串型、对象型、变体型等等。; 数 值 型 数 据;1.整型(Integer,类型符%)整型是指不带小数??和指数符号的数。整型数在内存中占2个字节,十进制整型数的取值范围为:-32768 ~ +32767,在机器内以二进制补码表示。VB中整型数的表示形式为:±n[%],n为数字,%为类型标识符。如:12,-345,678%都是整数型;而45678%会发生溢出错误,因为它超出了整型的取值范围,此时应该采用长整型或浮点型数来表示。;2.长整型(Long,类型符&)

长整型数在内存中占4个字节,十进制长整型数的取值范围为:-2147483648 ~ +2147483647。

长整型数的表示形式:±n[&]如:123456,3456789&等都是长整数型。;3.单精度浮点型(Single,类型符!)浮点数又称为实型数,是指带有小数点或写成指数形式的数。浮点数表示数的范围大,但是存在误差。单精度浮点数在内存中占4个字节,有效数字精确到7位十进制数。单精度浮点数的表示形式有以下几种:±n.n、±n!、±nE±m、±n.nE±m其中,n、m为无符号整数,E或e表示指数,!为类型符。如:-1.2,34.56!,1.23E-4,,.1234e12等都表示浮点数。;4.双精度浮点型(Double,类型符#)

双精度浮点数在内存中占8个字节,有效数字精确到16位十进制数,其表示形式为:±n.n、±n#、±nD±m、±n.nD±m、±n.nE±m#等。

如:34.56#,1.23D-4,,.1234e12# 等都表示浮点数。;5.货币型(Currency,类型符@)货币型数据专门用来表示货币值,以定点实数或整数表示,整数部分为15位,可以精确到小数点后4位,在内存中占8个字节。货币型数据的表示形式为数字后加@符号,例如:13.56@、65@。;需要注意的是,虽然货币型数据与浮点数都是带小数点的数,但是它们是有区别的,前者小数点是固定的,而后者小数点是浮动的。例如,我们计算1+1,有可能得到的结果却是1…。而如果是Currency类型的数据是用十进制进行运算,因而计算结果是非常精确的。;6.字节型(Byte)

字节型数据在内存中占1个字节,取值范围:0~255,一般用于存储二进制数。; 用于存放字符型数据,字符是由西文字符

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
内有设计窗体的图片,和运行效果图 该窗体由全图片构造,包括,标题栏,最大化、最小化、关闭按钮,一下为部分代码, Private Sub Form_load() Dim retValue As Long Image5.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Image6.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Image7.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Image8.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Form1.Top = 0 '设置窗体上边界位置 Form1.Left = Screen.Width - Form1.Width retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 300, 300, SWP_SHOWWINDOW) End Sub Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) ReleaseCapture SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0& End Sub Private Sub Image2_Click() Form1.WindowState = 1 End Sub Private Sub Image4_Click() End End Sub Private Sub Image5_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Image5.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\9.jpg") End Sub Private Sub Image5_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Image5.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") End Sub Private Sub Image6_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Image6.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\9.jpg") End Sub Private Sub Image6_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Image6.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") End Sub

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值