求助一下...VB的程式

rockman132 · 2005-12-13, 01:19 PM

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

mini · 2005-12-13, 02:49 PM

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
第一種是平面但要考慮揮球
第二種是立體(有遠近感)不需考慮揮球

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

rockman132 · 2005-12-13, 05:22 PM

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

mini · 2005-12-13, 07:31 PM

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

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

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

rockman132 · 2005-12-16, 01:35 PM

這裡是下載網址
http://d.turboupload.com/d/213675/2005020051.rar.html

mini · 2005-12-27, 04:29 PM

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

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

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

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

younglin56 · 2005-12-28, 07:09 AM

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

引用:

作者: mini

VB 最簡單的音效

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

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

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

mini · 2005-12-28, 04:19 PM

xxx/239450/BulletJumpBall_v2.rar.html

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

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

目前8~10 未設計完成

引用:

作者: younglin56

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

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

mini · 2006-01-02, 03:09 PM

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

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

2005-12-13, 01:19 PM	#1
rockman132 註冊會員榮譽勳章勳章總數5 UID - 93994 在線等級: 註冊日期: 2003-08-24 VIP期限: 2010-09 住址: 遙遠的拉拉山.... 文章: 1267 精華: 0 現金: -46 金幣資產: 8784536 金幣	求助一下...VB的程式我同學有問題想問一下!!! 她們作VB是要做一個乒乓球程式.... 只是老師要球加分題... 有道具可以吃....ex:可以連發....板子變大小...球一顆變三顆....有音效的部分.... 如果反感的話....可以明確說一下方向嗎???

	送花文章: 112, 收花文章: 251 篇, 收花: 702 次

2005-12-13, 02:49 PM	#2 (permalink)
mini 管理版主榮譽勳章勳章總數17 UID - 4144 在線等級: 註冊日期: 2002-12-07 文章: 13382 精華: 0 現金: 26616 金幣資產: 3024526 金幣	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 第一種是平面但要考慮揮球第二種是立體(有遠近感)不需考慮揮球所以簡單點的是平面+不需考慮揮球

	送花文章: 2027, 收花文章: 8021 篇, 收花: 26846 次

2005-12-13, 05:22 PM	#3 (permalink)
rockman132 註冊會員榮譽勳章勳章總數5 UID - 93994 在線等級: 註冊日期: 2003-08-24 VIP期限: 2010-09 住址: 遙遠的拉拉山.... 文章: 1267 精華: 0 現金: -46 金幣資產: 8784536 金幣	那個大大~~~我同學他們的想法是這樣的.... 打磚塊就如同下載開啟.... 想要有道具可以吃.... 棒子變大小...球數能夠變多....難度越高磚塊數目越多或著磚塊變形.... 我放在H空間...感恩喔!!!帳密PO給你

	送花文章: 112, 收花文章: 251 篇, 收花: 702 次

2005-12-13, 07:31 PM	#4 (permalink)
mini 管理版主榮譽勳章勳章總數17 UID - 4144 在線等級: 註冊日期: 2002-12-07 文章: 13382 精華: 0 現金: 26616 金幣資產: 3024526 金幣	原來是打磚塊~ (不是乒乓球^^\|\|) (那是Xuite帳號嗎?) 能直接貼出載點嗎？ (小小聲: 帳號不要隨意給人...) 或到這裡 http://s4.turboupload.com/upload.tu? 上傳檔案 (如不想公開原始碼請壓縮檔加密PM me) 個人是能看情形建議一下但是要完整寫出就不一定了...

	送花文章: 2027, 收花文章: 8021 篇, 收花: 26846 次

2005-12-16, 01:35 PM	#5 (permalink)
rockman132 註冊會員榮譽勳章勳章總數5 UID - 93994 在線等級: 註冊日期: 2003-08-24 VIP期限: 2010-09 住址: 遙遠的拉拉山.... 文章: 1267 精華: 0 現金: -46 金幣資產: 8784536 金幣	這裡是下載網址 http://d.turboupload.com/d/213675/2005020051.rar.html

	送花文章: 112, 收花文章: 251 篇, 收花: 702 次

2005-12-27, 04:29 PM	#6 (permalink)
mini 管理版主榮譽勳章勳章總數17 UID - 4144 在線等級: 註冊日期: 2002-12-07 文章: 13382 精華: 0 現金: 26616 金幣資產: 3024526 金幣	終於告一段落 xxx/237471/BulletJumpBall.rar.html 程式之碰撞是由矩形重疊函式來作判斷其實應該用圓形碰撞法來作才對不過寫到一半也懶得換了而且因為球體積不大所以誤差也不大因此作罷幾乎每一行都有註解所以請細細品味其中物件類別的寫作是為了試驗 RaiseEvent 並非是耍酷 ^^\|\| 如花心思看懂相信可增加個人對VB的技巧 (有問題請在此問~thx~)

	送花文章: 2027, 收花文章: 8021 篇, 收花: 26846 次

2006-01-02, 03:09 PM	#9 (permalink)
mini 管理版主榮譽勳章勳章總數17 UID - 4144 在線等級: 註冊日期: 2002-12-07 文章: 13382 精華: 0 現金: 26616 金幣資產: 3024526 金幣	2006-01-01 .[停止][開始] 對寶物落下時亦可作用 .訂正接關次數等於0時之"執行期13錯誤" .效能改進 (程式碼 IsGameClear 改成 GameClear) .修正、添加了幾句註解 DL: http://d.turboupload.com/d/250105/Bu...ll_v4.rar.html (不包含原始程式碼)

	送花文章: 2027, 收花文章: 8021 篇, 收花: 26846 次

Google 提供的廣告