首页 > 文章中心 > 正文

VFP卖场娱乐方式实现

VFP卖场娱乐方式实现

[摘要]营造轻松快乐的购物氛围,是商家在激烈竞争中取胜必须考虑的一个重要环节。开辟单纯的体力游戏已不能适应陪父母购物的大龄儿童的需要。利用VisualFoxPro6.0开发简易绘图程序,不仅丰富了卖场的娱乐活动,而且有助于开发儿童智力,发挥才智,还能培养他们正确地运用计算机,掌握计算机的基本操作知识。寓学于乐,使家长安心购物,从而会促进卖场的销售量,提高经济效益。

[关键词]VisualFoxPro6.0卖场娱乐表单控件属性事件代码

肯德基在世界上那么受欢迎,除了精心选址、定位准确以外,很大程度上与服务质量、服务方式有关。其食物口味独特鲜香,深受小朋友的喜爱自不必说,营造西式快餐轻快的就餐氛围,开辟为儿童庆祝生日的区域,布置儿童喜好的多彩装饰,节假日还备有玩具作为礼品,这也是吸引小朋友的重要一面。我们的一些卖场,也已经做到了这一点,如设置“海洋球”、“蹦蹦床”等娱乐空间。但是,开放的对象多是针对学龄前儿童的,对于大一点的小学生来说,因为一个人在家家长会不放心,往往是经常被迫地“陪”父母上街购物。这样一来需要为他们开辟一个空间,父母购物的同时,他们在娱乐与学习。

小学生不单纯地停留在“玩”上了,他们喜欢智慧游戏,在娱乐中学习。不妨用VisualFoxPro6.0设计个简易绘图的程序,供小学生朋友展开绘画的想象力,充分发挥绘画才艺,寓学于乐,还可以把自己的“作品”打印出来带回家,相信以后他们会很高兴地陪父母购物的。这样一来,会提高顾客流量,卖场的效益也会有所提高。

虽说Windows系统中自带“画图”功能,但随着电脑的普及,已为人熟知,对小顾客已没有了新鲜感和吸引力。而基于VFP进行简易绘图,形式新颖操作灵活,对孩子将来的计算机教育又打下了一定的基础。况且这种娱乐方式商家实现起来容易,占地小成本又低,只要有一台普通配置的电脑,一名有计算机基本操作技能的工作人员就可以了。下面就设计、实现过程及其功能做一介绍。

一、硬、软件要求

硬件基本配置:主频233MHZ的奔腾Ⅱ以上的微型机;64MB以上的主存;100MB以上的硬盘;800*600或更高分辨率的显示器;一台彩喷打印机。

软件环境:Windows98/2000/XP环境均可。

二、安装VFP环境

将VFP光盘插入CD-ROM中;在“资源管理器”目录中,选择光驱,运行“Setup.exe”文件;按照安装向导,选择安装形式并完成安装。

三、功能介绍及代码实现

1.功能

有小朋友画图时,滚动字幕隐藏,按“微调控件”的上、下箭头选择线的粗细,按“颜色”按钮选择画线的颜色,不满意时按“擦除”按钮清除所画内容重新来。如图1所示。

图1图2

当无人画图时,单击“字幕滚动(按空格停止)”按钮可以控制出现滚动字幕“来!大显身手!”,按空格键就停止且隐藏。如图2所示。

2.设计过程

启动VFP。选择“开始”菜单下的“程序”选项,再选择“MicrosoftVisualFoxPro6.0”选项。

启动“表单设计器”。单击常用工具栏中的“新建”按钮。或者在“文件”下拉菜单中单击“新建”选项;打开“新建”对话框以后,先选定“表单”文件类型,然后单击“新建文件”按钮。或者,在命令窗口中输入CreatFormform1。表单设计器启动后,它的“属性”对话框、“表单设计器”工具栏与“表单控件”工具栏都显示在屏幕上。

在表单(Form1)中,添加一个标签(Label1)、一个微调控件(Spinner1)、四个命令按钮(Command1~Command4)。在“属性”对话框中将表单、标签、命令按钮的标题(Caption)属性分别设置为“简易绘图”、“线宽”、“颜色”、“擦除”、“退出”、“字幕滚动(按空格停止)”等。微调控件(Spinner1)的SpinnerLowValue属性值设置为1,控制线最小宽度;SpinnerHighValue属性值设置为7,控制线的最大宽度;Value属性值设置为1,控制线宽的默认值。

在表单(Form1)中,添加第二个标签(Label2),其自动大小(AotoSize)属性设置为.T.;是否可见(Visible)属性设置为.F.;字体属性(FontName)设置为“隶书”,字体大小(FontSize)属性设置为“20”;字体颜色(ForeColor)属性设置为“255,0,128”(桃红色)。3.代码实现

双击“表单”,打开代码编辑器,选择“对象”为“Form1”,选择“过程”为“MouseDown”。即编写Form1_MouseDown()事件代码:

LPARAMETERSnButton,nShift,nXCoord,nYCoord&&确定画线起点

This.CurrentX=nXcoord

This.CurrentY=nYcoord

编写Form1_MouseMove()事件代码:

LPARAMETERSnButton,nShift,nXCoord,nYCoord&&画线

Ifnbutton=1

This.Line(nXcoord,nYcoord)

Endif

编写Command2_Click()事件代码:

Thisform.Cls&&擦除

编写Command3_Click()事件代码:

Thisform.Release&&退出

编写Spinner1_InteractiveChange()事件代码:

Thisform.Drawwidth=This.Value&&控制画线的宽度

编写Command1_Click()事件代码:

Thisform.Forecolor=RGB(Rand()*255,Rand()*255,Rand()*255)

&&控制画笔的颜色,每次单击“颜色”按钮,就会得到不同的颜色,随机的。

编写Command4_Click()事件代码:

Thisform.Label2.Visible=.T.&&滚动字幕显示

Thisform.Label2.Caption=“来!大显身手!”

b=Thisform.Label2.Caption

Key=0

DoWhileKey!=32&&按空格键停止

b1=Substr(b,1,2)

b=Alltrim(Substr(b,3))+b1&&使字符串首尾相接,循环不断

Thisform.Label2.Caption=b

Key=Inkey(0.7,''''H'''')&&延时0.7秒

Thisform.Refresh

Enddo

Thisform.Label2.Visible=.F.&&字幕隐藏

四、运行

画完图后,想看一下效果,就运行此表单。共有四种方法:

>单击常用工具栏的“运行”按钮;

>按组合键Ctrl+E;

>在命令窗口中输入命令:DoFormForm1.scx

>打开“程序”菜单,选择“运行”选项。在弹出的“运行”对话框中选择表单名,单击“运行“按钮。

五、打印

表单运行后,按组合键Alt+PrintScreen进行屏幕拷贝,以图片的形式将其粘贴到MicrosoftWord文档中,进行打印即可。

带着自己的作品回家,小顾客们一定会兴高采烈,父母也会觉得轻松愉快。在商家众多、竞争日趋激烈的今天,希望各卖场调动员工的积极性,利用计算机编程语言开发出更多更简便易行的小程序,丰富卖场的娱乐活动,创造良好的服务质量与服务方式,一定会给卖场带来勃勃的生机和可观的效益。

文档上传者