一、vb 聲音代碼 除了beep還有別的么？我寫了一個射擊游戲的程序，想要一個特別的聲音。不要api，簡單的。
VB 內置聲音就只有Beep() .建議你用API 吧,畢竟游戲程序是不能缺少真實的聲音的(至少用戶會覺得你很用心去設計它)..
二、額~~嘿 VB 不懂的地方
。。。?；謴偷匠跏紶顟B得看你的“初始狀態”是怎樣
btnStart.enabled=true 是讓那個按鈕可以被用戶按下
如果用戶按下這個按鈕就可以了，那么這樣
btnStart_click
應該就是了
三、求VB設計的小游戲 代碼
打地鼠好做一點:
窗體上放上背景圖,控件放二個Label,一個顯示分數及升級分數,另一個顯示時間;一個Image顯示地鼠圖形(要透明背景);一個Timer控制時間顯示;另外將窗體的鼠標設置為錘子。
在Image的單擊事件中分值增加就好了。
四、vb 打冰雹游戲
'新建窗體，添加picture1,timer1,label1,option1(0-3)
’以下保存在模塊module1.bas中：
public type stdball
ox as integer
oy as integer
ballcolor as colorconstants
speed as integer
end type
public type stdspark
posx as integer
posy as integer
angle as integer
sparkcolor as colorconstants
speed as integer
size as integer
end type
public type stdsparks
ox as integer
oy as integer
spark(9) as stdspark
end type
'以下保存在窗體代碼中:
dim ball(9) as stdball, sparks(9) as stdsparks, x0 as single, y0 as single
const pi = 3.14159265
private sub form_load()
initialgame 2, 1
end sub
private sub picture1_mousedown(button as integer, shift as integer, x as single, y as single)
for i = 0 to 9
if (x - ball(i).ox) ^ 2 + (y - ball(i).oy) ^ 2 < 400 then
initialspark i
initialball i
label1.tag = split(label1.tag, *)(0) + 1 & * & split(label1.tag, *)(1)
label1.caption = 分數： & split(label1.tag, *)(0) & vbcrlf & 能量： & split(label1.tag, *)(1)
if split(label1.tag, *)(0) = 25 then msgbox 好樣的，繼續努力！
if split(label1.tag, *)(0) = 50 then msgbox 太棒了，再射中50個你就過關了，努力??！
if split(label1.tag, *)(0) = 100 then
msgbox 恭喜你過關了，增加難度，再繼續！
initialgame 3, 0
end if
if split(label1.tag, *)(0) = 150 then initialgame 4, 0
exit sub
end if
next
if split(label1.tag, *)(0) > 0 then label1.tag = split(label1.tag, *)(0) - 1 & * & split(label1.tag, *)(1)
label1.caption = 分數： & split(label1.tag, *)(0) & vbcrlf & 能量： & split(label1.tag, *)(1)
end sub
private sub picture1_mousemove(button as integer, shift as integer, x as single, y as single)
x0 = x: y0 = y
end sub
private sub option1_click(index as integer)
initialgame index + 1, 0
end sub
private sub timer1_timer()
picture1.backcolor = picture1.backcolor
for i = 0 to 9
drawball i
drawspark i
next
end sub
sub initialball(byval index as integer) '初始化圓球
dim awx() as integer, n as integer '將游戲窗口picture1沿x軸等分15段（每段50），10個球隨機占用這15段，為保證每一段內只有一個球，awx()用來存儲未被占用的斷的中點x(圓球球心)坐標
for x = 0 to 14 '計算存儲未被占用的段
for i = 0 to 9
if ball(i).ox = x * 50 + 25 then exit for
next
if i = 10 then
redim preserve awx(n)
awx(n) = x * 50 + 25
n = n + 1
end if
next
ball(index).ox = awx(int(rnd * n)) '隨機選擇未被占用的段
ball(index).oy = int(rnd * (-100))
ball(index).speed = int(rnd * me.tag + 1) '下落速度
ball(index).ballcolor = qbcolor(int(rnd * 15)) '顏色
end sub
sub initialspark(byval index as integer) '初始化火花
sparks(index).ox = ball(index).ox '爆炸圓心
sparks(index).oy = ball(index).oy
for i = 0 to 9
sparks(index).spark(i).posx = ball(index).ox '火花位置
sparks(index).spark(i).posy = ball(index).oy
sparks(index).spark(i).angle = int(rnd * 361) * pi / 180 '角度
sparks(index).spark(i).sparkcolor = ball(index).ballcolor '顏色
sparks(index).spark(i).speed = int(rnd * 15 + 10) '速度
sparks(index).spark(i).size = int(rnd * 12 + 5) '大小
next
end sub
sub drawball(byval index as integer) '畫圓球
picture1.fillstyle = 0 '實體填充
picture1.fillcolor = ball(index).ballcolor '填充顏色
picture1.drawwidth = 1 '線寬1
ball(index).oy = ball(index).oy + ball(index).speed '計算圓球y軸位置
picture1.circle (ball(index).ox, ball(index).oy), 20, vbwhite
picture1.fillcolor = vbwhite '高光顏色
picture1.circle (ball(index).ox + 15 * cos((3625 - 2 * ball(index).oy) * pi / 2900), ball(index).oy - 15 * sin((3625 - 2 * ball(index).oy) * pi / 2900)), 3, vbwhite
picture1.drawwidth = 4
picture1.circle (ball(index).ox, ball(index).oy), 15, vbwhite, (2175 + ball(index).oy) * pi / 1450, ball(index).oy * pi / 1450 'pi * 3 / 2, 2 * pi
if (x0 - ball(index).ox) ^ 2 + (y0 - ball(index).oy) ^ 2 < 400 then '計算被瞄準的圓球
picture1.drawwidth = 1
picture1.fillcolor = vbred
picture1.circle (ball(index).ox, ball(index).oy), 3, vbwhite
picture1.fillstyle = 1 '透明填充
picture1.circle (ball(index).ox, ball(index).oy), 30, vbred
picture1.line (ball(index).ox - 30, ball(index).oy)-(ball(index).ox + 30, ball(index).oy), vbred
picture1.line (ball(index).ox, ball(index).oy - 30)-(ball(index).ox, ball(index).oy + 30), vbred
end if
if ball(index).oy - 25 > picture1.scaleheight then '判斷落地
initialball index
if split(label1.tag, *)(1) > 1 then '能量減1
label1.tag = split(label1.tag, *)(0) & * & split(label1.tag, *)(1) - 1
label1.caption = 分數： & split(label1.tag, *)(0) & vbcrlf & 能量： & split(label1.tag, *)(1)
else
label1.caption = 分數： & split(label1.tag, *)(0) & vbcrlf & 能量：0
msgbox 你失敗了，別灰心，降低難度，請重來！
initialgame iif(me.tag > 1, me.tag - 1, 1), 1
end if
end if
end sub
sub drawspark(byval index as integer) '畫火花
if sparks(index).ox <> 0 and sparks(index).oy <> 0 then
isout = 1
for i = 0 to 9
if abs(sparks(index).spark(i).posx - sparks(index).ox) < 100 and abs(sparks(index).spark(i).posy - sparks(index).oy) < 50 then
isout = 0
sparks(index).spark(i).posx = sparks(index).spark(i).posx + sparks(index).spark(i).speed * cos(sparks(index).spark(i).angle)
sparks(index).spark(i).posy = sparks(index).spark(i).posy - sparks(index).spark(i).speed * sin(sparks(index).spark(i).angle)
picture1.drawwidth = sparks(index).spark(i).size
picture1.pset (sparks(index).spark(i).posx, sparks(index).spark(i).posy), sparks(index).spark(i).sparkcolor
end if
next
if isout = 1 then sparks(index).ox = 0: sparks(index).oy = 0
end if
end sub
sub initialgame(byval level as integer, byval isclear as integer) '初始化游戲
option1(0).caption = 簡單
option1(1).caption = 中等
option1(2).caption = 較難
option1(3).caption = 高級
option1(level - 1).value = true '設置單選框選中當前難度級別
timer1.interval = 20
me.scalemode = 3 '像素模式
picture1.scalemode = 3 '設置游戲窗口信息
picture1.autoredraw = true
picture1.width = 760
picture1.height = 500
if isclear = 1 then '清零積分和能量
label1.caption = 分數：0 & vbcrlf & 能量：5
label1.tag = 0*5
end if
me.tag = level '保存當前等級
for i = 0 to 9 '初始化球圓球信息
initialball i
next
end sub
