前言：本站為你精心整理了ＶＦＰ賣場(chǎng)娛樂(lè)方式實(shí)現(xiàn)范文，希望能為你的創(chuàng)作提供參考價(jià)值，我們的客服老師可以幫助你提供個(gè)性化的參考范文，歡迎咨詢。

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

[關(guān)鍵詞]VisualFoxPro6.0賣場(chǎng)娛樂(lè)表單控件屬性事件代碼

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

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

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

一、硬、軟件要求

硬件基本配置：主頻233MHZ的奔騰Ⅱ以上的微型機(jī)；64MB以上的主存；100MB以上的硬盤；800*600或更高分辨率的顯示器；一臺(tái)彩噴打印機(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.功能

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

圖1圖2

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

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

啟動(dòng)VFP。選擇“開始”菜單下的“程序”選項(xiàng)，再選擇“MicrosoftVisualFoxPro6.0”選項(xiàng)。

啟動(dòng)“表單設(shè)計(jì)器”。單擊常用工具欄中的“新建”按鈕?；蛘咴凇拔募毕吕藛沃袉螕簟靶陆ā边x項(xiàng)；打開“新建”對(duì)話框以后，先選定“表單”文件類型，然后單擊“新建文件”按鈕?；蛘撸诿畲翱谥休斎隒reatFormform1。表單設(shè)計(jì)器啟動(dòng)后，它的“屬性”對(duì)話框、“表單設(shè)計(jì)器”工具欄與“表單控件”工具欄都顯示在屏幕上。

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

在表單（Form1）中，添加第二個(gè)標(biāo)簽(Label2)，其自動(dòng)大小（AotoSize）屬性設(shè)置為.T.；是否可見(jiàn)（Visible）屬性設(shè)置為.F.；字體屬性（FontName）設(shè)置為“隸書”，字體大小(FontSize)屬性設(shè)置為“20”；字體顏色（ForeColor）屬性設(shè)置為“255，0，128”（桃紅色）。3.代碼實(shí)現(xiàn)

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

LPARAMETERSnButton,nShift,nXCoord,nYCoord&&確定畫線起點(diǎn)

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)

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

編寫Command4_Click()事件代碼：

Thisform.Label2.Visible=.T.&&滾動(dòng)字幕顯示

Thisform.Label2.Caption=“來(lái)！大顯身手！”

b=Thisform.Label2.Caption

Key=0

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

b1=Substr(b,1,2)

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

Thisform.Label2.Caption=b

Key=Inkey(0.7,''''H'''')&&延時(shí)0.7秒

Thisform.Refresh

Enddo

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

四、運(yùn)行

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

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

>按組合鍵Ctrl+E；

>在命令窗口中輸入命令：DoFormForm1.scx

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

五、打印

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

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