vb程序设计初步课件.pptVIP

第1章visual basic概述 ;VB程序开发的一般方法 VB程序打包开发的一般方法 Time时间控件的用法 Msgbox语句的用法 变量和赋值语句的使用方法; 实例：倒计时器 请输入倒计时的分针数 ;Dim m as long Private sub command-click() Time1.Enabled=Ture m=Val(text1.text)*60 lable1.caption=“现在开始” Command1.visible=False End sub ;Private sub timer1-timer() m=m-1 If m0 then Timer1.enabled=flase Msgbox“时间到！”，0，“倒计时” Label1.caption=“请输入倒计时的分钟数” Text1.text=“” Command1.visible=true Else Text1.text=m End if End sub;程序设计的8个步骤： 设计应用程序界面、 在界面上放置所需的控件、 设置控件的属性、 编写代码、 保存运行工程、 将工程编译成可执行文件、 打包制作安装程序、 在其它机器上安装运行 ;变量：其值可变的量 当执行了dim语句后，vb程序就会在计算机内存中预留一个区域，准备存放数据 例：dim m as long ; msgbox语句 命令格式：msgbox提示信息，对话框类型，对话框标题 函数格式 变量=msgbox(提示信息，对话框类型，对话框标题）; Time时钟控件 主要用途：常用于进行后台程序的中断处理 主要属性：以毫秒（ms）为单位 Enabled属性 Interval=0 或设置 Enabled=false都可关闭计时器 主要事件（唯一）：Timer事件;小结 初步知识 变量 赋值 Msgbox Time时钟控件 ;小结 程序开发过程 1、添加窗体控件，完成窗体控件的设置属性 2、在窗体上放置标签、文本框、命令按钮等控件，并设置它们的属性 3、对窗体等控件的事件进行编程 4、运行、排错、保存、编译 5、制作安装包;msgbox; Msgbox ; Msgbox ;常用控件;常用控件;常用控件;常用控件;常用控件;常用控件;时间换算程序 请输入小时数、分钟数、秒数;Private sub command-click() Dim m as long M=Val(text1.text)*3600+Val(text2.text)*60+Val(text3.text) Text4.text=m End sub;除法计算器 编写求两个数相除的程序，若除数为0，用消息对话框提示用户重新输入。 被除数 除数 相除结果;Private sub command-click() If Val(text2.text)=0 then Msgbox“除数不能为0，Vbokonly”,“信息提示” Else Text3.text=Val(text1.text)/Val(text2.text) End if End sub;角度转换程序 要求在文本框中输入角的弧度值，按“转换为角度”按钮，文本框中角的弧度值转换为角度值。 请输入一个弧度 转换为角度; Private sub command-click() Pi=3.1415926 text2.text=360*Val(text1.text/2*Pi) End sub Private sub commad-click() end 或unload Me End sub第1章visual basic概述 ;VB程序开发的一般方法 VB程序打包开发的一般方法 Time时间控件的用法 Msgbox语句的用法 变量和赋值语句的使用方法; 实例：倒计时器 请输入倒计时的分针数 ;Dim m as long Private sub command-click() Time1.Enabled=Ture m=Val(text1.text)*60 lable1.caption=“现在开始” Command1.visible=False End sub ;Private sub timer1-timer() m=m-1 If m0 then Timer1.enabled=flase Msgbox“时间到！”，0，“倒计时” Label1.caption=“请输入倒计时的分钟数” Text1.text=“” Command1.visible=true Else Text1.text=m End if End sub;程序设计的8个步骤： 设计应用程序界面、 在界面上放置所需的控件、 设置控件的属性、 编写代码、 保存运行