一、跪求一個(gè)VB編程,要求:用槍射擊靶子,子彈沿拋物線運(yùn)動(dòng)。各路高手幫幫忙,謝啦!!
這個(gè)題目好玩!不過沒有分?jǐn)?shù)!我就說說思路!這個(gè)需要用到高中的力學(xué)了!
子彈射出! 只受到重力作用!
水平方向不計(jì)空氣阻力!那水平方向的速度就是 子彈出膛的速度!也就是X軸的坐標(biāo)!
y軸的坐標(biāo)是: h=gt^2
下面做一個(gè)timer 每格1秒刷新一下 計(jì)算出XY 然后就可以了
二、VB做3D游戲
好像可以的。
我以前在書上看過,在VB里調(diào)用DirectX來制作游戲。
我一看到里面的代碼(DirectX對(duì)象定義,光源設(shè)置,視角設(shè)置等等一大堆的)就放棄用DirectX編程了。所以,我是做不出來。
希望哪位高手出來指點(diǎn)吧。
~~~
不好意思啊,能力有限,沒100%回答問題。
三、求一個(gè)VB 小游戲代碼 越簡單越好誰幫忙寫一個(gè) 網(wǎng)站上復(fù)制的不要
Private Sub Form_Click()
Dim p As POINTAPI
Dim Px As Integer
Dim Py As Integer
Call GetCursorPos(p)
Px = CInt(ScaleWidth * Rnd)
Py = CInt(ScaleHeight * Rnd)
If Px + 500 > ScaleWidth Then
Px = Px - 550
ElseIf Px - 500 < 0 Then
Px = Px + 550
End If
If Py + 500 > ScaleHeight Then
Py = Py - 950
ElseIf Py - 500 < 0 Then
Py = Py + 950
End If
If Val(p.x) <= (Px + 40) And Val(p.x) > (Px - 40) And Val(p.y) <= (Py + 40) And Val(p.y) > (Py - 40) Then
StatusBar1.Panels(1).Text = CStr(Val(StatusBar1.Panels(1).Text) + 1)
End If
Call Pdraw(Px, Py)
End Sub
Sub Pdraw(Px As Integer, Py As Integer)
Form1.Cls
Circle (Px, Py), 50, RGB(255, 0, 0)
Circle (Px, Py), 200, RGB(0, 0, 0)
Circle (Px, Py), 300, RGB(0, 0, 0)
Circle (Px, Py), 400, RGB(0, 0, 0)
Circle (Px, Py), 500, RGB(0, 0, 0)
End Sub
一個(gè)鼠標(biāo)打靶的小游戲,代碼是自己寫的!但是程序有一點(diǎn)不如人意,不能顯示打靶的分?jǐn)?shù)!對(duì)VB也是不很懂,對(duì)ASP比較熟悉了。
四、VB中編游戲需要什么控件? 要怎么做
vb編游戲最好別用控件,用窗體控件編游戲界面注定會(huì)很慢的.
如果要繪圖則用api繪圖
一般的飛行射擊游戲用vb編足已.
單獨(dú)做游戲你最好還要會(huì)做圖片,設(shè)計(jì)圖樣,包括人物造型,或者是物體造型,以及設(shè)計(jì)背景圖片,按鈕圖片等.做游戲界面也要設(shè)計(jì)的漂亮,就算自己不會(huì)設(shè)計(jì)也要有人幫你設(shè)計(jì).
不要期待用別人的控件來做游戲,我們只是什么時(shí)間往窗體上畫什么東西而已,或者接受用戶的輸入后,窗口里的畫面發(fā)生了什么改變.
