VB報告簡易日歷小工具天氣預(yù)報

1、VisualBasic2005程序設(shè)計題目：簡易日歷小工具專業(yè)：姓名：學(xué)號：指導(dǎo)老師：年五月二十五日和C#比較它的優(yōu)缺點功能上的考慮vb有而C般有的功能有即時編譯；靜態(tài)事件綁定；條件異常捕獲；COMt容類；寬松的類型檢查和變量聲明；VisualBasicRuntime庫；可選參數(shù)、帶參數(shù)屬性、模塊等語言特征；動態(tài)數(shù)組。功能更強大的是VB而不是C#。性能上的考慮VB和C#TB生成一樣的IL,因此理論上說不會有性能的差異。但是因為支持即時編譯，即一邊書寫代碼一邊編譯。這樣可立刻發(fā)現(xiàn)語法錯誤，使調(diào)試變得更加容易。但是這樣一來VB就需要隨時瀏覽整個代碼文件，并把臨時數(shù)據(jù)儲存。這造成生成的代碼中常常具有

2、冗余部分。但也不能就此下結(jié)論說VB比C#慢,當用戶選擇打開優(yōu)化并且以Release方式編譯工程，就能得到與CX樣簡短快速的代碼。代碼風(fēng)格和雜項問題C#書寫的彳弋碼比VB平均短小20%VB中的關(guān)鍵字過長。VB語言換行比C麻煩，如果需要書寫大量繁雜而長的代碼，最好選擇C#(1VB的代碼接近完整的英語，比C硬加易讀。文檔和資源方面的考慮在MSDNC檔中，C#mVB是同等看待的。所有文檔和例子都是有VB和C#W份的。因此，在尋求資源方面都不用擔(dān)心?；ヂ?lián)網(wǎng)上的資源，C修多于VB,特別是國內(nèi)，有傾向于C#的潮流。但是的資源VB較多。國內(nèi)缺乏資源是影響推廣的重要原因。設(shè)計題目通過桌面小工具受到啟發(fā)，決定做一

3、個桌面小工具程序，設(shè)計題目為：簡易日歷小工具程序編譯、部署與運行環(huán)境程序的編譯與部署環(huán)境：本程序使用VB編程，編程環(huán)境在VisualBasic2005軟件下進行，在創(chuàng)建并測試應(yīng)用程序之后，在VisualBasic2005下創(chuàng)建自己的安裝程序，將其發(fā)布。程序的運行環(huán)境：本程序在打包安裝后，在WindowsXP及其以上操作系統(tǒng)下運行成功，但需注意的是，由于屏幕分辨率的問題，在不同硬件運行環(huán)境下，運行結(jié)果會有偏差。設(shè)計目的與軟件功能設(shè)計目的培養(yǎng)自己綜合利用VB語言進行程序設(shè)計的能力，主要是培養(yǎng)自己利用VB的標準控件進行應(yīng)用程序設(shè)計的技能。軟件要實現(xiàn)的功能(1)、能夠窗體加載自動提取并顯示當前日期。(

4、2)、選擇某一日期后，有特殊顯示，比如添加方框。添加一些特殊日期，比如國慶節(jié)等。而且能夠顯示當天的信息提示。其中“今日提示”四個字字體顏色閃爍顯示。(3)、在窗體下方顯示所選擇的日期。(4)、根據(jù)所選年份和月份以及日期，確定當天為星期幾，以及當日的提示。比如2011年5月25日，確定后顯示“星期三，天天快樂”。(5)、能夠?qū)崿F(xiàn)北京時間的動態(tài)顯示，能夠判斷并顯示當前時間是凌晨、早上、上午、中午、下午、晚上等信息。其中的“北京時間”四個字字體顏色閃爍顯示。(6)、能夠自動獲取本機IP顯示本地的天氣預(yù)報，并能提供查詢窗口查詢?nèi)珖鞯靥鞖忸A(yù)報(需要本機聯(lián)網(wǎng))。(7)、歡迎界面的設(shè)計，本程序中通過在程序

