鄭丁元 傅馨竹

(德陽市岷山路小學(xué)，四川 德陽 618000)

2017年7月，國務(wù)院發(fā)布了《新一代人工智能發(fā)展規(guī)劃》，其中提到“在中小學(xué)階段設(shè)置人工智能相關(guān)課程，逐步推廣編程教育”。VB語言是國家計(jì)算機(jī)等級(jí)考試二級(jí)語言中的一種。筆者在培訓(xùn)小學(xué)生學(xué)習(xí)VB程序語言過程中，以實(shí)際項(xiàng)目推動(dòng)，帶領(lǐng)小學(xué)生完成了“兒童益智游戲”的設(shè)計(jì)與測(cè)試。

一、概述

“兒童益智游戲”包括三個(gè)游戲，圖1是其界面。“警察捉小偷”游戲主要訓(xùn)練小朋友使用鼠標(biāo)、“吉祥數(shù)”游戲訓(xùn)練小朋友們的反應(yīng)能力、“售貨機(jī)”游戲培養(yǎng)孩子們的理財(cái)意識(shí)。

點(diǎn)擊游戲?qū)⒋蜷_對(duì)應(yīng)的exe文件，對(duì)應(yīng)的代碼是，gouwu = Shell(App.Path + “快樂購物.exe”，1)

設(shè)置初始界面為橢圓的方法是使用VBAPI。

二、游戲開發(fā)

(一)“警察捉小偷”游戲開發(fā)

一共有2個(gè)圖像，分別是“警察”、“小偷”。游戲中，計(jì)算機(jī)控制小偷移動(dòng)，用戶操作鍵盤的上下左右箭頭去抓捕小偷。有一個(gè)滾動(dòng)條，可以控制警察速度。標(biāo)簽則可以顯示警察一個(gè)移動(dòng)了多少步。窗體每10秒改變一種顏色。

改變“警察”圖標(biāo)背景顏色的代碼是，

jc.BackColor = RGB(Int(Rnd()* 256)，Int(Rnd()* 164)，Int(Rnd()* 256))

小偷下一步運(yùn)動(dòng)方向的方法是，在小偷當(dāng)前位置，如果朝上下左右的四個(gè)位置走一步，判斷哪個(gè)方向是增大距離，然后小偷向距離大的方向移動(dòng)，實(shí)現(xiàn)逃離。

(二)“吉祥數(shù)”游戲開發(fā)

設(shè)置顯示吉祥數(shù)的三個(gè)標(biāo)簽為控件組?？梢杂靡痪浯a就實(shí)現(xiàn)在三個(gè)標(biāo)簽中產(chǎn)生吉祥數(shù)。

Randomize

For Index = 0 To 2

Label1(Index).Caption = Int(Rnd()* 10)

Next

制訂了吉祥數(shù)得分規(guī)則，如“三個(gè)吉祥數(shù)，999分”、“三個(gè)數(shù)相同但不是吉祥數(shù)，666分”，不重復(fù)計(jì)分。

輸入自己的“吉祥數(shù)”，點(diǎn)擊“開始”后即可在標(biāo)簽上快速閃現(xiàn)0-9的數(shù)字，“開始”按鈕變成“停止”。此時(shí)，不可以修改吉祥數(shù)。

判斷得分的方法是，停止計(jì)時(shí)器Timer工作后，讀取標(biāo)簽上三個(gè)數(shù)字，從第一條規(guī)則開始判斷，符合某一條規(guī)則則給出相應(yīng)的分?jǐn)?shù)并跳出判斷循環(huán)，否則繼續(xù)判斷是否符合下一條規(guī)則。

圖2是某次運(yùn)行時(shí)，顯示3個(gè)數(shù)字符合規(guī)則2，得分888分。此時(shí)已經(jīng)運(yùn)行了10次，總分?jǐn)?shù)是3088分。

數(shù)字的顯示速度可以調(diào)整。如果將速度調(diào)成“特別慢”，可以有效地訓(xùn)練孩子們的反應(yīng)能力。設(shè)置速度是通過改變計(jì)時(shí)器Timer1的Inteval值來實(shí)現(xiàn)的?！疤貏e慢”的代碼是，Timer1.Interval = 200

(三)“自動(dòng)售貨機(jī)”游戲開發(fā)

進(jìn)入游戲時(shí)，因?yàn)檫€未投錢，左側(cè)的所有圖標(biāo)均是灰色，不可操作。在右側(cè)投入金額，如1元、5元、10元，則左側(cè)對(duì)應(yīng)可購買的貨物將變?yōu)榭刹僮鳡顟B(tài)，不再是灰色。

購買了相應(yīng)的物品，則在中間的列表框中購買的全部物品。隨著金額的減少，若金額低于某類物品價(jià)格，則該類物品將會(huì)變成灰色，又不可購買了。

金額少于5元時(shí)，使對(duì)應(yīng)金額物品標(biāo)簽變成灰色的代碼是，

If qian<5 then

Label5.enable=false

EndIf

這個(gè)程序可以訓(xùn)練小朋友們的理財(cái)能力，讓他們懂得錢的流失，同時(shí)，也可以讓他們懂得錢的來之不易。

三、結(jié)束語

游戲?qū)崿F(xiàn)了預(yù)定的功能，經(jīng)調(diào)試后發(fā)布，得到了小朋友們的喜愛，增強(qiáng)了學(xué)生的成就感，提升了學(xué)習(xí)編程語言的興趣。

美中不足的是，游戲界面的美化還有很多工作可以做。