愤怒鸟-程式设计-物体移动 今天我们要让物体可以沿着抛物线移动 .DOCVIP

憤怒鳥-程式設計-物體移動 今天我們要讓物體可以沿著拋物線移動，工作分成三大部分來進行，第一是設計背景，第二是設計主角，第三步是設計程式。 第一步 設計背景 找一張背景圖以搭配你的主題 用 PhotoImpact 開啟 按下 Ctrl+G 縮放到適合大小 存檔為 JPG 第二步 設計主角 在2D遊戲中的主角與物體都是使用遮罩圖的方式來繪製的，遮罩圖的用途是可以將物體的周邊去除，讓物體可以繪製背景上面，如圖： 主角圖 遮罩圖 先使用這照圖與背景做 AND 運算，接著在把原始圖畫上去，就可以讓物體與背景做結合了，是不是很神奇呢? 請決定遊戲的主角，找一張圖片，用PhotoImpact 開啟 使用 Ctrl+G 縮放至適合的大小 使用魔術棒或是套索工具，將主角圈選起來，轉換為物件 複製文件: Ctrl+D 將第一份圖的背景填為黑色，儲存為JPG格式 將第二份圖的背景填為白色，儲存為JPG格式 到此，我們完成了主角圖與遮罩圖的工作了。 第三步 程式設計 (一) 先佈置表單： 開啟上次拋物運動VB專案 Project1.vbp 新增 Picture1，設定AutoRedraw = True，ScaleMode=3-像素，Picture設定為背景圖 複製為 Picture2 (不要陣列)，放在Picture1下面 新增 Picture3，設定AutoRedraw = True，ScaleMode=3-像素，Picture設定為主角圖 複製Picture3(要陣列)，設定Picture為遮罩圖 表單完成後，進行程式設計的部份： (二) 設計程式 在表單最上面貼上繪圖相關的宣告： 宣告繪圖指令 Private Declare Function BitBlt Lib gdi32 (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long 宣告繪圖相關常數 Private Const SRCCOPY = HCC0020 Private Const SRCERASE = H440328 Private Const SRCINVERT = H660046 Private Const SRCPAINT = HEE0086 Private Const SRCAND = H8800C6 宣告新的變數： 新增 Form_Load事件，輸入下面指令： 在按鈕1事件裡輸入下面指令： 接著輸入物體延著拋物線繪圖的指令： (三) 測試程式 按下執行按鈕，主角會沿著拋物線前進，然後落地 調整主角起始發射位置： xo為水平座標，最左邊為0，往右邊數值愈大；yo為垂直座標，最上面為0，往下數值愈大。 調整虛線間距： 調整拋物線繪製比率： 調整主角拋物間距：