第二節 設計打地鼠游戲,粵教版 八年級下,粵教版初中信息技術,課件,新知導入,打地鼠，商場里經常看到。游戲規則比較簡單，打中隨機出現的地鼠就能得分，那么，VB能否設計一個打地鼠游戲呢？,新知導入,若想用VB設計打地鼠游戲，需思考以下3個問題： 1、打地鼠的核心功能是什么？ 2、如何從核心的功能開始增加游戲的復雜度和可玩性？ 3、做的打地鼠游戲能吸引其他同學來玩嗎？,新知講解,1、功能分析,一、打地鼠游戲初級版,你認為打地鼠游戲程序應該包含哪些基本功能？,打地鼠程序最核心的角色是：地鼠和錘子 地鼠：動作交替出現或隱藏。 錘子：動作就是移動和擊打地鼠，擊打就是單擊鼠標。,新知講解,2、界面分析,初級版打地鼠界面中，涉及控件對象：Image、Timer和Form。,新知講解,3、代碼分析,地鼠的出現與隱藏，由Timer事件控制，地鼠出現與隱藏交替變換代碼： ds.Visible=False,4、調試程序,新知導入,關于軟件的版本號,主版本號：功能模塊有大變動。 次版本號：次版對應的只是局部變動。局部變動造成和以前版本不能兼容。 修訂版本號：局部變動，主要是局部函數的功能改進，或者bug的修正，或者功能的擴充。,新知講解,二、打地鼠游戲升級版,1、1.1.0版本打地鼠游戲,1.1.0版本：打中地鼠可以得到1分。 計分變量Sum。當擊中地鼠中，加一個計數器語句: Sum=Sum+1 并在Label控件將分數顯示出來。,新知講解,（1）根據李鳴的想法，完成1.1.0版本的打地鼠游戲。,新知講解,（2）根據自己的想法，增加一些控件游戲的控件，使游戲功能更加多一些。完成1.x.x版本的打地鼠游戲。,新知講解,方法一： 通過ds控件的Left和Top屬性值的修改，使地鼠能在不同的地方出現。,2、2.0.0版本打地鼠游戲,新知講解,方法二： 在12個地洞上分別建立12個image控件，命名為dd(0)dd(11)，然后，地鼠出現的代碼也從原來的ds.Visible=True變成 dd(x).picture=ds.Picture 而隱藏則變成了dd(x).Picture=em.Picture。增加了一個em控件，Picture屬性為空白。,新知講解,同時出現多只地鼠，方法就是在出現打地鼠的代碼中增加一個記次循環，通過循環執行隨機地鼠出現的語句。以達到出現多只地鼠的效果。,3、2.1.0版本打地鼠游戲,新知講解,（1）在連續擊中地鼠時，如何實現獎勵分數翻倍？,將a=a+1改為a=a*a,新知講解,（2）你還能想到一些什么新的功能來增加游戲的趣味性？,添加詢問語句，如：,課后習題,（1）以下敘述中錯誤的是 (C) A）Visual Basic 是事件驅動型可視化編程工具 B）Visual Basic應用程序不具有明顯的開始和結束語句 C）Visual Basic工具箱中的所有控件都具有寬度（Width）和高度（Height）屬性 D）Visual Basic中控件的某些屬性只能在運行時設置,課后習題,2、將定時器的時間間隔設置為1秒，那定時器的Interval屬性值應為(A)。 A1000B1C100D10 3、當設置了定時器的有關屬性后，使窗體自動向下移動的語句是Move（C）。 ALeft，Top+100BTop+100 CTop-100 DTop=Top+100,課堂總結,1、打地鼠程序最核心的角色是：地鼠和錘子。,2、地鼠出現與隱藏交替變換代碼:ds.Visible=False,板書設計,一、打地鼠游戲初級版。 二、打地鼠游戲升級版。 1、1.1.0版本打地鼠游戲 2、2.0.0版本打地鼠游戲 3、2.1.0版本打地鼠游戲