資源描述：
《后山燒烤策劃》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫。
1、組長：汪彥(222008323012063)組員：王晨曄(222008323012076)曾波(222008323012085)李火營(222008323012077)寇丹(222008323012063)綜合設(shè)計分工說明：本小組一共有五位成員組成，大家分工合作，完成了最后的vb綜合設(shè)計。其中整個實驗設(shè)計主要流程如下：1.主題討論，選出設(shè)計的方案2.任務(wù)分配，具體落實每個組員負(fù)責(zé)的模塊。3.整合意見，大家討論各自遇到的問題，集思廣益解決問題。4.達(dá)成共識，綜合全部的實驗，做最后大體上的布局，完成實驗設(shè)計。
2、5.小組成員具體的任務(wù)分工組長：汪彥(222008323012072):組員任務(wù)的分配，綜合設(shè)計代碼調(diào)試,綜合性設(shè)計報告文檔的整理。組員：王晨曄(222008323012076)設(shè)計一：vb綜合設(shè)計提交倒計時.曾波(222008323012085)設(shè)計二:李火營(222008323012077)設(shè)計三：寇丹(222008323012063)設(shè)計四：五顏六色的查找并選中找到的字符倒計時關(guān)機6.源程序清單王晨曄一實驗步驟:設(shè)計一：vb綜合設(shè)計提交倒計時(1)界面設(shè)計：綜合設(shè)計提交時間可任意設(shè)置，程序會自動調(diào)整
3、字符大小和顯示位置。在窗體上放置3個控件：Timerl.Textl、LabelL在屬性窗口將Labe11的Index屬性設(shè)置為0,其他控件及屬性無需進(jìn)行任何設(shè)置。(2)程序代碼編寫PrivateSubForm-Load()DimIAsLong,YAsLongLabell(0).AutoSize=True:Labell(0).Font.Bold=TrueTextl?Font.Bold=TrueForI=1To4LoadLabell(I):Labell(I).Visible=TrueNextMe.Captio
4、n="倒計時"：Labell(0).Caption="綜合設(shè)計提交倒計時11Y=Format(Date,nyyyyH)I=DateDiff(Hsn,Now,Y&n-6-79:00:00H)IfI<0ThenY=Y+1Textl.Text=Y&"-6-79:00:00nTimerl.Enabled=True:Timerl.1nterval=1000Me.WindowState=vbMaximized/最大化CallTimerl-TimerEndSubPrivateSubForm_Resize()DimIAs
5、Long,HAsSingle,LAsSingle,FAsSingleF=Me.ScaleX(Me.ScaleWidth,Me.ScaleMode,3)/25H=Me.ScaleY(Me.ScaleHeight,Me.ScaleMode,3)/10IfF>HThenF=HForI=0To4Labell(I).Font.Size=FNextTextl?Font?Size=FH=Labell(0).Height*0.5L=(Me.ScaleWidth-H*29)*0.5Labell(0).Move(Me.Sca
6、leWidth-Labell(0).Width)*0.5,(Me.ScaleHeight-H*12)*0.5Labell(1).MoveL,Labell(0).Top+H*4Labell(2).MoveLabell(1).Left,Labell(1).Top+H*3:Labell(2)="提交時間"Textl.MoveLabell(1).Left+Labell(2).Width+H,Labell(2).Top,H*20,H*2Labell(3).MoveLabell(1).Left,Labell(2).T
7、op+H?3:Labell(3)="剩余時間"Labe11(4).MoveTextl.Left,Labell(3).Top:Labell(4).ForeColor=255EndSubPrivateSubTimerl-Timer()DimDAsLong,HAsLong,MAsLong,SAsLongOnErrorGoTocuoLabell(1)="當(dāng)前時間n&NowS=DateDiff(Hsn,Now,CDate(Textl.Text))IfS<1ThenLabell(4)="時間到":ExitSubD=S
8、86400z3600*24S=SMod86400:H=S3600S=SMod3600:M=S60S=SMod60Labell(4)=D&"天"&H&"時"&M&"分"&S&"秒"ExitSubcuo:Labell(4)="輸入的時間錯誤"EndSub曾波一一設(shè)計二：五顏六色的(1)界面設(shè)計:在窗體添加一個控件Timerl(2)程序代碼編寫PrivateSubForm-Load()Timer1.InteTval=10:Ti
