[VB6 ] 碰撞偵測的寫法

[BearWu (B.r)]

最近在學VB製作小遊戲

今天就學到了一種碰撞型的遊戲

http://mail.nkmu.edu.tw/~s931241022/bbs/Form1.frm

按下空白鍵，即可發射cmd_f

上下鍵可移動cmd_m

請問一下，如果我有一個被撞物件是cmd_p

如果我要假設子彈cmd_f碰撞到物件cmd_p

就加一分，請問一下，這種碰撞要怎麼做呢??

多謝了!!

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 192.83.195.244
推 fumizuki:算出物件的四個角
推 fumizuki:的相對座標
推 BearWu:可否舉個例!!，多謝!!
推 fumizuki:x1=left y1=top x2=left+width y2=top+height
推 fumizuki:碰撞：cmd_f 的 x2 等於 cmd_p 的 x1
推 BearWu:哦哦!!多謝指導
> -------------------------------------------------------------------------- <

作者: BearWu (B.r) 看板: Visual_Basic
標題: Re: [VB6 ] 碰撞偵測的寫法
時間: Fri Jun  3 17:26:59 2005

※ 引述《BearWu (B.r)》之銘言：
: 最近在學VB製作小遊戲
: 今天就學到了一種碰撞型的遊戲

 http://mail.nkmu.edu.tw/~s931241022/bbs/Form1.frm

 已經修改了，不過好像還是不行

 不知道這樣子對不對咧!!，

 另外之後有可能再做成碰撞物是採隨機出現的嗎?

 還是網路上也有這樣子的遊戲，可以提供一下吧!!

 <(_ _)>多謝大家解答了!!

: 按下空白鍵，即可發射cmd_f
: 上下鍵可移動cmd_m
: 請問一下，如果我有一個被撞物件是cmd_p
: 如果我要假設子彈cmd_f碰撞到物件cmd_p
: 就加一分，請問一下，這種碰撞要怎麼做呢??
: 多謝了!!

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 192.83.195.244

> -------------------------------------------------------------------------- <

作者: fumizuki (小獅) 看板: Visual_Basic
標題: Re: [VB6 ] 碰撞偵測的寫法
時間: Fri Jun  3 17:48:35 2005

※ 引述《BearWu (B.r)》之銘言：
: ※ 引述《BearWu (B.r)》之銘言：
: : 最近在學VB製作小遊戲
: : 今天就學到了一種碰撞型的遊戲
:  http://mail.nkmu.edu.tw/~s931241022/bbs/Form1.frm
:  已經修改了，不過好像還是不行
不行是因為 兩個物件是重疊 而不是相貼
把 = 改成 >= 就可以了
:  不知道這樣子對不對咧!!，
:  另外之後有可能再做成碰撞物是採隨機出現的嗎?
動態新增控制項，並用陣列存控制項，隨機顯示出來
  Dim cmd_p(100) As CommandButton
  Set cmd_p(i) = Controls.Add("VB.CommandButton", "cmd_p_" & i, Me)
或用陣列控制項，隨機顯示出來

controls.add 會在執行階段新增控制項
controls.remove "cmd_p_" & i 會移除該控制項
:  還是網路上也有這樣子的遊戲，可以提供一下吧!!
:  <(_ _)>多謝大家解答了!!
: : 按下空白鍵，即可發射cmd_f
: : 上下鍵可移動cmd_m
: : 請問一下，如果我有一個被撞物件是cmd_p
: : 如果我要假設子彈cmd_f碰撞到物件cmd_p
: : 就加一分，請問一下，這種碰撞要怎麼做呢??
: : 多謝了!!

--
VB 程式設計   倉木麻衣       PTT 星爺板     行列輸入法
======================================================
Visual_Basic  MaiKuraki      Stephen        Array

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 61.222.155.162
推 BearWu:謝謝fumi大大!!