VB報告簡易日歷小工具天氣預報

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

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

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

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

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

7、ot;Sunday"，F(xiàn)oreColor屬性的值設置為“0,0,192”，ShowWeekNumbersll性的值設置為"Ture",TitleBackC010r屬性的值設置為"Teal",TrailingForeColor屬性的值設置為“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 控件，輸入以下代碼：把結果顯示在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中的字符顏色用紅和藍兩種顏色交替閃爍顯示天氣預報顯示的實施階段添加WebBrowser控件，設置Name1性值為WebBrowser,Location屬性值設置為“401,243”,Size屬性值設置為“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)絡的天氣預報插件，達到天氣預報的目的。"&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)址是天氣預報插件，由IE控件直接調(diào)用歡迎界面顯示的實施階段添加一個Timer控件，Name1性值設置為"Timer2",Enable屬性值設置為"True"Interval屬性值設置為“50”，添加兩個Lable控件，NameW性值分別設置為“Lablel”與“Lable2"，F(xiàn)oreColor屬性值都設置為“Red”，Text屬性值都設

17、置為“歡迎您”，Lable1的Location屬性值設置為“3,10”，Lable2的Location屬性值設置為“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屬性值設置為“401,192"，Name屬性值設置為“Buttonl"，Text屬性值設置為“點擊此處查詢?nèi)掌谛畔ⅰ?。雙擊Button控件，輸入以下代碼（此處實現(xiàn)的是日期信息的查詢，查詢結果顯示當日是星期幾以及當日提示的信息）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進行查找，按星期幾輸出對應結果星期日"星期一"新的一周又開始了，天天快樂！"星期二"天天快樂！"星期三"天天快樂！"星期四"天天快樂！"星期五"天天快樂！"星期六"今天是周末，玩的開心！"'輸出r和TextBoxI的值跳出sub跳出循環(huán)EndSub軟件運行測試與說明生成安裝程序步驟6.1.1創(chuàng)建部署項目1. 在“文件”菜單上指向“添加項目”，然后選擇“新建項目”。2. 在“添加新項目”

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