vfp制作抽奖程序.docVIP

用VisualPoxpro6.0设计一个“电脑抽奖”小软件

小程序?教育?

——用VisualPoxpro6.0设计一个“电脑抽奖”小软件

题外话:“啪”，打开电视机——又是电脑抽大奖，祝您好运！小弟我虽然梦想赚大钱，吃燕窝熊掌（吃保护动物可是违法的哦:)），但是对不劳而获的“大奖”可从来不敢奢望呀。可是——坐在电视银幕前看了很多很多的精彩节目后。小弟心想：何不做个“电脑抽奖”小软件Happy,Happy？家庭Party，“抽”个大奖送给老爸老妈，哄哄老人家开心；同学聚会，“抽”个大奖，把好运带给转眼就要各奔东西的亲爱的同学们，其乐无穷也！您愿意与我分享这份心情吗？那且看下文分解。

初步构想：设计一个可抽出一等奖1名，二等奖2名，三等奖8名的应用软件（如图1）。第一，当然是先建立包含所有记录的表（如同学录.dbf,身份证.dbf）。第二，主界面：主办单位的电话号码在银幕左上方由左至右逐渐显现(由Timer1控制），右上方放置有关合办单位的“动画”图片，如果该抽奖软件是为家庭Party设计，您可放几幅全家福照片，动画效果设置计时器Timer2实现。第三，设置计时器Timer3,记录指针自动(循环)指向在同学录.dbf所有记录，从而在编辑框Edit1中显示数字的滚动，达到随机抽取获奖者。第四，当ClickEnter命令按钮Command1时,Timer3控件由禁用变为可用,数字开始滚动。Enter命令按钮Command2。Edit1,Edit2由蓝底黄字变为醒目的黄底红字，选中的记录就是“大奖的获得者”,并保存到Text1~3.软件还应能对获奖者人数进行累计(Text4~6)（如图2）。抽奖活动结束后,系统应给出活动结束的提示。

有了构想，下面我们还等什么呢？赶快动手吧！:)

■表单Form1的属性：caption=电脑抽奖系统,Picture=图片的正确路径(如:D:编程Vfpljxy29背景.bmp),With=800,Height=560。Activate事件代码:thisform.timer3.enabled=.F.,mand2.enabled=.F.,Load事件代码:publicnn=0。

■控件时钟timer1控制电话号码(标签label2)动态显示,属性:interval=20*确定计时器控制的Timer事件的时间间隔,以毫秒为单位。

timer事件代码:

ifthisform.label2.enabled=.t.

thisform.label2.width=thisform.label2.width+1

thisform.label2.visible=.t.

endif

ifthisform.label2.width=310

thisform.label2.visible=.f.

thisform.label2.width=1

endif

■timer2控制图片(image1)动态显示,属性：interval=60。timer事件代码:

ifthisform.image1.picture=PathPic1.bmp

thisform.image1.picture=PathPic2.bmp

else

thisform.image1.picture=PathPic1.bmp

endif

ifthisform.image1.visible=.t.

thisform.image1.visible=.f.

else

thisform.image1.visible=.t.

endif

■timer3控制滚筒(编辑框Edit1)的动态显示。属性：interval=10。

timer事件代码:

ifthisform.edit1.enabled=.t.

thisform.edit1.controlsource=身份证.身份证号

thisform.edit2.controlsource=身份证.姓名

skip+1

thisform.refresh

endif

ifeof()

gototop

endif

■命令按钮控件command1属性:caption=开始。

click事件代码:

mand1.enabled=.F.

mand2.enabled=.T.

thisform.edit1.forecolor=rgb(255,255,0)

thisform.edit2.forecolor=rgb(255,255,0)

thisform.edit1.backcolor=rgb(128,128,255)*淡蓝色

thisform.edit2.backcolor