【精品】后山燒烤策劃

《【精品】后山燒烤策劃》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫(kù)。

1、綜合設(shè)計(jì)題目：關(guān)于vb程序的一些小應(yīng)用組長(zhǎng)：汪彥(222008323012063)組員：王晨曄(222008323012076)曾波(222008323012085)李火營(yíng)(222008323012077)寇丹(222008323012063)綜合設(shè)計(jì)分工說(shuō)明：本小組一共有五位成員組成，大家分工合作，完成了最后的vb綜合設(shè)計(jì)。其中整個(gè)實(shí)驗(yàn)設(shè)計(jì)主要流程如下：1.主題討論，選出設(shè)計(jì)的方案2.任務(wù)分配，具體落實(shí)毎個(gè)組員負(fù)責(zé)的模塊。3.整合意見，大家討論各自遇到的問題，集思廣益解決問題。4.達(dá)成共識(shí)，綜合全部的實(shí)驗(yàn)，做最后大體上的布局，5?小組成員具體的任務(wù)分工組長(zhǎng)：汪彥(222008323

2、012072):綜合性設(shè)計(jì)報(bào)告文檔的整理。組員：王晨曄(222008323012076)時(shí).曾波(222008323012085)李火營(yíng)(222008323012077)寇丹(222008323012063)完成實(shí)驗(yàn)設(shè)計(jì)。組員任務(wù)的分配，綜合設(shè)計(jì)代碼調(diào)試,設(shè)計(jì)一：vb綜合設(shè)計(jì)提交倒計(jì)設(shè)計(jì)二：五顏六色的圓設(shè)計(jì)三：查找并選中找到的字符設(shè)計(jì)四：倒計(jì)時(shí)關(guān)機(jī)6.源程序清單王晨曄一實(shí)驗(yàn)步驟:設(shè)計(jì)一：vb綜合設(shè)計(jì)提交倒計(jì)時(shí)(1)界面設(shè)計(jì)：綜合設(shè)計(jì)提交時(shí)間可任意設(shè)置，程序會(huì)自動(dòng)調(diào)整字符大小和顯示位置。在窗體上放置3個(gè)控件：Timerl.Textl.Labello在屬性窗口將Label1的Index屬

3、性設(shè)置為0,其他控件及屬性無(wú)需進(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.Caption="倒計(jì)時(shí)Labell(0).Caption="綜合設(shè)計(jì)提交倒計(jì)時(shí)"Y=Format(Date,"yyyy")I=DateDiff("s%Now,Y&"一6-79:00:00n)IfI<0Then

4、Y=Y+1Textl.Text=Y&n-6-79:00:00HTimer1.Enabled=True:Timer1.1nterval=1000Me.WindowState=vbMaximized'最大化CallTimerl.TimerEndSubPrivateSubForm.Resize()DimIAsLong,HAsSingle,LAsSingle,FAsSingleF=Me.ScaleX(Me.ScaleWidth,Me.ScaleMode,3)/25H=Me.ScaleY(Me.ScaleHeight,Me.ScaleMode,3)/10IfF>HThenF=HForI=0To

5、4Labell(I).Font.Size=FNextTextl?Font?Size=FH=Labell(0).Height*0.5L=(Me.ScaleWidth-H*29)*0.5Labell(0).Move(Me.ScaleWidth-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)="提交時(shí)間"Textl.MoveLabell(1).Left+Labell(2

6、).Width+H,Labell(2).Top,H*20,H*2Labell(3).MoveLabell(1).Left,Labell(2).Top+H*3:Label1(3)="剩余時(shí)間"Labe11(4).MoveTextl.Left,Labell(3).Top:Labell(4).ForeColor=255EndSubPrivateSubTimerl-Timer0DimDAsLong,HAsLong,MAsLong,SAsLongOnErrorGoTocuoLabell(1)="當(dāng)前時(shí)間n&NowS=DateDiff(Hsn,Now,CDate(Textl.Text))IfS<

7、1ThenLabell(4)="時(shí)間到":ExitSubD=S86400‘3600*24S=SMod86400:H=S3600S=SMod3600:M=S60S=SMod60Labell(4)=D&"天"&H&"時(shí)"&M&"分"&S&"秒"ExitSubcuo:Labell(4)="輸入的時(shí)間錯(cuò)誤"EndSub曾波一一設(shè)計(jì)二：五顏六色的圓(1)界面設(shè)計(jì):在窗體添力口一個(gè)控件Timer1(2)程序代碼編寫PrivateSubForm-Load()Tim