史萊姆論壇 - 求助一下...VB的程式

史萊姆論壇 (http://forum.slime.com.tw/)

- 程式語言討論區 (http://forum.slime.com.tw/f76.html)

- - 求助一下...VB的程式 (http://forum.slime.com.tw/thread163252.html)

求助一下...VB的程式

我同學有問題想問一下!!!
她們作VB是要做一個乒乓球程式....
只是老師要球加分題...
有道具可以吃....ex:可以連發....板子變大小...球一顆變三顆....有音效的部分....
如果反感的話....可以明確說一下方向嗎???

VB 最簡單的音效

Beep
透過系統揚聲器發出聲音。
請注意: 透過硬體和系統軟體發出頻繁，持續的蜂鳴聲，並因電腦不同而不同。

另外還可以用 API 函式 (請新增一個模組.bas)

語法:

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" ( _

    ByVal lpstrCommand As String, _

    ByVal lpstrReturnString As String, _

    ByVal uReturnLength As Long, _

    ByVal hwndCallback As Long) As Long

用法:

lpstrCommand(MCI 的命令字串) :
open 開啟設備：設備名 [type 設備型式][alias 別名]
close 關閉設備：設備名
play 播放檔案：設備名 [from 起點][to 終點]
Pause 暫停檔案
resume 取消暫停檔案
seek 直接移到：設備名 [to 位置 | to start | to end]
stop 停止撥放：設備名

程式範例 :
'開啟檔案
Call mciSendString("open c:\wavs\3ucheng.mid waveaudio alias song", 0, 0, 0) '此後用 song 代表這個檔案
'播放音樂
Call mciSendString("play song", 0, 0, 0)

最後還有一種就是用 MMControl元件 (就像用 TestBox一樣)
比如開啟 MMControl.Command="open"

是整個程式都還沒開始著手設計嗎？
建議先設計(規劃)出畫面
否則...無從談起

這裡有幾個可以作參考
http://www.i-dac.com/game/pinpongp/pinpon.html
http://www.hkglc.no-ip.com:8181/testing/1282976.swf
第一種是平面但要考慮揮球
第二種是立體(有遠近感)不需考慮揮球

所以簡單點的是平面+不需考慮揮球

那個大大~~~我同學他們的想法是這樣的....
打磚塊就如同下載開啟....
想要有道具可以吃....
棒子變大小...球數能夠變多....難度越高磚塊數目越多或著磚塊變形....
我放在H空間...感恩喔!!!帳密PO給你

原來是打磚塊~ (不是乒乓球^^||)

(那是Xuite帳號嗎?) 能直接貼出載點嗎？
(小小聲: 帳號不要隨意給人...)
或到這裡
http://s4.turboupload.com/upload.tu?
上傳檔案
(如不想公開原始碼請壓縮檔加密PM me)

個人是能看情形建議一下
但是要完整寫出就不一定了...

終於告一段落
xxx/237471/BulletJumpBall.rar.html

程式之碰撞是由矩形重疊函式來作判斷
其實應該用圓形碰撞法來作才對
不過寫到一半也懶得換了
而且因為球體積不大
所以誤差也不大因此作罷

幾乎每一行都有註解
所以請細細品味
其中物件類別的寫作是為了試驗 RaiseEvent
並非是耍酷 ^^||
如花心思看懂相信可增加個人對VB的技巧

(有問題請在此問~thx~)

我可以使用這個宣告在vba中執行嗎?
還有我本身run過沒錯誤，但是沒有聲音出現~
不知我是不是那用錯了

引用:

作者: mini

VB 最簡單的音效

Beep
透過系統揚聲器發出聲音。
請注意: 透過硬體和系統軟體發出頻繁，持續的蜂鳴聲，並因電腦不同而不同。

另外還可以用 API 函式 (請新增一個模組.bas)

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" ( _
ByVal lpstrCommand As S...

xxx/239450/BulletJumpBall_v2.rar.html

2005-12-28
.加台增加音效
.遊戲一開始，未開始前不顯示磚塊
.選單的困難度與遊戲開始選單之困難度反應相連結
.寶物增加落下模式 (需用擋板接住)

'<寶物處理>
'定義為:
'1: 加台 2: 球由大顆變小顆 3:擋板縮小 4:擋板變大 5:球變多(分身)
6:球變快 7:球變慢 8:擋板有子彈 9: 擋板可黏住球 10:磚塊區下沈

目前8~10 未設計完成

引用:

作者: younglin56

我可以使用這個宣告在vba中執行嗎?
還有我本身run過沒錯誤，但是沒有聲音出現~
不知我是不是那用錯了

那您寫的內容呢? .....

2006-01-01
.[停止][開始] 對寶物落下時亦可作用
.訂正接關次數等於0時之"執行期13錯誤"
.效能改進 (程式碼 IsGameClear 改成 GameClear)
.修正、添加了幾句註解

DL: http://d.turboupload.com/d/250105/Bu...ll_v4.rar.html (不包含原始程式碼)