VB最简单入门教程

VB最简单入门教程 VB最简单入门教程. VB Sunming29制作 Tahoma,8,134 目 录 (提示:按ctrl,并单击鼠标，可以跳到相应页) 1.1 1 我们需要什么 ...................................................................................................3 1.2 2 第二章:事件、属性及数据类型 ........................................................................3 1.3 3 第三章:VB语言 ................................................................................................6 1.4 4-1第四章 按钮(一)........................................................................................ 12 1.5 4- 第四章 按钮(二) ...................................................................................... 199 1.6 5 第五章 菜单 .................................................................................................. 27 1.7 6-1第六章 输入(一)........................................................................................ 34 1.8 6-2第六章 输入(二)........................................................................................ 42 1.9 6-3第六章 输入(三)........................................................................................ 52 1.10 7第七章 输出 ................................................................................................... 59 附录 ........................................................................................................................... 63 2.1 VB教程 ................................................................................................................ 63 1 Tahoma,8,134 1.1 1 我们需要什么 我们需要什么,当我们在一个精彩的游戏世界中游历了一番之后，或是惊叹于某一工具软件的小巧精致之余，多少总会产生些许编程的冲动。编程吗，在以前如果你对电脑还是一个门外汉，那实在是一件可望而不可及的事情。如果运用基于DOS下的编程语言，譬如C、Qbasic、Pascal等等，真不知何年何月才能有所成就。 编程是需要天赋的，你必须在大脑中对整个程序有一个清晰的轮廓，一个高效的流程，这并不是每个人都能做到的，你必须思之慎之，这也使编程变成一件最枯燥无味的事情。但在第四代计算机语言(可视化编程)出现后，可以确切的说它开发了人们的更多天赋，并不局限于那些头脑异常清晰的人，每一个人都可以发现自己也可以编出一些从前不敢问津的程序，想象力的充分发挥才是第四代语言的精粹。 Visual Basic(以下简称VB)可以说是可视化语言的先驱了，而且它也是可视化程度最高的一个，从几年前VB诞生之日起到现在，它已经经历了五个版本，而且现在微软正在紧张的进行着VB6.0的研制、测试，这么高的更新率，不外乎说明两个问 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 :用户对VB的热衷，微软对VB的重视。不可否认微软对市场的预测能力是极为高明的，而它强大的技术、财力支持也使它在许多以前未进入的领域，在不长的时间内有成为最有力的竞争对手，如IE之于浏览器领域，《帝国时代》之于游戏都是最好的例证。对于VB现在也有一个很强的竞争对手――Delphi，有人把它称作VB杀手，这显然有偏激之处，VB的确有它的不足之处，但Delphi又何尝不是呢，而且以微软对VB的倾心，VB的功能必然会越来越强大。 VB的诞生 VB的出现可以说是Microsoft Windows的日渐成熟的必然产物。Microsoft Windows为程序员和最终用户提供了一个共同的人机界面。对用户，Windows提供了一个图形鼠标的操作环境，该环境对所有的应用程序都一样;对于程序员，Windows提供了一组预定义工具----称之为Microsoft Windows 的软件开发工具箱(SDK)，该工具能使程序员建立一个与Windows界面相同的应用程序，而且，程序员不必关心最终用户的硬件配置情况。在这一开发环境中，程序员唯一困难的是Microsoft SDK提供了六百多个函数和与其一致的事件驱动(event-driven)编程技术。两种新方法的交叉使众多的程序员重新陷入困境，程序员不仅要掌握程序驱动编程技术和六百多个函数的功能，而且还得用C语言描述这些问题。因此一般情况下，程序员首先要掌握C程序设计技术，而后再开始学习SDK。这样的条件下就要求在Microsoft多任务环境下出现一种操作方便，使用简单的新工具,,,,Visual Basic由此诞生。 何为可视 英文Visual的意思是“视觉的”，“可视的Baisc”这个名字可能抽象了点，但实际上它却是最直观的编程方法，之所以叫做“可视”，你只要看到VB的界面就会明白，实际上你无需编程，就可以完成许多步骤。在VB中引入了控件的概念，在Windows中控件的身影无处不在，各种各样的按钮、文本框、无线钮，都是控件的种类，VB把这些控件模式化，并且每个控件都有若干属性用来控制控件的外观，工作方法。这样你就可以象在画板上一样，随意点几下鼠标，一个按钮就完成了，这些在以前的编程语言下是要经过相当复杂的工作的。 2 Tahoma,8,134 1.2 2 第二章:事件、属性及数据类型 以后两章可能会比较枯燥，但不可否认也很重要，所以为了学好VB，我们一定要打好基础才行。 一、事件 通过上一章的例子，你可能对“面向对象的编程”已经有了一定了解，它是由事件驱动的，对于不同的对象，所能感应到的事件也会不同，譬如说当你把鼠标移进某一区域时就会触发MouseMove事件，这很直观，也容易理解，但也有些事件比较抽象，下面我来对一般的事件进行一下解释。 1. 窗体和图象框类事件 , Paint事件:当某一对象在屏幕中被移动，改变尺寸或清除后，程序会自动调用Paint事件。注意: AutoDraw属性为True(,1)时，程序不会调用Paint事件。 当对象的 , Resize事件:当对象的大小改变时触发Resize事件。 , Load事件:仅适用于窗体对象，当窗体被装载时运行。 , Unload事件:仅适用于窗体对象，当窗体被卸载时运行。 2.当前光标(Focus)事件 , GotFocus事件:当光标聚焦于该对象时发生事件。 , LostFocus事件:当光标离开该对象时发生事件。 注意:Focus英文为“焦点”、“聚焦”之意，最直观的例子是，比如有两个窗体，互相有一部分遮盖，当你点下面的窗体时，它就会全部显示出来，这时它处在被激活的状态，并且标题条变成蓝色，这就是GotFocus事件，而相反，另外一 个窗体被遮盖，并且标题条变灰，称为LostFocus事件。上面所说的“光标”并 非指鼠标指针。 3.鼠标操作事件 , Click事件:鼠标单击对象。 , DbClick事件:鼠标双击事件。 , MouseDown、MouseUp属性:按下/放开鼠标键事件。 , MouseMove事件:鼠标移动事件。 , DragDrop事件:拖放事件，相当于MouseDown、MouseMove和MouseUp的组合。 , DragOver事件:鼠标在拖放过程中就会产生DragOver事件。 4.键盘操作属性 , KeyDown、KeyUp事件:按键的按下/放开事件。 3 Tahoma,8,134 , KeyPress事件:按键事件。 5.改变控制项事件 , Change事件:当对象的内容发生改变时，触发Change事件。最典型的例子是文本框(TextBox)。 , DropDown事件:下弹事件，仅用于组合框(ComboBox)对象。 , PathChange事件:路径改变事件，仅用于文件列表框(FileBox)对象。 6.其他事件 , Timer事件:仅用于计时器，每隔一段时间被触发一次。 二、属性 每个对象都有它的属性，并且“Name”属性是共有的，有了“Name”属性才可以在程序中进行调用。对于属性，可以在窗体的布局操作中完成，也可以在程序运行中改变，这取决你的需要，但有些属性是只读的，它只能在控件布局时改变。我将在以后的实例中具体介绍各个属性的作用。 三、数据类型 学过编程的人都知道大多数的计算机语言都规定了各自的数据类型，VB也不例外。其实，在一个最简单的程序中数据类型是可以不作规定的，也就是说，变量可以使用各种类型，但是在一个复杂的程序里，这样做就很危险，因为很可能给同一个变量赋予了不同的类型，而导致程序出错。所以，为了程序的严谨和便于查看，正确的定义数据类型是必要的。定义数据的另一个原因是，不同的数据占用不同的内存数量，譬如整型(Interger)数据占2字节，而长整型数据占4个字节，定义合适的数据类型，不管你相信不相信，它可以节省内存～ 1. VB常用的数据类型有:整型(Integer，表示-32768至32767之间的整数)、长整型(Long，表示 -2,147,483,648至2,147,483,647之间的整数)、实型(Single，表示-3.37E+38至3.37E+38之间的实 数)、双精度实型(Double，表示-1.67E+308至1.67E+308之间的实数)，字符(String，每个字符占 一字节，可以储存0,65,535个字符)，布尔(Boolean，只有两个值True/-1，或False/0)。 2. 数据类型的定义方法: , 定义变量最简单的方法是用“Dim”关键字，它的语法: Dim 【变量名】As 【数据类型】 如:Dim Index As Integer 也可以在一行中定义多个变量，如: Dim Index As Integer , Dim Number As Long 把多个变量定义成同一类型可以写成: Dim Index , Number As Integer 4 Tahoma,8,134 更可以在定义时进行初赋值: Dim Index= 有时为了简便，也以符号进行简单的定义，作用是和上面一样的。整型可以用“%”代替，长整型可以用“&”代替，实型可以用“!”，双精度实型可以用“#”定义，如刚才的第一个例子可以写成: Dim Index% 等价于 Dim Index As Integer , 对于常量的定义用Const定义，如:Const COLOR=。 为了在程序中便于查阅，我们对变量和常量的写法进行规定，变量一般用小写方式，常量则全部大写。 注意:使用常量的好处，对于程序中经常出现的数值，应设常量等于它，这样一是书写方便，其 二，如果要改变该数值，只需改变定义常量的语句值，而不需改变每个语句，提高了效率。 , 数组的定义类似于变量定义，所不同的是数组需要指定数组中的元素个数，例如: Dim IntegerArray(99) As Integer 这个数组中包含100个元素，脚标从0到99。 也可以指定脚标的起始值，例如: Dim IntegerArray(2 to 10) As Integer 这个数组含有九个元素，脚标从2到10。 还可以定义多维数组: Dim ThreeD(4,2 to 5,3 to 6) As Integer 上例定义了一个三维数组(4×4×4)。 , 记录的定义 记录定义是把控制权交给用户的方法，它让用户可以定义自己的数据类型，它使用关键字“Type”，方法是: Type 【数据类型标识符】 <域名> As <数据类型> 域名> As <数据类型> < 域名> As <数据类型> < „„„„„„„„„„ 5 Tahoma,8,134 End Type 例如，定义一个地址数据: Type Address Street As String ZipCode As String Phone As String End Type 这个地址数据里包括三个属性，街区、邮政编码和电话，可以把某数据定义成此类型: Dim MyHome As Address 要调用或改变“MyHome”的值时，类似于对对象的属性的操作: 变量名.域名,“„„” 为了简化书写重复的部分,可以用关键字“With”: With MyHome .Street=阜成路” .ZipCode= .Phone= End With 1.3 3 第三章:VB语言 本章提要: , VB语法与Basic的异同 , 注释语句 , 长语句的分行 , 条件语句 , 循环语句 , 运算操作 , 数据定义与赋值 , 函数和过程 6 Tahoma,8,134 一、VB与Basic , VB之所以叫做“Visual Basic”就是因为它使用了Basic语言作为代码，所以它们之间有着千丝万缕 的关系，如果学过Basic的话，看到VB的程序结构会感到很亲切。但VB作为新生物，也超越了 Basic的限制，有了许多自己的特点: , VB建立了一种新的变量类型――货币型变量，通过使用仅带有二位小数的货币变量，就能避免因 使用实型变量而带来的数值积累误差问题。 , VB在调用函数(Function)时，必须在函数名后跟一对括号。 , VB对白兰地使用范围重新做了规范，在Basic里把隐含变量都当作全局变量，而在VB里对隐含变 量都当作局部变量。 , VB里的说明语句(Declare)，仅支持动态链结库(DLL)的子程序和无变量函数。 , 使用数组，必须事先用Dim或Redim进行定义。 二、注释语句 在使用注释语句之前必须先了解注释的作用，注释不仅仅是对程序的解释，有时它对于程序的调试 也非常有用，譬如说可以利用注释屏蔽一条语句以观察变化，发现问题和错误。以后注释语句将是 我们在编程里最经常用到的语句之一。 在VB里，注释语句有两种，一种是用“Rem”关键字，这跟DOS里的批处理文件的用法一样，还有 一种是利用单引号“’”，例如: ‘Dim a As String 与 Rem Dim a As String 的作用是一致的。 三、长语句的分行 在比较早的版本中，因为没有象C等语言用“;”隔开语句与语句，VB的语句是必须写在一行里的， 不过后来版本的VB里如许用分行符“_”把一个长语句分成若干行来存放。 四、条件语句 如果你学过任何一种编程的话，都会知道在程序里控制其流程的有两种语句，条件与循环，VB自然也不例外，其实不管哪种语言，条件和循环的样子都差不多，只不过各有各的规矩罢了。 在条件语句里，我们先来学习“If„„Then„„”语句。 它的一般语法是: 7 Tahoma,8,134 If <条件> Then <语句> <语句> „„„ End If 与C 语言不同，VB的条件语句更符合英语的语法，如果Then后面所跟的语句只有一条，可以写成: If <条件> Then <语句> 而不用End If。 有时我们还会用到 If <条件> Then <语句> Else <语句> End If 更可以在Else里在嵌套If语句，如: If <条件> Then <语句> Else If <语句> Else <语句> End If 所有这些可以用一个表格表示: 条件1 True False 语 条件2 True False 8 Tahoma,8,134 句 语 条件3 True False 1 句 „„„„„„„„„ „ 2 条件N „ True False „ 语句N 语句N，1 用了过多的Else后你会感到很不方便，而且程序结构也不清晰，所以大多数的语言还有Select语句帮助解 决这个问题。 VB里的Select语句的格式是这样的: Select Case <变量名> Case <情况1> „„ Case <情况2> „„ Case <情况3> „„ „„ „„ Case Else „„ End Select 例如: Select Case a% Case 1 Print “a= Case 2 Print “a= Case Else Print “a does not equal to 1 or 2.” 9 Tahoma,8,134 End Select 五、循环语句 循环结构是计算机语言里一种重要的结构，它的应用广泛，最简单的例子是累加器的作用，还可以用于穷举 法，更直观的例子是把某件事重复指定的次数，这样就不用把要重复的语句输入多次，而通过循环结构完成， 非常方便。 C语言里有一个“for”循环语句，VB里也有“For”关键字，作用也差不多，只是VB的“For”语句更容易 理解。它的格式是: For <循环变量>=<初赋值> To <终值> [Step <步长>] „„ „„ Next <循环变量> 在默认情况下，Step被设为“1”，可以省略，Step也可以设为负值，例如: Dim a= For I=1 To 10 a= Next I 这是一个最简单的累加器的例子，把1到10累加在一起，然后赋值给“a”这样的效果和上面是一样的，只 不过是倒着加罢了，请看: Dim a= For I=10 To 1 Step –1 a= Next I While语句也是一个很常用的循环语句，它的形式很多。 , Do While „„ Loop语句 , While „„ Wend 语句 , Do „„ Loop While 10 Tahoma,8,134 While后面都跟逻辑条件判断，“Do While „„ Loop语句”和“While „„ Wend 语句”作用相似，都是先判断While后面的条件是否为“真”，如果为“真”则执行里面的语句，如果为“假”，则退出循环，循环直至条件为“假”终止。“Do „„ Loop While ”与前两者的区别在于，它不管条件的真假，都会先执行“Do”后面的语句，也就是说，它至少执行语句一次。 与While用法相似的还有Until语句，它是直至条件为真则终止循环，句式把While上述三个语句的While换成Until即可，但是因为容易记混，所以我建议只用While即可。Until <条件>可以相当于While Not <条件>。 For循环和Whlie循环应当根据适当的环境使用，它们有时也可替换。 六、运算操作 1. 数学运算 , ，:加法运算，也适合于字符串的之间的合并运算。 , ,:加法运算。 , *:乘法运算。 , /:除法运算。 , \:整除运算。 , Mod:求余运算。例如:a Mod b表示a被b整除以后的余数。 , ^:幂运算。A^B表示以A为底的B次方。 1. 关系运算 关系运算也称比较运算，它表示不等式的真或假，VB共提供六种运算符，分别是= 2. 逻辑运算 逻辑运算是对真或假的运算，我将列表说明: A B Not A And Or Xor Eqv Imp 非 与 或 异或 相等 蕴含 T T F T T F T T T F F F T T F F F T T F T T F T F F T F F F T T 11 Tahoma,8,134 T――True F――False 七、 数据与定义 本标题的内容已经在上一章向大家详述过，在这里就不再重复。 八、函数与过程 函数与过程有许多相似的地方，它们之间最大也是最本质的区别就在于，函数有一个返回值，而过程只是执行一系列动作，所以可以简单的把函数理解成为一个变量，而VB中的每个事件都是一个过程，比如Command1_Click()就是一个过程。 因为在程序设计中经常会有重复的地方，所以把它做成一个函数或一个过程，在使用时进行调用，可以节省大量的输入代码的时间，而且使用函数和过程也便于程序的结构化和修改查看。函数和过程都可以有参数，也可以没有参数。 关于函数和过程将在以后的章中配合实例讲解，请您继续VB教程。 1.4 4-1 第四章 按钮(一) 从本章开始我们将正式进入VB的编程世界，但这还仅仅是个开端，要编出功能强大的软件，还要学很多东西，那就要看以后的VB高级教程了，我也得努力学啊～ 按钮是我们在Windows操作见到最多的控件，它们有着各种各样的功能:“确认”、“取消”、“下一步”等等，这些都是按钮的表现，另外还有很多图形话的按钮，其实它们并没什么不同，所有的按钮都是通过单击(click)事件实现的，只不过是在外表不同罢了。下面就让我们建立一个最简单的按钮，双击工具箱的CommandButton，将在窗体上建立一个形如图4,1的按钮，它的缺省名(Name属性)为Command1，我们可以把它改名为cmdExit，把Caption属性设为“退出”，然后双击，按钮填写代码: Private Sub cmdExit_Click() Unload Me End Sub 12 Tahoma,8,134 按下F5或者工具条上的播放按钮，运行程序。图4,2当你按下退出按钮的时候，就会自动退出程序，原因是当你单击按钮时激活了它的Click事件，执行“Unload Me”语句，使得窗体被卸载。 上面举了一个比较简单的例子，下面的例子稍微复杂些: 新建窗体，控件布局如图4,3所示，包括一个List控件，一个Text控件和两个按钮(Command1和Command2)， (比较简单的程序我们都采用缺省名)，对它们属性做如下修改: List1 Caption,“请输入你的名字” Text1 Text,“”(空字符串) Button1 Caption,“复原” Enabled,False Button2 Caption=“清除” 13 Tahoma,8,134 把使用Button1的Enabled属性设为False(假)，是使程序在初始时，无法单击Command1。按F5，运行程序，图4,4，复原按钮成为灰色，不可选。 当然现在程序还什么也不能做，下面我们在程序中添加代码: 首先在General里声明全局变量: Dim StoreString As String '用来储存字符串 ※注意:为什么用全局变量, VB里每一个小过程都相当于一个程序，程序里的变量称为局部变量，是只能在程序内部使用的，而当程序调用结束后，由于从内存中被清除，所以变量储存的值也就消失了，这里的全局变量是用来在过程中传递字符串。 接着填写以下代码: Private Sub Command1_Click() Text1.Text = StoreString Command1.Enabled = False End Sub Private Sub Command2_Click() StoreString = Text1.Text Text1.Text = "" '清除 Command1.Enabled = True End Sub 14 Tahoma,8,134 运行程序，如图4,5。按下“清除”，文本框被清除，按下“复原”，文本有被恢复，许多程序中的Undo/Redo就是利用这个原理实现的，现在知道为什么内存越多越好了吧。 我们在把程序修改一下，把Button2删除，Button1的Enabled属性改为True，Caption改为“清除”，填写代码: Private Sub Command1_Click() If Command1.Caption = "清除" Then StoreString = Text1.Text Text1.Text = "" '清除 Command1.Caption = "复原" Else Text1.Text = StoreString Command1.Caption = "清除" End If End Sub 同样可以上面的功能，但是却少用了一个控件，控件使用少的程序启动会快些。 下面的例子要更加复杂些，大家一定都用过Windows附件中的计算器，它是一个标准的科学计算器，利用VB我们也可以做到，只是没有那么复杂，四则运算而已。 先建立一个新的项目文件，里面包含一个Form1的窗体。然后，添加控件，包括一个Text框(Text1)，和17个按钮，这17个按钮使用的名称都是Command1， 15 Tahoma,8,134 只是Index属性不同，就好象一个数组，创立一组按钮的方法是，先在窗体上建立一个按钮(Command1)，然后在Command1上击鼠标右键，选择复制(Copy)，然后在窗体上任意部位击右键，选择粘贴(Paste)，系统会提示是否创建控件组，选择“是”，重复上面步骤，直至创立17个按钮为止。各控件属性如下表: Text1 BackColor,&H00C0FFFF& Text,“0.” Command1 Index 0――16 Index 0――9 Caption= Index 10 Caption= Index 11Caption= Index 12 Caption= Index 13 Caption= Index 14 Caption= Index 15 Caption= Index 16 Caption=“清除” 如果想改变一些其他的属性，比如字体，可以自己定义一下Font属性，如果相对多个控件的共同属性进行改变，可以在窗体上按下鼠标，拖动，把多个控件一起选定，然后对它们的共同属性进行修改。 16 Tahoma,8,134 别看这个东西小，还费了近我两个小时呢，不觉大叹手生，里面也有些地方很绕弯子，我尽量解释清楚。 在编写程序之前，我们先来回顾一下计算器的使用。 1. 按下数字键在液晶屏上会出现数字，这是最基本的功能。 2. 第一次按下运算键，再按下数字键，将重新输入第二个数字，再次按下运算键，将算 出前两个数的结果，然后按下数字键，将又重新输入新的数字。 3. 输入数字后，按下“等于键”将仍输出原来的数字，输入运算符和第二个数字后在按下 “等于”，将得到二者的结果。然后又重复第二、三步。 4. 按下“清除”，数据被全部清除。 了解了这些，我们一步一步实现。 先实现数据的输入，请看代码。 与未创立组的控件相比，它的事件里多了Index参数，组里所有的对象都使用同一个事件。 先在General里声明窗体级全局变量: Dim Num1, Num2 As Single Dim StrNum1, StrNum2 As String Dim FirstNum As Boolean '判断是否是数字开头 因为Text1里是存放字符串的，所以要把输入的数据进行运算，必须把字符型变量转变为实型变量，分别用Num1、Num2和StrNum1、StrNum2进行存放。 在Form_Load事件里给变量初赋值: Num1 = 0 Num2 = 0 StrNum1 = "" StrNum2 = "" FirstNum = True 因为17个按钮使用的是同一事件，所以我们用一个Select Case语句区分各个按钮，双击任意按钮输入代码: Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 To 9 If FirstNum Then 17 Tahoma,8,134 StrNum1 = Str(Index)’实型转字符型 FirstNum = False’初赋值为假 Else’非初赋值 StrNum1 = StrNum1 + Str(Index) End If Text1.Text = StrNum1’显示 <还有其他语句，等待插入> End Select End Sub 运行程序的话已经可以输入数据，下面我们来处理小数点。 在General里声明新的变量: Dim PointFlag As Boolean '判断是否已有小数点 我们知道小数点只能输入一次，一个数据中不能有多个小数点存在，所以需要一 个布尔变量做判断。 在Form_Load里进行初赋值: PointFlag = False 在Command的单击事件里接着上面输入新的代码: Case 10 If Not PointFlag Then’如果没有小数点 If FirstNum Then’如果是第一个字符 StrNum1 = "0." FirstNum = False Else StrNum1 = StrNum1 + "." End If 18 Tahoma,8,134 Else’已有小数点 Exit Sub’则退出单击事件 End If PointFlag = True Text1.Text = StrNum1 1.5 4-2 第四章 按钮(二) 下面会复杂一些，我们先跳过等号，而来处理四则运算: 先在General里声明新变量: Dim Runsign As Integer '储存运算符号 Dim SignFlag As Boolean '判断是否已有运算符号 然后在Form_Load中进行初赋值: Runsign = 0 SignFlag = False 在接下的Command1_Click中继续输入代码: Case 12 To 15 FirstNum = True’使下一次可以输入新数据 PointFlag = False '还原标记值 If SignFlag Then’前面已有运算符未运算 Call Run Else SignFlag = True StrNum2 = StrNum1’把字符串1复制给字符串2 StrNum1 = ""’字符串1清空 19 Tahoma,8,134 End If Runsign = Index - 11 ‘储存键入的运算符 里面运算的部分我用了一个过程，是因为在按下等号时还会调用到运算过程， 这样可以减少代码的输入，也使程序便于浏览。建立过程(Procedure)，可以在 General部分直接输入，也可以通过菜单里的“Add Procedure”添加。Run的代 码如下: Sub Run() Num1 = Val(StrNum2) Num2 = Val(StrNum1) Select Case Runsign Case 1’加 equal = Num1 + Num2 Case 2’减 equal = Num1 - Num2 Case 3’乘 equal = Num1 * Num2 Case 4’除 equal = Num1 / Num2 End Select StrNum2 = Str(equal) StrNum1 = StrNum2 Text1.Text = StrNum2 End Sub 下面是其余的代码:(在Command1_Click事件里，接着写) Case 11 If Not SignFlag Then 20 Tahoma,8,134 Text1.Text = StrNum1 equal = Val(StrNum1) FirstNum = True PointFlag = False Else Call Run SignFlag = False End If Case Else’清除按钮 Call ClearData 里面又用到了一个ClearData过程，实际上就是Form_Load里的变量初赋值，代 码如下: Sub ClearData() Num1 = 0 Num2 = 0 StrNum1 = "" StrNum2 = "" FirstNum = True PointFlag = False Runsign = 0 SignFlag = False Text1.Text = "0." End Sub 21 Tahoma,8,134 这样完整的程序就完成了，本章介绍了VB的第一个控件――按钮，并且举例，希 望你继续看下一章――菜单。 下面给出完整的程序代码: Dim Num1, Num2 As Single Dim StrNum1, StrNum2 As String Dim FirstNum As Boolean '判断是否是数字开头 Dim PointFlag As Boolean '判断是否已有小数点 Dim Runsign As Integer '储存运算符号 Dim SignFlag As Boolean '判断是否已有运算符号 Sub ClearData() Num1 = 0 Num2 = 0 StrNum1 = "" StrNum2 = "" FirstNum = True 22 Tahoma,8,134 PointFlag = False Runsign = 0 SignFlag = False Text1.Text = "0." End Sub Sub Run() Num1 = Val(StrNum2) Num2 = Val(StrNum1) Select Case Runsign Case 1 equal = Num1 + Num2 Case 2 equal = Num1 - Num2 Case 3 equal = Num1 * Num2 Case 4 equal = Num1 / Num2 End Select StrNum2 = Str(equal) StrNum1 = StrNum2 Text1.Text = StrNum2 End Sub 23 Tahoma,8,134 Private Sub about_Click() MsgBox "Create by 周晓阳。1998/7/27", vbDefaultButton1, "VB教程第四章范 例" End Sub Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 To 9 If FirstNum Then StrNum1 = Str(Index) FirstNum = False Else StrNum1 = StrNum1 + Str(Index) End If Text1.Text = StrNum1 Case 10 If Not PointFlag Then If FirstNum Then StrNum1 = "0." FirstNum = False Else StrNum1 = StrNum1 + "." End If Else 24 Tahoma,8,134 Exit Sub End If PointFlag = True Text1.Text = StrNum1 Case 12 To 15 FirstNum = True PointFlag = False '还原标记值 If SignFlag Then Call Run Else SignFlag = True StrNum2 = StrNum1 StrNum1 = "" End If Runsign = Index - 11 Case 11 If Not SignFlag Then Text1.Text = StrNum1 equal = Val(StrNum1) FirstNum = True PointFlag = False Else Call Run 25 Tahoma,8,134 SignFlag = False End If Case Else Call ClearData End Select End Sub Private Sub Form_Load() Call ClearData End Sub 补充说明 按钮还有两个重要的属性Default(默认属性)和Cancel(取消属性)，两个属性都以布尔赋值，把Default 设为True，则在按下回车键时，不论焦点处于何处，都会触发该按钮的Click事件，而当Cancel属性被设为True，在按下ESC键时，该按钮的Click属性发生。下面举个例子: 建立一个新窗体和两个按钮，Name属性分别为cmdOK和cmdCancel，把前者的Default设为True，后者的Cancel 设为True，Caption属性分别为OK和Cancel。如图4,8。填写代码后运行: 26 Tahoma,8,134 Private Sub cmdCancel_Click() MsgBox "Cancel按钮被按下", vbDefaultButton1, "提示" End Sub Private Sub cmdOK_Click() MsgBox "OK按钮被按下", vbDefaultButton1, "提示" End Sub 结果如图4,9、4,10: 快捷键大家一定都知道，在VB如何实现呢。其实很简单，在刚才的例子里在建立一个按钮Command1，把它的Caption属性设为Click &ME，如图4,11，在M的下面有一条下划线，运行程序，当你按下Alt+M的时候就触发了Command1_Click事件: Private Sub Command1_Click() MsgBox "Click ME 按钮被按下", vbDefaultButton1, "提示" End Sub 据我所知，有许多用户有使用快捷键的习惯，注意细节上的问题能够使将来你的程序得到更多人的欣赏，不是吗, 1.6 5 第五章 菜单 我们经常在Windows操作里遇到各种各样的菜单，菜单的操作把各种命令结构化、分分类化，也节省了命令所占的空间，从作用上来讲，菜单类似于按钮，但它只有一个事件――Click。 27 Tahoma,8,134 VB作为Windows下的可视编程工具，菜单的设计当然很容易实现，VB3.0按下Ctrl+M，VB4.0以上的版本请按下Ctrl+E，便可呼叫出菜设计的窗口，无论VB的版本，这个窗口的样式是大同小异的，请见图5,1。 前面说过，菜单相当于简单的按钮，它有几个属性，其中的大部分我们都曾经见过，包括Name、Caption、Index、Checked、Enabled、Visible、快捷键和热键等等。其中Name是必须的。下面请跟我一起设计第一个菜单。 首先在Caption添入“文件”，Name为“mnuFile”，按下Next按钮，这样就建立了第一级菜单，注意菜单设计窗口的左中有四个箭头，按下向右的箭头，出现了一排小点，如图5,2，在VB里这叫缩排，这样就可以开始建立第二级菜单。 28 Tahoma,8,134 小知识:实际上我们在生活就中经常用到缩排，写文章时开头要空两格就是一种缩排，在编写程 序时更需要缩排，这样使程序结构化，便于观察，当然菜单设计里的缩排有更多的用处。接着填写下一菜单项，Caption为“新文件”，Name为“mnuFileNew”，按下Next键。 小知识:VB一共如许建立6级子菜单，如图5,3，尽量不要建立这样的菜单，要知道藏在越深处的菜单项越 难以被人发现，一个友好的程序界面应该让用户马上找到需要的命令。 29 Tahoma,8,134 接着重复以上步骤，创建以下三个菜单项: Caption 保存 Name mnuFileSave Level 1 Caption 另存为 Name mnuFileSaveAs Level 1 Caption 载入 Name mnuFileLoad Level 1 30 Tahoma,8,134 我们在菜单里还经常看到把不同项分开的分隔条，在VB里也很容易做到，把Caption设为“-”(减号)，Name为mnuBar1。最后增加这个菜单条的最后一项，Caption为“退出”，Name为mnuFileExit。现在可以退出菜单设计窗口，菜单如图5,4。 怎么样，经过几章的学习，是不是觉得Windows世界也不是那么神秘,也对，也不对。的确，我们很轻易的实现了这么多的功能，但如果你仔细想想，我们的程序还什么也不会做呢～可以说是徒有其表，要实现强大的功能，恐怕要学很长很长时间，而现在仅仅是个开头，并不是想入非非的时候，我们还要继续努力～ 现在再次按下Ctrl+E，重回菜单设计窗口，接着添加菜单。(按下向左的箭头，可以使菜单上升一级，Level代表菜单的级别)，根据下表添加新的菜单项: Caption 编辑 Name mnuEdit Level 0 Caption 剪切 Name mnuEditCut Level 1 Short-Cut Ctrl+X Caption 复制 Name mnuEditCopy Level 1 31 Tahoma,8,134 Short-Cut Ctrl+C Caption 粘贴 Name mnuEditPaste Level 1 Short-Cut Ctrl+V Caption 关于 Name mnuAbout Level 0 其中Short-Cut就是平常我们说的热键，你可以在菜单设计窗口中找到，设置一个你需要的组合键，这样不论窗口的焦点处于何处，菜单在第几层，只要按下热键，就相当于调用了该项的Click事件。结果如图5,5。 从Win95以来程序里引入了鼠标右键功能，使鼠标有了更大的用处，在VB里我们也很容易实现。 打开Form_MouseDown事件，该事件有两个参数:Button，当按下左键时Button返回1，当按下右键时Button返回2，;Shift，是指在点击鼠标时按下的键盘键，如Shift、Ctrl、Alt，这些我们将在以后讨论，但很难避免在一章中不涉及到不该涉及的内容，学习时有个大概的理解即可。下面在该事件里添加代码(效果如图5,6): 32 Tahoma,8,134 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu mnuEdit, vbPopupMenuLeftAlign Else Exit Sub End If End Sub 在上面的代码中我们用到了PopupMenu方法，它的语法是: object.PopupMenu 菜单名，标记，X坐标，Y坐标 标记是用来表明弹出菜单位于鼠标指针位置的，它有三个值: vbPopupMenuLeftAlign 位于鼠标左 vbPopupMenuRightAlign 位于鼠标右 VbPopupMenuCenterAlign 位于鼠标中部 X、Y值可以用来制定菜单弹出的位置，可以省略。 关于菜单的Visible、Enabled等属性请自己尝试。 33 Tahoma,8,134 1.7 6-1 第六章 输入(一) 我们为什么要设计计算机程序呢，当然是为了计算机能为我们完成工作，但是要完成不同的任务，我们就必须对计算机下达命令，然后计算机在把信息返馈回来――任务是否完成。以上就是所谓的人机对话或交互功能，尤其是在Windows操作里我们需要进行更多的输入工作，我们需要填写各种各样的表格，设置程序的重要参数，把数据输入给计算机，再又它完成既定的工作就是今天我们本章要重点讨论的问题――在VB中如何建立完整的输入机制。 在VB中提供了一个函数InputBox能帮助我们建立一个最简单的输入窗体，语法如下: InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context] )该函数返回一个字符串表达式，其参数含义为:(“[]”表示可缺省) prompt――字符串表达式，最大长度为1024字符，窗体上的提示部分。 Title――字符串表达式，显示标题栏里的文本。 Default――字符串表达式，窗体中文本框的缺省值。 xpos，ypos――数值表达式，以Twips为单位指定窗体出现在屏幕上的位置。 helpfile――字符串表达式，是帮助文件的完整路径。 Context――数值表达式，指定适合的帮助主题。 可能你看了上面的说明并不明白，那么下面我们就用Input语句完成一个最简单的程序。 小知识:屏幕坐标 在计算机的屏幕上也有一个类似于我们在中学里常用到的直角坐标系，之不过它的原点不在左下，而是在屏幕的右上角，屏幕的最右上方坐标为(0，0)，它的横坐标和我们的习惯是一致的，而纵坐标则是越向下越大，不仅是屏幕，所有的 对象里都是一样，需要记清。见图6,1 34 Tahoma,8,134 新建一个项目(project)，在Form_load里填写一行代码: a$ = InputBox("举荐你最欣赏的网站", "最佳网站投票", "VB小驿") ’ 按下F5运行程序，在Form1出现之前先会弹出一个输入对话框，如图6,2。这时，无论你按下OK还是Cancel都是没有区别的，因为我们并没有对输入数据进行处理，下面我们完成一个更加复杂些的程序。 新建一个项目文件，把窗口布局成类似于图6,3的结构，各对象属性如下表: 35 Tahoma,8,134 Form1 Caption “最佳网站投票演示” BorderStyle 3’不可调整大小 ControlBox 0’False Frame1 Caption “输入框属性“ Label1 Autosize 1’True Index 0至5 0至5 Caption “提示语句” “标题” “缺省网站” “X坐标” “Y坐标” “” Index 4 Enabled False Index 4 Enabled False Text1 Text “”’(空字符串) Index 0至4 Index 3 Text 0 Index 4 Text 0 Check1 Caption “指定输入框位置” Button1 Index 0,1 Index 0 Caption “显示输入框” 1 Caption “退出程序” 36 Tahoma,8,134 本例中出现了一个Frame1控件，它是一种框架，可以用来把窗体分成好几个部分，首先应该在窗体上画出Frame1控件，然后再选择相应的控件，在Frame1上描出轮廓，使其是出现在Frame1之上，本例中除去两个按钮，其余都在Frame1上面。本例中用到了几组控件数组，其创建方法是，在选定的点右键，选择Copy，再在窗体其他部位单击右键，选择Paste即可，注意，若要使粘贴的对象在Frame1上，请在Frame1上单击右键选择Paste。 我们通过这个窗体，对输入框进行完整的控制，原理是这样的:当我们把窗体中要填写的对输入框的参数完成后按下OK按钮，就会出现我们设计的那个输入框，我们从输入框退出时则返回我们投票的结果，代码如下. 窗体初次被装入时，Label1(3)、Label(4)和Text1(3)、Text1(4)的Enabled属性都是False，我们需要通过改变Check1的Value(1，被选中，0，未选中)是他们有效或无效。 声明全局变量(General): Dim PosChk As Boolean '检查X、Y坐标是否有效 Check1_Click 事件: Private Sub Check1_Click() If Check1.Value = 1 Then Label1(3).Enabled = True Label1(4).Enabled = True Text1(3).Enabled = True Text1(4).Enabled = True PosChk = True Else Label1(3).Enabled = False Label1(4).Enabled = False Text1(3).Enabled = False Text1(4).Enabled = False PosChk = False End If 37 Tahoma,8,134 End Sub 接着在按钮中填写代码: Private Sub Command1_Click(Index As Integer) Dim Prompt, Title, Default As String Dim xPos, yPos As Integer Select Case Index Case 0 Prompt = Text1(0).Text Title = Text1(1).Text Default = Text1(2).Text If PosChk Then xPos = Val(Text1(3).Text) yPos = Val(Text1(4).Text) a$ = InputBox(Prompt, Title, Default, xPos, yPos) Else a$ = InputBox(Prompt, Title, Default, xPos, yPos) End If Label1(5).Caption = "谢谢您的投票，您的选择是" & a$ & "～ " Case 1 Unload Me End Select End Sub 按下F5运行程序，你会看到这样的结果。图6,4，6,5。是不是有种受骗的感觉，啊哟哟，可不是我的错， 就是这么容易嘛～ 38 Tahoma,8,134 从刚才的例子里，我们接触了一些VB中的输入方法，其实数据输入不仅仅局限于向Text框中输入数据，数据的输入还有许多其他的方法，譬如前面的Check1也是向程序发出一定的信息，只要是通过操作向计算机发布命令就可以叫做输入，下面我们来一一介绍。 首先要介绍的当然是输入用到最多的Text框。Text没有Click事件，它的缺省事件是Change，也就是当Text框里的一旦内容改变就会激发该事件发生，还是让我们用实例说话吧。 Text有几个特殊的属性，一是MultiLine(多行)属性，MultiLine属性为False的时候，不 论文 政研论文下载论文大学下载论文大学下载关于长拳的论文浙大论文封面下载 本有多长，它都会在一行里显示下去，换行符无效，当它为True的时候，字符串显示到Text框边缘的时候就会自动换行。另一个与之配合的属性是ScrollBars属性，它有4个值，0到3，分别是没有滚动条，水平滚动条，垂直滚动条，和二者都有，它是一个只读属性，也就是说只有在程序设计过程中才能改变，而不能在程序运行中改变，但是我们可以通过API解决运行中改变的问题，我们放在以后再讲。PasswordChart属性，我们经常在程序操作中遇到要填写密码的部分，为了保密起见，在屏幕上显示的字符一般“*”表示，并且这时是无法用剪贴板的，这在VB中非常容易做到，把PasswordChart中设一个用来代替字符串的字符即可，并不一定是“*”哦。 下面我们完成一个有趣的小程序，是我以前遇到过的一个程序，我对其进行了部分修改。程序的意思是这样的，假设你是一个司机应超速被警察扣留，现在需要你向警察陈述你的理由，如果你的话能打动他，就可以免交罚金，如果你在规定的字数里没有说出什么有震撼力的话，那老兄你可就惨了，交钱吧。J 39 Tahoma,8,134 这个程序比原来的英文程序有了几点不同，第一，由于用到的是双字节中文的中文，所以对于检测中文字符和英文有很大不同，第二，原来的英文程序不管你说多少，警察依然是依法从事，本例中给了犯规者10%的免罚机会(有点无聊„„L ，不过也是为了学一些东东嘛)。下面就跟我来设计窗体吧。(如图6,6) Form1 Icon Stop图标 Caption 停车检查 BorderStyle 3 Label1 Caption 警官，我超速是有原因的,请听我说: BackColor &H00808080& ForeColor &H80000012& Label2 Caption 你必须在30字之内完成你理由的申诉，否则 将受到罚款～ BackColor &H00808080& ForeColor &H00FF0000& Text1 MultiLink True Text “” 40 Tahoma,8,134 Picture1 Autosize True BackColor &H00808080& Visible True Picture2 Autosize True BackColor &H00808080& Visible False Picture3 Autosize True BackColor &H00808080& Visible False Command1 Visible False 三个图片框Picture1,3的Picture属性分别为绿灯，黄灯和红灯，这些图标在VB目录下的 Graphics\Icons\Traffic下(VB5)，或是VB目录下的Icons\Traffic下(VB4、VB3)，你还可以为Label1 在Font属性里选一个合适的字体和字重。下面我们来看代码: 首先初始化程序: Private Sub Form_Load() '把Command1放在水平的中央 Command1.Top = Label2.Top，200 Command1.Left = (Form1.Width - Command1.Width) / 2 '重叠三个图片框 Picture2.Left = Picture1.Left Picture2.Top = Picture1.Top Picture3.Left = Picture1.Left 41 Tahoma,8,134 Picture3.Top = Picture1.Top End Sub 下面我来讲一讲程序是怎样运行的，我们将用到Text的Change事件，每当字符串改变一次就对它进行一次检查，算出已经说的字数，当字数超过10时，下面的红绿灯会变成黄色，并且在这时随机抽取一个数，它在一个范围内出现的可能是10%，如果在这个范围内就可以免交罚金，如果不在范围则继续，当文字超过20的时候，红绿灯会变成红色，再一次抽取随机数字，步骤同上，如果30个字已满，再进行一次检查，如果你真的那么不幸就该罚款了。 程序的步骤清楚了，我们在来看看程序的要点。由于中文是双字节字符，也就是说一个汉字占两个ASC码的位置，而VB显然是为英语国家设计的用Len函数无法返回汉字字节，也就是说一个汉字和和一个ASC字符在Len函数中得到的值是一样的，这就需要特殊处理。用Asc()函数，在括号内放入一个ASC字符或字符串，它会把第一个ASC码转化为0,255的数值，而把一个汉字放入，它的值必然不在0,255，这也就可以作为判定汉字的基础。我们可以把英文算作半个汉字。 第六章第二部分 1.8 6-2 第六章 输入(二) 下面我们来看看代码: 在General 里声明窗体级变量: Dim Level As Integer Private Sub Command1_Click() Unload Me End Sub Private Sub Text1_Change() Dim StrLength As Integer’字符串长度 Dim RandomNum As Single’随机数 42 Tahoma,8,134 Dim Str1 As String Dim a As String Dim i, Temp StrLength = 0’每次开始时把字符串长度还原为 0a = Text1.Text For i = 1 To Len(a)’Len(a)代表字符串的长度 Temp = Asc(Mid$(a, i, 1))’挨个取字符 If Temp > 255 Or Temp < 0 Then’不是ASC 码StrLength = StrLength + 2 Else StrLength = StrLength + 1End If Next i StrLength = StrLength / 2 Select Case StrLength Case 0 To 9 Picture1.Visible = True Picture2.Visible = False Picture3.Visible = False Label2.Caption = "慢慢说。你还有" & Str(30 - StrLength) & "个字可以说 " Level = 1 Case 10 To 19 If Level = 1 Then 43 Tahoma,8,134 RandomNum = Rnd * 10’得到随机数 If RandomNum <= 10 And RandomNum > 9 Then Text1.Enabled = False Label2.Caption = "很抱歉这是个误会„„ "Command1.Visible = True Command1.Caption = "您可以离开了 "End If Level = 2 Else Picture1.Visible = False Picture2.Visible = TruePicture3.Visible = False Str1 = "怎么还没说完～ " Label2.Caption = Str1 & "你还有" & Str(30 - StrLength) & "个字可以说 " End If Case 20 To 29 If Level = 2 Then RandomNum = Rnd * 10 If RandomNum <= 10 And RandomNum > 9 Then Text1.Enabled = False Label2.Caption = "很抱歉这是个误会„„ "Command1.Visible = True Command1.Caption = "您可以离开了 "End If 44 Tahoma,8,134 Level = 3 Else Picture1.Visible = False Picture2.Visible = False Picture3.Visible = True Str1 = "我已经不耐烦了～ " Label2.Caption = Str1 & "你还有" & Str(30 - StrLength) & "个字可以说 " End If Case Else Text1.Enabled = False Label2.Caption = "你已经没有机会了～"Command1.Visible = True Command1.Caption = "交钱吧，肇事犯～ "End Select End Sub 45 Tahoma,8,134 中间有几个函数需要解释一下: Mid可以从字符串中取出一部分，返回字符型，格式 : Mid(字符串,从第几个字符开始,取字符的长度 ) Asc可以把字符转换为ASCII码，格式: Asc(字符串) Rnd，取得大于0但小于1 的数值，可以没有参数。 怎么样，十分简单吧，我们将在下一次继续讨论VB的输入机制～ 在继续上面的内容时，我想再回顾和强调几个在字符串操作中经常函数: 先是几个已经接触过的，Mid()，Asc()，Len()，它们的语法分别是: Mid(字符型，起始字符，长度) 返回子字符串，如果从字符串的第一个字符取起，起始字符为1，依此类推。 Asc(字符型) 返回数值，如果参数不是一个字符，而是字符串(多个字符)，将返回参数的第一个字符ASCII值。 Len(字符型) 返回字符串的长度。 下面我再为你解释几个新的函数: Left(字符串，长度) 将返回字符型，从字符串的第一个字符向左取字符串，与之相对应的是Right()，它将从字符串的最后一个字符向右取字符串。 Chr(数值型) 该数值范围从0,255，返回字符型，如Chr(65)可返回字符“A”，这样可以输入一些用键盘无法输入的字符。 Str(数值型) 该函数把数值型转换为字符型，也许你觉得数值“123”和字符串“123”没什么区别，但在内存中一个ASCII字符是占一个字节，也就是说字符串“123”占3个字节，而当数值“123”是整型时，它占两个字符，当它是长整型时，占4个字节。与之向对应的是Val(数值型)，它把数值型转换为字符型。 46 Tahoma,8,134 上面的函数都是以后要经常用到的，请将它们熟悉。 上次讲到文本框的用处，还有意思吗,你是否能把上次的程序稍稍变动一下，来计算出输入的单词数，提示一下，单词与单词之间是用空格分隔开的。 输入不仅仅是向文本框输入字符，凡是从外界向程序传递数据都可以叫做输入，我们一一说明白。 无线钮，记得我们曾在第一章中完成过我们的第一个程序――“Hello World～”它就是一种输入的方法，在设计VB程序时可以通过一组这样的无线钮，它们之间互相排斥，也就是说，只能有一个按钮被选中。它因为很象无线电收音机上的按钮因而得名无线钮。如果要在一个窗体内放置多组无线钮必须用Frame控件把它们区分开来。下面我们在来完成一个例子，顺便熟悉一下另外两个处理字符串的函数――LTrim()和Rtrim()，它们分别用来删除字符串左边的空格和右边的空格，让我们看看它们是如何工作的。 程序窗体如图6,8，由于窗体比较简单，无需修改更多的属性，一共有三个文本框(Text1到3)，分别用来显示输入字符，显示把空格换成星号的字符，和经过处理的字符，还有三个无线钮(Option1到3)，要修改的只有Caption属性，分别是“删除左边的空格”、“删除右边的空格”和“删除两边的空格”。因为空格在我们在文本框中无法看到空格，所以我们通过一个称作AddStar的函数把原有字符串中的空格转换为星号，使我们能够看到函数的效果。下面在程序中添加代码，首先在General中声明窗体级变量: Dim LTrimmedword$, RTrimmedword$ '删除左边空格和右边空格后的字符串 Dim LRTrimmedword$ '删除两边空格后的字符串 然后，我们通过一个叫做addstar的函数为字符串加上星号，以前曾说过函数与过程的分别，函数会返回一个函数值，所以addstar也就相当于一个变量，其实这很好理解，就象中学代数中的函数，函数就相当于变量Y，而函数中的参数则相当于自变量X，当然可能有很多自变量X1、X2„„请原谅，我并不想在这里上数学课，因为我厌恶那玩意儿，特别是上了大学之后，好在大二以后就再也不会有数学课了，哈哈„„ Function addstar(tempword As String) As String Dim charindex% Dim pasteword$ '加星号后的字符串 For charindex = 1 To Len(tempword) 47 Tahoma,8,134 If Mid(tempword, charindex, 1) = " " Then '如果字符为空格 pasteword = pasteword + "*" Else: pasteword = pasteword + Mid(tempword, charindex, 1) End If Next addstar = pasteword '返回函数值 End Function 下面的代码很简单，并且我为它做了注释，就不再一一解释了，我只想简要的提几句，Ltrim和Rtrim只有一个参数(字符型)，另外下面用到了焦点事件，我们曾在第三章中介绍过，当Text1得到焦点(GotFocus)时，清空所有的文本框，当它失去焦点(LostFocus)时，对字符进行addstar并且在Text2中显示。 Private Sub Text1_GotFocus() '但焦点于Text1 '清除所有文本框中的字符 Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub Private Sub Text1_LostFocus() Dim Origionword As String Origionword = Text1.Text Text2.Text = addstar(Origionword) LTrimmedword = addstar(LTrim(Origionword)) RTrimmedword = addstar(RTrim(Origionword)) LRTrimmedword = LTrim(RTrim(Origionword)) End Sub Private Sub Option1_Click() Text3.Text = LTrimmedword '显示删除左空格后的字符串 End Sub 48 Tahoma,8,134 Private Sub Option2_Click() Text3.Text = RTrimmedword '显示删除右空格后的字符串 End Sub Private Sub Option3_Click() Text3.Text = LRTrimmedword '显示删除两边空格后的字符串 End Sub 最后结果如图6,9。 与无线钮相对的是检查框，在同一范围内一组无线钮只能有一个被选中，而检查框则可以有多个选择，就象在添表时，性别那项只能有一个选择，而在描述你以前的职业时可以有学生、程序员、家庭教师或者什么，总之有很多选择，下面我们举一个简单的例子加以说明。 假设编写了一个共享软件，在让用户注册的时候你想知道你的用户使用的计算机情况，你就需要一个调查表，为了使这个调查表不止枯燥，可以在这个程序中加入一些图形。新建一个项目文件，窗体布局如图6,10。 49 Tahoma,8,134 程序很简单，一共有两个框架(Frame1和Frame2)，它们的Caption分别为“选择你的计算机拥有的配置”和“这是你的计算机系统”，在Frame1有四个检查框(Check1到Check4)，Caption分别为“网络系统”、“鼠标”、“密码保护”和“电子邮件”，另把Check4的Enabled属性改为False，使其无效;在Frame2中放置四个图片框(Picture1到Picture4)与四个检查框向对应，请把所有图片框的BorderStyle属性设为0(无边框)，它们的Picture属性请根据上图，在存放图标的目录中找到相对的图标。下面是程序代码: Private Sub Check1_Click() If Check1.Value Then Check4.Enabled = -1 Picture1.Visible = -1 Else: Check4.Enabled = 0 Picture1.Visible = 0 Check4.Value = 0 Picture4.Visible = 0 End If End Sub Private Sub Check2_Click() If Check2.Value Then Picture2.Visible = -1 50 Tahoma,8,134 Else: Picture2.Visible = 0 End If End Sub Private Sub Check3_Click() If Check3.Value Then Picture3.Visible = -1 Else: Picture3.Visible = 0 End If End Sub Private Sub Check4_Click() If Check4.Value Then Picture4.Visible = -1 Else: Picture4.Visible = 0 End If End Sub 51 Tahoma,8,134 这个程序比我们见过的任何程序都简单，就不再做说明。 1.9 6-3 VB入门教程之六 第六章 输入(三) 滚动条(ScrollBar)在视窗中也是一个不可缺少的部分，由于面积所限，我们不得把屏幕上的内容滚来滚去，以显示大量的内容，这就是我们经常要用到的滚动条。但滚动条除去滚动窗口，还有一个很重要的作用――输入，想想你经常用到的一些家用电器上调节声音或别的什么东西的滑块，你把它滑向大的一方音量就会增大，而你把它滑向小的一方音量就会减小，或者一个控制左右两个音箱的均衡器，当滑块在正中央的时候，两个音箱的音量是相同的，当你把滑块偏向一方时，音箱的音量有了大小之分，在Windows操作中，我们也经常要用到类似的效果。 在VB中提供了两个常规的滚动条控件――Vscroll和Hscroll，分别代表垂直的和水平的滚动条，它们只不过是方向不同而已，而它们的属性，以及会发生的事件都是相同的。，滚动条有几个特殊的属性: Value属性，当滑块挪动后停在某一位置时，就改变了滚动条的Value属性。 Max和Min属性，用来设置滚动条的最大值和最小值，譬如把Max设为100，把Min设为0时，滚动条的Value就在0到100之间移动，当Max和Min倒置时，滚动条的方向也会相反，也就是说，当Max End Select End Sub 运行程序的话已经可以输入数据，下面我们来处理小数点。 69 Tahoma,8,134 在General里声明新的变量: Dim PointFlag As Boolean '判断是否已有小数点 我们知道小数点只能输入一次，一个数据中不能有多个小数点存在，所以需要一 个布尔变量做判断。 在Form_Load里进行初赋值: PointFlag = False 在Command的单击事件里接着上面输入新的代码: Case 10 If Not PointFlag Then’如果没有小数点 If FirstNum Then’如果是第一个字符 StrNum1 = "0." FirstNum = False Else StrNum1 = StrNum1 + "." End If Else’已有小数点 Exit Sub’则退出单击事件 End If PointFlag = True Text1.Text = StrNum1 70 Tahoma,8,134 原文已完。下文为附加文档，如不需要，下载后可以编辑删除，谢谢～ 施工组织设计 本施工组织设计是本着“一流的质量、一流的工期、科学管理”来进行编制的。编制时，我公司技术发展部、质检科以及项目部经过精心研究、合理组织、充分利用先进工艺，特制定本施工组织设计。 一、 工程概况: ##西夏建材城生活区27、30住宅楼位于银川市新市区，橡胶厂对面。 本工程由宁夏燕宝房地产开发有限公司开发，银川市规划建筑设计院设计。 本工程耐火等级二级，屋面防水等级三级，地震防烈度为8度，设计使用年限50年。 #2#2本工程建筑面积:27楼3824.75m;30楼3824.75 m。室内地 ##坪?0.00以绝对标高1110.5 m为准，总长27楼47.28m;30楼 ##47.28 m。总宽27楼14.26m;30楼14.26 m。设计室外地坪至檐口高度18.6 00m，呈长方形布置，东西向，三个单元。 本工程设计屋面为坡屋面防水采用防水涂料。外墙水泥砂浆抹面，外刷浅灰色墙漆。内墙面除卫生间200×300瓷砖，高到顶外，其余均水泥砂桨罩面，刮二遍腻子;楼梯间内墙采用50 1 Tahoma,8,134 厚胶粉聚苯颗粒保温。地面除卫生间200×200防滑地砖，楼梯间50厚细石砼1:1水泥砂浆压光外，其余均采用50厚豆石砼毛地面。楼梯间单元门采用楼宇对讲门，卧室门、卫生间门采用木门，进户门采用保温防盗门。本工程窗均采用塑钢单框双玻窗，开启窗均加纱扇。本工程设计为节能型住宅，外墙均贴保温板。 本工程设计为砖混结构，共六层。基础采用C30钢筋砼条形基础，上砌MU30毛石基础，砂浆采用M10水泥砂浆。一、二、三、四层墙体采用M10混合砂浆砌筑MU15多孔砖;五层以上采用M7.5混合砂浆砌筑MU15多孔砖。 本工程结构中使用主要材料:钢材:I级钢，II级钢;砼:基础垫层C10，基础底板、地圈梁、基础构造柱均采用C30，其余均C20。 本工程设计给水管采用PPR塑料管，热熔连接;排水管采用UPVC硬聚氯乙烯管，粘接;给水管道安装除立管及安装IC卡水表的管段明设计外，其余均暗设。 本工程设计采暖为钢制高频焊翅片管散热器。 本工程设计照明电源采用BV,2.5铜芯线，插座电源等采用BV,4铜芯线;除客厅为吸顶灯外，其余均采用座灯。 二、 施工部署及进度计划 1、工期安排 本工程 合同 劳动合同范本免费下载装修合同范本免费下载租赁合同免费下载房屋买卖合同下载劳务合同范本下载 计划开工日期:2004年8月21日，竣工日期:2005年7月10日，合同工期315天。计划2004年9月15日前 2 Tahoma,8,134 完成基础工程，2004年12月30日完成主体结构工程，2005年6月20日完成装修工种，安装工程穿插进行，于2005年7月1日前完成。具体进度计划详见附图,1(施工进度计划)。 2、施工顺序 ?基础工程 工程定位线(验线)?挖坑?钎探(验坑)?砂砾垫层的施工?基础砼垫层?刷环保沥青 ?基础放线(预检)?砼条形基础?刷环保沥青 ?毛石基础的砌筑?构造柱砼?地圈梁?地沟?回填工。 ?结构工程 结构定位放线(预检)?构造柱钢筋绑扎、定位(隐检)?砖墙砌筑(，50cm线找平、预检)?柱梁、顶板支模(预检)?梁板钢筋绑扎(隐检、开盘申请)?砼浇筑?下一层结构定位放线?重复上述施工工序直至顶。 ?内装修工程 门窗框安装?室内墙面抹灰?楼地面?门窗安装、油漆?五金安装、内部清理?通水通电、竣工。 ?外装修工程 外装修工程遵循先上后下原则，屋面工程(包括烟道、透气孔、压顶、找平层)结束后，进行大面积装饰，塑钢门窗在装修中逐步插入。 三、 施工准备 3 Tahoma,8,134 1、 现场道路 本工程北靠北京西路，南临规划道路，交通较为方便。 场内道路采用级配砂石铺垫，压路机压。 2、机械准备 ?设2台搅拌机，2台水泵。 ?现场设钢筋切断机1台，调直机1台，电焊机2台，1 台对焊机。 ?现场设木工锯，木工刨各1台。 ?回填期间设打夯机2台。 ?现场设塔吊2台。 3、施工用电 施工用电已由建设单位引入现场;根据工程特点，设总配电箱1个，塔吊、搅抖站、搅拌机、切断机、调直机、对焊机、木工棚、楼层用电、生活区各配置配电箱1个;电源均采用三相五线制;各分支均采用钢管埋地;各种机械均设置接零、接地保护。具体配电箱位置详见总施工平面图。 3、施工用水 施工用水采用深井水自来水，并砌筑一蓄水池进行蓄水。楼层用水采用钢管焊接给水管，每层留一出水口;给水管不置蓄水池内，由潜水泵进行送水。 4、生活用水 生活用水采用自来水。 4 Tahoma,8,134 5、劳动力安排 ?结构期间: 瓦工40人;钢筋工15人;木工15人;放线工2人;材料1人;机工4人;电工2人;水暖工2人;架子工8人;电焊工2人;壮工20人。 ?装修期间 抹灰工60人;木工4人;油工8人;电工6人;水暖工10人。 四、主要施工方法 1、施工测量放线 ?施工测量基本要求 ##A、西夏建材城生活区17、30住宅楼定位依据:西夏建材城生活区工程总体规划图，北京路、规划道路永久性定位 B、根据工程特点及,建筑 工程施工 建筑工程施工承包1园林工程施工准备消防工程安全技术交底水电安装文明施工建筑工程施工成本控制 测量规程,DBI01,21,95，4、3、2条，此工程设置精度等级为二级，测角中误差?12，边长相对误差1/15000。 C、根据施工组织设计中进度控制测量工作进度，明确对工程服务，对工程进度负责的工作目的。 ?工程定位 A、根据工程特点，平面布置和定位原则，设置一横一纵 ##两条主控线即27楼:(A)轴线和(1)轴线;30楼:(A)轴 #线和(1)轴线。根据主轴线设置两条次轴线即27楼:(H)轴 5 Tahoma,8,134 #线和(27)轴线;30楼:(H)轴线和(27)轴线。 B、主、次控轴线定位时均布置引桩，引桩采用木桩，后砌一水泥砂浆砖墩;并将轴线标注在四周永久性建筑物或构造物上，施测完成后报建设单位、监理单位确认后另以妥善保护。 C、控轴线沿结构逐层弹在墙上，用以控制楼层定位。 D、水准点:建设单位给定准点，建筑物?0.00相当于绝对标高1110.500m。 ?基础测量 A、在开挖前，基坑根据平面布置，轴线控制桩为基准定出基坑长、宽度，作为拉小线的依据;根据结构要求，条基外侧1100mm为砂砾垫层边，考虑放坡，撒上白灰线，进行开挖。 B、在垫层上进行基础定位放线前，以建筑物平面控制线为准，校测建筑物轴线控制桩无误后，再用经纬仪以正倒镜挑直法直接投测各轴线。 C、标高由水准点引测至坑底。 ?结构施工测量 A、首层放线验收后，主控轴一引至外墙立面上，作为以上务层主轴线竖身高以测的基准。 B、施工层放线时，应在结构平面上校投测轴线，闭合后再测设细部尺寸和边线。 C、标高竖向传递设置3个标高点，以其平均点引测水平线折平时，尽量将水准仪安置在测点范围内中心位置，进行测 6 Tahoma,8,134 设。 2、基坑开挖 本工种设计地基换工，夯填砂砾垫层1100mm;根据此特点，采用机械大开挖，留200mm厚进行挖工、铲平。 开挖时，根据现场实际土质，按规范要求1:0.33放坡，反铲挖掘机挖土。开挖出的土，根据现场实际情况，尽量留足需用的好土，多余土方挖出，避免二次搬运。 人工开挖时，由技术员抄平好水平控制小木桩，用方铲铲平。 挖掘机挖土应该从上而下施工，禁止采用挖空底脚的操作方法。机械挖土,先发出信号，挖土的时候，挖掘机操作范围内，不许进行其他工作，装土的时候，任何人都不能停留在装土车上。 3、砌筑工程 ?材料 砖:MU15多孔砖，毛石基础采用MU30毛石。 砂浆:?0.00以下采用M10水泥砂浆，一、二、三、四层采用M10混合砂浆，五层以上采用M7.5混合砂浆。 ?砌筑要求 A、开工前由工长对所管辖班组下发技术交底。 B、砌筑前应提前浇水湿润砖块，水率保持在10,,15,。 C、砌筑采用满铺满挤“三一砌筑法“，要求灰浆饱满， 7 Tahoma,8,134 灰缝8,12mm。 D、外墙转角处应同时砌筑，内外墙交接处必须留斜槎，槎子长度不小于墙体高度的2/3，槎子必须平直、通顺。 E、隔墙与墙不同时砌筑又不留成斜槎时可于墙中引出阳槎或在墙的灰缝中预埋拉结筋，每道不少于2根。 F、接槎时必须将表面清理干净，浇水湿润，填实砂浆，保持灰缝平直。 G、砖墙按图纸要求每50mm设置2φ6钢筋与构造柱拉结，具体要求见结构总说明。 H、施工时需留置临时洞口，其侧边离交接处的墙面不少于500mm，顶部设边梁。 4、钢筋工程 ?凡进场钢筋须具备材质证明，原材料须取样试验，经复试合格后方可使用。 ?钢筋绑扎前应仔细对照图纸进行翻样，根据翻样配料，施工前由工长对所管辖班组下发技术交底，准备施工工具，做好施工的准备工作。 ?板中受力钢筋搭接，I级钢30d，II级钢40d，搭接位置:上部钢筋在跨中1/3范围内，下部钢筋在支座1/3范围内。 ?钢筋保护层:基础40mm，柱、梁30mm，板20mm。保护层采用50mm×50mm的水泥砂浆块。板上部钢筋用马凳按梅花状支起。 8 Tahoma,8,134 ?所有钢筋绑扎，须填写隐检记录，质评资料及目检记录，验收合格后方可进行下道工序。 5、砼工程 ?水泥进场后须做复试，经复试合格后由试验室下达配合比。施工中严格掌握各种材料的用量，并在搅拌机前进行标识，注明每立方米、每盘用量。同时搅拌时，须车车进磅，做好记录。 ? 浇筑前，对模板内杂物及油污、泥土清理干净。 ?投料顺序:石子?水泥?砂子。 ?本工程均采用插入式振捣器，一次浇筑厚度不宜超过振捣器作用部分长度的1.25倍，捣实砼的移动间距不宜大于振捣器作用半径的1.5倍。 ?砼浇筑后1昼夜浇水养护，养护期不少于7d，砼强度未达到1.2MP之前不得上人作业。 a 6、模板工程 ?本工程模板采用钢木混合模板。模板支搭的标高、截面尺寸、平整度、垂直度应达到质量验收标准，以满足其钢度，稳定性要求。 ?模板支撑应牢固可靠，安装进程中须有防倾覆的临时固定措施。 ?本工程选用851脱模剂，每拆除一次模板经清理后涂刷脱模剂，再重新组装，以保证砼的外观质量。 9 Tahoma,8,134 6、架子工程 ?本工程采用双排架子防护，外设立杆距墙2m，里皮距墙50cm，立杆间距1.5m，顺水间距1.2m，间距不大于1m。 ?架子底部夯实，垫木板，绑扫地杆。 ?为加强架子的稳定性，每七根立杆间设十字盖，斜杆与 。o地面夹角60 ?为防止脚平架外倾，与结构采用钢性拉接，拉接点间距附和“垂四平六“的原则。 ?外防护架用闭目式安全网进行封闭，两平网塔接和网下口必须绑孔紧密。 ?结构架子高出作业层1m，每步架子满铺脚手板，要求严密牢固并严禁探头板。 7、装饰工程 装饰工程施工前，要组织质监部门、建设、设计、施工单位四方参加的主体结构工程核验收，对已完全体分部工程进行全面检查、发现问题及时处理，清除隐患，并做好装饰前材料、机具及技术准备工作。 1、根据预算所需材料数量，提出材料进场日期，在不影响施工用料的原则下，尽量减少施工用地，按照供料计划分期分批组织材料进场。 2、将墙面找方垂直线，清理基层，然后冲筋，按照图纸要求，分层找平垂直，阴阳角度方正，然后拉线作灰饼。底子 10 Tahoma,8,134 灰应粘结牢固，并用刮杠刮平，木抹子抹平。 3、罩面应均匀一致，并应在终凝前刮平压光，上三遍灰抹子。 4、油漆、涂料施工: 油漆工程施工时，施工环境应清洁干净，待抹灰、楼地面工程全部完工后方可施工，油漆涂刷前被涂物的表面必须干燥、清洁，刷漆时要多刷多理不流坠，达到薄厚均匀，色调一致，表面光亮。 墙面涂料基层要求现整，对缝隙微小孔洞，要用腻子找平，并用砂纸磨平。 为了使颜色一致，应使用同一配合比的涂料，使用时涂料搅匀，方可涂刷，接槎外留在阴阳角外必须保证涂层均匀一致表面不显刷纹。 8、楼地面工程 楼地面工程只作50厚豆石砼垫层。 做垫层必须先冲筋后做垫层，其平整度要控制在4mm以内，加强养护4,5天后，才能进行上层施工。 10、层面工程 1、屋面保温层及找平层必须符合设计要求，防水采用防水卷材。 2、做水泥砂浆找平层表面应平整压光，屋面与女儿墙交接处抹成R?150mm圆角。 11 Tahoma,8,134 3、本工程屋面材料防水，专业性强，为保证质量，我们请专业人员作防水层。 4、原材料在使用前经化验合格后才能使用，不合格材料严禁使用。 11、水、暖、电安装工程 ?管道安装应选用合格的产品，并按设计放线，坡度值及坡向应符合图纸和规范要求。 ?水、暖安装前做单项试压，完毕后做通、闭水后试验和打压试验，卫生间闭水试验不少于24小时。 ?电预埋管路宜沿最近线路敷设，应尽量减少弯曲，用线管的弯曲丝接套丝，折扁裂缝焊接，管口应套丝用堵头堵塞。油漆防腐等均符合图纸各施工规范及质量评定标准。 ? 灯具、插座、开关等器具安装，其标高位置应符合设计要求，表面应平直洁净方正。 ?灯具、插座、开关等器具必须选用合格产品，不合格产品严禁使用。 ?做好各种绝缘接地电阻的测试和系统调整记录，检查配线的组序一定要符合设计要求。 五、预防质量通病之措施 本工程按优质工程进行管理与控制，其优质工程的目标体系与创优质工程的保证措施在本工程施工组织设计中做了详述。本措施不再述。 12 Tahoma,8,134 创优质工程除对各分部、分项、工序工程施工中，精心操作，一丝不苟、高标准严要求作业外，关键是防止质量通病。为此，提出防止通病的作业措施如下: 1、砖墙砌体组砌方法: ?、组砌方法:一顺一丁组砌，由于这种方法有较多的丁砖，加强了在墙体厚度方向的连结，砌体的抗压强度要高一些。 ?、重视砖砌体水平灰缝的厚度不均与砂浆饱满度: ?、水平灰缝不匀:规范规定砖砌体水平灰缝厚度与竖向灰缝宽度一般为10mm，但不应小于8mm，也不应小于12mm。砂浆的作用:一是铺平砖的砌筑表面，二是将块体砖粘接成一个整体。规范中之所以有厚度和宽度要求，是由于灰缝过薄，使砌体产生不均匀受力，影响砌体随载能力。如果灰缝过厚，由于砂浆抗压强度低于压的抗压可度。 在荷载作用下，会增大砂浆的横向变形，降低砌体的强度。试验研究表明，当水平灰缝为12mm时，砖砌体的抗压强度极限，仅为10mm厚时的70,75,，所以要保证水平灰缝厚度在8,12mm之间。怎样确保水平灰缝的厚度呢, A、皮数杆上，一定将缝厚度标明、标准。 B、砌砖时，一定要按皮数杆的分层挂线，将小线接紧，跟线铺灰，跟线砌筑。 C、砌浆所用之中砂，一定要过筛，将大于5mm的砂子筛掉。 13 Tahoma,8,134 D、要选砖，将过厚的砖剔掉。 E、均匀铺灰，务使铺灰之厚度均匀一致。坚持“一块砖、一铲灰、一揉挤“的“三一“砌砖法“。 ?砂浆必须满铺，确保砂浆饱满度。 规范规定:多孔砖砌体，水平灰缝的砂浆饱满度不得低于80,，这是因为，灰缝的饱满度，对砌体的强度影响很大。比如:根据试验研究，当水平灰缝满足80,以上，竖缝饱满度满足60,以上时，砌体强度较不饱满时，要提高2,3倍，怎样保证灰缝饱满度呢, A、支持使用所述的“三一“砌砖法，即“一块砖、一铲灰、一揉挤“。 B、水平缝用铺浆法(铺浆长度?50cm)砌筑，竖缝用挤浆法砌筑，竖缝还要畏助以加浆法，以使竖向饱满，绝不可用水冲灌浆法。 C、砂浆使用时，如有淅水，须作二次拌合后再用。绝不可加水二次拌合。拌好的砂浆，须于3小时之内使用完毕。 D、不可以干砖砌筑。淋砖时，一般以15,含水率为宜。(约砖块四周浸水15mm左右)。 ?注意砌砖时的拉结筋的留置方法: 砖砌体的拉结筋留置方法，按设计要求招待。如设计没有具体规定时，按规范执行。规范规定“拉结筋的数量每12cm厚墙放1根Ф6钢筋，沿墙高每50cm留一组。埋入长度从墙 14 Tahoma,8,134 的留槎处算起，每边均,100cm，末端应有弯钩”见图。规范还规定:“构造柱与墙连拉处，宜砌成马牙槎，并沿墙高每50cm设2Ф6拉结钢筋，每边伸入墙内,100cm。 2、预防楼梯砼踏步掉角: 楼梯踏步浇筑砼后，往往因达不到砼强度要求，就因施工需要提前使用，既便有了足够强度，使用不慎，都会掉楞掉角。而且有了掉角，修补十分困难，且不定期牢固。为此宜采用两种方式予以防治: ?踏步楞角上，在浇筑砼时增设防护钢筋。 ?踏步拆模时，立即以砂袋将踏步覆盖。(水泥袋或用针织袋装砂)既有利于砼养护，又可保护踏步楞角。 3、楼梯弊端的预防: 防止踏步不等高: 踏步不等高，既不美观，又影响使用。踏步不等高现象，一般发生在最上或最下一步踏步中。产生的原则，一是建筑标高与结构标高不吻合。二是将结构标高误为建筑标高。三是施工粗心，支模有误。为此，浇筑楼梯之间: ?仔细核查楼梯结构图与建筑图中的标高是否吻合。经查核与细致计算无误后，再制作安装模板。 ?浇筑砼中，往往由于操作与模板细微变形，也会使踏步有稍话误差。这一个误差，要在水泥砂浆罩面时予以调整。为使罩面有标准。在罩面之前，根据平台标高在楼梯侧面墙上弹 15 Tahoma,8,134 出一道踏步踏级的标准斜线。罩面抹灰时，便踏步的外阳角恰恰落在这一条斜线上。这样做，罩面完成后，踏步的级高级宽就一致了。 ?如果，施工出现踏步尺寸有较大误差，一定要先行剔凿，并用细石砼或高强度水泥砂浆调整生，再做罩面。 4、堵好脚手眼: 堵脚手眼做得好坏，直接影响装修质量。一是影响墙面抹灰之脱落、开裂也空鼓;二是洒水可沿已开裂的脚手眼进入室内。因此，堵脚手眼的工作万不可忽视、大意: ?将脚手眼孔内的砂浆、灰尘凿掉，清除洁净，洒水湿透眼内孔壁。 ?将砖浸水湿透。脚手眼内外同时堵砌，绝不准用干砖堵塞。 ?用“一砖、一铲灰、一挤塞“三一砌砖法堵塞，绝不准用碎块碴堵塞。 ?砂浆必须饱满(最后的一块砖堵完后，用竹片或扁平钢筋将砂浆塞实，刮平，灰缝要均匀、实心实意，不准不刮浆干塞砖块)。 5、散水砼变形缝的做法: 砼散水的变形缝，常规做法是镶嵌木条，砼浇筑有足够强度后将此木条取出，再灌以沥青砂浆。其缺点是L散水板块相邻高差平整不易保证，木嵌条不可取净，取木条将板块楞角碰 16 Tahoma,8,134 坏，不灌沥青砂浆而灌热沥青等。 好的做法是: ?、事先按变形的长短、高度(板块砼厚)的制作厚为20mm的沥青砂浆板条; ?砼板块浇筑前，第一块板的断缝处支设模块，砼有足够强度(1.2Mpa)后，拆除侧模板，将预制沥青砂浆板条贴粘在砼板块侧缝表面，接着浇筑第二块板块砼。集资或跳浇散水板块。(靠墙身处不支模板，直接将沥青砂浆板条粘贴)。 ?当板块砼都有了足够强度后，再用加热后的铁铬子，将缝处沥青砂浆板条予以慰汤，使其缝隙深浅一致，交角平顺。 6、卫生间地面漏水的预防: ?现浇砼楼板:沿房间四周墙上翻150mm。 ?找平层:施工前，清理面层须洁净，并湿润砼楼板表面，之后刷一层TG胶素水泥浆。 ?找坡层用细石砼，并找出排队水坡度，坡向地漏，要平整光洁。上刷冷底油一道。 ?防水层:用一布四涂。但沿四周墙上150mm，遇向口时，伸向口外300mm。 ?粘结层:用1:20水泥砂浆厚?20mm，沿墙四周上翻150mm并粉光。注意排水坡度与坡向或做C20细石砼。 7、管道根部的渗漏预防: ?、浇筑钢筋砼楼板，用时准确地将位置、尺寸预留楼板 17 Tahoma,8,134 管道孔。或埋设预留套管。 ?、如为预留孔洞时，要预留万不可事后凿孔或扩孔。如为预留套管进，位置一定要准确。套管要焊上止水钢环。 ?、预留孔洞的模盒或套管一棕要与楼板的模板固定防止错位。浇筑砼时派专人看护，以利及时修正。 ?、地面的做法按设计要求进行或建议甲方按上述“地面漏水防预“中所提做法处理，但防水层必须沿套管或给排水管上翻150mm并与管子贴粘牢固。 ?、如为预留孔洞，等管道安装就位并校正固定后，对预留洞要用与楼板同标号的砂浆(或1:2,1:2.5的水泥砂浆等)填实、捣固，使其与砼结合密实，决不许以碎砖、碎石、杂物随意堵塞。 ?、做地面时，切切注意地面排水坡度与坡向。 8、门窗固定用木砖的改进: 木门传统的固定方法是:用钉子将木门框固定在预先埋设在砖内的木砖上。每边固定点不少于2处，间距?1.2m。 这种传统做法的弊端是:木砖容易松动，木砖漏留，木砖大小倒放等，致使门窗的安装质量受到影响。改进方法是以用C20砼制成120mm及240mm的预制块，内预埋木砖。 ?、木砖埋入预制块模具前，须以防腐处理。 ?、120预制块用于370墙及120墙中。240预制块用于240墙中。 18 Tahoma,8,134 9、塑钢窗之固定: ?、塑钢窗与墙体的固定用连接点的设置: 距框角?180mm; 间距?600mm。 眼下存在的问题是:设置连接点不足，甚或漏设，这不仅影响门窗板动不稳，更有甚者会影响日后擦窗人的生命安全。为此，日后一定要按图示之要求设置固定杠用连接点。 ?、连接点的钉固方法: 墙体砌筑时，将C20砼预制块，不论砖墙、砼墙、加气块墙、都用射钉将铁板连接条钉在墙上，更有将普通铁钉钉在墙上者，都是极不安全，极不妥的操作方法。 ?、固定门窗框用的连接铁板与钉接: ?、连接铁板条:其规格为:(长×宽×厚)?140mm×20mm×1.5mm 射钉规格为:(直径×长)?3.7mm×42mm 或金属胀锚螺栓:(直径×长)?8mm×65mm 施工中，常常见到连接铁板条规格过小(厚不到1mm)，甚至有的用0.5mm的镀锌铁皮剪成条状做连接铁板条用，用直径4mm的螺钉固定连接铁板条，都不是妥的，或直接用铁钉钉更为不妥。 ?、连接铁板条与塑钢之连接，用塑钢抽芯铆钉，其直径?5mm，不用5mm螺钉或4mm的自攻螺丝。 19 Tahoma,8,134 ?、预防塑钢与铁制连接铁板条之间的电偶腐蚀L: 为了防止塑钢和连接铁板条之间的电偶腐蚀，采取下列措施: ?、采用镀锌钢板制作连接铁板条。 ?、或将连接用铁板条与塑钢之间用塑料膜隔开。 ?、或用密封漆将塑钢与铁板条之间，窗框与墙之间予以封闭以免雨水浸入。 10、给水管道施工 给水管道安装施工比较简单。便是它是承压管，将受较高水压力，如粗心施工，也会带来管道渗漏，为此: ?、管子接口: ?、丝口连接:加工丝扣时要做到:丝扣光滑、端正、不抖丝、不乱扣、有椎度。这五点都要达到。有一点不符合要求，剔出重新加工或切去此端重做。 ?、焊接接口:设计要要求坡口焊时，坡口加工的形式须符合设计要求。不需坡口焊时，在焊前用砂布将管口打磨干净，两管对口间要均匀，不可一侧大，一侧小。焊接时，焊缝高度要符合规范要求。 ?、安装 ?、 安装前弄清图纸，查清管子位置，走向、标高。并做现场查验当实际尺寸与图纸不符合时，提出修正，以免与土建产生矛盾。 20 Tahoma,8,134 ?、安装时，管子必须找正后再拧紧，不得倒拧，以免损坏丝扣。 ?、下料: 管道不料时，尺寸一定要准确，给水管误差?5mm。为确保下料时尺寸准确，对实际安装位置与尺寸进行实测实量，不要按图纸尺寸下料。同时，必须逐根管道都要实测实量。 ?、水压试验: ?、把好水压试验关，是控制管道安装质量的关键。 ?、压力表必须精确，使用前要进行校验。 ?、试验时，第一要查看压力表的压力降，第二要逐房间察看管道的渗漏情况。 ?、渗水的接头、管子必须返工。大面积漏水的管段必须换掉或修理，并至不再出现“跑、冒、漏、渗“为止。 11、注意配电箱的产品质量验收: 市场采购的配电箱，不少是不符合国家标准的新产品。除新产品的外观质量外，突出的质量缺点是: ?、不设零线; ?、没有设置零线与保护接地汇流排。 这种缺陷的存在，在接线时，往往将箱上的所有插座的零线串接，保护接地串接。这样，当前面的插座坏了，接在后面的几个插座就会发生零线断线或地线断线，造成搞插座没有电，或在发生漏电事故时，漏电开关不动作，严重者造成人员 21 Tahoma,8,134 伤亡。 为此，在采购配电箱时和安装配电箱之前，对其质量进行检查。查看是否分别设置了零线和保护地线汇流排。不合格者，不得使用。 12、插座接线: ?、单相二线插座:原则是“开关永远控制相线“。 ?、单相三线插座:面对插座的右孔接相线，左孔接零线。 13、电器的接地 电器安装中，首先考虑的就是用电安全。低压系统地接地保护最优形式就是“三相五线制供电形式“，它非常适用于分散的民用建筑，也适用于施工现场的临时供电。 从电源时入配电箱之后，从接地板的引上线和电源中性点的焦点处，向室内分出保护线PE和进入电路的零线N，在建筑物地也不得混淆，困为，一旦线进入电路，就有电源通过，混淆后，就会引起漏保护器跳闸，影响正常使用。所以在用户配电线路中，插座中的线和线应该统一有颜色的区别。 六、工程进度计划 工期控制: 要工程计划自2004年8月15日开工，2005年7月10日竣工，总工期330天。 为保证工期目标的实现，将施工过程划分为五个阶段。 1、基础施工阶段: 22 Tahoma,8,134 自2004年8月15日至9月30日为基础工程施工阶段，本阶段需要完成定位放线、挖工、砂砾垫层、条形基础砼、毛石基础、地圈梁等项目。同时，安排人员按图纸设计要求预制门、窗梁主体结构钢筋制作，模板配制，主体施工做好准备工作。 2、主体施工阶段: 自2004年10月1日至2004年12月30日是主体施工阶段，本阶段要完成墙体砌筑，预制过梁安装，现浇钢筋砼，梁、板的支模、砼等项目。 主体施工阶段组织流水施工，每层主体施工15天。施工期间，水、暖、电施工人员密切配合，作好预留、预埋工作，避免事后在墙体上打洞。 3、装修施工阶段: 自2005年3月1日至2005年6月20日为装修工程施工阶段。 4、安装工程施工阶段: 自基础工程至装修工程，安装工程施工贯穿始终，从时间上虽然与土建同步进行，但本工程设计有给排水、采暖、一般电照处还有电话、有线电视，所以说，是一个水暖、电等较齐全的工程。为此，在劳动力安排上专门有水暖工、电工施工班组与土建施工密切配合，相对独立地完成水暖、电安装工程施工任务。 23 Tahoma,8,134 5、工程收尾交工阶段: 本阶段主要做好成品保护及清理等工作。 七、施工平面布置(见附图) 施工平面布置原则是: 1、尽最大可能少占施工用地，对划定的施工用地，作合理安排; 2、塔吊固定后，主要材料及搅拌机械的布置，以其服务业范围为准，紧凑布置。 3、根据工程进度，动态管理施工总平面，该高速时及时调整; 4、交通道路、供水、供电、消防一次到位进行布置，确保道路通畅，供水供电空耗小，供应充足，并确保工地消防安全。 5、建立文明施工现场:材料、配件、工棚、厕所、大宗材料按施工平面图严格要求就位管理，周转材料堆放有序。 八、施工组织措施 本工程采取项目管理法，按目标进行管理与控制，以目标计划来指导管理与控制行动，变以往以行动来实现目标的被动管理方式为以目标指导行动的主动的主动管理方式。将主动管理与被动管理相结合、前馈控制与反馈控制相结合，事先控制与事中、事后控制相结合。 ?、确保工程进度、实现合同工期的措施: 24 Tahoma,8,134 1、工期目标:(平面流水、主体交叉施工) 控制工期目标330天; 其中:?0.00以下工期目标45天; 主体结构工期目标:90天; 内、外装饰工期目标:80天; 水暖电安装工期目标:90天; 收尾工期目标:10天。 2、确保工期目标的措施: ?、组建职能完善、人员配套、分工明确的施工项目管理组: 项目经理:统筹工期目标，制定工期目标施工措施，决策生产要素供应与优化配置，检查平衡工期目标的实施; 技术负责人:制定工期目标计划实施的技术措施，监督按工艺程序施工，解决施工技术措施实施中工期目标计划之失衡; 解决施工技术措施实施中工期目标计划之实施，协调工种之穿插，布置与平衡生产要素，做好施工计划之安排与统计; 料具供应员:组织材料、构配件、机具之供应，根据生产进度编制料具供应计划; 财务管理员:根据工期安排与施工进度计划落实资金之供应，提出月奖金之收支计划，按期收取工程进度款; ?、按分部分项工程进度制定施工技术措施，制定合理施 25 Tahoma,8,134 工流水程序，严格要求操作程序与操作要点之管理，保证工期目标计划之顺利实施; ?、以日调度日平衡为手段，项目经理及有关人员跟踪检查工期目标计划之实施，对工期目标计划做动态管理与监控; ?、采取激励措施，对工期、工程质量、安全生产、文明施工的管理者与操作者有上好成绩者予以奖励。 ?、确保工程质量，实现人同质量目标措施: 1、质量目标: 工程质量总目标:合格，按合格目标进行控制与管理。 其中:基础分部工程质量目标:合格; 主体工程质量目标:合格; 装饰工程质量目标:合格; 屋面工程质量目标:合格; 门窗工程质量目标:合格; 地面楼地面工程质量目标:合格; 给排水及供暖工程质量目标:合格; 电气、照明工程质量目标:合格; 2、确保工程质量目标计划实现的措施: ?、项目经理部职能组织人员分工明确、职责分明 项目经理:施工项目的本权负责人，是质量第一负责人。主管质量之制定，监控质量目标计划之实施评价与激励; 技术负责人:主持质量目标实施的技术措施之制定，确保 26 Tahoma,8,134 质量目标与技术措施对有关工长、作业班长之技术交底、监督技术措施之执行、作好跟踪检查与操作生产调查、建议项目经理与总工长调整作业布置与调换不良作业人员; 总工长:监督施工技术措施之履行、调整不良作业人员之岗位、作好材料构配件事先检查、监控配合比的严格执行; 有关工长:跟踪检查操作要点之执行、纠正不良作业事件。作好自检、与检、交接质量检查。作好工序、分项工程、分部工程质量进行检查、验收。建议对不良作业人员进行岗位调整; 有关班组长与班组质量检查员:对本班人员进行班前操作交底，进行班后作业自检与奖评，监督本班组人员严格操作要点进行作业，参与互检与交接检查，调换不良作业人员岗位; ?、针对本工程特点与本公司的质量通病，由技术负责人设置质量控制点，并制定操作要点与防治措施，实行重点监控; ?、工程质量是企业生命，工程质量人人有责，工层层确保工程质量的技术交流; ?、对工程质量施行“开路“、“一票否决“、“挂牌作业“。工程质量与进度发生矛盾，以质量为主;工程质量与人员安排发生矛盾，以质量为主调换人员;工程质量与材料发生矛盾，以质量为主调换材料;工程质量与机具发生矛盾，以质量为主调换机具;工程质量与工资挂钩，施行优质优奖; ?、作好材料、构配件的事先检验与控制，把好三关: 把好材料、构配件进场验收关:不合格者不准进场; 27 Tahoma,8,134 把好材料复试关:对主材料(钢材、水泥、骨料、砖、装饰材料)作好复验，不合格材料不准使用; 把好材料使用关:正确执行配合比，做好材料计量、正确按规格、品种、数量、强度使用材料，劣材不充好材用，好材不做劣材用，物尽其用; ?、作好反馈工作:事先了解可能出现质量的部位与质量事件以及可能出现质量风险，并制定防范措施，予以事先控制; ?、完善项目经理部的质量保证体系与质量管理的法规体系。 ?、确保安全目标实现，保证安全施工的措施: 1、安全目标计划:本项目施工全过程中 ?、消灭重伤事故 ?、消灭伤亡事故 ?、消灭多人事故 ?、轻伤事故率:2? 2、确保安全生产的措施 ?、项目经理部有关要员与职能机构，对确保安全生产分工明确，职责分明; 项目经理:是企业法人代表在本项目施工管理听全权委托代理人，是安全生产的第一负责人，主持安全措施之制定，组织安全教育与培训，组织安全设施之搭设，组织现场安全宣传与监控，组织项目安全交底，审核五种人员安全作业资格(电 28 Tahoma,8,134 气、起重、焊接、机动驾驶、商空作业)，组织劳动保护用品之购置与保证，监督安全措施之实施。 技术负责人:负安全生产的技术责任，制定安全措施，主持安全教育的培训，监督安全措施之实施，对有关工长、专业工种、班组长作好安全交底，建议调换不重视安全生产的管理人员与作业人员。 总工长:对有关工长、班组长作安全交底，监督安全措施之实施，调换不重视安全作业人员，监督设施搭设，组织施工平面之布置，监督违章作业，组织与监督有关工长与班组长安全程序施工。 有关工长:对本工种作业班组及人员作安全作业交底，监督本工种有关作业规程施工操作，调换不重视安全的作业人员并作专项安全检查交底与检查。 专职安全检查员:监督有关工种按作业规程作业，跟踪检查安全作业与安全设施之搭设防，建议调换违章工作人员，时时事事宣传安全作业的重要性，检查劳动保护用品之发放与使用。 班组长与班组安全检查员:作好班前安全作业交底班后安全作业奖评，随时检查本班组作业人员按安全检查规定作业，建议奖励安全生产有功人员，随时纠正违章作业，调换不重视安全生产作业人员之岗位。 ?、按工种特点制定工种安全作业交底与作业规程，并进 29 Tahoma,8,134 行两级安全交底(技术人对总工长、工长交底;总工长、工长对班组长及作业人员交底)。 ?、编制现场安全措施，并贯彻在施工全过程。 ?、作好安全教育及现场安全宣传。安全教育分为新工人入场教育(项目经理及技术负责人负责)分部分项工程开工前教育(总工长、有关工长负责)工序施工的班前教育与班后奖评(有关工长、班组长负责)。现场安全宣传内容为安全标志、现场安全规则、“三宝”、“四口”利用，标志等，安全检查员负责监督实施。 ?、 每个月，项目经理组织一次现场安全大检查。由有关工长、总工长、专职安全员参加，随检查随整改随奖评。 ?、五大专业工种持证上岗 ?、本工程开工前，对施工机械、施工用电等重点编制安全技术措施。 ?、现场文明施工措施: 1、现场文明施工指标: ?、按施工平面图布置材料、机械、电路及管路铺设、临时设修建、道路修建、防火消防设施安设、交通要道防护; ?、工完场清、随时清、时时清、班后清、使现场整洁有序。食堂、宿舍清洁卫生; ?、现场文明标志，安全标志，施工责任标志等设齐全完整。 30 Tahoma,8,134 2、确保现场文明责任制: ?、明确现场文明施工责任制; 项目经理:负布置; 有关工长:负清场责任、督促、奖评责任; 有关班组长:负责场清、时时清、班后清责任; 总工长:负机械按平面图就位责任、监督施工平面图严格执行责任。 ?合理利用现场，科学布置施工总平面图，务使平面图规划合理，物资设备有序。 ?、与每个月安全检查之同时，项目经理组织有关人员对文明施工进行检查，随检查、随纠偏、随整改、随奖评。 ?、综合考评 按区建议厅96年4月22日颁发的“工程现场综合考评办法”，每月末对本工地现场进行一次综合考评检查，并认真打分，由项目经理组织公司派人参加。 九、工程质量控制标准 ?、质量标准 1、分项工程 (1)、合格: ?、保证项目，必须符合相应评定标准的规定 ?、检验批项目，抽查点应符合相应质量评定标准的合格规定; 31 Tahoma,8,134 ?、实测项目，抽查点数中，建筑工程有80,以上，建安工程有80,以上的实测值应基本在到相应质量检验评定标准的规定。 (2)、注意:当分项工程质量不符合相应质量检验评定标准合格的规定时，必须及时处理，并以按以下规定确定其质量等级。 ?、返工重作的，可重新评定质量等级; ?、经加固补强或经法定检测单位鉴定能够达到设计要求时，其质量仅能评为合格; ?、经法定检测单位鉴定达不到原设计要求，但经设计单位签认，可满足结构安全和使用功能要求，可不加固补强的，或经加固有补强改变外形尺寸或造成永久性缺陷的，其质量可定为合格。 2、分部工程 ?、合格:所含分项工程的质量全部合格; 3、单位工程: ?、合格:?所含分部工程的质量全部合格;?质量保证资料应符合本标准的规定;?观感质量评定得分率达到90,以上。 ?质量保证资料应符合本标准的规定; ?观感质量评定得分率达到90,及其以上。 ?、工程分解体系:(见附图) 32 Tahoma,8,134 ?、目标体系: 1、目标保证体系: 工序作业质量目标(保证)保证分项目标(保证)分部质量目标(保证)单位工程质量目标。 2、目标体系:由工序作业质量目标完成，首先制定工序作业质量目标，其次制定分项质量目标，再其次制定分部工程质量目标，最后制定单位工程质量目标，这样就形成了一个单位工程的完整的目标体系。 本住宅楼，其目标体系制定如下: ?、这一单位工程，由下列分部工程组成:地基与基础工程、主体结构工程、装饰工程、层面工程、上下水与采暖、电气六个分部工程。 ?、地基与基础分部工程由下列分项组成:挖坑、砂砾垫层、C10砼垫层、条形基础、毛石基础、C30钢筋砼地梁、防潮层、回填土七道分项工程组成。 ?、主体结构分部工程，由下列分项组成:砌体、梁、板、C20构造柱，C20圈梁等分项工程。 ?、装饰分部工程由下列分项组成:一般室内抹灰、外墙抹灰墙面、刷涂料、楼地面、门窗五道分项工程。 ?、屋面分部工程由下列分项组成:屋面找水平、保温层、卷材防水层、瓦屋面四道分项工程组成。 ?、上下水与采暖分部工程由下列分项组成:上水管道安 33 Tahoma,8,134 装`上水管道附件与卫生器具安装、采暖管道安装、采暖器附件安装四个分项工程。 ?电气分部工程由下列分项组成:配管及管内穿线、护套配线、电气照明灯具及配电箱安装、接地装置四道分项工程。 3、质量目标制定: ?、首先确定单位工程的质量目标;工程质量目标，就是单位工程的质量评定等级，这个目标，在工程承包合同中已做了明确界定(是合格);其次，规划六个分部工程的质量目标;要明确哪几个分部工程质量必须达到合格标准，才能确保单位工程达到合格。 ?、质量目标制定依据: ?、两个承包合同:工程承包合同中规定的本单位工程的目标;项目经理经营承包合同中明确的质量责任目标; ?、有关法规、标准、定额; ?、有关图纸、招标文件、施工组织设计、资料; ?、生产要素的实际状况与动态; ?、设计要求与有关说明。 ?、以地其基础分部工程为例，其质量目标如下: ?、基础分部工程的分项工程质量目标如下图: ?、其他分部工程的分项工程的质量目标，中标后由项目经理部制定。 ?、目标控制与管理: 34 Tahoma,8,134 1、目标控制:项目中在实现所定目标过程中，按预定目标计划实施(也就是将所定目标做为管理活动的中心)，在实施管理的过程中，由于各因素会对之产生干扰，项目经理部就要通过检查，获取目标实施中信息，将之与原目标计划进行比较，发现偏差，采取相应措施纠正偏差，确保目标计划的正常实施，最终获得预定目标计划之实施。这是一种将经济活动和管理活动的任务，转换为具体目标加以实施和控制的主动管理法，它的精华就是以目标来指导行动。 2、实行目标管理或控制，要有两个条件 其一:有一个明确的目标计划体系，如上所述，首先，将施工项目进行分解，形成一个工程分解体系，其次根据工程项目的分解体系，从单位到有关工序制定目标计划，使这形成一个目标计划体系。这样就便于实行目标控制与管理了。 其二:有一个合格的控制与管理体系。我们的控制与管理主体就是项目经理与其相应在的有关作业层(工程队)，直到作业班组，这就形成了一个控制与管理的工作体系。 ?、工程施工体系(生产体系): ?、质量控制与管理体系(组织体系): ?、质量控制与管理法规体系: 3、施工阶段质量控制的全过程: 4、施工阶段质量控制原则: ?、以预防为主，重点做好事前控制，防患于未然，将质 35 Tahoma,8,134 量问题消除在萌芽状态; ?、坚持质量标准，严格检查，热情帮助; ?、结合工程特点，结合实际确定控制范围深度与采取的控制方法; ?、尊重事实，尊重科学，以理服人处理质量问题。 5、施工阶段质量控制依据: ?、有关原材料技术标准; ?、有关构配件取样试验标准; ?、有关技术鉴定书; ?、有关操作规程; ?、有关规范及验收标准。 ?、施工阶段工程质量管理与控制方法: 1、有关技术文件的编制与审核: 这是对施工阶段工程质量进行全面管理与控制的重要手段。 ?、审核进入施工现场各分包单位的技术资质证明; ?、编写开工报告并审核上报; ?、编写施工 方案 气瓶 现场处置方案 .pdf气瓶 现场处置方案 .doc见习基地管理方案.doc关于群访事件的化解方案建筑工地扬尘治理专项方案下载 或施工组织设计，对确保工程质量有可靠技术措施，审核后上报; ?、编写分部分项工程及重点部位的技术与安全操作要点，并做了全面交底; ?、原材料、构配件取样送验，并审查试验报告; 36 Tahoma,8,134 ?、进行图纸会审送签署会审记录; ?、对生产五要素(材料、机械、人员、资金、施工方法与环境)进行事先审查。 2、质量监督与检查: ?、检查内容: ?、开工之前检查:目标是检查是否具备开工条件，开工后能否保证工程质量，能否确保工程连续正常施工。 ?、工序作业检查:检查是否按规范、规程与施工方案，交底文件进行作业; ?、工序交接检查:在自检、交接检、专职检的基础上，对主要工序和对工程质量有重大影响的工序，由有关工长、专职检查员、甲方代表、监理工程师做工序交接验收检查; ?、隐蔽工程检查:凡属隐蔽工程，必须由专职检查员，甲方代表或监理工程师会同一起隐蔽检查验收，并经监理工程师或甲方代表签证后，方能掩盖; ?、停工后再复工前的检查:需经监理工程师或甲方代表检查认可后，方能下复工令复工; ?、分项、分部工程，均应经监理工程师或甲方代表检查认可后，方能下复工令复工; ?、随班跟踪检查:对主要工序容易产生质量事故或通病的工序，专职检查员及有关工长，随班跟踪检查。 ?、检查方法: 37 Tahoma,8,134 ?、目测法:看、摸、敲、照 看:根据质量标准，进行外观目测; 摸:手感检查; 敲:以工具敲击，进行音感检查; 照:对暗阴部位以镜子反光检查; ?、实测法:吊、量、套、靠 吊:以托线板、线锤检查垂直度; 量:以测量工具、计量仪表对断在尺寸、轴线、标高、湿度、湿度检查; 套:以方尺套方，辅以塞尺检查; 靠:以直尺辅以塞尺进行检查; ?、试验检查: 必须通过试验，才能对质量进行判断，此时使用此方法。 3、工序的质量控制: 工程项目的施工过程:由一系列相互关联，相互制约的工序所构成。工序的质量是工程项目整体质量的基础。为把工程项目的产品质量管理好，以预防为主，首先就是将工序质量管理好。 工序质量包括两个内容:其一是工序活动条件的质量(即每道工序之投入的五要素:人、材、机、资金、技术)要符合要求;其二是工序活动效果的质量(即每道工序施工完成的工程产品要达到有关质量标准)要符合标准要求。 38 Tahoma,8,134 ?、工序质量控制的内容: ?、确定工序质量控制流程: 每道工序完成后(工序产品)?施工自检、互检?会同工长检查验收?通知监理工程师或甲方代表进行工序检查，并办理工序质量验收签证?下道工序施工。 ?、如上所述，工序活动条件，是指影响工程质量的诸要素(五要素)。找出影响工程质量的重要因素，并加以控制，才可达到工序质量控制之目的。 ?、及时检查工序质量，并进行分析判断。 ?、设置工序质量控制点: 质量控制点是指:为了保证工序质量而需要控制的重点或部位，或者是薄弱环节，对设之质量控制点可以首先析其可能赞成质量隐患的原因，再针对隐患原因，制定出对策予以预先控制。 ?、工序质量控制点的设置: 设置工序质量控制点，并对之进行控制，是对工序质量进行预检的有效措施，要根据工程特点、重要性、复杂程度、准确性、质量标准与要求，全面合理的选定质量控制点，它可能是结构复杂的某一工程项目，也可能是技术要求高，施工难度最大的某一结构构件，也可能是某一分部工程，也可能是影响工序质量的某一个环节。技术操作、材料、机械、施工顺序、技术参数、自然条件、工程环节都可以作为质量 39 Tahoma,8,134 控制点来设置，主要视其对质量性之影响的大小及危害程度而定。举例如下: ?、人的行为:避免人的行为失误赞成质量事故。对高空、高温、水下、危险作业，易燃易爆作业，吊装作业，动作复杂而快速运转的机械作业，精密度及技术要求高的作业，都应从人的生理缺陷、心理活动、技术能力、思维方法、思想素质等方面进行考核，反复交底，以免由于行为的错误，导致违章作业，产生质量事故; ?、物的状态:有的工序质量控制中，以物的状态为控制重点如施工精密与施工机具有关;如计量不准与计量仪表或计量设备有关，又如主体义叉或多工种密集作业与作业有关等。 ?、材料质量与性能:材料性能与质量直接影响到工程质量。 ?、施工顺序:有的工序作业，必须严格控制相互之间的操作施工顺序，如有违背，将出现对质量不利影响。 ?、技术间歇:有的工序作业，工序之间的技术间歇，其时间性很强，如不严格控制，就会影响工程质量。如砖墙砌筑完成后，一定要有,10D的技术间歇，以便让墙体充分沉陷、稳定、干燥，然后才能抹灰，如违反，立即抹灰，会形成灰面脱落、空鼓。 ?、技术参数:有些技术对数与质量有密切关系，必须 40 Tahoma,8,134 严格控制。如:砼配合比，外加剂掺量，夯实土的最佳含水量等。 ?、常见之质量通病:如“渗、漏、泛、堵、壳、裂、砂、锈“等通病的部位，要事先研究消除对策，采取预防措施。 ?、新工艺、新材料、新技术之应用:都必须事先鉴定试验，或虽有鉴定与试验，但本施工单位首次采用，缺乏经验，也应设为质量控制点，严加控制。 ?、质量不够，不合格率较高的产品:这些产品，根据数据统计，表明质量波动较大，不稳定，不合格率较高，应设为质量控制台点，予以控制。 ?、施工阶段质量影响因素(五要素)的控制: (本节只涉及人、材、机、方法、环境五要素，它属于事前控制控制之范畴) 1、人的控制:指直接参与工程实践的组织者、指挥者、操作者。对人进行控制之目的，是避免人的失误，并调动其积极性。其要点如下: ?、人的技术水平:人的技术水平高低，直接影响到工程质量之水平，为此，对技术复杂，难道大，精密要求高的工序操作，要由技术熟练、经验丰富的人来完成。必要时，对其技术水平予以考核。 ?、人的生理缺陷:根据工程特点和作业环境，对人的 41 Tahoma,8,134 生理缺陷严加控制。如反应迟钝，应变能力差的人，不能操作快速运行，动作复杂的机械设备等。 ?、人的心理行为:人的心理行为受社会、经济、环境、人际关系之影响，并要接受组织与管理的约束。因为，其劳动态度、注意力、情绪、责任心有不同地点、不同时间有不同变化，为保证质量万无一失，在关键工序和操作上，要控制思想活动，稳定其情绪。 ?、对材料的质量控制: 材料质量工程质量的基础，材料质量不符合要求，不可能干出符合质量标准的工程。所以，对材料质量进行控制，是提高工程质量的重要保证，材料控制要点如下: ?、订货:对主要装饰材料及配件，订货前，需查清生产厂家情况，看样，向甲方提供样品，同意后，才可正式订货。 ?、主要设备:订货前，和甲方和监理工程师提出申请，核实是否符合要求; ?、主要材料进场时，须具备出厂合格证或化验单，或乙方复检单。所有材料必须具备检验单并经监理工程师验证后方可正式使用; ?、所有构配件，皆必须具备厂家批号及出厂合格证; ?、凡标志不清或有质量怀疑的材料，一定进行复试; ?、现场配制的材料，先提出试配要求，一定进行复试; 42 Tahoma,8,134 ?、对材料性能、质量标准、适用范围、对施工要求等必须充分了解，慎重选用。如红色大理石或带色纹(红、暗红、金黄色纹)的大理石，因其易风人剥落，不宜用于外装饰。早强三乙醇不能用作抗冻剂等。 3、施工机械的控制: 施工机械对项目的施工进度及质量有着直接影响，从保证施工质量出发，必须从其选型、主要参数、使用操作三方面进行控制; ?、机械的选型: 选择之原则是:因地制宜，因工程制宜，技术上先进，经济上合理，生产上适用，性能上可靠，使用上安全，操作上方便，维修便利。 ?、主要参数: 其性能参数，要能满足施工要求，保证质量要求。如选用超重机械时，必须使其参数能满足超重、超重高度、超重半径的要求。 ?、使用与操作: 合理使用，正确操作，是保证施工质量的主要环节。如超重机械要确保四限位装置齐全(行程、高度、高幅、超荷)。 4、施工方案正确与否，直接影响到项目的进度、质量、成本控制施工方案考虑不妥，会拖延工期、影响质量、增加成本。为此，选定施工方案时，必须结合工程实际，从技术、 43 Tahoma,8,134 组织、管理、经济等方面进行全面分析，综合考虑。 5、环境因素控制: 项目施工的环境因素有:技术环境(地质、水文、气象等)，管理环境(质量保证体系、质量制度等)，劳动环境(劳动组合、劳动工具、工作面等)。环境因素对质量之影响具有复杂而多变之特点，因之，对主要采取有效措施加以控制，对环境之控制，又与方案及技术措施有关。 ?、施工阶段的工程预检: 预检是指，工程未施工前所进行的预先检查。审保证质量，防患于未然的有力措施。 ?、建筑物位置、座标、标高:预检座标标准桩、水平桩。 ?、基础工程:预检轴线、标高、预留孔及洞、预埋件位置与数量; ?、砌体工程:预检墙身轴线、楼层标高、砂浆配合比划预留孔洞位置及尺寸; ?、钢筋砼工程:预检模板尺寸、轴线、标高、支撑、预埋件、预留孔等;钢筋型号、规格、数量、锚固长度、焊接、绑扎、保护层等;砼配合比、计量手段、外加剂、养护条件等; ?、主要管线工程:预检标高、位置、坡度、管线等; ?、构配件工程:预检安装位置、型号、标高、支承长 44 Tahoma,8,134 度等; ?、电气工程:预检变电配位置、高低压进出口方向、电缆沟位置、标高、送电方向。 ?、成品保护: 对完成品，进行妥善保护，确保质量、顺利竣工。 ?质量与安全组织保证体系 ?质量与安全法规体系 ?工程质量控制体系 ?进度控制系统 45