5、界面的上方和下方各提供一個動態(tài)顯示(左右移動)的“歡迎您”來美化歡迎界面。軟件流程圖4.3.1 日期，時間以及時間查詢功能模塊：4.3.2 天氣預(yù)報功能模塊:4.3.3歡迎界面功能模塊:軟件功能的實施階段新建一個項目，項目的名稱為“日歷小工具”。選中系統(tǒng)自動添加的窗體Forml,設(shè)置其Name屬性的屬性值為calendar（日歷），設(shè)置Text屬性的屬性值為“日歷時間天氣查詢”，Size屬性的屬性值為“667,485”，將MaxisizeBox屬性值設(shè)置為“False”最后在“解決方案資源管理器”窗口的項目名稱“日歷小工具”上單擊鼠標右鍵，選中彈出菜單中的“屬性”命令，在“日歷小工具屬性頁”對

6、話框中將項目的啟動對象改成“calendar”.日歷功能顯示的實施階段在窗體calendar上添加一個Lable控件，Name屬性彳I為lblTitle,Text屬性值為"今日提示"；添加一個TextBox控件，BorderStyle屬性值設(shè)置為“Fixed3D"，F(xiàn)ont屬性值設(shè)置為“楷體”，F(xiàn)oreColor屬性值設(shè)置為"Blue"添加一個MonthCalender控件，將Name的屬性值設(shè)置為"mclOnly”,CalendarDimensions屬性值設(shè)置為“1,2"FirstDayNumbers屬性的屬性值為&qu

7、ot;Sunday"，F(xiàn)oreColor屬性的值設(shè)置為“0,0,192”，ShowWeekNumbersll性的值設(shè)置為"Ture",TitleBackC010r屬性的值設(shè)置為"Teal",TrailingForeColor屬性的值設(shè)置為“Red'。用鼠標雙擊calendar窗體，在代碼編輯窗口上部的“類名”選擇“mclOnly”控件對象，再“方法名稱"中選擇"DateSelected"事件。在mclOnly_DateSelected過程中，輸入以下代碼：IfThen= vbCrLf & "

8、;End IfIf = Then= vbCrLf & "End IfIf = 4 And = 5= vbCrLf & "End IfIf = 5 And = 1= vbCrLf & "End IfIf = 7 And = 7= vbCrLf & "End IfIf = 8 And = 15= vbCrLf & "End IfIf = 10 And = 1= vbCrLf & "End IfIf = "" Then新的一周又開始了，天天快樂！"今天是周末，玩的

9、開心！"Then清明節(jié)到了，看看已故的親人吧！"Then勞動節(jié)到了，帶上家人出去散散心吧！Then七夕節(jié)到了，帶上愛人出去浪漫一下吧！Then中秋節(jié)到了，快回去和家人吃個團圓飯吧！Then國慶節(jié)到了，帶上家人出去散散心吧！=vbCrLf&vbCrLf&"天天快樂"EndIf在不是特殊日期的日子統(tǒng)一輸出天天快樂北京時間顯示的實施階段Text 屬性值為北京時間；添加在窗體calendar上添加一個Lable控件，Name屬性值為IblTitlel體， 10.5pt ， style=BlodEnabled 屬性值為“TrueEnabled 屬性

10、值為“True,MultilineIntervalInterval雙擊 Timer1 控件，輸入以下代碼：把結(jié)果顯示在TextBox2 中)vHour = Format(Now(), "HH")屬性值為"Ture"添加一個Timer控件，NameW性值為"Timeh ", 屬性值為“10”；添加一個Timer控件，Name屬性值為" Timer3”， 屬性值為“ 50” 。( Timer1 控件的功能是判斷當前的時間段，以及調(diào)用系統(tǒng)時間，并IfIfvHour >= 0vHour >= 6And vHour <

