【精品】后山烧烤策划

《【精品】后山烧烤策划》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、综合设计题目：关于vb程序的一些小应用组长：汪彦(222008323012063)组员：王晨晔(222008323012076)曾波(222008323012085)李火营(222008323012077)寇丹(222008323012063)综合设计分工说明：本小组一共有五位成员组成，大家分工合作，完成了最后的vb综合设计。其中整个实验设计主要流程如下：1.主题讨论，选出设计的方案2.任务分配，具体落实毎个组员负责的模块。3.整合意见，大家讨论各自遇到的问题，集思广益解决问题。4.达成共识，综合全部的实验，做最后大体上的布局，5•小组成员具体的任务分工组长：汪彦(222008323

2、012072):综合性设计报告文档的整理。组员：王晨晔(222008323012076)时.曾波(222008323012085)李火营(222008323012077)寇丹(222008323012063)完成实验设计。组员任务的分配，综合设计代码调试,设计一：vb综合设计提交倒计设计二：五颜六色的圆设计三：查找并选中找到的字符设计四：倒计时关机6.源程序清单王晨晔一实验步骤:设计一：vb综合设计提交倒计时(1)界面设计：综合设计提交时间可任意设置，程序会自动调整字符大小和显示位置。在窗体上放置3个控件：Timerl.Textl.Labello在属性窗口将Label1的Index属

3、性设置为0,其他控件及属性无需进行任何设置。(2)程序代码编写PrivateSubForm-Load()DimIAsLong,YAsLongLabell(0).AutoSize=True:Labell(0).Font.Bold=TrueTextl.Font.Bold=TrueForI=1To4LoadLabell(I):Labell(I).Visible=TrueNextMe.Caption="倒计时Labell(0).Caption="综合设计提交倒计时"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)="提交时间"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)="剩余时间"Labe11(4).MoveTextl.Left,Labell(3).Top:Labell(4).ForeColor=255EndSubPrivateSubTimerl-Timer0DimDAsLong,HAsLong,MAsLong,SAsLongOnErrorGoTocuoLabell(1)="当前时间n&NowS=DateDiff(Hsn,Now,CDate(Textl.Text))IfS<

7、1ThenLabell(4)="时间到":ExitSubD=S86400‘3600*24S=SMod86400:H=S3600S=SMod3600:M=S60S=SMod60Labell(4)=D&"天"&H&"时"&M&"分"&S&"秒"ExitSubcuo:Labell(4)="输入的时间错误"EndSub曾波一一设计二：五颜六色的圆(1)界面设计:在窗体添力口一个控件Timer1(2)程序代码编写PrivateSubForm-Load()Tim