VB报告_简易日历小工具_天气预报

Visual Basic 2005 程序设计题目：简易日历小工具专 业： 姓 名： 学 号： 指导老师： 二一一年五月二十五日VB.net和C#比较它的优缺点1.1功能上的考虑 VB有而C#没有的功能有即时编译；静态事件绑定；条件异常捕获；COM兼容类； 宽松的类型检查和变量声明；Visual Basic Runtime库；可选参数、带参数属性、模块等语言特征；动态数组。功能更强大的是VB而不是C#。1.2性能上的考虑 VB和C#都生成一样的IL，因此理论上说不会有性能的差异。但是因为VB.net支持即时编译，即一边书写代码一边编译。这样可立刻发现语法错误，使调试变得更加容易。但是这样一来VB就需要随时浏览整个代码文件，并把临时数据储存。这造成VB.net生成的代码中常常具有冗余部分。但也不能就此下结论说VB比C#慢，当用户选择打开优化并且以Release方式编译工程，就能得到与C#一样简短快速的代码。 1.3代码风格和杂项问题 C#书写的代码比VB平均短小20%，VB中的关键字过长。VB语言换行比C#麻烦，如果需要书写大量繁杂而长的代码，最好选择C#。但VB的代码接近完整的英语，比C#更加易读。1.4文档和资源方面的考虑 在MSDN文档中，C#和VB是同等看待的。所有文档和例子都是有VB和C#两份的。因此，在寻求资源方面都不用担心。互联网上的资源，C#要多于VB，特别是国内，有倾向于C#的潮流。但是ASP.net的资源VB较多。国内缺乏VB.net资源是影响VB.net推广的重要原因。设计题目通过桌面小工具受到启发，决定做一个桌面小工具程序，设计题目为：简易日历小工具程序编译、部署与运行环境3.1程序的编译与部署环境：本程序使用VB编程，编程环境在Visual Basic 2005软件下进行，在创建并测试应用程序之后，在Visual Basic 2005下创建自己的安装程序，将其发布。3.2程序的运行环境：本程序在打包安装后，在Windows XP及其以上操作系统下运行成功，但需注意的是，由于屏幕分辨率的问题，在不同硬件运行环境下，运行结果会有偏差。设计目的与软件功能4.1设计目的培养自己综合利用VB语言进行程序设计的能力，主要是培养自己利用VB的标准控件进行应用程序设计的技能。4.2软件要实现的功能 (1)、能够窗体加载自动提取并显示当前日期。 (2)、选择某一日期后,有特殊显示，比如添加方框。添加一些特殊日期，比如国庆节等。而且能够显示当天的信息提示。其中“今日提示”四个字字体颜色闪烁显示。(3)、在窗体下方显示所选择的日期。 (4)、根据所选年份和月份以及日期，确定当天为星期几，以及当日的提示。比如2011年5月25日，确定后显示“星期三，天天快乐”。 (5)、能够实现北京时间的动态显示，能够判断并显示当前时间是凌晨、早上、上午、中午、下午、晚上等信息。其中的“北京时间”四个字字体颜色闪烁显示。 (6)、能够自动获取本机IP显示本地的天气预报，并能提供查询窗口查询全国各地天气预报（需要本机联网）。 (7)、欢迎界面的设计，本程序中通过在程序界面的上方和下方各提供一个动态显示（左右移动）的“欢迎您”来美化欢迎界面。 4.3软件流程图4.3.1 日期，时间以及时间查询功能模块：比较系统时间所需查询日期时间 调用 输入 调用 判断 判断 输出 调用系统日期判断当前时间段所查询日期信息 判断是否为特殊日期输出时段与时间 否是否为周六或周一 是，则输出特殊日 期信息 是，则输出当天 日期提醒 否，则输出普通 日期信息输出今日提示信息4.3.2 天气预报功能模块：判断本机IP网络天气预报控件 调用 调用本机所在城市系统时间判断当日天气预报 调用 输出输出当日天气预报4.3.3 欢迎界面功能模块：字符横轴位置为偶数初始化欢迎界面字符位置 调用 判断 调用 是 字符颜色为红色初始化欢迎界面字符移动速度 否 字符颜色为蓝色软件功能的实施阶段新建一个项目，项目的名称为“日历小工具”。选中系统自动添加的窗体Form1，设置其Name属性的属性值为calendar（日历）,设置Text属性的属性值为“日历时间天气查询”，Size属性的属性值为“667,485”，将MaxisizeBox属性值设置为“False”最后在“解决方案资源管理器”窗口的项目名称“日历小工具”上单击鼠标右键，选中弹出菜单中的“属性”命令，在“日历小工具属性页”对话框中将项目的启动对象改成“calendar”.5.1 日历功能显示的实施阶段在窗体calendar上添加一个Lable控件，Name属性值为lblTitle，Text属性值为“今日提示”；添加一个TextBox控件，BorderStyle属性值设置为“Fixed3D”，Font属性值设置为“楷体”，ForeColor属性值设置为“Blue”；添加一个MonthCalender控件，将Name的属性值设置为“mclOnly”，CalendarDimensions属性值设置为“1,2”FirstDayNumbers属性的属性值为“Sunday”，ForeColor属性的值设置为“0,0,192”，ShowWeekNumbers属性的值设置为“Ture”，TitleBackColor属性的值设置为“Teal”，TrailingForeColor属性的值设置为“Red”。用鼠标双击calendar窗体，在代码编辑窗口上部的“类名”选择“mclOnly”控件对象，再“方法名称”中选择“DateSelected”事件。在mclOnly_DateSelected过程中，输入以下代码：TextBox1.Text = If mclOnly.SelectionStart.DayOfWeek = DayOfWeek.Monday Then TextBox1.Text = vbCrLf & 新的一周又开始了，天天快乐！ End If If mclOnly.SelectionStart.DayOfWeek = DayOfWeek.Saturday Then TextBox1.Text = vbCrLf & 今天是周末，玩的开心！ End If If mclOnly.SelectionStart.Date.Month = 4 And mclOnly.SelectionStart.Date.Day = 5 Then TextBox1.Text = vbCrLf & 清明节到了，看看已故的亲人吧！ End If If mclOnly.SelectionStart.Date.Month = 5 And mclOnly.SelectionStart.Date.Day = 1 Then TextBox1.Text = vbCrLf & 劳动节到了，带上家人出去散散心吧！ End If If mclOnly.SelectionStart.Date.Month = 7 And mclOnly.SelectionStart.Date.Day = 7 Then TextBox1.Text = vbCrLf & 七夕节到了，带上爱人出去浪漫一下吧！ End If If mclOnly.SelectionStart.Date.Month = 8 And mclOnly.SelectionStart.Date.Day = 15 Then TextBox1.Text = vbCrLf & 中秋节到了，快回去和家人吃个团圆饭吧！ End If If mclOnly.SelectionStart.Date.Month = 10 And mclOnly.SelectionStart.Date.Day = 1 Then TextBox1.Text = vbCrLf & 国庆节到了，带上家人出去散散心吧！ End If If TextBox1.Text = Then TextBox1.Text = vbCrLf & vbCrLf & 天天快乐 End If 在不是特殊日期的日子统一输出天天快乐5.2 北京时间显示的实施阶段在窗体calendar上添加一个Lable控件，Name属性值为lblTitle1，Text属性值为北京时间；添加一个TextBox控件，BackColor属性值为“192,255,255”，ForeColor属性值为“Red”，Font属性值为“宋体，10.5pt，style=Blod”,Multiline属性值为“Ture”；添加一个Timer控件，Name属性值为“Timer1”，Enabled属性值为“True”，Interval属性值为“10”；添加一个Timer控件，Name属性值为“Timer3”，Enabled属性值为“True”，Interval属性值为“50”。双击Timer1控件，输入以下代码：（Timer1控件的功能是判断当前的时间段，以及调用系统时间，并把结果显示在TextBox2中）vHour = Format(Now(), HH) 为vHour赋初值，其中HH的值是系统时间的小时 If vHour = 0 And vHour = 6 And vHour = 7 And vHour = 12 And vHour = 14 And vHour = 18 And vHour 24 Then vState = 晚上 对当前时段的判断 TextBox2.Text = vbCrLf & vState & 好 & 现在时间是： & Format(Now, hh:mm:ss) 将当前时段与系统时间显示在TextBox2中双击Timer3控件，输入以下代码：（Timer3控件的功能是使两个标签控件中的字符颜色闪烁显示） If lblTitle.ForeColor = Color.Red Then lblTitle.ForeColor = Color.Blue Else lblTitle.ForeColor = Color.Red End If 使lblTitle中的字符颜色用红和蓝两种颜色交替闪烁显示 If lblTitle1.ForeColor = Color.Red Then lblTitle1.ForeColor = Color.Blue Else lblTitle1.ForeColor = Color.RedEnd If 使lblTitle1中的字符颜色用红和蓝两种颜色交替闪烁显示5.3 天气预报显示的实施阶段添加WebBrowser控件，设置Name属性值为WebBrowser1，Location属性值设置为“401,243”，Size属性值设置为“248,166”。用鼠标双击calendar窗体，在Private Sub calendar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load下面输入以下代码：此处代码是为了使程序运行时“今日提示”的信息自动显示在TextBox1控件中。TextBox1.Text = If mclOnly.SelectionStart.DayOfWeek = DayOfWeek.Monday Then TextBox1.Text = vbCrLf & 新的一周又开始了，天天快乐！ End If If mclOnly.SelectionStart.DayOfWeek = DayOfWeek.Saturday Then TextBox1.Text = vbCrLf & 今天是周末，玩的开心！ End If If mclOnly.SelectionStart.Date.Month = 4 And mclOnly.SelectionStart.Date.Day = 5 Then TextBox1.Text = vbCrLf & 清明节到了，看看已故的亲人吧！ End If If mclOnly.SelectionStart.Date.Month = 5 And mclOnly.SelectionStart.Date.Day = 1 Then TextBox1.Text = vbCrLf & 劳动节到了，带上家人出去散散心吧！ End If If mclOnly.SelectionStart.Date.Month = 7 And mclOnly.SelectionStart.Date.Day = 7 Then TextBox1.Text = vbCrLf & 七夕节到了，带上爱人出去浪漫一下吧！ End If If mclOnly.SelectionStart.Date.Month = 8 And mclOnly.SelectionStart.Date.Day = 15 Then TextBox1.Text = vbCrLf & 中秋节到了，快回去和家人吃个团圆饭吧！ End If If mclOnly.SelectionStart.Date.Month = 10 And mclOnly.SelectionStart.Date.Day = 1 Then TextBox1.Text = vbCrLf & 国庆节到了，带上家人出去散散心吧！ End If If TextBox1.Text = Then TextBox1.Text = vbCrLf & vbCrLf & 天天快乐 End If 在不是特殊日期的日子统一输出天天快乐此处代码是使用IE控件来调用网络的天气预报插件，达到天气预报的目的。Me.WebBrowser1.Navigate(/weather/weather.aspx?uid=&c=CHXX0008&l=zh-CHS&p=CMA&a=1&u=C&s=1&m=1&x=1&d=0&fc=FFFF00&bgc=00B0F0&bc=FFFF00&ti=1&in=1&li=2&ct=iframe) 其中的网址是天气预报插件，由IE控件直接调用5.4 欢迎界面显示的实施阶段添加一个Timer控件，Name属性值设置为“Timer2”，Enable属性值设置为“True”,Interval属性值设置为“50”，添加两个Lable控件，Name属性值分别设置为“Lable1”与“Lable2”，ForeColor属性值都设置为“Red”，Text属性值都设置为“欢迎您”，Lable1的Location属性值设置为“3,10”，Lable2的Location属性值设置为“537,421”。双击Timer2控件，输入以下代码：（Timer2控件的功能是实现两个Lable中的“欢迎您”左右移动并且闪烁显示）Dim X As Integer, Y As Integer 定义两个变量X和Y Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick X = 0If X = 0 Then Label1.Left = Label1.Left + 1 If Label1.Left Mod 2 = 0 Then Label1.ForeColor = Color.Red Label1.Left为偶数，显示红色 If Label1.Left Mod 2 0 Then Label1.ForeColor = Color.Blue Label1.Left为奇数，显示蓝色 If Label1.Left 528 Then X = 1 While X = 1 Label1.Left = 10 如果X=1，Label1.Left跳回到10 X = 0 End WhileEnd If Y = 0 If Y = 0 Then Label2.Left = Label2.Left - 1 If Label2.Left Mod 2 = 0 Then Label2.ForeColor = Color.Red If Label2.Left Mod 2 0 Then Label2.ForeColor = Color.Blue If Label2.Left 10 Then Y = 1 While Y = 1 Label2.Left = 528 Y = 0 End WhileEnd IfEnd Sub5.5 指定日期显示的实施阶段添加一个Button控件，Location属性值设置为“401,192”，Name属性值设置为“Button1”，Text属性值设置为“点击此处查询日期信息”。双击Button控件，输入以下代码（此处实现的是日期信息的查询，查询结果显示当日是星期几以及当日提示的信息）Dim year As Integer, mouth As Integer, day1 As Integer, s As Date, b As Integer, r As String 定义变量 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click While 1 year = InputBox(请输入年份, , Format(Now, yyyy) 在新窗口输入年份 mouth = InputBox(请输入月份, , Format(Now, mm) 在新窗口输入月份 day1 = InputBox(请输入日期, , Format(Now, dd) 在新窗口输入日期 s = DateSerial(year, mouth, day1) 将日期赋值给s b = Weekday(s) Select Case b 对b进行查找，按星期几输出对应结果 Case 1 r = 星期日 Case 2 r = 星期一 TextBox1.Text = vbCrLf & 新的一周又开始了，天天快乐！ Case 3 r = 星期二 TextBox1.Text = vbCrLf & 天天快乐！ Case 4 r = 星期三 TextBox1.Text = vbCrLf & 天天快乐！ Case 5 r = 星期四 TextBox1.Text = vbCrLf & 天天快乐！ Case 6 r = 星期五 TextBox1.Text = vbCrLf & 天天快乐！ Case 7 r = 星期六 TextBox1.Text = vbCrLf & 今天是周末，玩的开心！ End Select MsgBox(r & TextBox1.Text) 输出r和TextBox1的值 Exit Sub 跳出sub End While 跳出循环End Sub软件运行测试与说明6.1 生成安装程序步骤6.1.1创建部署项目 1. 在“文件”菜单上指向“添加项目”，然后选择“新建项目”。 2. 在“添加新项目”对话框中，选择“项目类型”窗格中的“安装和部署项目”，然后选择“模板”窗格中的“安装项目”。在“名称”框中键入“日历小工具安装程序”。 3. 单击“确定”关闭对话框。 4. 项目被添加到解决方案资源管理器中，并且文件系统编辑器打开。 5. 在“属性”窗口中，选择 ProductName 属性，并键入 日历小工具 。 6.1.2添加Windows应用程序 1.双击“应用程序文件夹”。在“操作”菜单上，指向“添加”，然后选择“文件”命令。将“日历小工具”应用程序的可执行文件和相应的类库和组件添加进去。 2. 在“日历小工具.exe”可执行文件上单击鼠标右键，在弹出的快捷菜单中选择“创建日历小工具快捷方式”命令，将快捷方式改名为“日历小工具” 3. 把快捷方式剪切并粘贴到左边的“用户桌面”文件夹中。 4. 在“用户的程序菜单”文件夹上点右键，在弹出的快捷菜单中选“创建用户程序菜单的快捷菜单”命令，然后将快捷菜单重命名为“日历小工具”。5、右击左边的“应用程序文件夹”，选择“属性”，将属性中的DefaultLocation的路径中的Manufacturer去掉。6