推箱子設計報告書-資料下載頁

　　

【正文】 Select Case CurrBox 39。選擇當前盒子 Case B_BACK Map(X, Y) = B_GROUND 39。背景選擇背景 Case B_GROUND Map(X, Y) = B_DEST 39。選擇空白的背景 Case B_DEST Map(X, Y) = B_BOX 39。定義小盒子的位置 Case B_BOX Map(X, Y) = B_WALL 39。定義墻的位置 Case B_WALL Map(X, Y) = B_BACK 39。定義背景的位置 End Select Changed = True CurrBox = Map(X, Y) BitBlt , 0, 0, 32, 32, , DrawBox(X, Y, CurrBox) * 32, 0, vbSrcCopy Case Asc(N) NewMap 39。新建地圖 Case 33 LoadMap (1) 39。下載上一個地圖 Case 34 LoadMap (1) 39。下載下一個地圖 Case Asc(S) SaveMap 39。保存地圖 Case 27 Unload Me 39。下載地圖 End Select X * 32, Y * 32 39。 要注意的是，本程序中，小人不是用API繪制的，而是直接采用一個PictureBox控件， 39。 小人移動只需改變控件的坐標即成。 If Shift = vbCtrlMask Then 39。 Ctrl鍵繪制 Map(X, Y) = CurrBox Changed = True DrawBox X, Y, CurrBox ‘該控件(小人)刷新 End IfEnd Sub39。 繪制地圖塊Private Function DrawBox(ByVal X As Integer, ByVal Y As Integer, ByVal BoxType As Integer) As Integer Dim Offset As Integer Select Case BoxType 39。繪制地圖的背景,空白背景,盒子圖片,墻 Case B_BACK Offset = 0 Case B_GROUND Offset = 1 Case B_DEST Offset = 2 Case B_BOX Offset = 3 Case B_WALL Offset = 4 End Select BitBlt , X * 32, Y * 32, 32, 32, , Offset * 32, 0, vbSrcCopy DrawBox = Offset 39。使用API 函數定義圖片的大小,位置End Function39。 確認退出Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If Not AskSave Then 39。是否保存 Cancel = 1 Else Close FileNum 39。關閉文件 End End IfEnd Sub39。 保存提示（Changed為真，又進行關卡切換、退出時發生）Private Function AskSave() As Boolean If Not Changed Then AskSave = True 39。如果選擇保存為真 Exit Function 39。退出功能 End If Dim Temp As Integer Temp = MsgBox(要保存更改嗎？, vbQuestion Or vbYesNoCancel, 提示) Select Case Temp Case vbYes 39。選擇是 SaveMap 39。保存地圖 AskSave = True Case vbNo 39。選擇否 AskSave = True 39。保存為真 Case vbCancel AskSave = False 39。選擇保存為假 End SelectEnd Function39。 整個畫面刷新Private Sub DrawMap() Dim i As Long, j As Long For i = 0 To 14 For j = 0 To 19 DrawBox j, i, Map(j, i) 39。定義頁面i,j值 Next Next 39。頁面刷新End SubPrivate Sub picMain_Click()End Sub九、試驗總結 界面設計1）軟件啟動封面設計2）軟件框架設計3）軟件按鈕設計4）軟件面板設計5）菜單設計6）標簽設計7）圖標設計8）滾動條及狀態欄設計9）安裝過程設計10）包裝及商品化 界面設計原則1）易用性 2）規范性 3）合理性4）美觀與協調性5）界面一致性6）向導7）用戶幫助8）出錯信息和警告9）一般交互10）數據輸入11）獨特性編程規范總則排版注釋標識符命名可讀性變量與結構函數與過程可測性程序效率質量保證代碼編輯、編譯與審查1代碼測試與維護 根據這次實訓了解推箱子游戲的簡單原理,與應用方法,這次實訓對我的幫助很大.18