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