基于ＶＦＰ的賣場娛樂方式設(shè)計(jì)與實(shí)現(xiàn)

[摘要] 營造輕松快樂的購物氛圍，是商家在激烈競爭中取勝必須考慮的一個重要環(huán)節(jié)。開辟單純的體力游戲已不能適應(yīng)陪父母購物的大齡兒童的需要。利用Visual FoxPro 6.0開發(fā)簡易繪圖程序，不僅豐富了賣場的娛樂活動，而且有助于開發(fā)兒童智力，發(fā)揮才智，還能培養(yǎng)他們正確地運(yùn)用計(jì)算機(jī)，掌握計(jì)算機(jī)的基本操作知識。寓學(xué)于樂，使家長安心購物，從而會促進(jìn)賣場的銷售量，提高經(jīng)濟(jì)效益。

[關(guān)鍵詞] Visual FoxPro 6.0賣場娛樂表單控件屬性事件代碼

肯德基在世界上那么受歡迎，除了精心選址、定位準(zhǔn)確以外，很大程度上與服務(wù)質(zhì)量、服務(wù)方式有關(guān)。其食物口味獨(dú)特鮮香，深受小朋友的喜愛自不必說，營造西式快餐輕快的就餐氛圍，開辟為兒童慶祝生日的區(qū)域，布置兒童喜好的多彩裝飾，節(jié)假日還備有玩具作為禮品，這也是吸引小朋友的重要一面。我們的一些賣場，也已經(jīng)做到了這一點(diǎn)，如設(shè)置“海洋球”、“蹦蹦床”等娛樂空間。但是，開放的對象多是針對學(xué)齡前兒童的，對于大一點(diǎn)的小學(xué)生來說，因?yàn)橐粋€人在家家長會不放心，往往是經(jīng)常被迫地“陪”父母上街購物。這樣一來需要為他們開辟一個空間，父母購物的同時，他們在娛樂與學(xué)習(xí)。

小學(xué)生不單純地停留在“玩”上了，他們喜歡智慧游戲，在娛樂中學(xué)習(xí)。不妨用Visual FoxPro6.0設(shè)計(jì)個簡易繪圖的程序，供小學(xué)生朋友展開繪畫的想象力，充分發(fā)揮繪畫才藝，寓學(xué)于樂，還可以把自己的“作品”打印出來帶回家，相信以后他們會很高興地陪父母購物的。這樣一來，會提高顧客流量，賣場的效益也會有所提高。

雖說Windows系統(tǒng)中自帶“畫圖”功能，但隨著電腦的普及，已為人熟知，對小顧客已沒有了新鮮感和吸引力。而基于VFP進(jìn)行簡易繪圖，形式新穎操作靈活，對孩子將來的計(jì)算機(jī)教育又打下了一定的基礎(chǔ)。況且這種娛樂方式商家實(shí)現(xiàn)起來容易，占地小成本又低，只要有一臺普通配置的電腦，一名有計(jì)算機(jī)基本操作技能的工作人員就可以了。下面就設(shè)計(jì)、實(shí)現(xiàn)過程及其功能做一介紹。

一、硬、軟件要求

硬件基本配置：主頻233MHZ的奔騰Ⅱ以上的微型機(jī)；64MB以上的主存；100MB以上的硬盤；800*600或更高分辨率的顯示器；一臺彩噴打印機(jī)。

軟件環(huán)境：Windows98/2000/XP環(huán)境均可。

二、安裝VFP環(huán)境

將VFP光盤插入CD-ROM中；在“資源管理器”目錄中，選擇光驅(qū)，運(yùn)行“Setup.exe ”文件；按照安裝向?qū)Вx擇安裝形式并完成安裝。

三、 功能介紹及代碼實(shí)現(xiàn)

1.功能

有小朋友畫圖時，滾動字幕隱藏，按“微調(diào)控件”的上、下箭頭選擇線的粗細(xì)，按“顏色”按鈕選擇畫線的顏色，不滿意時按“擦除”按鈕清除所畫內(nèi)容重新來。如圖1 所示。

圖1 圖 2

當(dāng)無人畫圖時，單擊“字幕滾動（按空格停止）”按鈕可以控制出現(xiàn)滾動字幕“來！大顯身手！”，按空格鍵就停止且隱藏。如圖2所示。

