基于ＶＦＰ的賣場娛樂方式設計與實現

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

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

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

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

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

一、硬、軟件要求

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

軟件環境：Windows98/2000/XP環境均可。

二、安裝VFP環境

將VFP光盤插入CD-ROM中；在“資源管理器”目錄中，選擇光驅，運行“Setup.exe ”文件；按照安裝向導，選擇安裝形式并完成安裝。

三、 功能介紹及代碼實現

1.功能

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

圖1 圖 2

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

2.設計過程

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

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

在表單（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（）事件代碼：

LPARAMETERS nButton， nShift， nXCoord， nYCoord確定畫線起點

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)

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

編寫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 使字符串首尾相接，循環不斷

Thisform.Label2.Caption=b

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

Thisform.Refresh

Enddo

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

四、 運行

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

> 單擊常用工具欄的“運行”按鈕；

> 按組合鍵Ctrl+E；

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

> 打開“程序”菜單，選擇“運行”選項。在彈出的“運行”對話框中選擇表單名，單擊“運行“按鈕。

五、 打印

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

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