11、; 6And vHour < 7vHour 賦初值，其中Then vState = "Then vState = "IfvHour >= 7And vHour < 12IfvHour >= 12And vHour < 14Then vState = "Then vState = "IfIfvHour >= 14vHour >= 18And vHour < 18And vHour < 24Then vState = "Then vState = "其中HH的值是系統(tǒng)時間的小時凌晨 &

12、quot;早上 "上午 "中午 "下午 "晚上 " 對當前時段的判斷一個TextBox控件，BackColor屬性值為“192,255,255”，F(xiàn)oreColor屬性值為“Red”，F(xiàn)ont屬性值為“宋= vbCrLf & vState & "雙擊 Timer3 控件，輸入以下代碼：If = Then現(xiàn)在時間是："&Format(Now,"hh:mm:ss")TextBox2中Timer3控件的功能是使兩個標簽控件中的字符顏色閃爍顯示)ElseEndIf使lblTitle中的字符

13、顏色用紅和藍兩種顏色交替閃爍顯示If=ThenElseEndIf使lblTitle1中的字符顏色用紅和藍兩種顏色交替閃爍顯示天氣預(yù)報顯示的實施階段添加WebBrowser控件，設(shè)置Name1性值為WebBrowser,Location屬性值設(shè)置為“401,243”,Size屬性值設(shè)置為“248,166”。用鼠標雙擊calendar窗體，在PrivateSubcalendar_Load(ByValsenderAs,ByValeAsHandles下面輸入以下代碼：此處代碼是為了使程序運行時“今日提示”的信息自動顯示在TextBox1控件中。If = Then= vbCrLf & "

14、;End IfIf = Then= vbCrLf & "End IfIf = 4 And = 5= vbCrLf & "End IfIf = 5 And = 1= vbCrLf & "End IfIf = 7 And = 7= vbCrLf & "End IfIf = 8 And = 15= vbCrLf & "End IfIf = 10 And = 1= vbCrLf & "End IfIf = "" Then新的一周又開始了，天天快樂！"今天是周末，玩的

15、開心！"Then清明節(jié)到了，看看已故的親人吧！"Then勞動節(jié)到了，帶上家人出去散散心吧！Then七夕節(jié)到了，帶上愛人出去浪漫一下吧！Then中秋節(jié)到了，快回去和家人吃個團圓飯吧！Then國慶節(jié)到了，帶上家人出去散散心吧！End If在不是特殊日期的日子統(tǒng)一輸出天天快樂=vbCrLf&vbCrLf&"天天快樂"此處代碼是使用IE控件來調(diào)用網(wǎng)絡(luò)的天氣預(yù)報插件，達到天氣預(yù)報的目的。"&c=CHXX0008&l=zh-CHS&p=CMA&a=1&u=C&s=1&m=1&x

16、=1&d=0&fc=FFFF00&bgc=00B0F0&bc=FFFF00&ti=1&in=1&li=2&ct=iframe"）其中的網(wǎng)址是天氣預(yù)報插件，由IE控件直接調(diào)用歡迎界面顯示的實施階段添加一個Timer控件，Name1性值設(shè)置為"Timer2",Enable屬性值設(shè)置為"True"Interval屬性值設(shè)置為“50”，添加兩個Lable控件，NameW性值分別設(shè)置為“Lablel”與“Lable2"，F(xiàn)oreColor屬性值都設(shè)置為“Red”，Text屬性值都設(shè)

17、置為“歡迎您”，Lable1的Location屬性值設(shè)置為“3,10”，Lable2的Location屬性值設(shè)置為“537,421”。雙擊Timer2控件，輸入以下代碼：（Timer2控件的功能是實現(xiàn)兩個Lable中的“歡迎您”左右移動并且閃爍顯示）DimXAsInteger,YAsInteger'定義兩個變量X和丫PrivateSubTimer2_Tick(ByValsenderAs,ByValeAsHandlesX=0IfX=0Then=+1IfMod2=0Then=為偶數(shù)，顯示紅色IfMod2<>0Then=為奇數(shù)，顯示藍色If>528ThenX=1WhileX

18、=1=10'如果X=1,跳回到10X=0EndWhileEndIfY=0IfY=0Then=-1IfMod2=0Then=IfMod2<>0Then=If<10ThenY=1WhileY=1=528Y=0EndWhileEndIfEndSub指定日期顯示的實施階段添加一個Button控件，Location屬性值設(shè)置為“401,192"，Name屬性值設(shè)置為“Buttonl"，Text屬性值設(shè)置為“點擊此處查詢?nèi)掌谛畔ⅰ?。雙擊Button控件，輸入以下代碼（此處實現(xiàn)的是日期信息的查詢，查詢結(jié)果顯示當日是星期幾以及當日提示的信息）DimyearAsIn

19、teger,mouthAsInteger,day1AsInteger,sAsDate,bAsInteger,rAsString定義變量PrivateSubButton1_Click(ByValsenderAs,ByValeAsHandlesWhile1year=InputBox("mouth=InputBox(day1=InputBox("請輸入年份",Format(Now,"yyyy")請輸入月份",Format(Now,"mm")請輸入日期",Format(Now,"dd")

20、9;在新窗口輸入年份'在新窗口輸入月份'在新窗口輸入日期s=DateSerial(year,mouth,day1)b=Weekday(s)SelectCaseCase1r="Case 2r="=vbCrLf&"Case 3r="=vbCrLf&"Case 4r="=vbCrLf&"Case 5r="=vbCrLf&"Case 6r="=vbCrLf&"Case 7r="=vbCrLf&"EndSelec

21、tMsgBox(r&ExitSubEndWhileb'對b進行查找，按星期幾輸出對應(yīng)結(jié)果星期日"星期一"新的一周又開始了，天天快樂！"星期二"天天快樂！"星期三"天天快樂！"星期四"天天快樂！"星期五"天天快樂！"星期六"今天是周末，玩的開心！"'輸出r和TextBoxI的值跳出sub跳出循環(huán)EndSub軟件運行測試與說明生成安裝程序步驟6.1.1創(chuàng)建部署項目1. 在“文件”菜單上指向“添加項目”，然后選擇“新建項目”。2. 在“添加新項目”

22、對話框中，選擇“項目類型”窗格中的“安裝和部署項目”，然后選擇“模板”窗格中的“安裝項目”。在“名稱”框中鍵入“日歷小工具安裝程序”。3. 單擊“確定”關(guān)閉對話框。4. 項目被添加到解決方案資源管理器中，并且文件系統(tǒng)編輯器打開。5. 在“屬性”窗口中，選擇ProductName屬性，并鍵入日歷小工具。6.1.2添加Windows應(yīng)用程序1. 雙擊“應(yīng)用程序文件夾”。在“操作”菜單上，指向“添加”，然后選擇“文件”命令。將“日歷小工具”應(yīng)用程序的可執(zhí)行文件和相應(yīng)的類庫和組件添加進去。2. 在“日歷小工具.exe”可執(zhí)行文件上單擊鼠標右鍵，在彈出的快捷菜單中選擇“創(chuàng)建日歷小工具快捷方式”命令，將快捷方式改名為“日歷小工具”3. 把快捷方式剪切并粘貼到左邊的“用戶桌面”文件夾中。4. 在“用戶的程序菜單”文件夾上點右鍵，在彈出的快捷菜單中選“創(chuàng)建用戶程序菜單的快捷菜單”命令，然后將快捷菜單重命名為“日歷小工具”。5. 右擊左邊的“應(yīng)用程序文件夾”，選擇“屬性”，將屬性中的DefaultLocation的路徑中的Manufacturer去掉。6、打開解決方案管理器，右擊“日歷小工具安裝程序”文件，選擇“屬性”命令，單擊“系統(tǒng)必備”按鈕，選擇“.NETFramework2.0”選項。7、選擇“生成”|“生成解決方案”命令，生成成功6.1.3添加“卸載”功能1. 在添加應(yīng)用程序項目的時候，多