2.設(shè)計(jì)過程

啟動VFP。選擇“開始”菜單下的“程序”選項(xiàng)，再選擇“Microsoft Visual FoxPro 6.0”選項(xiàng)。

啟動“表單設(shè)計(jì)器”。單擊常用工具欄中的“新建”按鈕。或者在“文件”下拉菜單中單擊“新建”選項(xiàng)；打開“新建”對話框以后，先選定“表單”文件類型，然后單擊“新建文件”按鈕?；蛘?，在命令窗口中輸入Creat Form form1。表單設(shè)計(jì)器啟動后，它的“屬性”對話框、“表單設(shè)計(jì)器”工具欄與“表單控件”工具欄都顯示在屏幕上。

在表單（Form1）中，添加一個標(biāo)簽（Label1）、一個微調(diào)控件（Spinner1）、四個命令按鈕（Command1～Command4）。在“屬性”對話框中將表單、標(biāo)簽、命令按鈕的標(biāo)題（Caption）屬性分別設(shè)置為“簡易繪圖”、“線寬”、“顏色”、“擦除”、“退出”、“字幕滾動（按空格停止）”等。微調(diào)控件（Spinner1）的SpinnerLowValue屬性值設(shè)置為1，控制線最小寬度；SpinnerHighValue屬性值設(shè)置為7，控制線的最大寬度；Value屬性值設(shè)置為1，控制線寬的默認(rèn)值。

在表單（Form1）中，添加第二個標(biāo)簽(Label2)，其自動大?。ˋotoSize）屬性設(shè)置為.T.；是否可見（Visible）屬性設(shè)置為.F.；字體屬性（FontName）設(shè)置為“隸書”，字體大小(FontSize)屬性設(shè)置為“20”；字體顏色（ForeColor）屬性設(shè)置為“255，0，128”（桃紅色）。

3.代碼實(shí)現(xiàn)

雙擊“表單”，打開代碼編輯器，選擇“對象”為“Form1”，選擇“過程”為“MouseDown”。即編寫Form1_MouseDown（）事件代碼：

LPARAMETERS nButton， nShift， nXCoord， nYCoord確定畫線起點(diǎn)

This.CurrentX=nXcoord

This.CurrentY=nYcoord

編寫Form1_MouseMove（）事件代碼：

LPARAMETERS nButton， 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)

控制畫筆的顏色，每次單擊“顏色”按鈕，就會得到不同的顏色，隨機(jī)的。

編寫Command4_Click()事件代碼：

Thisform.Label2.Visible=.T.滾動字幕顯示

Thisform.Label2.Caption=“來！大顯身手！”

b=Thisform.Label2.Caption

Key=0

Do While Key!=32按空格鍵停止

b1=Substr(b，1，2)

b=Alltrim(Substr(b，3))+b1 使字符串首尾相接，循環(huán)不斷

Thisform.Label2.Caption=b

Key=Inkey(0.7，'H') 延時0.7秒

Thisform.Refresh

Enddo

Thisform.Label2.Visible=.F. 字幕隱藏

四、 運(yùn)行

畫完圖后，想看一下效果，就運(yùn)行此表單。共有四種方法：

> 單擊常用工具欄的“運(yùn)行”按鈕；

> 按組合鍵Ctrl+E；

> 在命令窗口中輸入命令：Do Form Form1.scx

> 打開“程序”菜單，選擇“運(yùn)行”選項(xiàng)。在彈出的“運(yùn)行”對話框中選擇表單名，單擊“運(yùn)行“按鈕。

五、 打印

表單運(yùn)行后，按組合鍵Alt+PrintScreen進(jìn)行屏幕拷貝，以圖片的形式將其粘貼到Microsoft Word文檔中，進(jìn)行打印即可。

帶著自己的作品回家，小顧客們一定會興高采烈，父母也會覺得輕松愉快。在商家眾多、競爭日趨激烈的今天，希望各賣場調(diào)動員工的積極性，利用計(jì)算機(jī)編程語言開發(fā)出更多更簡便易行的小程序，豐富賣場的娛樂活動，創(chuàng)造良好的服務(wù)質(zhì)量與服務(wù)方式，一定會給賣場帶來勃勃的生機(jī)和可觀的效益。