ＶＦＰ賣場娛樂方式實現(xiàn)
前言：本站為你精心整理了ＶＦＰ賣場娛樂方式實現(xiàn)范文，希望能為你的創(chuàng)作提供參考價值，我們的客服老師可以幫助你提供個性化的參考范文，歡迎咨詢。
[摘要]營造輕松快樂的購物氛圍，是商家在激烈競爭中取勝必須考慮的一個重要環(huán)節(jié)。開辟單純的體力游戲已不能適應(yīng)陪父母購物的大齡兒童的需要。利用VisualFoxPro6.0開發(fā)簡易繪圖程序，不僅豐富了賣場的娛樂活動，而且有助于開發(fā)兒童智力，發(fā)揮才智，還能培養(yǎng)他們正確地運用計算機，掌握計算機的基本操作知識。寓學(xué)于樂，使家長安心購物，從而會促進賣場的銷售量，提高經(jīng)濟效益。
[關(guān)鍵詞]VisualFoxPro6.0賣場娛樂表單控件屬性事件代碼
肯德基在世界上那么受歡迎，除了精心選址、定位準確以外，很大程度上與服務(wù)質(zhì)量、服務(wù)方式有關(guān)。其食物口味獨特鮮香，深受小朋友的喜愛自不必說，營造西式快餐輕快的就餐氛圍，開辟為兒童慶祝生日的區(qū)域，布置兒童喜好的多彩裝飾，節(jié)假日還備有玩具作為禮品，這也是吸引小朋友的重要一面。我們的一些賣場，也已經(jīng)做到了這一點，如設(shè)置“海洋球”、“蹦蹦床”等娛樂空間。但是，開放的對象多是針對學(xué)齡前兒童的，對于大一點的小學(xué)生來說，因為一個人在家家長會不放心，往往是經(jīng)常被迫地“陪”父母上街購物。這樣一來需要為他們開辟一個空間，父母購物的同時，他們在娛樂與學(xué)習(xí)。
小學(xué)生不單純地停留在“玩”上了，他們喜歡智慧游戲，在娛樂中學(xué)習(xí)。不妨用VisualFoxPro6.0設(shè)計個簡易繪圖的程序，供小學(xué)生朋友展開繪畫的想象力，充分發(fā)揮繪畫才藝，寓學(xué)于樂，還可以把自己的“作品”打印出來帶回家，相信以后他們會很高興地陪父母購物的。這樣一來，會提高顧客流量，賣場的效益也會有所提高。
雖說Windows系統(tǒng)中自帶“畫圖”功能，但隨著電腦的普及，已為人熟知，對小顧客已沒有了新鮮感和吸引力。而基于VFP進行簡易繪圖，形式新穎操作靈活，對孩子將來的計算機教育又打下了一定的基礎(chǔ)。況且這種娛樂方式商家實現(xiàn)起來容易，占地小成本又低，只要有一臺普通配置的電腦，一名有計算機基本操作技能的工作人員就可以了。下面就設(shè)計、實現(xiàn)過程及其功能做一介紹。
一、硬、軟件要求
硬件基本配置：主頻233MHZ的奔騰Ⅱ以上的微型機；64MB以上的主存；100MB以上的硬盤；800*600或更高分辨率的顯示器；一臺彩噴打印機。
軟件環(huán)境：Windows98/2000/XP環(huán)境均可。
二、安裝VFP環(huán)境
將VFP光盤插入CD-ROM中；在“資源管理器”目錄中，選擇光驅(qū)，運行“Setup.exe”文件；按照安裝向?qū)Вx擇安裝形式并完成安裝。
三、功能介紹及代碼實現(xiàn)
1.功能
有小朋友畫圖時，滾動字幕隱藏，按“微調(diào)控件”的上、下箭頭選擇線的粗細，按“顏色”按鈕選擇畫線的顏色，不滿意時按“擦除”按鈕清除所畫內(nèi)容重新來。如圖1所示。
圖1圖2
當無人畫圖時，單擊“字幕滾動（按空格停止）”按鈕可以控制出現(xiàn)滾動字幕“來！大顯身手！”，按空格鍵就停止且隱藏。如圖2所示。
2.設(shè)計過程
啟動VFP。選擇“開始”菜單下的“程序”選項，再選擇“MicrosoftVisualFoxPro6.0”選項。
啟動“表單設(shè)計器”。單擊常用工具欄中的“新建”按鈕。或者在“文件”下拉菜單中單擊“新建”選項；打開“新建”對話框以后，先選定“表單”文件類型，然后單擊“新建文件”按鈕。或者，在命令窗口中輸入CreatFormform1。表單設(shè)計器啟動后，它的“屬性”對話框、“表單設(shè)計器”工具欄與“表單控件”工具欄都顯示在屏幕上。
在表單（Form1）中，添加一個標簽（Label1）、一個微調(diào)控件（Spinner1）、四個命令按鈕（Command1～Command4）。在“屬性”對話框中將表單、標簽、命令按鈕的標題（Caption）屬性分別設(shè)置為“簡易繪圖”、“線寬”、“顏色”、“擦除”、“退出”、“字幕滾動（按空格停止）”等。微調(diào)控件（Spinner1）的SpinnerLowValue屬性值設(shè)置為1，控制線最小寬度；SpinnerHighValue屬性值設(shè)置為7，控制線的最大寬度；Value屬性值設(shè)置為1，控制線寬的默認值。
在表單（Form1）中，添加第二個標簽(Label2)，其自動大小（AotoSize）屬性設(shè)置為.T.；是否可見（Visible）屬性設(shè)置為.F.；字體屬性（FontName）設(shè)置為“隸書”，字體大小(FontSize)屬性設(shè)置為“20”；字體顏色（ForeColor）屬性設(shè)置為“255，0，128”（桃紅色）。3.代碼實現(xiàn)
雙擊“表單”，打開代碼編輯器，選擇“對象”為“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&&使字符串首尾相接，循環(huán)不斷
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文檔中，進行打印即可。
帶著自己的作品回家，小顧客們一定會興高采烈，父母也會覺得輕松愉快。在商家眾多、競爭日趨激烈的今天，希望各賣場調(diào)動員工的積極性，利用計算機編程語言開發(fā)出更多更簡便易行的小程序，豐富賣場的娛樂活動，創(chuàng)造良好的服務(wù)質(zhì)量與服務(wù)方式，一定會給賣場帶來勃勃的生機和可觀的效益。
